sjs/lake
1
0
Fork 0
mirror of https://github.com/samsonjs/lake.git synced 2026-03-25 08:55:49 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

make type_name more robust

Browse source
This commit is contained in:
Sami Samhuri 2011-05-01 19:17:58 -07:00
parent 7dbea04337
commit b54d457971
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/lake.c
View file

@ -87,7 +87,8 @@ static char *type_name(LakeVal *expr)
"dotted-list", "primitive", "function" "dotted-list", "primitive", "function"
}; };
return type_names[expr->type]; LakeType t = expr->type;
return t >= 0 && t <= 8 ? type_names[t] : "(not a LakeVal)";
} }
gboolean lake_equal(LakeVal *a, LakeVal *b) gboolean lake_equal(LakeVal *a, LakeVal *b)