.
original commit: d934b52cc706f63842d076d4fdd6a3dd9206e5b6
This commit is contained in:
parent
57bbeada6f
commit
4ef9706872
|
@ -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 -> ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user