Lines Matching defs:action
166 run_action(fcode_env_t *env, acf_t acf, int action)
178 if (action >= p[1] || action < 0) {
179 log_message(MSG_WARN, "run_action: acf: %p action: %d"
180 " out of range: 0-%d\n", acf, action, (int)p[1]);
187 d = (fstack_t)p[action+2];
192 log_message(MSG_WARN, "run_action: acf: %p/%p not default action\n",
279 system_message(env, "Bad Object action");
396 FORTH(IMMEDIATE, "action:", action_colon);
397 FORTH(0, "perform-action", perform_action);