From 1059e7547f2e0a54b17582807a63681bed129024 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 14 Sep 1992 23:18:10 +0000 Subject: [PATCH] Define NIL and USER-INITIAL-ENVIRONMENT. --- v7/src/6001/make.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/v7/src/6001/make.scm b/v7/src/6001/make.scm index f650a81eb..cc2fb3f05 100644 --- a/v7/src/6001/make.scm +++ b/v7/src/6001/make.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: make.scm,v 15.18 1992/09/14 23:14:05 cph Exp $ +$Id: make.scm,v 15.19 1992/09/14 23:18:10 cph Exp $ Copyright (c) 1991-92 Massachusetts Institute of Technology @@ -39,7 +39,7 @@ MIT in each case. |# (package/system-loader "6001" '() 'QUERY) (load '("edextra" "floppy") (->environment '(edwin))) ((access initialize-package! (->environment '(student scode-rewriting)))) -(add-system! (make-system "6.001" 15 17 '())) +(add-system! (make-system "6.001" 15 19 '())) ;;; Customize the runtime system: (set! repl:allow-restart-notifications? false) @@ -54,5 +54,9 @@ MIT in each case. |# false) (set! hook/exit (lambda (integer) integer (warn "EXIT has been disabled."))) (set! hook/quit (lambda () (warn "QUIT has been disabled."))) +(set! user-initial-environment (->environment '(student))) + +(in-package (->environment '(student)) + (define nil #f)) (ge '(student)) \ No newline at end of file -- 2.25.1