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

CPS conversion doesn't automatically produce $values

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2013-10-22 22:30:54 +02:00
parent 8b2a96d044
commit be0a8bb4f0
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/tree-il/compile-cps.scm
View file

@ -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