add pic_type_repr
This commit is contained in:
parent
d4001a70ae
commit
1e4ff3276a
|
@ -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();
|
||||
|
|
22
src/value.c
22
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()
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue