summaryrefslogtreecommitdiff
path: root/module/language/cps.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-04-11 10:21:04 +0200
committerAndy Wingo <wingo@pobox.com>2014-04-11 10:21:04 +0200
commitd3dbf75ab38e16d59575dfd49c9c99b01c5bbc12 (patch)
treeb626ffe2cfc5d7c1c2abd1338f14895db3986427 /module/language/cps.scm
parent686a6490f4cfa368be13b4ca7d4661ae1577384a (diff)
downloadguile-d3dbf75ab38e16d59575dfd49c9c99b01c5bbc12.tar.gz
with-fresh-name-state takes a cont, not a $fun
* 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.
Diffstat (limited to 'module/language/cps.scm')
-rw-r--r--module/language/cps.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/module/language/cps.scm b/module/language/cps.scm
index e6cb3cbd6..ddda6ff50 100644
--- a/module/language/cps.scm
+++ b/module/language/cps.scm
@@ -215,10 +215,7 @@
body ...))
(define-syntax-rule (with-fresh-name-state fun body ...)
- (call-with-values (lambda ()
- (match fun
- (($ $fun free fun-k)
- (compute-max-label-and-var fun-k))))
+ (call-with-values (lambda () (compute-max-label-and-var fun))
(lambda (max-label max-var)
(parameterize ((label-counter (1+ max-label))
(var-counter (1+ max-var)))