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

Fixes bug in reader now recognizing the following comment: 

> #|| hello ||# '12
This commit is contained in:
Abdulaziz Ghuloum 2008-03-15 21:12:43 -04:00
parent 50888bef94
commit 97507bce08
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.reader.ss
View File

@ -380,10 +380,12 @@
(cond (cond
[(eof-object? c) (multiline-error p)] [(eof-object? c) (multiline-error p)]
[($char= #\| c) [($char= #\| c)
(let ([c (read-char p)]) (let g ([c (read-char p)] [ac ac])
(cond (cond
[(eof-object? c) (multiline-error p)] [(eof-object? c) (multiline-error p)]
[($char= #\# c) ac] [($char= #\# c) ac]
[($char= #\| c)
(g (read-char p) (cons c ac))]
[else (f p (cons c ac))]))] [else (f p (cons c ac))]))]
[($char= #\# c) [($char= #\# c)
(let ([c (read-char p)]) (let ([c (read-char p)])

2
scheme/last-revision
View File

@ -1 +1 @@
1414 1415