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 (cond
[(eof-object? c) (die/p p 'tokenize "invalid # near end of file")] [(eof-object? c) (die/p p 'tokenize "invalid # near end of file")]
[(memq c '(#\t #\T)) [(memq c '(#\t #\T))
(let ([c (peek-char p)]) (let ([c1 (peek-char p)])
(cond (cond
[(eof-object? c) '(datum . #t)] [(eof-object? c1) '(datum . #t)]
[(delimiter? c) '(datum . #t)] [(delimiter? c1) '(datum . #t)]
[else (die/p p 'tokenize [else (die/p p 'tokenize
(format "invalid syntax near #~a" c))]))] (format "invalid syntax near #~a~a" c c1))]))]
[(memq c '(#\f #\F)) [(memq c '(#\f #\F))
(let ([c (peek-char p)]) (let ([c1 (peek-char p)])
(cond (cond
[(eof-object? c) '(datum . #f)] [(eof-object? c1) '(datum . #f)]
[(delimiter? c) '(datum . #f)] [(delimiter? c1) '(datum . #f)]
[else (die/p p 'tokenize [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) (tokenize-char p)]
[($char= #\( c) 'vparen] [($char= #\( c) 'vparen]
[($char= #\' c) '(macro . syntax)] [($char= #\' c) '(macro . syntax)]

2
scheme/last-revision
View File

@ -1 +1 @@
1704 1705