dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
guile/.dir-locals.el

34 lines
1.9 KiB
EmacsLisp
Raw Normal View History

Add per-directory Emacs local variables.
2010-01-03 19:15:05 +01:00
;; Per-directory local variables for GNU Emacs 23 and later.
lower fill-column in .dir-locals.el * .dir-locals.el: Fill-columns back down to 72.
2010-07-16 11:50:51 +02:00
((nil . ((fill-column . 72)
Add per-directory Emacs local variables.
2010-01-03 19:15:05 +01:00
(tab-width . 8)))
(c-mode . ((c-file-style . "gnu")))
test-suite: Add `pass-if-equal'. * test-suite/test-suite/lib.scm (pass-if-equal): New macro. (run-test): Upon `fail', pass ARGS to REPORT.
2012-11-01 00:42:37 +01:00
(scheme-mode
. ((indent-tabs-mode . nil)
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.
2013-07-23 15:51:35 +02:00
(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))
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.
2014-03-28 14:21:06 +01:00
(eval . (put 'let-fresh 'scheme-indent-function 2))
Replace all let-gensyms uses with let-fresh * .dir-locals.el: Add with-fresh-name-state. * module/language/cps.scm (fresh-label, fresh-var): Signal an error if the counters are not initialized. (with-fresh-name-state): New macro. (make-cont-folder): New macro, generates an n-ary folder. (compute-max-label-and-var): New function, uses make-cont-folder. (fold-conts): Use make-cont-folder. (let-gensyms): Remove. * module/language/cps/arities.scm: * module/language/cps/closure-conversion.scm: * module/language/cps/constructors.scm: * module/language/cps/dce.scm: * module/language/cps/elide-values.scm: * module/language/cps/reify-primitives.scm: * module/language/cps/specialize-primcalls.scm: Use let-fresh instead of let-gensyms, and wrap in a with-fresh-name-state as needed. * module/language/tree-il/compile-cps.scm: Remove hack to avoid importing let-gensyms from (language tree-il).
2014-03-28 16:29:16 +01:00
(eval . (put 'with-fresh-name-state 'scheme-indent-function 1))
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.
2013-07-23 15:51:35 +02:00
(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))
Source information goes on the $continue, not the $cont. * module/language/cps.scm ($continue, $cont): Put source information on the $continue, not on the $cont. Otherwise it is difficult for CPS conversion to preserve source information. ($fun): Add a src member to $fun. Otherwise we might miss the source info for the start of the function. * .dir-locals.el: * module/language/cps/arities.scm: * module/language/cps/closure-conversion.scm: * module/language/cps/compile-rtl.scm: * module/language/cps/constructors.scm: * module/language/cps/contification.scm: * module/language/cps/dfg.scm: * module/language/cps/elide-values.scm: * module/language/cps/reify-primitives.scm: * module/language/cps/slot-allocation.scm: * module/language/cps/verify.scm: * module/language/tree-il/compile-cps.scm: Update the whole CPS world for this change.
2013-11-07 10:32:21 +01:00
(eval . (put '$continue 'scheme-indent-function 2))
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.
2013-07-23 15:51:35 +02:00
(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))))
Remove misplaced tabs from the manual. * doc/ref/posix.texi (Network Databases): Remove tabs from `getaddrinfo' example. * .dir-locals.el: Set `indent-tabs-mode' to `t' for `texinfo-mode'.
2010-02-17 00:31:04 +01:00
(emacs-lisp-mode . ((indent-tabs-mode . nil)))
lower fill-column in .dir-locals.el * .dir-locals.el: Fill-columns back down to 72.
2010-07-16 11:50:51 +02:00
(texinfo-mode . ((indent-tabs-mode . nil)
(fill-column . 72))))
Reference in a new issue Copy permalink