(require racket/contract
         racket/class
         racket/unit
         racket/dict
         racket/include
         racket/pretty
         racket/math
         racket/match
         racket/shared
         racket/set
         racket/list
         racket/vector
         racket/string
         racket/bytes
         racket/function
         racket/path
         racket/place
         racket/future
         racket/port
         racket/promise
         racket/bool
         racket/stream
         racket/sequence
         racket/local
         racket/format
         racket/date
         (for-syntax racket/base)
         math/base
         (except-in racket/draw make-color make-pen)
         2htdp/image
         mrlib/gif
         (only-in mrlib/image-core render-image))

(define-syntax-rule (define-name-command name body)
  (define-syntax name
    (lambda (stx)
      (syntax-case stx ()
        [name (identifier? (syntax name)) (syntax body)]))))


; --- command ---
(struct command (name args) #:transparent)

(define-syntax def/boot
  (syntax-rules ()
    ((_ . def)
     (begin
       (define . def)
       (define expr (cons (quote define) (quote def)))
       (define out (open-output-string))
       (display expr out)
       (command "save-boot-code"
                (hash 'code (get-output-string out)))))))