From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Dec 2001 01:40:12 +0000 (+0000)
Subject: Use ENVIRONMENT-DEFINE in place of LOCAL-ASSIGNMENT.
X-Git-Tag: 20090517-FFI~2371
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=40ebcaf53b663e89714f244419953333e36fbc48;p=mit-scheme.git

Use ENVIRONMENT-DEFINE in place of LOCAL-ASSIGNMENT.
---

diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm
index 661175387..e64d72b1d 100644
--- a/v7/src/runtime/uerror.scm
+++ b/v7/src/runtime/uerror.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uerror.scm,v 14.48 2001/08/09 03:04:49 cph Exp $
+$Id: uerror.scm,v 14.49 2001/12/19 01:40:12 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -87,7 +87,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 	(write name port)
 	(write-string " to a given value." port))
       (lambda (value)
-	(local-assignment environment name value)
+	(environment-define environment name value)
 	(continuation unspecific))
       (let ((prompt (string-append "Define " (write-to-string name) " as")))
 	(lambda ()