[Scsh-checkins] CVS: scsh-0.6/scsh/rx re.scm,1.4,1.5

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

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

Modified Files:
        re.scm 
Log Message:
Fixed bug in uncase that prevented uncase from being pushed into submatches.


Index: re.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/rx/re.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** re.scm      2001/03/23 10:52:09     1.4
--- re.scm      2001/10/02 17:29:48     1.5
***************
*** 499,503 ****
  
                  ((re-submatch? re)
!                  (receive (new-body body-changed?) (recur (re-submatch? re))
                     (if body-changed?
                         (values (%make-re-submatch new-body
--- 499,503 ----
  
                  ((re-submatch? re)
!                  (receive (new-body body-changed?) (recur (re-submatch:body 
re))
                     (if body-changed?
                         (values (%make-re-submatch new-body