/** Call a function with an array of parameters
*
* @param rcvr [in] レシーバ
* @param func [in] Function
* @param params [in] Parameters
*
* @return Return value
*/
newtRef NsApply(newtRefArg rcvr, newtRefArg func, newtRefArg params)
{
if (! NewtRefIsFunction(func))
{
return NewtThrow(kNErrNotAFunction, func);
}
newtRef ary = NewtRefIsNIL(params) ? NewtMakeArray(kNewtRefUnbind, 0) : params;
return NcCallWithArgArray(func, ary);
}
newtRef NsIsFunction(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsFunction(r));
}
