Remove assembly language.

* module/system/repl/command.scm: Remove disassembly cases for stack
  procedures.

* module/system/vm/inspect.scm: Adapt to disassemble RTL programs.

* module/language/assembly.scm:
* module/language/assembly/compile-bytecode.scm:
* module/language/assembly/decompile-bytecode.scm:
* module/language/assembly/disassemble.scm:
* module/language/assembly/spec.scm: Remove assembly language.

* module/Makefile.am: Adapt.

1 files changed, 0 insertions, 6 deletions

diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 1e6aaff3d..8f72430c8 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -466,7 +466,6 @@ Change languages."
 Generate compiled code."
   (let ((x (repl-compile repl (repl-parse repl form))))
     (cond ((bytevector? x) (disassemble-image (load-image x)))
-          ((objcode? x) (guile:disassemble x))
           (else (repl-print repl x)))))
 
 (define-meta-command (compile-file repl file . opts)
@@ -488,9 +487,6 @@ Run the optimizer on a piece of code and print the result."
     (run-hook before-print-hook x)
     (pp x)))
 
-(define (guile:disassemble x)
-  ((@ (language assembly disassemble) disassemble) x))
-
 (define-meta-command (disassemble repl (form))
   "disassemble EXP
 Disassemble a compiled procedure."
@@ -500,8 +496,6 @@ Disassemble a compiled procedure."
       (disassemble-program obj))
      ((bytevector? obj)
       (disassemble-image (load-image obj)))
-     ((or (program? obj) (objcode? obj))
-      (guile:disassemble obj))
      (else
       (format #t "Argument to ,disassemble not a procedure or objcode: ~a~%"
               obj)))))