Advertisement
Guest User

Untitled

a guest
Aug 30th, 2016
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.48 KB | None | 0 0
  1. (define-syntax p-init #f)
  2. (define-rename-transformer-parameter p (make-rename-transformer #'p-init))
  3.  
  4. #lang racket
  5.  
  6. (require racket/stxparam)
  7. (define-syntax p-init #f)
  8. (define-rename-transformer-parameter p (make-rename-transformer #'p-init))
  9.  
  10. (define-syntax (test-2-p stx)
  11. (syntax-case stx ()
  12. [(_ body)
  13. #'(with-syntax ([tmp #'(foo 123)])
  14. (syntax-parameterize ([p (make-rename-transformer #'tmp)])
  15. body))]))
  16. (test-2-p #'p) ; #<syntax:10:28 (foo 123)>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement