;; Emacs indent settings
(progn
  (mapcar #'(lambda (x) (put x 'scheme-indent-function 1))
	  '(transition extend-transition))
  (mapcar #'(lambda (x) (put x 'scheme-indent-function 2))
	  '(role)))