From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 23 Jul 1996 02:27:12 +0000 (+0000)
Subject: Fix typos.
X-Git-Tag: 20090517-FFI~5453
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d1637911b275850ef110cea7cba4098aa8c09149;p=mit-scheme.git

Fix typos.
---

diff --git a/v8/src/compiler/midend/typerew.scm b/v8/src/compiler/midend/typerew.scm
index 3aa6a6dc4..7c6b7f672 100644
--- a/v8/src/compiler/midend/typerew.scm
+++ b/v8/src/compiler/midend/typerew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: typerew.scm,v 1.18 1996/07/22 23:12:49 adams Exp $
+$Id: typerew.scm,v 1.19 1996/07/23 02:27:12 adams Exp $
 
 Copyright (c) 1994-1996 Massachusetts Institute of Technology
 
@@ -465,12 +465,11 @@ MIT in each case. |#
 (define (typerew/remember new old)
   (code-rewrite/remember new old))
 
-(define (typerew/remember* equivalent-subform new-form)
-  (let ((info (code-rewrite/original-form new-form)))
+(define (typerew/remember* new-form old)
+  (let ((info (code-rewrite/original-form old)))
     (if info
-	(code-rewrite/remember* equivalent-subform info)
-	equivalent-subform)))
-			  
+	(code-rewrite/remember* new-form info)
+	new-form)))
 
 (define (typerew/new-name prefix)
   (new-variable prefix))
@@ -1971,13 +1970,12 @@ MIT in each case. |#
 	  (unsafe-mutation (typerew-simple-operator-replacement %mutator)))
 
       (define (make-checked-mutation checks)
-	(lambda (checks)
-	  (typerew-operator-replacement/diamond-3-3-3
-	   (lambda (collection index element)
-	     `(CALL ',%generic-index-check/set! '#F
-		    ,collection ,index ,element (QUOTE ,checks)))
-	   %mutator
-	   mutator)))
+	(typerew-operator-replacement/diamond-3-3-3
+	 (lambda (collection index element)
+	   `(CALL ',%generic-index-check/set! '#F
+		  ,collection ,index ,element (QUOTE ,checks)))
+	 %mutator
+	 mutator))
 
       (define-typerew-replacement-method mutator 3
 	(lambda (form collection index element)