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