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

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

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-27 13:10:22 -06:00
parent 10e2db7025
commit 3d91b6b77f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/pkg/util.rkt
View File

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