Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

checking for eof when reading a list

Browse source
This commit is contained in:
Alex Shinn 2010-12-29 16:14:06 +09:00
parent c163599685
commit 0ecb8ea665
1 changed files with 20 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/srfi/38.scm
View file

@ -203,7 +203,8 @@
(read-char in)
(let lp ((res '()))
(skip-whitespace in)
(case (peek-char in)
(let ((c (peek-char in)))
(case c
((#\))
(read-char in)
(reverse res))
@ -219,7 +220,9 @@
((char-numeric? (peek-char in)) (read-float-tail in))
(else (string->symbol (read-name #\. in)))))
(else
(lp (cons (read-one) res))))))
(if (eof-object? c)
(error "unterminated list")
(lp (cons (read-one) res))))))))
((#\') (read-char in) (list 'quote (read-one)))
((#\`) (read-char in) (list 'quasiquote (read-one)))
((#\,)