[racket] Review request: Partially expanding to make "blue boxes"

Hello,

The other approch i see for munge-module.

Is to use:

(dynamic-require target-module 0)
(parameterize ([current-namespace (module->namespace target-module)])
  (expand-once a-module-level-stx))

Where a-module-level-stx is a form inside #%module-begin.