Fixed bug in uncase that prevented uncase from being pushed into submatches.
This commit is contained in:
parent
7633b231be
commit
a6320a93a9
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue