beautiful-racket/beautiful-racket-demo/expand-only-demo/main.rkt

#lang br

(define (convert-expr x)
  (cond
    [(list? x) (map convert-expr x)]
    [(number? x) 42]
    [(string? x) "whee"]
    [else 'kaboom]))

(define-macro (dsl-module-begin EXPR ...)
  #'(#%module-begin
     (convert-expr 'EXPR) ...))
(provide (rename-out [dsl-module-begin #%module-begin]))