0. #lang racket
1.  
2. (module m racket
3.   (require (for-syntax racket/syntax))
4.   (provide my-define)
5.   (define-syntax (my-define stx)
6.         (syntax-case stx ()
7.           [(_ my-id expr)
8.                  (with-syntax ([new-id (format-id stx "#%~a" (syntax-e #'my-id))])
9.                                           #'(define my-id expr))]))
10.   )
11.  
12. (require 'm)
13. (my-define fire (expt 2 34))
14.  
15. (display #%fire)

=>

#%fire: undefined;

cannot reference an identifier before its definition

in module: 'm