diff --git a/scsh/rx/re-low.scm b/scsh/rx/re-low.scm index 37f1508..ab47d2f 100644 --- a/scsh/rx/re-low.scm +++ b/scsh/rx/re-low.scm @@ -81,7 +81,7 @@ (let ((ret (regexp-match (cre:regexp cre) str #t #f #f start))) (if (not ret) #f - (make-regexp-match str + (make-regexp-match str (translate-submatches ret (cre:tvec cre) match-vec)))))))) @@ -114,4 +114,4 @@ (if (not (cre:regexp/nm cre)) (set-cre:regexp/nm cre (make-regexp re-str (regexp-option extended)))) - (regexp-match (cre:regexp/nm cre) str #f #f #f start))))) + (regexp-match (cre:regexp/nm cre) str #f #t #t start)))))