(define-syntax include-with-prelude
  (er-macro-transformer
    (lambda (exp r c)
      (let ((path (cadr exp)))
        `(lambda (#!key printer)
                  (include-relative ,path))))))