scm: Bugfix drain-input.
[mes.git] / 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)))