From a14cc164fa4db44c846fe2d553629b316eb7bac4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 20 Jun 2010 18:20:53 -0400 Subject: [PATCH] Use `exact-integer?'. original commit: 412fd4ff792935122c2b9a932a2d3eefd4040bc6 --- collects/net/url-unit.rkt | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/collects/net/url-unit.rkt b/collects/net/url-unit.rkt index 8cb55bb..96381c3 100644 --- a/collects/net/url-unit.rkt +++ b/collects/net/url-unit.rkt @@ -28,16 +28,14 @@ (make-parameter null (lambda (v) (unless (and (list? v) - (andmap - (lambda (v) - (and (list? v) - (= 3 (length v)) - (equal? (car v) "http") - (string? (car v)) - (number? (caddr v)) - (integer? (caddr v)) - (<= 1 (caddr v) 65535))) - v)) + (andmap (lambda (v) + (and (list? v) + (= 3 (length v)) + (equal? (car v) "http") + (string? (car v)) + (exact-integer? (caddr v)) + (<= 1 (caddr v) 65535))) + v)) (raise-type-error 'current-proxy-servers "list of list of scheme, string, and exact integer in [1,65535]"