X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2Fprint.c;h=942ad0d783e4c71d93e13b9a3bfc94ce09be6b48;hb=e3dcc1d3966fb95a5a232daa193c6b5d89a06b7e;hp=02456bc6e958614d282a5cd21412f87fac7740ca;hpb=081a7c4eedd6e6aa9da616ed88c82ab85efdb98f;p=muddle-interpreter.git

diff --git a/src/print.c b/src/print.c
index 02456bc..942ad0d 100644
--- a/src/print.c
+++ b/src/print.c
@@ -87,6 +87,10 @@ print_object (const object * o)
     case EVALTYPE_FIX64:
       printf ("%ld", o->fix64.val.n);
       break;
+    case EVALTYPE_FALSE:
+      // for now, handle non-primtype print as special case (cf. OBLIST)
+      printf ("#FALSE ");
+      // FALLTHROUGH
     case EVALTYPE_LIST:
       printf ("(");
       print_list_body (&o->list);