conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed error message when typing #toops

This commit is contained in:
Abdulaziz Ghuloum 2008-12-08 06:28:41 -05:00
parent 5f1a3ab765
commit a2e78a87d1
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scheme/ikarus.reader.ss
View File

@ -440,19 +440,19 @@
(cond
[(eof-object? c) (die/p p 'tokenize "invalid # near end of file")]
[(memq c '(#\t #\T))
(let ([c (peek-char p)])
(let ([c1 (peek-char p)])
(cond
[(eof-object? c) '(datum . #t)]
[(delimiter? c) '(datum . #t)]
[(eof-object? c1) '(datum . #t)]
[(delimiter? c1) '(datum . #t)]
[else (die/p p 'tokenize
(format "invalid syntax near #~a" c))]))]
(format "invalid syntax near #~a~a" c c1))]))]
[(memq c '(#\f #\F))
(let ([c (peek-char p)])
(let ([c1 (peek-char p)])
(cond
[(eof-object? c) '(datum . #f)]
[(delimiter? c) '(datum . #f)]
[(eof-object? c1) '(datum . #f)]
[(delimiter? c1) '(datum . #f)]
[else (die/p p 'tokenize
(format "invalid syntax near #~a" c))]))]
(format "invalid syntax near #~a~a" c c1))]))]
[($char= #\\ c) (tokenize-char p)]
[($char= #\( c) 'vparen]
[($char= #\' c) '(macro . syntax)]

2
scheme/last-revision
View File

@ -1 +1 @@
1704
1705