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

View File

@ -498,7 +498,7 @@
(values re #f))))
((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?
(values (%make-re-submatch new-body
(re-submatch:pre-dsm re)