From 8faff43b3765a2673f15602c7c8b9e4f9931ce07 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 14 Feb 1995 01:06:18 +0000 Subject: [PATCH] Add definition %ENTITY-EXTRA/APPLY-HOOK? so that Ziggy can identify internal data structure used to build apply-hooks out of entities. --- v7/src/runtime/uproc.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/uproc.scm b/v7/src/runtime/uproc.scm index 4dd70c8f0..5cc392acc 100644 --- a/v7/src/runtime/uproc.scm +++ b/v7/src/runtime/uproc.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: uproc.scm,v 1.7 1995/01/12 17:02:26 adams Exp $ +$Id: uproc.scm,v 1.8 1995/02/14 01:06:18 cph Exp $ Copyright (c) 1990-92 Massachusetts Institute of Technology @@ -299,9 +299,12 @@ MIT in each case. |# (%entity-is-apply-hook? object))) (define-integrable (%entity-is-apply-hook? object) - (let ((extra (entity-extra object))) - (and (object-type? (ucode-type hunk3) extra) - (eq? apply-hook-tag (system-hunk3-cxr0 extra))))) + (%entity-extra/apply-hook? (entity-extra object))) + +(define (%entity-extra/apply-hook? extra) + ;; Ziggy cares about this one. + (and (object-type? (ucode-type hunk3) extra) + (eq? apply-hook-tag (system-hunk3-cxr0 extra)))) (define apply-hook-tag "apply-hook-tag") -- 2.25.1