diff options
Diffstat (limited to 'src/vm_loader.c')
-rw-r--r-- | src/vm_loader.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/vm_loader.c b/src/vm_loader.c index 59aae86a2..e8eaec122 100644 --- a/src/vm_loader.c +++ b/src/vm_loader.c @@ -132,6 +132,12 @@ VM_DEFINE_LOADER (load_program, "load-program") /* init object table */ if (scm_is_vector (x)) { +#if 0 + if (scm_is_simple_vector (x)) + printf ("is_simple_vector!\n"); + else + printf ("NOT is_simple_vector\n"); +#endif p->objs = x; POP (x); } |