Fix long standing bug in HALT. Restartable_Exit was being invoked

twice.

diff --git a/v7/src/microcode/sysprim.c b/v7/src/microcode/sysprim.c
index f5e6a541775173caa67b089e098552e95d78c899..4f05ab6cffc1fe482f801bcbb3b74b86e1bb2515 100644 (file)
--- a/v7/src/microcode/sysprim.c
+++ b/v7/src/microcode/sysprim.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/sysprim.c,v 9.22 1987/04/16 12:21:36 jinx Rel $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/sysprim.c,v 9.23 1987/10/08 17:04:49 jinx Exp $
  *
  * Random system primitives.  Most are implemented in terms of
  * utilities in os.c
@@ -154,7 +154,6 @@ Built_In_Primitive(Prim_Restartable_Exit, 0, "HALT", 0x1A)
   extern Boolean Restartable_Exit();
   Primitive_0_Args();
 
-  Restartable_Exit();
   return ((Restartable_Exit() ? TRUTH : NIL));
 }