From c67ca56c7e48819ed06b851de0321e94c1f60848 Mon Sep 17 00:00:00 2001
From: "Brian A. LaMacchia" <edu/mit/csail/zurich/bal>
Date: Fri, 15 Jan 1988 20:13:52 +0000
Subject: [PATCH] Fixed entry points in calls to CCI routines.

---
 v7/src/compiler/machines/vax/dassm2.scm | 26 +++++++++++--------------
 1 file changed, 11 insertions(+), 15 deletions(-)

diff --git a/v7/src/compiler/machines/vax/dassm2.scm b/v7/src/compiler/machines/vax/dassm2.scm
index 70d26d793..c5be7ab38 100644
--- a/v7/src/compiler/machines/vax/dassm2.scm
+++ b/v7/src/compiler/machines/vax/dassm2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/dassm2.scm,v 4.1 1988/01/07 21:16:19 bal Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/dassm2.scm,v 4.2 1988/01/15 20:13:52 bal Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -218,20 +218,16 @@ MIT in each case. |#
       ;; Interpreter entry points
       ,@(make-entries
 	 #x00F0
-	 '(apply error wrong-number-of-arguments
-		 interrupt-procedure interrupt-continuation
-		 lookup-apply lookup access unassigned? unbound? set!
-		 define primitive-apply enclose setup-lexpr
-		 return-to-interpreter safe-lookup cache-variable
-		 reference-trap assignment-trap))
-      ,@(make-entries
-	 #x0228
-	 '(uuo-link uuo-link-trap cache-reference-apply
-		    safe-reference-trap unassigned?-trap
-		    cache-variable-multiple uuo-link-multiple
-		    &+ &- &* &/ &= &< &> 1+ -1+ zero? positive?
-		    negative? cache-assignment cache-assignment-multiple
-		    operator-trap)))))
+	 '(return-to-interpreter 
+	   uuo-link-trap operator-trap
+	   apply error wrong-number-of-arguments
+	   interrupt-procedure interrupt-continuation lookup-apply 
+	   lookup access unassigned? unbound? set! define primitive-apply enclose
+	   setup-lexpr safe-lookup cache-variable reference-trap
+	   assignment-trap uuo-link cache-reference-apply
+	   safe-reference-trap unassigned?-trap cache-variable-multiple
+	   uuo-link-multiple &+ &- &* &/ &= &< &> 1+ -1+ zero? positive? negative?
+	   cache-assignment cache-assignment-multiple primitive-lexpr-apply)))))
 
 )
 
-- 
2.25.1