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-saturn.boot | |
parent | bb81c833c0ff2ff8df936a0cd0182cf255729a41 (diff) | |
download | open-axiom-4dcf3f97d30a2b892716923ed4e916805ec87436.tar.gz |
Replace FUNCALL with apply.
Diffstat (limited to 'src/interp/br-saturn.boot')
-rw-r--r-- | src/interp/br-saturn.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index dd290317..98b86cad 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -484,7 +484,7 @@ htDoneButton(func, htPage, :optionalArgs) == htMakeErrorPage htPage not functionSymbol? func => systemError ['"unknown function", func] - FUNCALL(symbolFunction func, htPage) + apply(symbolFunction func, [htPage]) htBcLinks(links,:options) == skipStateInfo? := IFCAR options @@ -1002,7 +1002,7 @@ dbGatherThenShow(htPage,opAlist,which,data,constructorIfTrue,word,fn) == if cons? thing then if constructorIfTrue then htSay('" {\em ",dbShowKind thing,'"}") htSay '" " - FUNCALL(fn,thing) + apply(fn,[thing]) htSay('":\newline ") dbShowOpSigList(which,items,(1 + bincount) * 8192) bincount := bincount + 1 |