From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 7 Feb 1987 15:23:37 +0000 (+0000)
Subject: Add Reset_Memory to accomodate the garbage collector to disk.
X-Git-Tag: 20090517-FFI~13719
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1bf21fdee2ab11a62fabe962f19c90473ff400f3;p=mit-scheme.git

Add Reset_Memory to accomodate the garbage collector to disk.
---

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);
 }