diff options
| -rw-r--r-- | tests/tunnel.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/tunnel.scm b/tests/tunnel.scm index f6060e4..8a21695 100644 --- a/tests/tunnel.scm +++ b/tests/tunnel.scm @@ -154,7 +154,9 @@ (lambda (server) (start-server/dt-test server (lambda (channel) - (write-line (read-line channel) channel)))) + (poll channel + (lambda (channel) + (write-line (read-line channel) channel)))))) ;; Client (call/pf) (lambda () (set-log-userdata! (string-append (get-log-userdata) " (call/pf)")) |