From 945fb39d18aa6083d60684db8ed43d58be8511ca Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 27 Mar 2017 21:00:49 +0200 Subject: [PATCH] scm: Bugfix drain-input. * module/mes/guile.mes (drain-input): Bugfix: return string. --- module/mes/guile.mes | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/module/mes/guile.mes b/module/mes/guile.mes index d4230dbe..55d2dd2a 100644 --- 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)))