Calls ensure-function-program-mode with ctx and state as the last two arguments.
Macro: ensure-function-program-mode$
(defmacro ensure-function-program-mode$ (fn description error-erp error-val) (list 'ensure-function-program-mode fn description error-erp error-val 'ctx 'state))