From d4db97edda778fbf77cedc89f62184f412f18edf Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 9 May 2020 22:31:30 -0700 Subject: Add get-tags function --- re.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 're.scm') diff --git a/re.scm b/re.scm index b4f3dca..f6f4b75 100644 --- a/re.scm +++ b/re.scm @@ -1,7 +1,11 @@ #!r6rs (library (re (0)) - (export match) + (export match group) (import (rnrs base (6)) (ice-9 regex)) (define (match s pat) - (string-match pat s))) + (string-match pat s)) + (define (group m n) + (if m + (match:substring m n) + #f))) -- cgit v1.2.3