From e3a813d72449e738bd95323511ad0696719bf396 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 2 Apr 2021 21:39:47 -0400
Subject: Init bizbot

---
 bs/re.scm     | 6 ++++--
 bs/string.scm | 4 ++--
 2 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'bs')

diff --git a/bs/re.scm b/bs/re.scm
index 2b5752b..a325249 100644
--- a/bs/re.scm
+++ b/bs/re.scm
@@ -19,8 +19,10 @@
   (export match group sub search compile
           ;; I IGNORECASE M MULTILINE
           )
-  (import (rnrs base (6))
-          (ice-9 regex))
+  (import (rnrs base)
+          ;; TODO: port to srfi-115
+          (only (ice-9 regex)
+                make-regexp))
 
   ;; (define I regexp/icase)
   ;; (define IGNORECASE regexp/icase)
diff --git a/bs/string.scm b/bs/string.scm
index 963525c..c6e6e31 100644
--- a/bs/string.scm
+++ b/bs/string.scm
@@ -19,8 +19,8 @@
     (only (ice-9 ports) with-output-to-string))
 
   ;; Is `pre` a prefix of `s`?
-  (define (prefix? s sub)
-    (string-prefix? sub s))
+  (define (prefix? s pre)
+    (string-prefix? pre s))
 
   ;; Is `suf` a suffix of `s`?
   (define (suffix? s suf)
-- 
cgit v1.2.3