From 73e7b75823d3a01bf2084dea9d07ac3468440491 Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Fri, 2 Sep 1988 15:01:08 +0000 Subject: [PATCH] Fixed rtl:expand-statement (you gotta be careful with "reverse!"!) --- v7/src/compiler/rtlbase/rtlexp.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/rtlbase/rtlexp.scm b/v7/src/compiler/rtlbase/rtlexp.scm index 9cc2193a4..81e36705f 100644 --- a/v7/src/compiler/rtlbase/rtlexp.scm +++ b/v7/src/compiler/rtlbase/rtlexp.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlexp.scm,v 4.7 1988/08/29 23:08:52 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlexp.scm,v 4.8 1988/09/02 15:01:08 markf Exp $ Copyright (c) 1987, 1988 Massachusetts Institute of Technology @@ -152,7 +152,7 @@ MIT in each case. |# (define (rtl:expand-statement statement expander finish) (let loop ((subexpressions (cdr statement)) (new-subexpressions '())) (if (null? subexpressions) - (finish (reverse! new-subexpressions)) + (finish (reverse new-subexpressions)) (expander (car subexpressions) (lambda (new-subexpression) (loop (cdr subexpressions) -- 2.25.1