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 9cc2193a44e99df8c1e6c3b32b351f1d65da6837..81e36705fc5cf4ccb4eef9a61a0c59eacae762a5 100644 (file)
--- 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)