*** empty log message ***

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index aa344dc6841d2a29f3e542688a7870e527b9b711..5305d0f1648304bbc414e04ee9188781086b6432 100644 (file)
--- a/v7/src/runtime/uenvir.scm
+++ b/v7/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.7 1989/05/21 17:16:43 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.8 1989/05/25 16:22:27 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -151,9 +151,9 @@ MIT in each case. |#
       (lexical-reference environment name)))
 
 (define (system-global-environment/bound-names environment)
-  (list-transform-negative (obarray->list)
-    (lambda (sym)
-      (lexical-unbound? environment sym))))
+  (list-transform-negative (obarray->list (fixed-objects-item 'OBARRAY))
+    (lambda (symbol)
+      (lexical-unbound? environment symbol))))
 
 (define-integrable (ic-environment? object)
   (object-type? (ucode-type environment) object))

diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm
index 2288aef7e5af75ae16106285f9097bd1567914a6..45e1513faef0ab06191078a798970ccae55a5c4f 100644 (file)
--- a/v8/src/runtime/uenvir.scm
+++ b/v8/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.7 1989/05/21 17:16:43 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.8 1989/05/25 16:22:27 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -151,9 +151,9 @@ MIT in each case. |#
       (lexical-reference environment name)))
 
 (define (system-global-environment/bound-names environment)
-  (list-transform-negative (obarray->list)
-    (lambda (sym)
-      (lexical-unbound? environment sym))))
+  (list-transform-negative (obarray->list (fixed-objects-item 'OBARRAY))
+    (lambda (symbol)
+      (lexical-unbound? environment symbol))))
 
 (define-integrable (ic-environment? object)
   (object-type? (ucode-type environment) object))