[Guile-commits] 01/02: Fix compute-defs-and-uses for $prim

[Andy Wingo]

wingo pushed a commit to branch wip-tailify
in repository guile.

commit 528482042d95c00e772101f7871b0cb7f988baba
Author: Andy Wingo <wingo@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 4c9859802..716b6ec78 100644
--- a/module/language/cps/utils.scm
+++ b/module/language/cps/utils.scm
@@ -345,7 +345,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)))