diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/language/cps/cse.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/language/cps/cse.scm b/module/language/cps/cse.scm index 55cf5490e..47c0f90e6 100644 --- a/module/language/cps/cse.scm +++ b/module/language/cps/cse.scm @@ -360,9 +360,9 @@ for a label, it isn't known to be constant at that label." (_ bool)) (match (and (< pred succ) (intmap-ref out pred)) (($ $kargs _ _ ($ $branch kf kt src 'eq-constant? c (v))) - (if (eqv? kt succ) - (adjoin-constant consts v c) - consts)) + (if (eqv? kf succ) + consts + (adjoin-constant consts v c))) (_ consts))))))) (define (propagate-analysis analysis label out) |