Support printing #FALSE values.

Add special-case until implementing general non-primtype print.

Signed-off-by: Kaz Wesley <kaz@lambdaverse.org>

diff --git a/src/print.c b/src/print.c
index 02456bc6e958614d282a5cd21412f87fac7740ca..942ad0d783e4c71d93e13b9a3bfc94ce09be6b48 100644 (file)
--- 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);