From: Mark Friedman Date: Fri, 2 Sep 1988 15:01:08 +0000 (+0000) Subject: Fixed rtl:expand-statement (you gotta be careful with "reverse!"!) X-Git-Tag: 20090517-FFI~12543 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=73e7b75823d3a01bf2084dea9d07ac3468440491;p=mit-scheme.git Fixed rtl:expand-statement (you gotta be careful with "reverse!"!) --- 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)