From 55b275ba988e8796ebd6412c981a0b48a22013ea Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 15 Feb 1993 05:08:51 +0000 Subject: [PATCH] Fix braino in last edit. --- v7/src/compiler/machines/spectrum/lapopt.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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)) -- 2.25.1