From 0bc8874c0461d532ca0251cf20af9bc5193b3cfa Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 19 Feb 2010 22:35:00 +0100
Subject: [PATCH] fix prompt disassembly bug

* module/language/assembly/disassemble.scm (code-annotation): Fix a bug
  disassembling `prompt'.
---
 module/language/assembly/disassemble.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/assembly/disassemble.scm b/module/language/assembly/disassemble.scm
index e74be1b9e..4cac32aa3 100644
--- a/module/language/assembly/disassemble.scm
+++ b/module/language/assembly/disassemble.scm
@@ -152,7 +152,7 @@
        (list "MV -> ~A" (assq-ref labels (cadr args))))
       ((prompt)
        ;; the H is for handler
-       (list "H -> ~A" (assq-ref labels (caddr args))))
+       (list "H -> ~A" (assq-ref labels (cadr args))))
       (else
        (and=> (assembly->object code)
               (lambda (obj) (list "~s" obj)))))))