From 2ed2f865fd227939f53f85bbd138e9809819458f Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 27 Jul 2010 08:02:02 +0900
Subject: [PATCH] adding name to type printed representation

---
 sexp.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/sexp.c b/sexp.c
index b297cd7e..2242f734 100644
--- a/sexp.c
+++ b/sexp.c
@@ -1195,16 +1195,21 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
       break;
 #endif
     case SEXP_PROCEDURE:
-      sexp_write_string(ctx, "#<procedure: ", out);
+      sexp_write_string(ctx, "#<procedure ", out);
       x = sexp_bytecode_name(sexp_procedure_code(obj));
       sexp_write_one(ctx, sexp_synclop(x) ? sexp_synclo_expr(x): x, out);
       sexp_write_string(ctx, ">", out);
       break;
     case SEXP_SYNCLO:
-      sexp_write_string(ctx, "#<sc: ", out);
+      sexp_write_string(ctx, "#<sc ", out);
       sexp_write(ctx, sexp_synclo_expr(obj), out);
       sexp_write_string(ctx, ">", out);
       break;
+    case SEXP_TYPE:
+      sexp_write_string(ctx, "#<type ", out);
+      sexp_write_string(ctx, sexp_type_name(obj), out);
+      sexp_write_string(ctx, ">", out);
+      break;
     case SEXP_STRING:
       sexp_write_char(ctx, '"', out);
       i = sexp_string_length(obj);