klisp

commit 7a54a5f90c20153360bcf59a56682ba2d524ba54
parent dd3e3cda88add7b972a44cc6270e6c928c9a336f
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Wed, 22 Aug 2012 01:02:31 -0300

Added thread (write only) output representation.

Diffstat:
M
src/kwrite.c
 | 
9
+++++++++

1 file changed, 9 insertions(+), 0 deletions(-)
diff --git a/src/kwrite.c b/src/kwrite.c
@@ -722,6 +722,15 @@ void kwrite_scalar(klisp_State *K, TValue obj)
 #endif
         kw_printf(K, "]");
         break;
+    case K_TTHREAD:
+        kw_printf(K, "#[thread");
+#if KTRACK_NAMES
+        if (khas_name(obj)) {
+            kw_print_name(K, obj);
+        }
+#endif
+        kw_printf(K, "]");
+        break;
     default:
         /* shouldn't happen */
         kwrite_error(K, "unknown object type");