fixing bug in srfi-38 for reading ellipsis

This commit is contained in:
Alex Shinn 2012-05-23 23:27:02 +09:00
parent cb6d16a8f1
commit a56b497a00

View file

@ -311,7 +311,7 @@
(error "expected end of list after dot"))))
((char-numeric? (peek-char in))
(lp (cons (read-float-tail in) res)))
(else (string->symbol (read-name #\. in)))))
(else (lp (cons (string->symbol (read-name #\. in)) res)))))
(else
(if (eof-object? c)
(error "unterminated list")