Changeset 12917 in project


Ignore:
Timestamp:
12/29/08 16:02:01 (11 years ago)
Author:
sjamaan
Message:

Replace two needless calls to reverse in uri-char-list->string with slightly more optimized variants; reverse-list->string and append-reverse

File:
1 edited

Legend:

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

    r12915 r12917  
    795795
    796796(define (uri-char-list->string s)
    797   (list->string
    798    (reverse
    799     (fold (lambda (x ax)
    800                   (cond ((char? x) (cons x ax))
    801                         ((list? x) (append (reverse x) ax)))) (list) s))))
     797  (reverse-list->string
     798   (fold (lambda (x ax)
     799           (cond ((char? x) (cons x ax))
     800                 ((list? x) (append-reverse x ax)))) (list) s)))
    802801   
    803802;; Convert a string to a URI character list
Note: See TracChangeset for help on using the changeset viewer.