From 466bdf7ee3a4df1606c1406a3f36cd060defbe0c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 7 May 2014 17:10:15 +0200 Subject: [PATCH] CSE effects analysis cleanup * module/language/cps/cse.scm (compute-always-available-expressions): Use constant? instead of zero?, to avoid punching through the effects abstraction. --- module/language/cps/cse.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/cps/cse.scm b/module/language/cps/cse.scm index e3b5ff229..d55139b46 100644 --- a/module/language/cps/cse.scm +++ b/module/language/cps/cse.scm @@ -39,7 +39,7 @@ no dependencies and which cause no effects besides &type-check." (let lp ((n 0)) (cond ((< n (vector-length effects)) - (when (zero? (exclude-effects (vector-ref effects n) &type-check)) + (when (constant? (exclude-effects (vector-ref effects n) &type-check)) (bitvector-set! out n #t)) (lp (1+ n))) (else out)))))