diff options
Diffstat (limited to 'uri.scm')
| -rw-r--r-- | uri.scm | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -207,10 +207,10 @@ (if idx-at (substring authority (+ 1 idx-at) (string-length authority)) authority)) - (idx-: (string-index hostport #\:)) - (host (if idx-: (substring hostport 0 idx-:) hostport)) - (port (and idx-: - (substring hostport (+ 1 idx-:) (string-length hostport))))) + (cdx (string-index hostport #\:)) + (host (if cdx (substring hostport 0 cdx) hostport)) + (port (and cdx + (substring hostport (+ 1 cdx) (string-length hostport))))) (if (or userinfo port) (list userinfo host (or (string->number port) port)) host))) @@ -269,10 +269,10 @@ uri))) (if front (let* ((len (string-length front)) - (idx-: (string-index front #\:)) - (scheme (and idx-: (substring front 0 idx-:))) - (path (if idx-: - (substring front (+ 1 idx-:) len) + (cdx (string-index front #\:)) + (scheme (and cdx (substring front 0 cdx))) + (path (if cdx + (substring front (+ 1 cdx) len) front))) (cond ((eqv? 0 (substring? "//" path)) (set! len (string-length path)) |