Fallback when building channel instances

This commit is contained in:
Christopher Baines 2024-03-13 15:34:48 +00:00
parent a667db2f5d
commit b4583bb177

View file

@ -1160,6 +1160,7 @@
(let* ((inferior-store (open-connection))
(inferior (start-inferior inferior-store)))
(ensure-non-blocking-store-connection inferior-store)
(set-build-options inferior-store #:fallback? #t)
(make-inferior-non-blocking! inferior)
(call-with-blocked-asyncs
(lambda ()