Skip to content

Instantly share code, notes, and snippets.

Created June 16, 2014 11:15
Show Gist options
  • Save anonymous/e9997348ad5244aef446 to your computer and use it in GitHub Desktop.
Save anonymous/e9997348ad5244aef446 to your computer and use it in GitHub Desktop.
Trying to get trace-define-syntax
#lang racket
(module ...
(define-syntax (trace syn)
....)
(define-syntax (trace-define-syntax syn)
(syntax-case syn ()
[(_ e ...)
....
#`(define-syntax #,name
(let ([#,name #,def])
;; Local require doesn't work; what to do?
;; (local-require (only-in racket/trace trace))
(trace #,name)
#,name))]))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment