diff options
author | Andy Wingo <wingo@pobox.com> | 2014-04-11 10:21:04 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-04-11 10:21:04 +0200 |
commit | d3dbf75ab38e16d59575dfd49c9c99b01c5bbc12 (patch) | |
tree | b626ffe2cfc5d7c1c2abd1338f14895db3986427 /module/language/cps.scm | |
parent | 686a6490f4cfa368be13b4ca7d4661ae1577384a (diff) | |
download | guile-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.scm | 5 |
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))) |