klisp

commit dbdf9add3218d712ef67c5a298b53b11577583da
parent f086542f31e6f088370a8fb7eefe28f446e9b4cb
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Wed, 23 Mar 2011 16:15:34 -0300

Modified output only representations to be '#[type name]' instead of '[type name].
TODO modify read to read all chars in output only representations and throw a more meaningfull message.

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

1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/src/kwrite.c b/src/kwrite.c
@@ -203,31 +203,31 @@ void kwrite_simple(klisp_State *K, TValue obj)
 	break;
 /* unreadable objects */
     case K_TEOF:
-	kw_printf(K, "[eof]");
+	kw_printf(K, "#[eof]");
 	break;
     case K_TENVIRONMENT:
-	kw_printf(K, "[environment]");
+	kw_printf(K, "#[environment]");
 	break;
     case K_TCONTINUATION:
-	kw_printf(K, "[continuation]");
+	kw_printf(K, "#[continuation]");
 	break;
     case K_TOPERATIVE:
-	kw_printf(K, "[operative]");
+	kw_printf(K, "#[operative]");
 	break;
     case K_TAPPLICATIVE:
-	kw_printf(K, "[applicative]");
+	kw_printf(K, "#[applicative]");
 	break;
     case K_TENCAPSULATION:
 	/* TODO try to get the name */
-	kw_printf(K, "[encapsulation]");
+	kw_printf(K, "#[encapsulation]");
 	break;
     case K_TPROMISE:
 	/* TODO try to get the name */
-	kw_printf(K, "[promise]");
+	kw_printf(K, "#[promise]");
 	break;
     case K_TPORT:
 	/* TODO try to get the name/ I/O direction / filename */
-	kw_printf(K, "[port]");
+	kw_printf(K, "#[port]");
 	break;
     default:
 	/* shouldn't happen */