From e41eca4c4da169a7a33b73c129ef320f0f034493 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 25 May 1989 16:22:27 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/runtime/uenvir.scm | 8 ++++---- v8/src/runtime/uenvir.scm | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm index aa344dc68..5305d0f16 100644 --- 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 2288aef7e..45e1513fa 100644 --- 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)) -- 2.25.1