Skip to content

Instantly share code, notes, and snippets.

@wilbowma

wilbowma/trace-define-syntax.rkt

Forked from anonymous/trace-define-syntax.rkt
Last active August 29, 2015 14:02
Show Gist options
  • Save wilbowma/f54ed4ffadd200d4fd48 to your computer and use it in GitHub Desktop.
Save wilbowma/f54ed4ffadd200d4fd48 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
trace-define-syntax.rkt
#lang racket
(module ...
(define-syntax (trace syn)
....)
(define-syntax (trace-define-syntax syn)
(syntax-case syn ()
[(_ e ...)
....
(syntax-local-lift-require
'(for-syntax (only racket/trace trace))
#`(define-syntax #,name
(let ([#,name #,def]) (trace #,name) #,name))))]))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment