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

Verify the argument is a string?

Browse Source 
For the fast path of splitting on whitespace, verify the str
argument is a string, so that internal-split will handle the
invalid argument error.
This commit is contained in:
Brian Adkins 2021-03-23 12:39:15 -04:00 committed by Matthew Flatt
parent d061df81ce
commit 754b3457c3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/string.rkt
View File

@ -148,7 +148,7 @@
[else (loop beg (add1 end))])))
(define (string-split str [sep none] #:trim? [trim? #t] #:repeat? [+? #f])
(if (and (eq? sep none) trim?)
(if (and (string? str) (eq? sep none) trim?)
(internal-split-whitespace str)
(internal-split 'string-split str sep trim? +?)))