Fix effects analysis for cached-module-box

* module/language/cps/effects-analysis.scm (cached-module-box): Fix
  expected arity.

diff --git a/module/language/cps/effects-analysis.scm b/module/language/cps/effects-analysis.scm
index 215ecfb..acd3069 100644 (file)
--- a/module/language/cps/effects-analysis.scm
+++ b/module/language/cps/effects-analysis.scm
@@ -440,7 +440,7 @@
   ((cache-current-module! mod scope) (cause &box))
   ((resolve name bound?) (logior &module (cause &type-check)))
   ((cached-toplevel-box scope name bound?) (cause &type-check))
-  ((cached-module-box scope name bound?) (cause &type-check))
+  ((cached-module-box mod name public? bound?) (cause &type-check))
   ((define! name val) (logior &module (cause &box))))
 
 (define (primitive-effects dfg name args)