beautiful-racket/beautiful-racket-lib/br/quicklang.rkt

#lang br
(require (for-syntax racket/list sugar/debug))
(provide (except-out (all-from-out br) #%module-begin)
         (rename-out [quicklang-mb #%module-begin])
         (for-syntax (all-from-out sugar/debug)))

(define-macro (quicklang-mb . EXPRS)
  #`(#%module-begin
     (provide #%top #%app #%datum #%top-interaction)
     . EXPRS))

(module reader syntax/module-reader
  #:language 'br/quicklang
  #:info br-get-info
  (require br/get-info))