projects
/
muddle-interpreter.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Support printing #FALSE values.
[muddle-interpreter.git]
/
src
/
print.c
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_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);
case EVALTYPE_LIST:
printf ("(");
print_list_body (&o->list);