diff options
Diffstat (limited to 'uri.scm')
| -rwxr-xr-x[-rw-r--r--] | uri.scm | 16 |
1 files changed, 9 insertions, 7 deletions
@@ -77,9 +77,10 @@ ;;Returns a URI string combining the components of list @1. (define (uri:make-path path) (apply string-append - (uric:encode (car path) "$,;:@&=+") - (map (lambda (pth) (string-append "/" (uric:encode pth "$,;:@&=+"))) - (cdr path)))) + (cons + (uric:encode (car path) "$,;:@&=+") + (map (lambda (pth) (string-append "/" (uric:encode pth "$,;:@&=+"))) + (cdr path))))) ;;@body Returns a string which defines this location in the (HTML) file ;;as @1. The hypertext @samp{<A HREF="#@1">} will link to this point. @@ -244,10 +245,11 @@ (substring rxt 0 (or adx (string-length rxt))))) (name (string-ci->symbol (uric:decode (substring query-string 0 edx))))) - (set! lst (append lst (if (equal? "" urid) - '() - (map (lambda (value) (list name value)) - (uri:split-fields urid #\newline))))) + (if (not (equal? "" urid)) + (set! lst (cons (list name urid) lst)) + ;; (set! lst (append lst (map (lambda (value) (list name value)) + ;; (uri:split-fields urid #\newline)))) + ) (set! query-string (if adx (substring rxt (+ 1 adx) (string-length rxt)) ""))))) |