scm: Bugfix drain-input.

* module/mes/guile.mes (drain-input): Bugfix: return string.

diff --git a/module/mes/guile.mes b/module/mes/guile.mes
index d4230dbeff7d4e5d1629ffc3c3274e846b957c53..55d2dd2acdf7eda2a2d7b0f11494c3a477aee956 100644 (file)
--- a/module/mes/guile.mes
+++ b/module/mes/guile.mes
@@ -26,9 +26,10 @@
 (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)))