diff options
author | Andy Wingo <wingo@pobox.com> | 2014-03-28 14:21:06 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-03-31 18:20:55 +0200 |
commit | 9a1dfb7d2ecfea1642f14ab2baacf9efea49131a (patch) | |
tree | 34dbe3b117f5bacd19593482ad058e009c902fbe /.dir-locals.el | |
parent | ecc7987427a32fb0748de05bcca0b65fb16a3b26 (diff) | |
download | guile-9a1dfb7d2ecfea1642f14ab2baacf9efea49131a.tar.gz |
Continuation labels and variable identifiers may be integers
* module/language/cps.scm (label-counter, var-counter): New parameters,
for producing fresh label and var names.
(fresh-label, fresh-var): New procedures.
(let-fresh): New macro, will replace let-gensyms.
(build-cps-term): Use let-fresh.
* module/language/tree-il/compile-cps.scm: Use let-fresh to generate
fresh names.
* module/system/vm/assembler.scm (make-meta, begin-kw-arity): Allow
exact integers as labels.
(link-debug): Explicitly mark low-pc as being an "addr" value.
Diffstat (limited to '.dir-locals.el')
-rw-r--r-- | .dir-locals.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 0589229cd..520244a37 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -12,6 +12,7 @@ (eval . (put 'with-code-coverage 'scheme-indent-function 1)) (eval . (put 'with-statprof 'scheme-indent-function 1)) (eval . (put 'let-gensyms 'scheme-indent-function 1)) + (eval . (put 'let-fresh 'scheme-indent-function 2)) (eval . (put 'build-cps-term 'scheme-indent-function 0)) (eval . (put 'build-cps-exp 'scheme-indent-function 0)) (eval . (put 'build-cps-cont 'scheme-indent-function 0)) |