From 4dcf3f97d30a2b892716923ed4e916805ec87436 Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Thu, 24 Dec 2015 18:05:41 -0800
Subject: Replace FUNCALL with apply.

---
 src/interp/i-analy.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/i-analy.boot')

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)
-- 
cgit v1.2.3