fixed incorrect handling of ".ddd" when reading from a port.

This commit is contained in:
Abdulaziz Ghuloum 2008-06-10 18:38:06 -07:00
parent 0939370a07
commit 3ee75bece0
2 changed files with 2 additions and 2 deletions

View File

@ -257,7 +257,7 @@
(string-append ".." (string c)))]))]
[else
(cons 'datum
(dot p '(#\.) 10 #f #f))]))))
(dot p '(#\.) 10 #f +1))]))))
(define tokenize-char*
(lambda (i str p d)
(cond

View File

@ -1 +1 @@
1511
1512