wingo pushed a commit to branch main
in repository guile.
commit f8b16076022aa871baafa663969362970434f15f
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Mon Jul 10 11:27:00 2023 +0200
Fix compute-defs-and-uses for $prim
* 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.
---
module/language/cps/utils.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/language/cps/utils.scm b/module/language/cps/utils.scm
index 5fbd9db28..4b20100d4 100644
--- a/module/language/cps/utils.scm
+++ b/module/language/cps/utils.scm
@@ -344,7 +344,7 @@ by a label, respectively."
empty-intset))
(($ $kargs _ _ ($ $continue k src exp))
(match exp
- ((or ($ $const) ($ $const-fun) ($ $code))
+ ((or ($ $const) ($ $const-fun) ($ $code) ($ $prim))
(return (get-defs k) empty-intset))
(($ $call proc args)
(return (get-defs k) (intset-add (vars->intset args) proc)))
