Fallback when building channel instances
This commit is contained in:
parent
a667db2f5d
commit
b4583bb177
1 changed files with 1 additions and 0 deletions
|
|
@ -1160,6 +1160,7 @@
|
||||||
(let* ((inferior-store (open-connection))
|
(let* ((inferior-store (open-connection))
|
||||||
(inferior (start-inferior inferior-store)))
|
(inferior (start-inferior inferior-store)))
|
||||||
(ensure-non-blocking-store-connection inferior-store)
|
(ensure-non-blocking-store-connection inferior-store)
|
||||||
|
(set-build-options inferior-store #:fallback? #t)
|
||||||
(make-inferior-non-blocking! inferior)
|
(make-inferior-non-blocking! inferior)
|
||||||
(call-with-blocked-asyncs
|
(call-with-blocked-asyncs
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue