artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

scm: Bugfix drain-input.

Browse source 
* module/mes/guile.mes (drain-input): Bugfix: return string.
This commit is contained in:
Jan Nieuwenhuizen 2017-03-27 21:00:49 +02:00
parent a53e878435
commit 945fb39d18
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
module/mes/guile.mes
View file

@ -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)))