Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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)))))) (in-port:get-cnum ptbl))))))
(define (loop buf) (define (loop buf)
(let ((c (peek-char fp))) (let ((c (peek-char fp)))
(if (or (eof-object? c) (cond
(char-whitespace? c) ((or (eof-object? c)
(and (> (length buf) 0) (and (char-whitespace? c) (> (length buf) 0))
(equal? c #\)))) (and (> (length buf) 0)
(done buf) (equal? c #\))))
(loop (cons (read-char fp) buf))))) (done buf))
(else
(loop (cons (read-char fp) buf))))))
(loop '())) (loop '()))
(define (read-str fp buf ptbl) (define (read-str fp buf ptbl)