mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

CSE effects analysis cleanup

Browse source 
* module/language/cps/cse.scm (compute-always-available-expressions):
  Use constant? instead of zero?, to avoid punching through the effects
  abstraction.
This commit is contained in:
Andy Wingo 2014-05-07 17:10:15 +02:00
parent fb512cac6e
commit 466bdf7ee3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/cse.scm
View file

@ -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)))))