Remove the temporary file when done with it.

2010-06-23 06:18:41 -04:00 · 2010-06-23 06:18:41 -04:00 · e0c18c3a4b
commit e0c18c3a4b
parent acace4bc18
1 changed files with 1 additions and 0 deletions
--- a/collects/tests/racket/file.rktl
+++ b/collects/tests/racket/file.rktl
@ -403,6 +403,7 @@
 (write-char #\x out-p)
 (close-output-port out-p)
 (test 'hx with-input-from-file tempfilename read)
+(delete-file tempfilename)

 (arity-test call-with-input-file 2 2)
 (arity-test call-with-output-file 2 2)