survey: indentation declaration style

[Thien-Thi Nguyen]

I've tentatively adopted the following indentation declaration style.
Non-coincidentally, it resembles that used for Emacs Lisp code.
The #; represents pan-Scheme (R7RS?) wishful thinking.

  (define-macro (forse precond . corpo)
    ;;#;(declare (indent 1))
    `(or (and-let* ,precond (list ,@corpo))
         '()))

Here is Emacs Lisp, suitable for scheme-mode-hook, that recognizes this.

  (defun ttn-scheme-set-macro-indentation ()
    (save-excursion
      (goto-char (point-min))
      (while (re-search-forward
              (concat
               "^(def\\S-+\\Sw+\\(\\S-+\\)[^\n]+\n"
               ;; TODO: parameterize
               "  ;;#;(declare (indent \\(.\\)")
              nil t)
        (put (intern (match-string 1))
             'scheme-indent-function
             (string-to-number (match-string 2))))))

What do other people do?

thi