From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Tue, 18 Feb 1992 16:00:30 +0000 (+0000)
Subject: Added the ability to reset SCHEME-ENVIRONMENT (and its default value)
X-Git-Tag: 20090517-FFI~9694
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4ce15b9ce1f267ff883e169c9070a814d3759b7e;p=mit-scheme.git

Added the ability to reset SCHEME-ENVIRONMENT (and its default value)
to 'DEFAULT via SET-ENVIRONMENT and SET-DEFAULT-ENVIRONMENT.
---

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index b7c2cc56c..50694537c 100644
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/evlcom.scm,v 1.34 1992/02/04 04:02:56 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/evlcom.scm,v 1.35 1992/02/18 16:00:30 markf Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -166,7 +166,9 @@ With an argument, prompts for the evaluation environment."
   "Make ENVIRONMENT the current evaluation environment."
   "XSet environment"
   (lambda (environment)
-    (set-variable! scheme-environment (->environment environment))))
+    (set-variable! scheme-environment
+		   (or (and (eq? environment 'DEFAULT) 'DEFAULT)
+		       (->environment environment)))))
 
 (define-command set-syntax-table
   "Make SYNTAX-TABLE the current syntax table."
@@ -179,7 +181,8 @@ With an argument, prompts for the evaluation environment."
   "XSet default environment"
   (lambda (environment)
     (set-variable-default-value! (ref-variable-object scheme-environment)
-				 (->environment environment))))
+				 (or (and (eq? environment 'DEFAULT) 'DEFAULT)
+				     (->environment environment)))))
 
 (define-command set-default-syntax-table
   "Make SYNTAX-TABLE the default syntax table."