diff --git a/scsh/rx/re-low.scm b/scsh/rx/re-low.scm index e935746..e824659 100644 --- a/scsh/rx/re-low.scm +++ b/scsh/rx/re-low.scm @@ -14,7 +14,7 @@ (:optional maybe-index 0)))) (define (match:end match . maybe-index) - (match-start + (match-end (vector-ref (regexp-match:submatches match) (:optional maybe-index 0))))