;; scheme indentation
(mapc (lambda (item) (put (car item) 'scheme-indent-function (cdr item)))
      '((with-values . 2) (when . 1) (unless . 1)
	(condition-case . 1)))