Speed up getting non-whitespace IFS characters.
* gash/word.scm (split-fields): Compute 'char-set:ifs/nw' using 'string-delete' instead of 'char-set-difference'.
This commit is contained in:
parent
b2faf08ed4
commit
917cbf2aba
|
@ -99,7 +99,7 @@ in the string @var{ifs}."
|
|||
(string->char-set ifs))
|
||||
|
||||
(define char-set:ifs/nw
|
||||
(char-set-difference char-set:ifs char-set:whitespace))
|
||||
(string->char-set (string-delete char-set:whitespace ifs)))
|
||||
|
||||
(define (wedge-apart-quote qword)
|
||||
(let loop ((qword (normalize-word qword)) (acc '()))
|
||||
|
|
Loading…
Reference in New Issue