diff options
| -rw-r--r-- | tests/dist.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/dist.scm b/tests/dist.scm index 755d3c1..88df35c 100644 --- a/tests/dist.scm +++ b/tests/dist.scm @@ -201,8 +201,8 @@ (error "Wrong result 2" result))) (write-line "scheme@(guile-user)> $1 = 42\n" c) - - (sleep 60))))) + (while #t + (sleep 60)))))) (else (message-reply-success msg))))))) ;; Client |