vm: handle FVM function type thorughout run-time.

* gc.c (mark_obj): Recognize FVM functions and mark their
vm_desc.

* lib.c (equal): Handle equality for FVM. If the environment
pointers are equal, consider the functions equal.
(funcall, funcall1, funcall2, funcall3, funcall4):
Recognize and call FVM functions. However, there is
a lack of robustness here that needs to be addressed:
vm_execute_closure doesn't check whether there are
too many or not enough arguments. Interpreted functions
have a run-time check inside bind_args.
(obj_print_impl): Don't print VM functions as #<intrinsic fun...>
but rather #<vm fun>.

1 files changed, 5 insertions, 1 deletions

diff --git a/gc.c b/gc.c
index efbc7699..12710dc7 100644
--- a/gc.c
+++ b/gc.c
@@ -372,8 +372,12 @@ tail_call:
     mark_obj_tail(obj->pk.symhash);
   case FUN:
     mark_obj(obj->f.env);
-    if (obj->f.functype == FINTERP)
+    switch (obj->f.functype) {
+    case FINTERP:
       mark_obj_tail(obj->f.f.interp_fun);
+    case FVM:
+      mark_obj_tail(obj->f.f.vm_desc);
+    }
     return;
   case VEC:
     {