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

This commit is contained in:
mainzelm 2001-10-02 17:29:48 +00:00
parent 7633b231be
commit a6320a93a9
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)