X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSanity.c;h=25a76c00002d1f44df85b13b1fa4dc25e8ed88e0;hb=6c3eae5d5e88117cf80b4b35c9bae4ba3ebbe94c;hp=dcb6e5b5ea97169c9f0b674010ae672c9b7ddb1e;hpb=1ed01a871030f05905a9595e4837dfffc087ef64;p=ghc-hetmet.git

diff --git a/rts/Sanity.c b/rts/Sanity.c
index dcb6e5b..25a76c0 100644
--- a/rts/Sanity.c
+++ b/rts/Sanity.c
@@ -235,6 +235,9 @@ checkPAP (StgClosure *fun, StgClosure** payload, StgWord n_args)
 			  n_args );
 	break;
     }
+
+    ASSERT(fun_info->f.arity > TAG_MASK ? GET_CLOSURE_TAG(fun) == 1
+           : GET_CLOSURE_TAG(fun) == fun_info->f.arity);
 }