(define (define-my-page matcher proc) (define-page matcher (lambda () (do-things) (proc))))