klisp

commit 145c7b439648b359c021a316a02144d5f6e74d8f
parent c3edd369019e98751bcca757950a239df5d4c952
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sat,  5 Mar 2011 16:07:02 -0300

Added external representations for environment, continuation, operatives and applicatives.

Diffstat:
M
src/kwrite.c
 | 
14
+++++++++++++-

1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/src/kwrite.c b/src/kwrite.c
@@ -21,7 +21,6 @@
 ** Stack for the write FSM
 ** 
 */
-
 #define push_data(ks_, data_) (ks_spush(ks_, data_))
 #define pop_data(ks_) (ks_sdpop(ks_))
 #define get_data(ks_) (ks_sget(ks_))
@@ -197,9 +196,22 @@ void kwrite_simple(klisp_State *K, TValue obj)
     case K_TIGNORE:
 	kw_printf(K, "#ignore");
 	break;
+/* unreadable objects */
     case K_TEOF:
 	kw_printf(K, "[eof]");
 	break;
+    case K_TENVIRONMENT:
+	kw_printf(K, "[environment]");
+	break;
+    case K_TCONTINUATION:
+	kw_printf(K, "[continuation]");
+	break;
+    case K_TOPERATIVE:
+	kw_printf(K, "[operative]");
+	break;
+    case K_TAPPLICATIVE:
+	kw_printf(K, "[applicative]");
+	break;
     default:
 	/* shouldn't happen */
 	kwrite_error(K, "unknown object type");