www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

dummy-lang.rkt (395B)

      1 #lang racket
      2 (provide (rename-out [my-module-begin #%module-begin]))
      3 (define-syntax (my-module-begin stx)
      4   (syntax-case stx ()
      5     [(_ real-lang body)
      6      (syntax-case (local-expand #'(module m real-lang body) 'top-level (list)) ()
      7        [(module nm lng (#%plain-module-begin . body2))
      8         #`(#%plain-module-begin
      9              (#%require real-lang)
     10              . #,(values #'body2))])]))