PasteRack.org
Paste # 59665
2014-10-20 23:44:15

Fork as a new paste.

Paste viewed 48 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 (all-defined-out)))
  10.        (require 'mod)
  11.        name))))
  12.  
  13. (foo m x)

=>

1