From 7633b231be3d4ba4c54a81d4de2c0662a9403676 Mon Sep 17 00:00:00 2001 From: sperber Date: Mon, 1 Oct 2001 15:19:08 +0000 Subject: [PATCH] Fix broken MATCH:END. --- scsh/rx/re-low.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))))