Fixed bug in uncase that prevented uncase from being pushed into submatches.
This commit is contained in:
parent
14ad4d6e15
commit
83f6511386
|
@ -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