From ee650b236860ec571112b09dbb3fbe4025587cfa Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 15 Feb 1993 04:01:11 +0000 Subject: [PATCH] Fix braino. --- v7/src/compiler/machines/spectrum/lapopt.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/lapopt.scm b/v7/src/compiler/machines/spectrum/lapopt.scm index e84e3ecbd..d5fe50a3c 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.6 1993/02/14 22:33:18 gjr Exp $ +$Id: lapopt.scm,v 1.7 1993/02/15 04:01:11 gjr Exp $ Copyright (c) 1991-1993 Massachusetts Institute of Technology @@ -276,9 +276,10 @@ MIT in each case. |# (let* ((tail* (cdddr instrs)) (next (find-or-label tail*)) (fail - (fix-sequences tail* - (append (reverse (list-head instrs 3)) - tail))) + (lambda () + (fix-sequences tail* + (append (reverse (list-head instrs 3)) + tail)))) (dict2 (and next (match (car return-pattern) (car next))))) -- 2.25.1