From 1c5d419c78b21e9fe236c7abdc43f0193fda973f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 6 Jun 2003 14:43:26 +0000
Subject: [PATCH] .

original commit: 07d39319cf46e818576892ab502e17bd32d3ce16
---
 collects/mzlib/include.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/mzlib/include.ss b/collects/mzlib/include.ss
index a2ee589..bbb212d 100644
--- 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