Init bizbot

2 files changed, 6 insertions, 4 deletions

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)