16 lines
433 B
Racket
16 lines
433 B
Racket
#lang typed/racket
|
|
;(require mzlib/etc)
|
|
;(this-expression-file-name)
|
|
|
|
(provide define-to-this-file-name)
|
|
|
|
(define-syntax (define-to-this-file-name stx)
|
|
(syntax-case stx ()
|
|
[(_ name)
|
|
#`(begin (define name #,(syntax-source #'dummy))
|
|
(define-for-syntax name #,(syntax-source #'dummy)))]))
|
|
|
|
;(define-syntax (get-current-file stx)
|
|
; #`(format "Macro in ~a, Use in ~a" structure.rkt-path #,(syntax-source stx)))
|
|
|