removed redundant check
svn: r6198
This commit is contained in:
parent
5d70dbdeef
commit
091e7c0673
|
@ -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")
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user