Providing friendlier error message for # at end of input.

This commit is contained in:
Alex Shinn 2012-04-16 20:39:30 +09:00
parent c316c4d715
commit 580d4323aa

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 '()))