aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-analy.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-analy.boot')
-rw-r--r--src/interp/i-analy.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index 7a404c41..c1bdf82c 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -243,7 +243,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:= GETL(opName,"up")) and (u:= FUNCALL(fn, t)) => u
+ (null dol) and (fn:= property(opName,"up")) and (u:= FUNCALL(fn, t)) => u
nargs := #argl
if opName then for x in argl for i in 1.. repeat
putCallInfo(x,opName,i,nargs)