From: Chris Hanson Date: Fri, 12 Jun 1987 21:51:10 +0000 (+0000) Subject: When generating code for combinations whose operator is known, use X-Git-Tag: 20090517-FFI~13391 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=adb1a47676a4a14b77e5b3346fbaae660a62ead5;p=mit-scheme.git When generating code for combinations whose operator is known, use original parameters to that procedure to determine which operands must be pushed. --- diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm index e56bf85f3..ba7ff983b 100644 --- a/v7/src/compiler/rtlgen/rgcomb.scm +++ b/v7/src/compiler/rtlgen/rgcomb.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.23 1987/06/02 21:19:34 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.24 1987/06/12 21:51:10 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -47,9 +47,9 @@ MIT in each case. |# (if (and callee (procedure? callee) (not (procedure-externally-visible? callee))) - (generate-operands (procedure-required callee) - (procedure-optional callee) - (procedure-rest callee) + (generate-operands (procedure-original-required callee) + (procedure-original-optional callee) + (procedure-original-rest callee) (combination-operands combination)) (map generate/operand (combination-operands combination)))))