summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/assembly/disassemble.scm2
1 files changed, 1 insertions, 1 deletions
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)))))))