From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Feb 2008 00:45:17 +0000 (+0000)
Subject: Fix a few bad instances of (ACCESS ...).
X-Git-Tag: 20090517-FFI~319
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8883d4e782dc02bbe2fc8dcc97cfdc745de8b8c4;p=mit-scheme.git

Fix a few bad instances of (ACCESS ...).
---

diff --git a/v7/src/compiler/machines/bobcat/dassm3.scm b/v7/src/compiler/machines/bobcat/dassm3.scm
index d07a1bc4c..19b5d15ae 100644
--- a/v7/src/compiler/machines/bobcat/dassm3.scm
+++ b/v7/src/compiler/machines/bobcat/dassm3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dassm3.scm,v 4.14 2008/01/30 20:01:48 cph Exp $
+$Id: dassm3.scm,v 4.15 2008/02/14 00:45:09 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -398,7 +398,7 @@ USA.
 (define (%Bcc/%BSR)
   (let ((cc (decode-cc (extract *ir 8 12)))
 	(displacement (extract+ *ir 0 8)))
-    ((access append ())
+    ((access append system-global-environment)
      (cond ((eq? cc 'T) '(BRA))
 	   ((eq? cc 'F) '(BSR))
 	   (else `(B , cc)))
@@ -642,7 +642,7 @@ USA.
 	  ((= (extract *ir 7 9) #b01)
 	   (let ((float-cc (decode-float-cc (extract *ir 0 6)))
 		 (size (extract *ir 6 7)))
-	     ((access append ())
+	     ((access append system-global-environment)
 	      `(FB ,float-cc)
 	      (if (= size 0)
 		  `(W ,(make-pc-relative (lambda () (fetch-immediate 'W))))
diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index ad149ff67..208494b8f 100644
--- a/v7/src/runtime/defstr.scm
+++ b/v7/src/runtime/defstr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: defstr.scm,v 14.58 2008/01/30 20:02:29 cph Exp $
+$Id: defstr.scm,v 14.59 2008/02/14 00:45:17 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -593,7 +593,7 @@ differences:
 ;;;; Code Generation
 
 (define (absolute name context)
-  (close-syntax `(ACCESS ,name #F)
+  (close-syntax `(ACCESS ,name SYSTEM-GLOBAL-ENVIRONMENT)
 		(parser-context/closing-environment context)))
 
 (define (close name context)
diff --git a/v7/src/sos/macros.scm b/v7/src/sos/macros.scm
index d15f8696f..64309a413 100644
--- a/v7/src/sos/macros.scm
+++ b/v7/src/sos/macros.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: macros.scm,v 1.22 2008/01/30 20:02:39 cph Exp $
+$Id: macros.scm,v 1.23 2008/02/14 00:45:10 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -189,7 +189,7 @@ USA.
 	`(,(close-syntax 'LAMBDA environment) ,bvl ,@body))))
 
 (define (absolute name environment)
-  (close-syntax `(ACCESS ,name #F) environment))
+  (close-syntax `(ACCESS ,name SYSTEM-GLOBAL-ENVIRONMENT) environment))
 
 (define (extract-generic-definitions! slot-arguments name separator environment
 				      lose)