This is an automated email from the git hooks/post-receive script.
wingo pushed a commit to branch main
in repository guile.
The following commit(s) were added to refs/heads/main by this push:
new c9c16db Allow primcalls with multiple defs
c9c16db is described below
commit c9c16db694e8da04fdd298073fdbd311ef1b5796
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Sat Jun 19 22:15:39 2021 +0200
Allow primcalls with multiple defs
* module/language/cps/types.scm (infer-types): Allow multiple defs.
---
module/language/cps/types.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/language/cps/types.scm b/module/language/cps/types.scm
index 7657bf4..d3be176 100644
--- a/module/language/cps/types.scm
+++ b/module/language/cps/types.scm
@@ -2014,7 +2014,7 @@ maximum, where type is a bitset as a fixnum."
(match (intmap-ref conts k)
(($ $kargs _ defs)
(infer-primcall types 0 name param args
- (match defs ((var) var) (() #f))))
+ (match defs ((var) var) (_ #f))))
(_
;; (pk 'warning-no-restrictions name)
types))))
