summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2023-07-10 11:27:00 +0200
committerAndy Wingo <wingo@pobox.com>2023-07-10 11:27:00 +0200
commit528482042d95c00e772101f7871b0cb7f988baba (patch)
tree7685ffe58107a08db38e9521644ec05427d47c18
parentf8eaee90519207d0090bc9f74f5e677bb4ff8a64 (diff)
downloadguile-528482042d95c00e772101f7871b0cb7f988baba.tar.gz
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.
-rw-r--r--module/language/cps/utils.scm2
1 files changed, 1 insertions, 1 deletions
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)))