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/i-analy.boot | |
| parent | bb81c833c0ff2ff8df936a0cd0182cf255729a41 (diff) | |
| download | open-axiom-4dcf3f97d30a2b892716923ed4e916805ec87436.tar.gz | |
Replace FUNCALL with apply.
Diffstat (limited to 'src/interp/i-analy.boot')
| -rw-r--r-- | src/interp/i-analy.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index 4446d731..245f1d3c 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -240,7 +240,7 @@ bottomUp t == -- call a special handler if we are not being package called dol := getAtree(op,'dollar) and (opName ~= 'construct) - (null dol) and (fn:= property(opName,"up")) and (u:= FUNCALL(fn, t)) => u + (null dol) and (fn:= property(opName,"up")) and (u:= apply(fn,[t])) => u nargs := #argl if opName then for x in argl for i in 1.. repeat putCallInfo(x,opName,i,nargs) |