PasteRack.org
Paste # 35983
2017-01-17 23:50:14

Fork as a new paste.

Paste viewed 794 times.


Embed:

  1. #lang racket/base
  2.  
  3. (define ns (make-base-namespace))
  4.  
  5. (eval '(module 23c racket/base
  6.          (require (for-syntax racket/base))
  7.          (provide #%module-begin #%app #%datum #%top define cpy)
  8.          (define-syntax (cpy stx)
  9.            #'(void)))
  10.       ns)
  11.  
  12. (eval (datum->syntax #f '(module cpu-mod '23c (define pc 0) (cpy 41 a) (cpy 42 b)))
  13.       ns)

=>