diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-07-23 15:51:35 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-08-31 09:40:56 +0200 |
| commit | 80b01fd086c7999bc658913264743ea097d614d3 (patch) | |
| tree | 6490e68821e8a289a44144e97a313b8077fb63f0 /.dir-locals.el | |
| parent | 93009a7acaf172d1e9a8b3763cf83e616567a04f (diff) | |
| download | guile-80b01fd086c7999bc658913264743ea097d614d3.tar.gz | |
Add CPS language
* module/Makefile.am:
* module/language/cps.scm:
* module/language/cps/verify.scm: Add CPS language.
* .dir-locals.el: Add indentation rules for some CPS forms.
Diffstat (limited to '.dir-locals.el')
| -rw-r--r-- | .dir-locals.el | 27 |
1 files changed, 21 insertions, 6 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index a24e860ca..94a21263b 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -5,12 +5,27 @@ (c-mode . ((c-file-style . "gnu"))) (scheme-mode . ((indent-tabs-mode . nil) - (eval . (put 'pass-if 'scheme-indent-function 1)) - (eval . (put 'pass-if-exception 'scheme-indent-function 2)) - (eval . (put 'pass-if-equal 'scheme-indent-function 2)) - (eval . (put 'with-test-prefix 'scheme-indent-function 1)) - (eval . (put 'with-code-coverage 'scheme-indent-function 1)) - (eval . (put 'with-statprof 'scheme-indent-function 1)))) + (eval . (put 'pass-if 'scheme-indent-function 1)) + (eval . (put 'pass-if-exception 'scheme-indent-function 2)) + (eval . (put 'pass-if-equal 'scheme-indent-function 2)) + (eval . (put 'with-test-prefix 'scheme-indent-function 1)) + (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 '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)) + (eval . (put 'rewrite-cps-term 'scheme-indent-function 1)) + (eval . (put 'rewrite-cps-cont 'scheme-indent-function 1)) + (eval . (put 'rewrite-cps-exp 'scheme-indent-function 1)) + (eval . (put '$letk 'scheme-indent-function 1)) + (eval . (put '$letk* 'scheme-indent-function 1)) + (eval . (put '$letconst 'scheme-indent-function 1)) + (eval . (put '$continue 'scheme-indent-function 1)) + (eval . (put '$kargs 'scheme-indent-function 2)) + (eval . (put '$kentry 'scheme-indent-function 2)) + (eval . (put '$kclause 'scheme-indent-function 1)) + (eval . (put '$fun 'scheme-indent-function 2)))) (emacs-lisp-mode . ((indent-tabs-mode . nil))) (texinfo-mode . ((indent-tabs-mode . nil) (fill-column . 72)))) |