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