1 2 3 4
((scheme-mode . ((eval . (put 'call-with-pin 'scheme-indent-function 1)) (eval . (put 'with-pins 'scheme-indent-function 1)))))