From b54d4579719a84a1eb2244023edd892f94de23cf Mon Sep 17 00:00:00 2001
From: Sami Samhuri <sami.samhuri@gmail.com>
Date: Sun, 1 May 2011 19:17:58 -0700
Subject: [PATCH] make type_name more robust

---
 src/lake.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lake.c b/src/lake.c
index c0ec6a6..9d07cfc 100644
--- a/src/lake.c
+++ b/src/lake.c
@@ -87,7 +87,8 @@ static char *type_name(LakeVal *expr)
                                    "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)