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/setvars.boot | |
| parent | bb81c833c0ff2ff8df936a0cd0182cf255729a41 (diff) | |
| download | open-axiom-4dcf3f97d30a2b892716923ed4e916805ec87436.tar.gz | |
Replace FUNCALL with apply.
Diffstat (limited to 'src/interp/setvars.boot')
| -rw-r--r-- | src/interp/setvars.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index de8883b6..3c412d83 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -123,7 +123,7 @@ initializeSetVariables (setTree) == st = 'FUNCTION => -- here setVar is really the name of a function to call if functionp(setData.setVar) - then FUNCALL( setData.setVar,"%initialize%") + then apply(setData.setVar,["%initialize%"]) else sayMSG '" Function not implemented." st = 'INTEGER => symbolValue(setData.setVar) := setData.setDef @@ -205,7 +205,7 @@ set1(l,setTree) == -- (arg2 := selectOption(l.1,['default],nil)) => "%initialize%" KDR l if functionp(setData.setVar) - then FUNCALL( setData.setVar,setfunarg) + then apply(setData.setVar,[setfunarg]) else sayMSG '" Function not implemented." -- if so set, then show option information if $displaySetValue then displaySetOptionInformation(arg,setData) @@ -279,7 +279,7 @@ displaySetOptionInformation(arg,setData) == st = 'FUNCTION => finishLine $OutputStream if functionp(setData.setVar) - then FUNCALL(setData.setVar,"%describe%") + then apply(setData.setVar,["%describe%"]) else sayMSG '" Function not implemented." st = 'INTEGER => @@ -330,7 +330,7 @@ displaySetVariableSettings(setTree,label) == st := setData.setType st = 'FUNCTION => opt := - functionp(setData.setVar) => FUNCALL( setData.setVar,"%display%") + functionp(setData.setVar) => apply(setData.setVar,["%display%"]) '"unimplemented" if cons? opt then opt := [:[o,'" "] for o in opt] sayBrightly concat(setOption,'"%b",opt,'"%d") |