From d14a2c4a3a2c5f338783cf16f4c5414196e7c411 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 22 Mar 1995 01:08:13 +0000
Subject: [PATCH] Added missing cookie-call forms.

---
 v8/src/compiler/midend/fakeprim.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm
index f1ce7c9bb..290d303a8 100644
--- a/v8/src/compiler/midend/fakeprim.scm
+++ b/v8/src/compiler/midend/fakeprim.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: fakeprim.scm,v 1.8 1995/03/13 23:23:45 adams Exp $
+$Id: fakeprim.scm,v 1.9 1995/03/22 01:08:13 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -741,6 +741,8 @@ MIT in each case. |#
 (define %compiled-entry?
   (make-operator/simple "#[compiled-entry?]"  '(PROPER-PREDICATE)))
 
+(cookie-call %compiled-entry? '#F object)
+
 (define %compiled-entry-maximum-arity?
   ;; (call ',%compiled-entry-maximum-arity? '#F 'count value)
   ;;  Tests if the compiled entry has the specified maximum arity.
-- 
2.25.1