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 21eae9a8867aa4c9abbb6a6a9e1e0ae904607ab1..f650a81eba9c1ba5785007b07efdc1e44ec4de26 100644 (file)
--- 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