1 files changed, 4 insertions, 2 deletions
diff --git a/utils.scm b/utils.scm
index 0d10b6d..9bb290e 100644
--- a/utils.scm
+++ b/utils.scm
@@ -31,6 +31,8 @@
     (irregex-replace irx in replacement))
 
   (define (replace-all irx replacement in)
-    (irregex-replace/all irx in replacement))  
+    (irregex-replace/all irx in replacement))
+
+  (define (submatch m #!optional (index 1))
+    (irregex-match-substring m index))
   )
-q