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;