Close the input port so that the file can be deleted on windows.

2011-06-17 13:19:24 -04:00 · 2011-06-17 13:19:24 -04:00 · f6620d5754
commit f6620d5754
parent 7089a17ba2
1 changed files with 1 additions and 0 deletions
--- a/collects/tests/racket/port.rktl
+++ b/collects/tests/racket/port.rktl
@ -670,6 +670,7 @@
      (define in (open-input-file "tmp8"))
      (count-lines! in)
      (check in)
+      (close-input-port in)
      (delete-file "tmp8")))
  (check-all void)
  (check-all port-count-lines!))