Preserve the order of arguments in a let statement.

diff --git a/v7/src/sf/subst.scm b/v7/src/sf/subst.scm
index 98d98798b4e315de0fda262e2c4e9d90c06c556c..9fd29b45dc77012f4037dfbcc8e520e7952eaacd 100644 (file)
--- a/v7/src/sf/subst.scm
+++ b/v7/src/sf/subst.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/subst.scm,v 3.7 1988/03/22 17:39:01 jrm Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/subst.scm,v 3.8 1988/03/22 21:10:18 jrm Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -867,7 +867,8 @@ forms are simply removed.
               (unreferenced-operands   '()))
     (cond ((null? parameters)
           (if (null? operands) 
-              (receiver required-parameters referenced-operands 
+              (receiver (reverse required-parameters) ; preserve order
+                        (reverse referenced-operands)
                         unreferenced-operands)
               (error "Argument mismatch" (block/bound-variables block))))
          ((null? operands) (error "Argument mismatch"