From 4ef970687275530bff8543f67e60dfb9a65b6a16 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 25 Nov 2002 18:23:03 +0000 Subject: [PATCH] . original commit: d934b52cc706f63842d076d4fdd6a3dd9206e5b6 --- collects/net/url-unit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss index 655dd18..d1cb324 100644 --- a/collects/net/url-unit.ss +++ b/collects/net/url-unit.ss @@ -220,10 +220,10 @@ [(url) (get-pure-port url '())] [(url strings) (getpost-pure-port #t url #f strings)])) - ;; post-pure-port : url [x list (str)] -> in-port + ;; post-pure-port : url str [x list (str)] -> in-port (define post-pure-port (case-lambda - [(url post-data) (post-pure-port url '())] + [(url post-data) (post-pure-port url post-data '())] [(url post-data strings) (getpost-pure-port #f url post-data strings)])) ;; display-pure-port : in-port -> ()