[bpt/guile.git] / src / guile-disasm.in

#!@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)))
Commit	Line	Data
62082959 LC	1	#!@guile@ -s
	2	!#
	3
	4	;; Obviously, this is -- Scheme --.
	5
	6	(use-modules (system vm core)
	7	(system vm disasm))
	8
	9	(for-each (lambda (file)
	10	(disassemble-objcode (load-objcode file)))
	11	(cdr (command-line)))