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.

1 files changed, 5 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 7219d2d2..ad209037 100644
--- a/lib.c
+++ b/lib.c
@@ -6161,6 +6161,11 @@ val interp_fun_p(val obj)
   return (functionp(obj) && obj->f.functype == FINTERP) ? t : nil;
 }
 
+val vm_fun_p(val obj)
+{
+  return (functionp(obj) && obj->f.functype == FVM) ? t : nil;
+}
+
 static noreturn void callerror(val fun, val msg)
 {
   uses_or2;