From ae4bd9e081a3f9fc67456c43ee82d4cf43e765b3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 2 Aug 1988 20:27:26 +0000 Subject: [PATCH] Change `procedure?' to handle entities specially, recursing on their invocation method. Change `environment?' to be true of `system-global-environment'. Add new procedures `ic-environment?' and `system-global-environment?' to distinguish the interesting cases. --- v7/src/runtime/version.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm index 265edf767..e4d7435bd 100644 --- a/v7/src/runtime/version.scm +++ b/v7/src/runtime/version.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.15 1988/07/22 22:54:04 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.16 1988/08/02 20:27:26 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -45,7 +45,7 @@ MIT in each case. |# '())) (add-system! microcode-system) (add-event-receiver! event:after-restore snarf-microcode-version!) - (add-identification! "Runtime" 14 15)) + (add-identification! "Runtime" 14 16)) (define microcode-system) -- 2.25.1