From c1355a5f33c05081c04dd494b0958b1c6eb5e9c0 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 14 Feb 1993 22:14:09 +0000 Subject: [PATCH] Fix parenthesis bug. --- v7/src/compiler/machines/spectrum/lapopt.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/lapopt.scm b/v7/src/compiler/machines/spectrum/lapopt.scm index eaea0af0e..a547591a9 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.4 1993/02/14 22:02:38 gjr Exp $ +$Id: lapopt.scm,v 1.5 1993/02/14 22:14:09 gjr Exp $ Copyright (c) 1991-1993 Massachusetts Institute of Technology @@ -294,7 +294,7 @@ MIT in each case. |# (let* ((next (find-or-label (cdr instrs))) (next* (and next (find-non-label (cdr next))))) (if (and next - (memq (instruction-type (car next) '(MEMORY ALU))) + (memq (instruction-type (car next)) '(MEMORY ALU)) (not (skips? (car next))) (or (not next*) (not (skips? (car next*))))) -- 2.25.1