From 4dcf3f97d30a2b892716923ed4e916805ec87436 Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Thu, 24 Dec 2015 18:05:41 -0800 Subject: Replace FUNCALL with apply. --- src/interp/setvars.boot | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/interp/setvars.boot') 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") -- cgit v1.2.3