define-with-hooks.rkt

(define-syntax-parser define/with-hooks
  ([_ (name:id formals:id ...+)
      body:expr ...+]
   #'(define name (lambda (formals ...)
		    ;; invoke pre-hooks
		    (for ([h (get-hooks 'name)]) (h formals ...))

		    (let ([result (begin body ...)])
		      ;; invoke post-hooks
		      (for ([h (get-hooks 'name)]) (h result))
		      result)))))