From 091e7c0673ff8e876e6ba4aafc9489a704223296 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 10 May 2007 23:23:47 +0000 Subject: [PATCH] removed redundant check svn: r6198 --- collects/net/sendurl.ss | 3 +++ collects/net/url-unit.ss | 1 - 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss index f8e435f53f..39dbc60386 100644 --- a/collects/net/sendurl.ss +++ b/collects/net/sendurl.ss @@ -1,3 +1,6 @@ +;; The main client of this module is browser/external.ss +;; (others just use the (send-url url [new?]) interface.) + (module sendurl mzscheme (require (lib "process.ss") (lib "file.ss") diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss index 88f123a582..8c62ff8546 100644 --- a/collects/net/url-unit.ss +++ b/collects/net/url-unit.ss @@ -44,7 +44,6 @@ (equal? (car v) "http") (string? (car v)) (number? (caddr v)) - (exact? (caddr v)) (integer? (caddr v)) (<= 1 (caddr v) 65535))) v))