scm: Bugfix drain-input.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 27 Mar 2017 19:00:49 +0000 (21:00 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 27 Mar 2017 19:00:49 +0000 (21:00 +0200)
* module/mes/guile.mes (drain-input): Bugfix: return string.

module/mes/guile.mes

index d4230dbeff7d4e5d1629ffc3c3274e846b957c53..55d2dd2acdf7eda2a2d7b0f11494c3a477aee956 100644 (file)
 (define-macro (use-modules . rest) #t)
 
 (define (drain-input port)
-  (let loop ((c (read-char)))
-    (if (eq? c #\*eof*) '()
-        (cons c (loop (read-char))))))
+  (list->string
+   (let loop ((c (read-char)))
+     (if (eq? c #\*eof*) '()
+         (cons c (loop (read-char)))))))
 
 (define (make-string n . fill)
   (list->string (apply make-list n fill)))