From: ssmith <ssmith>
Date: Thu, 12 Jan 1995 17:29:24 +0000 (+0000)
Subject: One missing close-paren...
X-Git-Tag: 20090517-FFI~6750
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=48f152cb1f4ba5606bf4cf7e872164cacc5f9c96;p=mit-scheme.git

One missing close-paren...
---

diff --git a/v8/src/compiler/machines/i386/lapopt.scm b/v8/src/compiler/machines/i386/lapopt.scm
index 78430d1fe..167115c11 100644
--- a/v8/src/compiler/machines/i386/lapopt.scm
+++ b/v8/src/compiler/machines/i386/lapopt.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/machines/i386/lapopt.scm,v 1.7 1995/01/12 17:24:26 ssmith Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/machines/i386/lapopt.scm,v 1.8 1995/01/12 17:29:24 ssmith Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -85,17 +85,17 @@ MIT in each case. |#
 		  (loop (cdr data))))))
       (if (pair? a)
 	  (if (number? (car a))
-		    (cons (car a)
-			  (make-reg-list (cdr a)))
-		    (let ((data (find-var (car a))))
-		      (if data
-			  (if (eq? (car data) 'R)
-			      (cons (cadr data)
-				    (make-reg-list (cdr a)))
+	      (cons (car a)
+		    (make-reg-list (cdr a)))
+	      (let ((data (find-var (car a))))
+		(if data
+		    (if (eq? (car data) 'R)
+			(cons (cadr data)
 			      (make-reg-list (cdr a)))
-			  (begin
-			    (pp (car a))
-			    ()))))
+			(make-reg-list (cdr a)))
+		    (begin
+		      (pp (car a))
+		      ()))))
 	  a))
     
     ;; Checks to see if the the pattern matches given data
@@ -145,7 +145,7 @@ MIT in each case. |#
 	       (time 0)
 	       (pipe-1-filled? #f)
 	       (pipe-1-data ())
-	       (last-mod-regs ())
+	       (last-mod-regs ()))
       (define (flush-pipe-1)
 	(if pipe-1-filled?
 	    (begin