mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +02:00
Code Activity

Fix effects analysis for cached-module-box

Browse source 
* module/language/cps/effects-analysis.scm (cached-module-box): Fix
  expected arity.
This commit is contained in:
Andy Wingo 2014-04-05 11:32:06 +02:00
parent 5e8f5ebaf3
commit a79f4f67e2
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/effects-analysis.scm
View file

@ -440,7 +440,7 @@
((cache-current-module! mod scope) (cause &box)) ((cache-current-module! mod scope) (cause &box))
((resolve name bound?) (logior &module (cause &type-check))) ((resolve name bound?) (logior &module (cause &type-check)))
((cached-toplevel-box scope name bound?) (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! name val) (logior &module (cause &box))))
(define (primitive-effects dfg name args) (define (primitive-effects dfg name args)