PasteRack.org
Paste # 50981
2014-10-20 23:46:19

Fork as a new paste.

Paste viewed 50 times.


Embed:

  1. #lang racket
  2.  
  3. (define-syntax foo
  4.   (syntax-rules ()
  5.     ((_ mod name)
  6.      (begin
  7.        (module mod racket/base
  8.          (define name 1)
  9.          (provide name))
  10.        (require (rename-in 'mod [name name]))
  11.        name))))
  12.  
  13. (foo m x)

=>

program::-1: rename-in: identifier `x' not included in

nested require spec

  at: (quote m)

  in: (rename-in (quote m) (x x))