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

with-fresh-name-state takes a cont, not a $fun

Browse source 
* module/language/cps.scm (with-fresh-name-state): Take a cont instead
  of a fun.

* module/language/cps/closure-conversion.scm:
* module/language/cps/constructors.scm:
* module/language/cps/elide-values.scm:
* module/language/cps/prune-bailouts.scm:
* module/language/cps/reify-primitives.scm: Adapt.
This commit is contained in:
Andy Wingo 2014-04-11 10:21:04 +02:00
parent 686a6490f4
commit d3dbf75ab3
6 changed files with 14 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/elide-values.scm
View file

@ -105,6 +105,6 @@
(define (elide-values fun)
(match fun
(($ $fun free funk)
(with-fresh-name-state fun
(with-fresh-name-state funk
(let ((conts (build-cont-table funk)))
(elide-values* fun conts))))))