From b5b3955349df76edf5b1824422fec48fe58d5cfc Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 14 Feb 1993 22:02:38 +0000 Subject: [PATCH] Use reverse! instead of reverse to avoid holding onto two copies of the instruction list. --- 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 b49c58e87..eaea0af0e 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.3 1993/02/14 06:26:55 gjr Exp $ +$Id: lapopt.scm,v 1.4 1993/02/14 22:02:38 gjr Exp $ Copyright (c) 1991-1993 Massachusetts Institute of Technology @@ -310,4 +310,4 @@ MIT in each case. |# (fix-sequences (cdr instrs) (cons (car instrs) tail))))) - (fix-sequences (reverse instructions) '())) \ No newline at end of file + (fix-sequences (reverse! instructions) '())) \ No newline at end of file -- 2.25.1