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 d07a1bc4cda2eb35740be2905c8d8196d93d9f3e..19b5d15ae16c8e81a59b74e98a22bbb9c06c64e9 100644 (file)
--- 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 ad149ff67a3eb5e0831ed9d6fff78bfab129e2d4..208494b8f923ff4740782b1e6486893bb5e81a0d 100644 (file)
--- 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 d15f8696ff3b29cb0b97804df604c49de50798a1..64309a413b9dae1ac56dc0a986672f84e8f66f08 100644 (file)
--- 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))
 \f
 (define (extract-generic-definitions! slot-arguments name separator environment
                                      lose)