From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 15 Feb 1992 16:21:03 +0000 (+0000)
Subject: Fix paren problem.
X-Git-Tag: 20090517-FFI~9732
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b87bef979fc2f7d1f877e82649519ada6e9798f7;p=mit-scheme.git

Fix paren problem.
---

diff --git a/v7/src/compiler/machines/i386/rules1.scm b/v7/src/compiler/machines/i386/rules1.scm
index e990f0471..e9e26b51a 100644
--- a/v7/src/compiler/machines/i386/rules1.scm
+++ b/v7/src/compiler/machines/i386/rules1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules1.scm,v 1.11 1992/02/15 16:12:51 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules1.scm,v 1.12 1992/02/15 16:21:03 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/rules1.scm,v 4.36 1991/10/25 06:49:58 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -95,7 +95,7 @@ MIT in each case. |#
 	    (LAP (LEA ,target (@RO UW ,source ,literal)))))
 
 	(define (two-arg target)
-	  (LAP (OR W ,target (&U ,literal)))
+	  (LAP (OR W ,target (&U ,literal))))
 
 	(cond ((register-alias datum 'GENERAL)
 	       =>
@@ -107,7 +107,7 @@ MIT in each case. |#
 						     (three-arg alias)))
 		     (three-arg alias))))
 	      (else
-	       (two-arg (standard-move-to-target! datum target))))))))
+	       (two-arg (standard-move-to-target! datum target)))))))
 
 (define-rule statement
   (ASSIGN (REGISTER (? target)) (OBJECT->DATUM (REGISTER (? source))))