[Scsh-checkins] CVS: scsh/scsh/rx re.scm,1.6,1.7

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

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

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/scsh/rx/re.scm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** re.scm      2001/03/11 18:52:59     1.6
--- re.scm      2001/10/02 17:30:33     1.7
***************
*** 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