From c656f3241b8a118597a22dbfe796bf547298576a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Sep 1992 23:11:54 +0000
Subject: [PATCH] Add %QUIT to guarantee access to basic QUIT mechanism.

---
 v7/src/runtime/global.scm | 5 +++--
 v8/src/runtime/global.scm | 5 +++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index c1c424bd1..814a7fb4e 100644
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: global.scm,v 14.41 1992/09/14 23:08:42 cph Exp $
+$Id: global.scm,v 14.42 1992/09/14 23:11:54 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -210,10 +210,11 @@ MIT in each case. |#
 (define (quit)
   (hook/quit))
 
-(define (default/quit)
+(define (%quit)
   (with-absolutely-no-interrupts (ucode-primitive halt))
   unspecific)
 
+(define default/quit %quit)
 (define hook/quit default/quit)
 
 (define syntaxer/default-environment
diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index c1c424bd1..814a7fb4e 100644
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: global.scm,v 14.41 1992/09/14 23:08:42 cph Exp $
+$Id: global.scm,v 14.42 1992/09/14 23:11:54 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -210,10 +210,11 @@ MIT in each case. |#
 (define (quit)
   (hook/quit))
 
-(define (default/quit)
+(define (%quit)
   (with-absolutely-no-interrupts (ucode-primitive halt))
   unspecific)
 
+(define default/quit %quit)
 (define hook/quit default/quit)
 
 (define syntaxer/default-environment
-- 
2.25.1