[Scsh-checkins] CVS: scsh-0.6/scsh/rx parse.scm,1.3,1.4

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh/rx
In directory usw-pr-cvs1:/tmp/cvs-serv5288

Modified Files:
        parse.scm 
Log Message:
Temporay (non-)fix for any.


Index: parse.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/rx/parse.scm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** parse.scm   2001/10/01 14:49:30     1.3
--- parse.scm   2001/10/05 09:56:12     1.4
***************
*** 289,295 ****
                                         (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)
                     ((hygn-memq? '(upper-case upper))          
char-set:upper-case)
                     ((hygn-memq? '(alphabetic alpha))          char-set:letter)
--- 289,299 ----
                                         (hygn-memq? (cdr sym-list)))))))
          (let ((cs (cond
                     ((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)