From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Sep 1992 23:14:05 +0000 (+0000)
Subject: Disable EXIT and QUIT so that students aren't logged out by accident.
X-Git-Tag: 20090517-FFI~8966
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dc9d58421d843d70b2f15cb9472aa73ed23ac8b2;p=mit-scheme.git

Disable EXIT and QUIT so that students aren't logged out by accident.
---

diff --git a/v7/src/6001/make.scm b/v7/src/6001/make.scm
index 21eae9a88..f650a81eb 100644
--- a/v7/src/6001/make.scm
+++ b/v7/src/6001/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 15.17 1992/09/10 07:32:50 cph Exp $
+$Id: make.scm,v 15.18 1992/09/14 23:14:05 cph Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -52,5 +52,7 @@ MIT in each case. |#
 (set! (access write-result:undefined-value-is-special?
 	      (->environment '(runtime user-interface)))
       false)
+(set! hook/exit (lambda (integer) integer (warn "EXIT has been disabled.")))
+(set! hook/quit (lambda () (warn "QUIT has been disabled.")))
 
 (ge '(student))
\ No newline at end of file