diff options
Diffstat (limited to 'examples/echo/server.scm')
| -rwxr-xr-x | examples/echo/server.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/echo/server.scm b/examples/echo/server.scm index e89db57..c10ccd0 100755 --- a/examples/echo/server.scm +++ b/examples/echo/server.scm @@ -114,8 +114,8 @@ (define (read-all port) "Read all lines from the PORT." - (let r ((res "") - (str (read-line port 'concat))) + (let r ((res (read-line port 'concat)) + (str "")) (if (and (not (eof-object? str)) (char-ready? port)) (r (string-append res str) (read-line port 'concat)) res))) |