orm))
  "disassemble EXP
Disassemble a compiled procedure."
  (let ((obj (repl-eval repl (repl-parse repl form))))
    (cond
     ((program? obj)
      (disassemble-program obj))
     ((bytevector? obj)
      (disassemble-image (load-image obj)))
     (else
      (format #t
              "Argument to ,disassemble not a procedure or a bytevector: ~a~%"
              obj)))))

(define-meta-command (disassemble-file repl file)
  "disassemble-file FILE
Disassemble a file."
  (disassemble-file (->string file)))