raco pkg: add a missing `close-input-port' on network connection

This commit is contained in:
Matthew Flatt 2013-08-27 13:10:22 -06:00
parent 10e2db7025
commit 3d91b6b77f

View File

@ -38,7 +38,9 @@
#:redirections 25
#:status? #t))
(and (string=? "200" (substring hs 9 12))
(fun ip)))
(begin0
(fun ip)
(close-input-port ip))))
(define (url-path/no-slash url)
(define p (url-path url))