diff options
Diffstat (limited to 'bs')
| -rw-r--r-- | bs/re.scm | 6 | ||||
| -rw-r--r-- | bs/string.scm | 4 |
2 files changed, 6 insertions, 4 deletions
@@ -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) |