Better check the tag is cached

Ignore-this: 658d01f942d21e23021e9353079729ee darcs-hash:20090904140738-6ac22-58b0cf87303d2b67d308b32bf7e0f2646ba1eb8e.gz
avsm · Sep 4, 2009 · 70d6955 · 70d6955
1 parent a07c00a
commit 70d6955
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/evm/closure.h b/evm/closure.h
@@ -109,7 +109,7 @@ VAL DO_EVAL(VAL x);
 //#define EVAL(x) DO_EVAL(x)
 #define EVAL(x) ((x && (ISTHUNK(x) || ISFUN(x))) ? DO_EVAL(x) : x)
 
-#define CONSTRUCTOR(t,a,b) ((a)==0 ? zcon[t] : CONSTRUCTORn(t,a,b))
+#define CONSTRUCTOR(t,a,b) ((a)==0 && t<255 ? zcon[t] : CONSTRUCTORn(t,a,b))
 
 // Return a new constructor
 VAL CONSTRUCTORn(int tag, int arity, void** block);