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/htsetvar.boot | |
parent | bb81c833c0ff2ff8df936a0cd0182cf255729a41 (diff) | |
download | open-axiom-4dcf3f97d30a2b892716923ed4e916805ec87436.tar.gz |
Replace FUNCALL with apply.
Diffstat (limited to 'src/interp/htsetvar.boot')
-rw-r--r-- | src/interp/htsetvar.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/htsetvar.boot b/src/interp/htsetvar.boot index b7a2555b..49c62337 100644 --- a/src/interp/htsetvar.boot +++ b/src/interp/htsetvar.boot @@ -84,7 +84,7 @@ htShowCount s == --# discounting {\em .. } htShowSetTreeValue(setData) == st := setData.setType - st = 'FUNCTION => object2String FUNCALL(setData.setVar,"%display%") + st = 'FUNCTION => object2String apply(setData.setVar,["%display%"]) st = 'INTEGER => object2String eval setData.setVar st = 'STRING => object2String eval setData.setVar st = 'LITERALS => @@ -176,7 +176,7 @@ htSetInteger(htPage) == htKill(htPage,val) htShowFunctionPage(htPage,setData) == - fn := setData.setDef => FUNCALL(fn,htPage) + fn := setData.setDef => apply(fn,[htPage]) htpSetProperty(htPage,'setData,setData) htpSetProperty(htPage,'parts, setData.setLeaf) htShowFunctionPageContinued(htPage) @@ -267,7 +267,7 @@ htDoNothing(htPage,command) == nil htCheck(checker,value) == cons? checker => htCheckList(checker,parseWord value) - FUNCALL(checker,value) + apply(checker,[value]) parseWord x == string? x => |