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

mes: Simplify read-string.

Browse source 
* module/mes/guile.mes (read-string): Simplify, probably fix even.
This commit is contained in:
Jan Nieuwenhuizen 2017-05-21 12:21:07 +02:00
parent 78a066ff3f
commit 21aff4c7ad
1 changed files with 3 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
module/mes/guile.mes
View file

@ -138,17 +138,7 @@
string-port)))
(define (read-string)
(define (append-char s c)
(append2 s (cons c (list))))
(define (read-string c p s)
(cond
((and (eq? c #\\) (or (eq? p #\\) (eq? p #\")))
((lambda (c)
(read-string (read-char) (peek-char) (append-char s c)))
(read-char)))
((and (eq? c #\\) (eq? p #\n))
(read-char)
(read-string (read-char) (peek-char) (append-char s 10)))
((eq? c #\*eof*) s)
(#t (read-string (read-char) (peek-char) (append-char s c)))))
(list->string (read-string (read-char) (peek-char) (list))))
(if (eq? c #\*eof*) s
(read-string (read-char) (peek-char) (cons c s))))
(list->string (reverse (read-string (read-char) (peek-char) (list)))))