summaryrefslogtreecommitdiff
path: root/src/vm_loader.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/vm_loader.c')
-rw-r--r--src/vm_loader.c6
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);
}