From 898d9905a6225f205e17b469efed1cdfddfd81b9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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.
---
 lib.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib.c')

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;
-- 
cgit v1.2.3