Created
June 16, 2014 11:15
-
-
Save anonymous/e9997348ad5244aef446 to your computer and use it in GitHub Desktop.
Trying to get trace-define-syntax
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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