PasteRack.org
Paste # 51137
2023-01-21 16:33:20

Forked from paste # 80462.

Fork as a new paste.

Paste viewed 153 times.


Embed:

  1. #lang racket
  2.  
  3. (define-syntax test
  4.   (lambda (stx)
  5.     (define foo 'bound)
  6.     (syntax-case stx ()
  7.       ((_ x) (datum->syntax #'* (free-identifier=? #'foo #'x))))))
  8.  
  9. (test foo)
  10.  

=>

#t