summaryrefslogtreecommitdiff
path: root/module/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-06-19 21:54:51 +0200
committerLudovic Courtès <ludo@gnu.org>2009-06-19 21:54:51 +0200
commit8141fc3b4633993fe37fef19a81a823cf727b90b (patch)
tree64828ee6f6042b6ca67475a9a4e9860fdec88063 /module/scripts
parentb57501c3b7afa0378e3142cc415cfd02a374a77e (diff)
downloadguile-8141fc3b4633993fe37fef19a81a823cf727b90b.tar.gz
Fix "guile-tools disassemble".
* module/scripts/disassemble.scm (disassemble): Accept a variable number of arguments. Invoke the right `disassemble' procedure.
Diffstat (limited to 'module/scripts')
-rw-r--r--module/scripts/disassemble.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/module/scripts/disassemble.scm b/module/scripts/disassemble.scm
index f074615fb..8907f6d08 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 Free Software Foundation, Inc.
+;; Copyright 2005, 2008, 2009 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
@@ -17,7 +17,7 @@
;; not, write to the Free Software Foundation, Inc., 51 Franklin
;; Street, Fifth Floor, Boston, MA 02110-1301 USA
-;;; Author: Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Author: Ludovic Courtès <ludo@gnu.org>
;;; Author: Andy Wingo <wingo@pobox.com>
;;; Commentary:
@@ -28,12 +28,13 @@
(define-module (scripts disassemble)
#:use-module (system vm objcode)
- #:use-module (language assembly disassemble)
+ #:use-module ((language assembly disassemble)
+ #:renamer (symbol-prefix-proc 'asm:))
#:export (disassemble))
-(define (disassemble args)
+(define (disassemble . files)
(for-each (lambda (file)
- (disassemble (load-objcode file)))
- (cdr args)))
+ (asm:disassemble (load-objcode file)))
+ files))
(define main disassemble)