From 898d9905a6225f205e17b469efed1cdfddfd81b9 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 7 Apr 2018 09:15:04 -0700 Subject: lib: new function vm-fun-p. * eval.c (eval_init): vm-fun-p intrinsic registered. * lib.c (vm_fun_p): New function. * lib.h (vm_fun_p): Declared. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index a41d362a..d4973217 100644 --- a/eval.c +++ b/eval.c @@ -6668,6 +6668,7 @@ void eval_init(void) reg_fun(intern(lit("func-set-env"), user_package), func_n2(func_set_env)); reg_fun(intern(lit("functionp"), user_package), func_n1(functionp)); reg_fun(intern(lit("interp-fun-p"), user_package), func_n1(interp_fun_p)); + reg_fun(intern(lit("vm-fun-p"), user_package), func_n1(vm_fun_p)); reg_fun(intern(lit("ctx-form"), system_package), func_n1(ctx_form)); reg_fun(intern(lit("ctx-name"), system_package), func_n1(ctx_name)); -- cgit v1.2.3