diff options
-rw-r--r-- | module/language/assembly/disassemble.scm | 2 |
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))))))) |