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.scm12
1 files changed, 4 insertions, 8 deletions
diff --git a/module/scripts/disassemble.scm b/module/scripts/disassemble.scm
index 7dab2dde9..426f87c59 100644
--- a/module/scripts/disassemble.scm
+++ b/module/scripts/disassemble.scm
@@ -1,6 +1,6 @@
;;; Disassemble --- Disassemble .go files into something human-readable
-;; Copyright 2005, 2008, 2009, 2011 Free Software Foundation, Inc.
+;; Copyright 2005, 2008, 2009, 2011, 2012, 2013 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
@@ -22,21 +22,17 @@
;;; Commentary:
-;; Usage: disassemble [ARGS]
+;; Usage: disassemble FILE...
;;; Code:
(define-module (scripts disassemble)
- #:use-module (system vm objcode)
- #:use-module ((language assembly disassemble)
- #:renamer (symbol-prefix-proc 'asm:))
+ #:use-module (system vm disassembler)
#:export (disassemble))
(define %summary "Disassemble a compiled .go file.")
(define (disassemble . files)
- (for-each (lambda (file)
- (asm:disassemble (load-objcode file)))
- files))
+ (for-each disassemble-file files))
(define main disassemble)