From 6aa4f1890a4e1327b5eabfb19386c94750223cbe Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 1 Jun 2020 15:28:37 -0700 Subject: Some fixups --- bs/re.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'bs/re.scm') 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) -- cgit v1.2.3