Added missing cookie-call forms.

diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm
index f1ce7c9bb8455bbe267caaed348e260f66de9e34..290d303a8989cf8df9e5ab3075a898bad875ea3c 100644 (file)
--- 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.