From 6af441c5928555fac533a69b95e1cbfef7ae08cd Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Thu, 15 Sep 2016 16:14:24 -0400 Subject: [PATCH] improve string-split-lens error message --- lens-data/lens/private/string/string-split.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lens-data/lens/private/string/string-split.rkt b/lens-data/lens/private/string/string-split.rkt index 70779d6..b42959c 100644 --- a/lens-data/lens/private/string/string-split.rkt +++ b/lens-data/lens/private/string/string-split.rkt @@ -21,7 +21,7 @@ [(string? sep) (regexp (regexp-quote sep))] [(char? sep) (regexp (regexp-quote (string sep)))] [(regexp? sep) sep] - [else (error 'bad)])) + [else (error 'string-split-lens "expected a string, char, or regexp, given: ~v" sep)])) (define (get str) (map string->immutable-string (regexp-split sep-rx str))) (define (set str lst)