From: Andy Wingo <wingo@pobox.com>
Date: Tue, 22 Oct 2013 20:30:54 +0000 (+0200)
Subject: CPS conversion doesn't automatically produce $values
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/be0a8bb4f07c460fa182edb733df8ca37f4e0d46

CPS conversion doesn't automatically produce $values

* module/language/tree-il/compile-cps.scm (convert): Don't convert
  values primcalls to $values, because we don't know that the
  continuation can accept that number of values.
---

diff --git a/module/language/tree-il/compile-cps.scm b/module/language/tree-il/compile-cps.scm
index 707e08b10..6202e1230 100644
--- a/module/language/tree-il/compile-cps.scm
+++ b/module/language/tree-il/compile-cps.scm
@@ -347,9 +347,7 @@
                      k subst)
             (convert-args args
               (lambda (args)
-                (if (eq? name 'values)
-                    (build-cps-term ($continue k ($values args)))
-                    (build-cps-term ($continue k ($primcall name args))))))))))
+                (build-cps-term ($continue k ($primcall name args)))))))))
 
     ;; Prompts with inline handlers.
     (($ <prompt> src escape-only? tag body