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

Fixed bug in uncase that prevented uncase from being pushed into submatches.

This commit is contained in:
mainzelm 2001-10-02 17:30:33 +00:00
parent 14ad4d6e15
commit 83f6511386
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/rx/re.scm
View File

@ -498,7 +498,7 @@
(values re #f)))) (values re #f))))
((re-submatch? re) ((re-submatch? re)
(receive (new-body body-changed?) (recur (re-submatch? re)) (receive (new-body body-changed?) (recur (re-submatch:body re))
(if body-changed? (if body-changed?
(values (%make-re-submatch new-body (values (%make-re-submatch new-body
(re-submatch:pre-dsm re) (re-submatch:pre-dsm re)