Browse files

Better check the tag is cached

Ignore-this: 658d01f942d21e23021e9353079729ee

darcs-hash:20090904140738-6ac22-58b0cf87303d2b67d308b32bf7e0f2646ba1eb8e.gz
  • Loading branch information...
1 parent a07c00a commit 70d6955bb94d4ef5fd1dc298451330861d0cc4da eb committed Sep 4, 2009
Showing with 1 addition and 1 deletion.
  1. +1 −1 evm/closure.h
View
2 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);

0 comments on commit 70d6955

Please sign in to comment.