Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Read literal whitespace chars

Browse source
This commit is contained in:
Justin Ethier 2016-04-01 22:41:01 -04:00
parent 02e3e58352
commit 1048375003
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
scheme/read.sld
View file

@ -448,12 +448,14 @@
(in-port:get-cnum ptbl))))))
(define (loop buf)
(let ((c (peek-char fp)))
(if (or (eof-object? c)
(char-whitespace? c)
(and (> (length buf) 0)
(equal? c #\))))
(done buf)
(loop (cons (read-char fp) buf)))))
(cond
((or (eof-object? c)
(and (char-whitespace? c) (> (length buf) 0))
(and (> (length buf) 0)
(equal? c #\))))
(done buf))
(else
(loop (cons (read-char fp) buf))))))
(loop '()))
(define (read-str fp buf ptbl)