PasteRack.org
Paste # 46674
2014-10-27 12:31:15

Fork as a new paste.

Paste viewed 148 times.


Embed:

  1. #lang racket
  2.  
  3. (module m racket
  4.   (define p (make-parameter #f))
  5.   (provide p))
  6.  
  7. (require 'm)
  8. (require (for-syntax 'm))
  9.  
  10. (define-syntax (foo stx)
  11.   (p #t)
  12.   (syntax-case stx ()
  13.     ((_ e)
  14.      (with-syntax ((v (datum->syntax stx (p))))
  15.        #'(list v e)))))
  16.  
  17. (foo (p))

=>

'(#t #f)