Some fixups

1 files changed, 7 insertions, 6 deletions

diff --git a/bs/re.scm b/bs/re.scm
index e2bc276..2b5752b 100644
--- a/bs/re.scm
+++ b/bs/re.scm
@@ -16,15 +16,16 @@
   ;; TODO: port srfi-115 to guile
   ;; TODO: make `match` and `search` do different things
 
-  (export match group sub search
-          I IGNORECASE M MULTILINE)
+  (export match group sub search compile
+          ;; I IGNORECASE M MULTILINE
+          )
   (import (rnrs base (6))
           (ice-9 regex))
 
-  (define I regexp/icase)
-  (define IGNORECASE regexp/icase)
-  (define M regexp/newline)
-  (define MULTILINE regexp/newline)
+  ;; (define I regexp/icase)
+  ;; (define IGNORECASE regexp/icase)
+  ;; (define M regexp/newline)
+  ;; (define MULTILINE regexp/newline)
 
   ;; Compile `pattern` into a regular expression object.
   (define (compile pattern . flags)