add pic_type_repr

include/picrin/value.h

@@ -77,6 +77,7 @@ struct pic_port;
 #define pic_vec_ptr(o) ((struct pic_vector *)(o).u.data)
 
 enum pic_tt pic_type(pic_value);
+const char *pic_type_repr(enum pic_tt);
 
 pic_value pic_nil_value();
 pic_value pic_true_value();

src/value.c

@@ -30,6 +30,28 @@ pic_type(pic_value v)
   abort();
 }
 
+const char *
+pic_type_repr(enum pic_tt tt)
+{
+  static const char *reprs[13] = {
+    "nil",
+    "boolean",
+    "float",
+    "int",
+    "symbol",
+    "eof",
+    "undef",
+    "pair",
+    "string",
+    "vector",
+    "proc",
+    "port",
+    "env"
+  };
+
+  return reprs[tt];
+}
+
 pic_value
 pic_nil_value()
 {