PasteRack.org
Paste # 54903
2014-07-24 20:05:22

Fork as a new paste.

Paste viewed 227 times.


Embed:

  1. #lang racket
  2.  
  3. (define (get-transformer-binding id p)
  4.   (unless (= p 0) (error))
  5.   (define out #f)
  6.   (define (store t) (set! out t))
  7.   (define ns (variable-reference->namespace (#%variable-reference)))
  8.   (eval `(let-syntax ([m (λ(x) (,store (syntax-local-value #',id)) #'(void))]) (m)) ns)
  9.   out)
  10.  
  11. (get-transformer-binding #'let)

=>

get-transformer-binding: arity mismatch;

 the expected number of arguments does not match the given

number

  expected: 2

  given: 1

  arguments...:

   #<syntax:3:0 let>