src/guile-disasm.in


1
2
3
4
5
6
7
8
9
10
11

#!@guile@ -s
!#

;; Obviously, this is -*- Scheme -*-.

(use-modules (system vm core)
	     (system vm disasm))

(for-each (lambda (file)
	    (disassemble-objcode (load-objcode file)))
	  (cdr (command-line)))