Added %make-entity.

diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm
index 290d303a8989cf8df9e5ab3075a898bad875ea3c..05e72353b0a63656116cabbdd30d6e8f5c391e00 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.9 1995/03/22 01:08:13 adams Exp $
+$Id: fakeprim.scm,v 1.10 1995/04/01 16:53:14 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -501,6 +501,9 @@ MIT in each case. |#
 
 (cookie-call %primitive-apply cont 'NARGS 'primitive-object #!rest values)
 \f
+(define %arity-dispatcher-tag
+  (make-constant "#[arity-dispatcher-tag]"))
+
 (define %unspecific
   ;; Magic cookie representing an ignorable value
   (make-constant "#[unspecific]"))
@@ -538,6 +541,10 @@ MIT in each case. |#
 
 (cookie-call %cons '#F car-value cdr-value)
 
+(define %make-entity
+  ;; (CALL ',%make-entity '#F <value> <value>)
+  (make-operator/simple "#[make-entity]"))
+
 (define %vector
   ;; (CALL ',%vector '#F <value>*)
   ;; Note: