Changeset 32957 in project


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

uri-generic: Small but noticeable performance improvement by pre-computing char-set instead of doing it every time when parsing an URI

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/uri-generic/trunk/uri-generic.scm

    r30838 r32957  
    473473  (and (uri-reference? u) (uri-scheme u) #t))
    474474
     475(define char-set:path-specials
     476  (char-set-union char-set:uri-unreserved (char-set #\/)))
     477
    475478(define (uri-path-list->path pcl)
    476   (let ((cs (char-set-union char-set:uri-unreserved (char-set #\/))))
     479  (let ((cs char-set:path-specials))
    477480    (match pcl
    478481           (('/ . rst) (cons '/ (map (lambda (c)
Note: See TracChangeset for help on using the changeset viewer.