suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use `exact-integer?'.

Browse Source 
original commit: 412fd4ff792935122c2b9a932a2d3eefd4040bc6
This commit is contained in:
Eli Barzilay 2010-06-20 18:20:53 -04:00
parent 79f7ee6472
commit a14cc164fa
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/net/url-unit.rkt
View File

@ -28,16 +28,14 @@
(make-parameter null (make-parameter null
(lambda (v) (lambda (v)
(unless (and (list? v) (unless (and (list? v)
(andmap (andmap (lambda (v)
(lambda (v) (and (list? v)
(and (list? v) (= 3 (length v))
(= 3 (length v)) (equal? (car v) "http")
(equal? (car v) "http") (string? (car v))
(string? (car v)) (exact-integer? (caddr v))
(number? (caddr v)) (<= 1 (caddr v) 65535)))
(integer? (caddr v)) v))
(<= 1 (caddr v) 65535)))
v))
(raise-type-error (raise-type-error
'current-proxy-servers 'current-proxy-servers
"list of list of scheme, string, and exact integer in [1,65535]" "list of list of scheme, string, and exact integer in [1,65535]"