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

removed redundant check

Browse Source 
svn: r6198
This commit is contained in:
Eli Barzilay 2007-05-10 23:23:47 +00:00
parent 5d70dbdeef
commit 091e7c0673
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/net/sendurl.ss
View File

@ -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 (module sendurl mzscheme
(require (lib "process.ss") (require (lib "process.ss")
(lib "file.ss") (lib "file.ss")

1
collects/net/url-unit.ss
View File

@ -44,7 +44,6 @@
(equal? (car v) "http") (equal? (car v) "http")
(string? (car v)) (string? (car v))
(number? (caddr v)) (number? (caddr v))
(exact? (caddr v))
(integer? (caddr v)) (integer? (caddr v))
(<= 1 (caddr v) 65535))) (<= 1 (caddr v) 65535)))
v)) v))