From 049a8e57320c8dab345ea02330e9fbb4f0499fe5 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 1 Apr 1995 16:53:14 +0000
Subject: [PATCH] Added %make-entity.

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

diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm
index 290d303a8..05e72353b 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.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)
 
+(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:
-- 
2.25.1