summaryrefslogtreecommitdiff
path: root/module/scripts/disassemble.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/scripts/disassemble.scm')
-rw-r--r--module/scripts/disassemble.scm10
1 files changed, 1 insertions, 9 deletions
diff --git a/module/scripts/disassemble.scm b/module/scripts/disassemble.scm
index 3825bc118..426f87c59 100644
--- a/module/scripts/disassemble.scm
+++ b/module/scripts/disassemble.scm
@@ -27,20 +27,12 @@
;;; Code:
(define-module (scripts disassemble)
- #:use-module (system vm objcode)
- #:use-module (system vm program)
#:use-module (system vm disassembler)
- #:use-module ((language assembly disassemble)
- #:renamer (symbol-prefix-proc 'asm:))
#:export (disassemble))
(define %summary "Disassemble a compiled .go file.")
(define (disassemble . files)
- (for-each (lambda (file)
- (let* ((thunk (load-thunk-from-file file))
- (elf (find-mapped-elf-image (rtl-program-code thunk))))
- (disassemble-image elf)))
- files))
+ (for-each disassemble-file files))
(define main disassemble)