From a79f4f67e29253cb195cc73141a16eaaff2c000d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 5 Apr 2014 11:32:06 +0200 Subject: [PATCH] Fix effects analysis for cached-module-box * module/language/cps/effects-analysis.scm (cached-module-box): Fix expected arity. --- module/language/cps/effects-analysis.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/cps/effects-analysis.scm b/module/language/cps/effects-analysis.scm index 215ecfb02..acd3069cb 100644 --- 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)