PasteRack.org
Paste # 63192
2019-04-05 12:57:18

Fork as a new paste.

Paste viewed 251 times.


Embed:

  1. #lang racket
  2.  
  3. (module* editor racket
  4.   (require syntax/location)
  5.   (define this-ns (current-namespace))
  6.   (define ns (make-base-namespace))
  7.   (parameterize ([current-namespace ns])
  8.     (namespace-attach-module-declaration this-ns (quote-module-path ".." foo))
  9.     (namespace-require/expansion-time (quote-module-path ".." foo))
  10.     (eval 'y)))
  11.  
  12. (module* foo racket
  13.   (define y (let () 8))
  14.   (provide y))

=>