From 3c365b8efcee9e953b0cad8085ca14f4b0d5d7d5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 22 Oct 2009 22:29:22 +0200 Subject: [PATCH] Fix bytecode disassembler. * module/language/assembly/decompile-bytecode.scm (decode-load-program): Add missing argument to `ensure-label'. --- module/language/assembly/decompile-bytecode.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/assembly/decompile-bytecode.scm b/module/language/assembly/decompile-bytecode.scm index 915e101b8..559abeab7 100644 --- a/module/language/assembly/decompile-bytecode.scm +++ b/module/language/assembly/decompile-bytecode.scm @@ -89,7 +89,7 @@ ((,br ,rel1 ,rel2 ,rel3) (guard (br-instruction? br)) (lp (cons `(,br ,(ensure-label rel1 rel2 rel3)) out))) ((mv-call ,n ,rel1 ,rel2 ,rel3) - (lp (cons `(mv-call ,n ,(ensure-label rel1 rel2)) out))) + (lp (cons `(mv-call ,n ,(ensure-label rel1 rel2 rel3)) out))) (else (lp (cons exp out))))))))))