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

Fix compute-defs-and-uses for $prim

Browse source 
* module/language/cps/utils.scm (compute-defs-and-uses): Add $prim.
Wasn't needed before because this function was only ever called after
reify-primitives.
This commit is contained in:
Andy Wingo 2023-07-10 11:27:00 +02:00
parent 0922cbebb9
commit f8b1607602
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/utils.scm
View file

@ -344,7 +344,7 @@ by a label, respectively."
empty-intset)) empty-intset))
(($ $kargs _ _ ($ $continue k src exp)) (($ $kargs _ _ ($ $continue k src exp))
(match exp (match exp
((or ($ $const) ($ $const-fun) ($ $code)) ((or ($ $const) ($ $const-fun) ($ $code) ($ $prim))
(return (get-defs k) empty-intset)) (return (get-defs k) empty-intset))
(($ $call proc args) (($ $call proc args)
(return (get-defs k) (intset-add (vars->intset args) proc))) (return (get-defs k) (intset-add (vars->intset args) proc)))