From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 22 Mar 1995 01:08:13 +0000 (+0000)
Subject: Added missing cookie-call forms.
X-Git-Tag: 20090517-FFI~6515
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d14a2c4a3a2c5f338783cf16f4c5414196e7c411;p=mit-scheme.git

Added missing cookie-call forms.
---

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.