Changeset 30089 in project


Ignore:
Timestamp:
11/23/13 21:03:15 (7 years ago)
Author:
sjamaan
Message:

uri-generic: Fix part of #1074: don't error out when authority (host) contains percent-encoded characters

Location:
release/4/uri-generic/trunk
Files:
2 edited

Legend:

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

    r25789 r30089  
    244244     ("/foo" #f))
    245245    ("host" ,uri-host
    246      ("//:123" ""))
     246     ("//:123" "")
     247     ;; Thanks to Roel van der Hoorn for finding this one
     248     ("//%20/" "%20"))
    247249    ("port" ,uri-port
    248250     ("//host:123" 123))
  • release/4/uri-generic/trunk/uri-generic.scm

    r25789 r30089  
    568568
    569569(define (dec-octet s)
    570   (match ((count-min-max 1 3 char-numeric?) s)
     570  (match ((count-min-max 1 3 (lambda (c) (and (char? c) (char-numeric? c)))) s)
    571571         (((and a1 (? ipv4-octet?)) rst)  (list a1 rst))
    572572         (else #f)))
Note: See TracChangeset for help on using the changeset viewer.