diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:06:40 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:06:40 -0800 |
commit | a69c9fb665459e2bfdbda1bf80741a0af31a7faf (patch) | |
tree | f0bc974f8805049e6b9a4e6864886298fbaa05a4 /uri.scm | |
parent | 4684239efa63dc1b2c1cbe37ef7d3062029f5532 (diff) | |
download | slib-a69c9fb665459e2bfdbda1bf80741a0af31a7faf.tar.gz slib-a69c9fb665459e2bfdbda1bf80741a0af31a7faf.zip |
New upstream version 3b5upstream/3b5upstream
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)) ""))))) |