From 1bf21fdee2ab11a62fabe962f19c90473ff400f3 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sat, 7 Feb 1987 15:23:37 +0000
Subject: [PATCH] Add Reset_Memory to accomodate the garbage collector to disk.

---
 v7/src/microcode/boot.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 8b51c46e1..55dbb5b77 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.23 1987/02/03 15:59:15 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.24 1987/02/07 15:23:37 jinx Exp $
  *
  * This file contains the code to support startup of
  * the SCHEME interpreter.
@@ -138,7 +138,7 @@ Exit_Scheme_Declarations;
 /* Main program */
 
 forward void Start_Scheme();
-extern void Clear_Memory(), Setup_Memory();
+extern void Clear_Memory(), Setup_Memory(), Reset_Memory();
 
 void
 main(argc, argv)
@@ -512,6 +512,7 @@ long Err, Micro_Error;
   }
   OS_Flush_Output_Buffer();
   OS_Quit();
+  Reset_Memory();
   Exit_Hook();
   Exit_Scheme(value);
 }
-- 
2.25.1