From: Kaz Wesley <kaz@lambdaverse.org>
Date: Sat, 10 Feb 2018 02:18:19 +0000 (-0800)
Subject: Support printing #FALSE values.
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=076f331ed656f4f78334d30f395f2f19e12af818;hp=56694525a0ce70e971de1f145c714a30ecce6742;p=muddle-interpreter.git

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 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);