Use `exact-integer?'.

original commit: 412fd4ff792935122c2b9a932a2d3eefd4040bc6
This commit is contained in:
Eli Barzilay 2010-06-20 18:20:53 -04:00
parent 79f7ee6472
commit a14cc164fa

View File

@ -28,14 +28,12 @@
(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))
(number? (caddr v)) (exact-integer? (caddr v))
(integer? (caddr v))
(<= 1 (caddr v) 65535))) (<= 1 (caddr v) 65535)))
v)) v))
(raise-type-error (raise-type-error