suzanne.soy/lens
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improve string-split-lens error message

Browse Source
This commit is contained in:
AlexKnauth 2016-09-15 16:14:24 -04:00
parent c7b5783088
commit 6af441c592
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lens-data/lens/private/string/string-split.rkt
View File

@ -21,7 +21,7 @@
[(string? sep) (regexp (regexp-quote sep))] [(string? sep) (regexp (regexp-quote sep))]
[(char? sep) (regexp (regexp-quote (string sep)))] [(char? sep) (regexp (regexp-quote (string sep)))]
[(regexp? sep) sep] [(regexp? sep) sep]
[else (error 'bad)])) [else (error 'string-split-lens "expected a string, char, or regexp, given: ~v" sep)]))
(define (get str) (define (get str)
(map string->immutable-string (regexp-split sep-rx str))) (map string->immutable-string (regexp-split sep-rx str)))
(define (set str lst) (define (set str lst)