private/help.rkt
#lang scheme/base

(require compiler/zo-parse
         scheme/pretty)

(provide bytecode)



(define (bytecode top-level-form)
  (parameterize ([current-namespace (make-base-namespace)])
    (let-values ([(out) (open-output-bytes)])
      (write (compile top-level-form) out)
      (close-output-port out)
      (let ([output (zo-parse (open-input-bytes (get-output-bytes out)))])
        (begin
          (pretty-display output)
          output)))))