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/reify-primitives.scm
View file

@ -109,7 +109,7 @@
(define (reify-primitives fun)
(match fun
(($ $fun free body)
(with-fresh-name-state fun
(with-fresh-name-state body
(let ((conts (build-cont-table body)))
(define (visit-fun term)
(rewrite-cps-exp term