Changeset 32965 in project


Ignore:
Timestamp:
12/07/15 23:16:05 (5 years ago)
Author:
sjamaan
Message:

intarweb: Don't copy substring and then pass it to string-trim-both: it can do both at once (and will copy regardless)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/header-parsers.scm

    r32964 r32965  
    115115          (if pos
    116116              (if (not (char=? #\" (string-ref value pos)))
    117                   (values (string-trim-both (string-copy value start-pos pos))
     117                  (values (string-trim-both
     118                           value char-set:whitespace start-pos pos)
    118119                          pos) ; Stop-char found, but no quoting
    119120                  (let ((end-pos (escaped-string-end value (add1 pos)
     
    124125                      (values (string-append
    125126                               (string-trim-both
    126                                 (string-copy value start-pos pos))
     127                                value char-set:whitespace start-pos pos)
    127128                               (if (= pos end-pos)
    128129                                   (unescape (string-copy value (add1 pos)))
     
    131132                              final-pos))))
    132133              ;; Nothing found?  Then the remainder of the string is the token
    133               (values (string-trim-both (string-copy value start-pos))
     134              (values (string-trim-both
     135                       value char-set:whitespace start-pos)
    134136                      (string-length value)))))))
    135137
Note: See TracChangeset for help on using the changeset viewer.