mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:30:21 +02:00
Code Activity

Fix thinko in synthesize-definition-effects!

Browse source 
* module/language/cps/effects-analysis.scm (synthesize-definition-effects!):
  Fix a boneheaded thinko that caused all primcalls to be marked as
  causing car, cdr, vector, struct, and box effects.
This commit is contained in:
Andy Wingo 2014-05-07 15:25:13 +02:00
parent 7af8115675
commit aa980ce0dc
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps/effects-analysis.scm
View file

@ -531,7 +531,9 @@
(add-deps! &box)) (add-deps! &box))
(_ (_
(add-deps! (effects-clobber (add-deps! (effects-clobber
(logior fx &car &cdr &vector &struct &box))) (logand
fx
(cause (logior &car &cdr &vector &struct &box)))))
#t))) #t)))
(_ #t)) (_ #t))
(lp (1+ label)))))) (lp (1+ label))))))