From 7dfd4f3b147d7061da4845247e774cbb4380101b Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 8 Oct 1987 17:04:49 +0000
Subject: [PATCH] Fix long standing bug in HALT.  Restartable_Exit was being
 invoked twice.

---
 v7/src/microcode/sysprim.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/v7/src/microcode/sysprim.c b/v7/src/microcode/sysprim.c
index f5e6a5417..4f05ab6cf 100644
--- 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));
 }
 
-- 
2.25.1