Optimize when sep is unspecified or the default regexp

2021-03-23 15:37:48 -04:00 · 2021-03-23 15:37:48 -04:00 · f65560ed4c
commit f65560ed4c
parent 754b3457c3
1 changed files with 3 additions and 1 deletions
--- a/racket/collects/racket/string.rkt
+++ b/racket/collects/racket/string.rkt
@ -148,7 +148,9 @@
          [else (loop beg (add1 end))])))

 (define (string-split str [sep none] #:trim? [trim? #t] #:repeat? [+? #f])
-  (if (and (string? str) (eq? sep none) trim?)
+  (if (and (string? str)
+           (or (eq? sep none) (eq? sep #px"\\s+"))
+           trim?)
      (internal-split-whitespace str)
      (internal-split 'string-split str sep trim? +?)))