Add definition %ENTITY-EXTRA/APPLY-HOOK? so that Ziggy can identify

internal data structure used to build apply-hooks out of entities.

diff --git a/v7/src/runtime/uproc.scm b/v7/src/runtime/uproc.scm
index 4dd70c8f0c5fc2d1c1c04709928a44605bcf4eb7..5cc392accff77ee4928e110dcc506938d2983ecd 100644 (file)
--- 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")