rewrite pic_type_repr

src/value.c

@@ -35,27 +35,48 @@ pic_type(pic_value v)
 const char *
 pic_type_repr(enum pic_tt tt)
 {
-  static const char *reprs[17] = {
+  switch (tt) {
-    "nil",
+  case PIC_TT_NIL:
-    "boolean",
+    return "nil";
-    "float",
+  case PIC_TT_BOOL:
-    "int",
+    return "boolean";
-    "symbol",
+  case PIC_TT_FLOAT:
-    "char",
+    return "float";
-    "eof",
+  case PIC_TT_INT:
-    "undef",
+    return "int";
-    "pair",
+  case PIC_TT_SYMBOL:
-    "string",
+    return "symbol";
-    "vector",
+  case PIC_TT_CHAR:
-    "blob",
+    return "char";
-    "proc",
+  case PIC_TT_EOF:
-    "port",
+    return "eof";
-    "error",
+  case PIC_TT_UNDEF:
-    "env",
+    return "undef";
-    "cont"
+  case PIC_TT_PAIR:
-  };
+    return "pair";
-
+  case PIC_TT_STRING:
-  return reprs[tt];
+    return "string";
+  case PIC_TT_VECTOR:
+    return "vector";
+  case PIC_TT_BLOB:
+    return "blob";
+  case PIC_TT_PORT:
+    return "port";
+  case PIC_TT_ERROR:
+    return "error";
+  case PIC_TT_ENV:
+    return "env";
+  case PIC_TT_CONT:
+    return "cont";
+  case PIC_TT_PROC:
+    return "proc";
+  case PIC_TT_SC:
+    return "sc";
+  case PIC_TT_SENV:
+    return "senv";
+  case PIC_TT_SYNTAX:
+    return "syntax";
+  }
 }
 
 pic_value