From e6ad8129cc854dac38940acb24e3a07cd0cd7b56 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 13 May 2020 13:32:14 -0700
Subject: Re-namespace general scheme code to bs

---
 bs/re.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 bs/re.scm

(limited to 'bs/re.scm')

diff --git a/bs/re.scm b/bs/re.scm
new file mode 100644
index 0000000..6ecc074
--- /dev/null
+++ b/bs/re.scm
@@ -0,0 +1,11 @@
+#!r6rs
+(library (bs re (0))
+  (export match group)
+  (import (rnrs base (6))
+          (ice-9 regex))
+  (define (match s pat)
+    (string-match pat s))
+  (define (group m n)
+    (if m
+        (match:substring m n)
+        #f)))
-- 
cgit v1.2.3