From 6daef8963df828eae8c85f909201a5ff118d67e1 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 5 Aug 1988 20:51:27 +0000 Subject: [PATCH] Extend `->environment' to handle package objects. --- v7/src/runtime/rep.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm index 77cce9478..72819ec1d 100644 --- a/v7/src/runtime/rep.scm +++ b/v7/src/runtime/rep.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.6 1988/08/05 20:48:47 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.7 1988/08/05 20:51:27 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -450,6 +450,8 @@ MIT in each case. |# (define (->environment object) (cond ((environment? object) object) + ((package? object) + (package/environment object)) ((compound-procedure? object) (procedure-environment object)) ((promise? object) (promise-environment object)) -- 2.25.1