From 8864c6d9180aa95796feb01910ec22459520ec87 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 12 Aug 2009 13:38:17 +0000 Subject: [PATCH] Fix a sanity check; fixes #3089 --- rts/Sanity.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/Sanity.c b/rts/Sanity.c index d666d57..49bbff7 100644 --- a/rts/Sanity.c +++ b/rts/Sanity.c @@ -236,7 +236,7 @@ checkPAP (StgClosure *tagged_fun, StgClosure** payload, StgWord n_args) break; } - ASSERT(fun_info->f.arity > TAG_MASK ? GET_CLOSURE_TAG(tagged_fun) == 1 + ASSERT(fun_info->f.arity > TAG_MASK ? GET_CLOSURE_TAG(tagged_fun) == 0 : GET_CLOSURE_TAG(tagged_fun) == fun_info->f.arity); } -- 1.7.10.4