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/br-op1.boot | |
parent | bb81c833c0ff2ff8df936a0cd0182cf255729a41 (diff) | |
download | open-axiom-4dcf3f97d30a2b892716923ed4e916805ec87436.tar.gz |
Replace FUNCALL with apply.
Diffstat (limited to 'src/interp/br-op1.boot')
-rw-r--r-- | src/interp/br-op1.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index db446fb5..94f1f937 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -162,7 +162,7 @@ dbShowOp1(htPage,opAlist,which,key) == -- the only place where specialMessage property is set seems to be commented. out if u := htpProperty(page,'specialMessage) then apply(first u,rest u) htSayStandard('"\beginscroll ") - FUNCALL(fn,page,opAlist,which,data) --apply branch function + apply(fn,[page,opAlist,which,data]) --apply branch function dbOpsExposureMessage() htSayStandard("\endscroll ") dbPresentOps(page,which,branch) @@ -356,7 +356,7 @@ dbGatherData(htPage,opAlist,which,key) == --create data, a list of the form ((entry,exposeFlag,:entries)...) for [op,:alist] in opAlist repeat for item in alist repeat - entry := FUNCALL(dataFunction,op,item)--get key item + entry := apply(dataFunction,[op,item])--get key item exposeFlag := --is the current op-sig exposed? null (r := rest rest item) => true --not given, assume yes r . 1 --is given, use value @@ -465,7 +465,7 @@ dbReduceByForm(opAlist,form) == dbReduceBySelection(opAlist,key,fn) == acc := nil for [op,:alist] in opAlist repeat - items := [x for x in alist | FUNCALL(fn,x) = key] => + items := [x for x in alist | apply(fn,[x]) = key] => acc := [[op,:items],:acc] reverse! acc |