From 8883d4e782dc02bbe2fc8dcc97cfdc745de8b8c4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Feb 2008 00:45:17 +0000
Subject: [PATCH] Fix a few bad instances of (ACCESS ...).

---
 v7/src/compiler/machines/bobcat/dassm3.scm | 6 +++---
 v7/src/runtime/defstr.scm                  | 4 ++--
 v7/src/sos/macros.scm                      | 4 ++--
 3 files changed, 7 insertions(+), 7 deletions(-)

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)
-- 
2.25.1