Fix unpacking of record parameter

minoki · Sep 11, 2024 · 3fd6c63 · 3fd6c63
1 parent 20ac612
commit 3fd6c63
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/cps/unpack-record-parameter.sml b/src/cps/unpack-record-parameter.sml
@@ -809,6 +809,10 @@ in
                       #indirect
                         (CpsUsageAnalysis.getContUsage (#cont_usage ctx, name))
                       = NEVER
+                      andalso
+                      #indirect
+                        (CpsUsageAnalysis.getContUsage
+                           (#cont_rec_usage ctx, name)) = NEVER
                     then
                       let
                         val t =