blob: 1d141cf63e1f07f80bb4fc856de03fde4c2bd3b7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(put 'def 'scheme-indent-function 'defun)
(put 'esc 'scheme-indent-function 1)
(put 'fin 'scheme-indent-function 0)
(put 'fun 'scheme-indent-function 1)
(put 'loc 'scheme-indent-function 1)
(put 'rec 'scheme-indent-function 1)
(put 'rep 'scheme-indent-function 'scheme-let-indent)
(put 'seq 'scheme-indent-function 0)
(put 'if 'scheme-indent-function 1)
(put 'match 'scheme-indent-function 1)
(put '-> 'scheme-indent-function #'(lambda (_ _ _) 1))
(put '->> 'scheme-indent-function #'(lambda (_ _ _) 1))
|