diff options
| -rw-r--r-- | mew.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mew.scm b/mew.scm index 6428208..31ad492 100644 --- a/mew.scm +++ b/mew.scm @@ -577,8 +577,8 @@ (define (~? str pat) (let ((data (irregex-search pat str))) (if data - (map (op irregex-match-substring data _) - (iota (inc (irregex-match-num-submatches data)))) + (list-tabulate (inc (irregex-match-num-submatches data)) + (op irregex-match-substring data _)) #f))) (define (gmatch pat str) @@ -593,8 +593,8 @@ (irregex-match-end-index data 0)) (set! start (inc start))) (if (> (irregex-match-num-submatches data) 0) - (map (op irregex-match-substring data _) - (iota (inc (irregex-match-num-submatches data)))) + (list-tabulate (inc (irregex-match-num-submatches data)) + (op irregex-match-substring data _)) (irregex-match-substring data 0))) (begin (set! start -1) |