1
2(define-syntax (include-generated stx)
3  (syntax-case stx ()
4    [(inc file)
5     (let* ([dir "schemified/"]
6            [file (#%datum->syntax #'inc (string-append dir (#%syntax->datum #'file)))])
7       (#%datum->syntax #'inc `(include ,file)))]))
8