diff options
Diffstat (limited to 'module/scripts/disassemble.scm')
-rw-r--r-- | module/scripts/disassemble.scm | 12 |
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) |