From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Sep 1992 23:18:10 +0000 (+0000)
Subject: Define NIL and USER-INITIAL-ENVIRONMENT.
X-Git-Tag: 20090517-FFI~8965
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1059e7547f2e0a54b17582807a63681bed129024;p=mit-scheme.git

Define NIL and USER-INITIAL-ENVIRONMENT.
---

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