[Guile-commits] branch wip-tailify updated: Allow primcalls with multiple defs

[Andy Wingo]

This is an automated email from the git hooks/post-receive script.

wingo pushed a commit to branch wip-tailify
in repository guile.

The following commit(s) were added to refs/heads/wip-tailify by this push:
     new d58e279  Allow primcalls with multiple defs
d58e279 is described below

commit d58e279893267ce260ac029344b16a7ae2294bfc
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 bb9d673..bc0ebd3 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))))