projects
/
mes.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a53e878
)
scm: Bugfix drain-input.
author
Jan Nieuwenhuizen
<janneke@gnu.org>
Mon, 27 Mar 2017 19:00:49 +0000
(21:00 +0200)
committer
Jan 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
patch
|
blob
|
history
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)))