.

original commit: 07d39319cf46e818576892ab502e17bd32d3ce16
2003-06-06 14:43:26 +00:00 · 2003-06-06 14:43:26 +00:00 · 1c5d419c78
commit 1c5d419c78
parent 7902707c9c
1 changed files with 2 additions and 0 deletions
--- a/collects/mzlib/include.ss
+++ b/collects/mzlib/include.ss
@ -57,6 +57,7 @@
 		      (let loop ()
 			(let ([r (with-handlers ([not-break-exn?
 						  (lambda (exn)
+						    (close-input-port p)
 						    (raise-syntax-error
 						     #f
 						     (format
@ -69,6 +70,7 @@
 			  (if (eof-object? r)
 			      null
 			      (cons r (loop)))))])
+		 (close-input-port p)
 		 ;; Preserve src info for content, but set its
 		 ;; lexical context to be that of the include expression
 		 (let ([lexed-content