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

quick fix for incorrect reading of subsequent* characters in a 

symbol.
This commit is contained in:
Abdulaziz Ghuloum 2008-08-04 23:19:55 -07:00
parent 2b4e89bcf0
commit e1215998e0
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/ikarus.reader.ss
View File

@ -104,7 +104,8 @@
(memq c '(#\! #\$ #\% #\& #\* #\/ #\: #\< #\= #\> #\? #\^ #\_ #\~)))) (memq c '(#\! #\$ #\% #\& #\* #\/ #\: #\< #\= #\> #\? #\^ #\_ #\~))))
(define subsequent? (define subsequent?
(lambda (c) (lambda (c)
(or (initial? c) (digit? c) (special-subsequent? c)))) (or (initial? c) (digit? c) (special-subsequent? c)
(memq (char-general-category c) '(Nd Mc Me)))))
(define special-subsequent? (define special-subsequent?
(lambda (c) (lambda (c)
(memq c '(#\+ #\- #\. #\@)))) (memq c '(#\+ #\- #\. #\@))))

2
scheme/last-revision
View File

@ -1 +1 @@
1571 1572