PasteRack.org
Paste # 95574
2015-12-16 18:23:49

Forked from paste # 78711.

Fork as a new paste.

Paste viewed 250 times.


Embed:

  1. #lang racket
  2.  
  3. (define x (expand #'(begin-for-syntax
  4.                       (define-values (x) '5))))
  5. (define y (expand #'(begin-for-syntax
  6.                       (define-values (x) 5))))
  7.  
  8. (define (ident=? stx)
  9.   (syntax-case stx ()
  10.     [(_ (_ (_) (var _)))
  11.      (free-identifier=? #'var #'quote 1)]))
  12.  
  13. (syntax->datum x)
  14. (syntax->datum y)
  15. (ident=? x)
  16. (ident=? y)

=>

'(begin-for-syntax (define-values (x) '5))

'(begin-for-syntax (define-values (x) '5))

#t

#t