Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-10 14:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Providing friendlier error message for # at end of input.

Browse source
This commit is contained in:
Alex Shinn 2012-04-16 20:39:30 +09:00
parent c316c4d715
commit 580d4323aa
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/38.scm
View file

@ -226,6 +226,8 @@
(case (peek-char in)
((#\#)
(read-char in)
(if (eof-object? (peek-char in))
(error "read error: incomplete # found at end of input"))
(case (char-downcase (peek-char in))
((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)
(let* ((str (read-label '()))