scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Temporay (non-)fix for any.

This commit is contained in:
mainzelm 2001-10-05 09:56:12 +00:00
parent 6f9f0c34e2
commit b92828ec10
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scsh/rx/parse.scm
View File

@ -288,9 +288,13 @@
(or (c sre (r (car sym-list)))
(hygn-memq? (cdr sym-list)))))))
(let ((cs (cond
((hygn-memq? '(any)) char-set:full)
((hygn-memq? '(nonl)) nonl-chars)
((hygn-memq? '(lower-case lower)) char-set:lower-case)
;;; any is imported from scsh-utilities and for
;;; some reason this screws the hygienic renaming
;;; up here. So this is bogus:
((eq? sre 'any) char-set:full)
((hygn-memq? '(any)) char-set:full)
((hygn-memq? '(upper-case upper)) char-set:upper-case)
((hygn-memq? '(alphabetic alpha)) char-set:letter)
((hygn-memq? '(numeric digit num)) char-set:digit)