From ffe3397ccdadadff449564f0f55f9350847bcdc8 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 19 Aug 1995 15:30:43 +0000
Subject: [PATCH] Add FORM parameter to all the operator rewriters.

---
 v8/src/compiler/midend/laterew.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/v8/src/compiler/midend/laterew.scm b/v8/src/compiler/midend/laterew.scm
index 3fe74b1c2..ed0e1b650 100644
--- a/v8/src/compiler/midend/laterew.scm
+++ b/v8/src/compiler/midend/laterew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: laterew.scm,v 1.12 1995/08/19 02:02:57 adams Exp $
+$Id: laterew.scm,v 1.13 1995/08/19 15:30:43 adams Exp $
 
 Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
@@ -294,7 +294,7 @@ MIT in each case. |#
 
 (let ((not-primitive  (make-primitive-procedure 'NOT)))
   (define-rewrite/late not-primitive
-    (lambda (rands)
+    (lambda (form rands)
       (let ((cont   (first rands))
 	    (x      (second rands))
 	    (more?  (not (null? (cddr rands)))))
@@ -304,7 +304,7 @@ MIT in each case. |#
 	    `(CALL (QUOTE ,not-primitive) ,cont ,@rands))))))
 
 (define-rewrite/late %make-multicell
-  (lambda (rands)
+  (lambda (form rands)
     (let ((cont    (first rands))
 	  (layout  (second rands))
 	  (values  (cddr rands)))
@@ -314,7 +314,7 @@ MIT in each case. |#
 	(laterew/multicell-operation cont layout name 'MAKE #F values)))))
 
 (define-rewrite/late %multicell-ref
-  (lambda (rands)
+  (lambda (form rands)
     (let ((cont    (first rands))
 	  (cell    (second rands))
 	  (layout  (third rands))
@@ -322,7 +322,7 @@ MIT in each case. |#
       (laterew/multicell-operation cont layout name 'READ cell #F))))
 
 (define-rewrite/late %multicell-set!
-  (lambda (rands)
+  (lambda (form rands)
     (let ((cont    (first rands))
 	  (cell    (second rands))
 	  (value   (third rands))
@@ -368,7 +368,7 @@ MIT in each case. |#
 
 (define-rewrite/late %vector-check
   (let ((vector-tag (machine-tag 'VECTOR)))
-    (lambda (rands)
+    (lambda (form rands)
       (let ((cont   (first rands))
 	    (vec    (second rands))
 	    (index  (third rands)))
@@ -380,7 +380,7 @@ MIT in each case. |#
 	     '#F)))))
 
 (define-rewrite/late %vector-check/index
-  (lambda (rands)
+  (lambda (form rands)
     (let ((cont   (first rands))
 	  (vec    (second rands))
 	  (index  (third rands)))
-- 
2.25.1