From 0686f64ff4ccce7ea8edd1501b22d72f9defbb15 Mon Sep 17 00:00:00 2001
From: Gareth Rees <gdr@ravenbrook.com>
Date: Sat, 3 Nov 2012 17:08:15 +0000
Subject: [PATCH] Fix bug: actually close the file in entry_close_port.

Copied from Perforce
 Change: 180300
 ServerID: perforce.ravenbrook.com
---
 mps/example/scheme/scheme-malloc.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mps/example/scheme/scheme-malloc.c b/mps/example/scheme/scheme-malloc.c
index 14d36e9585e..f098a44ebd2 100644
--- a/mps/example/scheme/scheme-malloc.c
+++ b/mps/example/scheme/scheme-malloc.c
@@ -2404,7 +2404,10 @@ static obj_t entry_close_port(obj_t env, obj_t op_env, obj_t operator, obj_t ope
   eval_args(operator->operator.name, env, op_env, operands, 1, &port);
   unless(TYPE(port) == TYPE_PORT)
     error("%s: argument must be a port", operator->operator.name);
-  port->port.stream = NULL;
+  if(port->port.stream != NULL) {
+    fclose(port->port.stream);
+    port->port.stream = NULL;
+  }
   return obj_undefined;
 }