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

remove attempt to purify an already pure port

Browse Source 
closes PR 14275
This commit is contained in:
Robby Findler 2014-01-09 23:44:29 -06:00
parent 33b7f6f92f
commit 9b5fc9ea37
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/drracket-pkgs/drracket/drracket/private/frame.rkt
View File

@ -548,7 +548,6 @@
(regexp-match "[0-9]+" content-header))]) (regexp-match "[0-9]+" content-header))])
(and m (string->number (car m))))) (and m (string->number (car m)))))
(define tmp-filename (make-temporary-file "tmp~a.plt")) (define tmp-filename (make-temporary-file "tmp~a.plt"))
(define header (purify-port port))
(define d (make-object dialog% (string-constant downloading) parent)) (define d (make-object dialog% (string-constant downloading) parent))
(define message (make-object message% (string-constant downloading-file...) d)) (define message (make-object message% (string-constant downloading-file...) d))
(define gauge (if size (define gauge (if size