From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 15 Feb 1993 05:08:51 +0000 (+0000)
Subject: Fix braino in last edit.
X-Git-Tag: 20090517-FFI~8511
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=55b275ba988e8796ebd6412c981a0b48a22013ea;p=mit-scheme.git

Fix braino in last edit.
---

diff --git a/v7/src/compiler/machines/spectrum/lapopt.scm b/v7/src/compiler/machines/spectrum/lapopt.scm
index 5fa13f6b4..cfca76342 100644
--- a/v7/src/compiler/machines/spectrum/lapopt.scm
+++ b/v7/src/compiler/machines/spectrum/lapopt.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapopt.scm,v 1.8 1993/02/15 04:57:13 gjr Exp $
+$Id: lapopt.scm,v 1.9 1993/02/15 05:08:51 gjr Exp $
 
 Copyright (c) 1991-1993 Massachusetts Institute of Technology
 
@@ -311,11 +311,11 @@ MIT in each case. |#
 		  (next* (and next (find-non-label (cdr next)))))
 	     (if (and next
 		      (let ((instr (car next)))
-			(memq (instruction-type instr) '(ALU MEMORY))
-			(not (skips? instr))
-			(not (pc-sensitive? instr))
-			(or (not next*)
-			    (not (skips? (car next*))))))
+			(and (memq (instruction-type instr) '(ALU MEMORY))
+			     (not (skips? instr))
+			     (not (pc-sensitive? instr))
+			     (or (not next*)
+				 (not (skips? (car next*)))))))
 		 (fix-sequences (cdr next)
 				`(,@(reverse
 				     (list-difference (cdr instrs) next))