diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-24 18:05:41 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-24 18:05:41 -0800 |
| commit | 4dcf3f97d30a2b892716923ed4e916805ec87436 (patch) | |
| tree | 5b41b966349e3c4f9afacef3a2ad60a38d28a8c1 /src/interp/g-opt.boot | |
| parent | bb81c833c0ff2ff8df936a0cd0182cf255729a41 (diff) | |
| download | open-axiom-4dcf3f97d30a2b892716923ed4e916805ec87436.tar.gz | |
Replace FUNCALL with apply.
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 47859de8..2548cb53 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -447,7 +447,7 @@ simplifyVMForm x == x for args in tails x.args repeat args.first := simplifyVMForm first args - opt := subrname x.op has OPTIMIZE => resetTo(x,FUNCALL(opt,x)) + opt := subrname x.op has OPTIMIZE => resetTo(x,apply(opt,[x])) x for xs in tails x repeat xs.first := simplifyVMForm first xs @@ -537,7 +537,7 @@ optCall (x is ['%call,:u]) == resetTo(x,doInlineCall(args,vars,body)) [fn,:a] := u fn isnt [.,:.] => - opt := fn has OPTIMIZE => resetTo(x,FUNCALL(opt,u)) + opt := fn has OPTIMIZE => resetTo(x,apply(opt,[u])) resetTo(x,u) fn is ['%apply,name] => do |