mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 09:20:23 +02:00
Code Activity

fix prompt disassembly bug

Browse source 
* module/language/assembly/disassemble.scm (code-annotation): Fix a bug
  disassembling `prompt'.
This commit is contained in:
Andy Wingo 2010-02-19 22:35:00 +01:00
parent eaefabee34
commit 0bc8874c04
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/assembly/disassemble.scm
View file

@ -152,7 +152,7 @@
(list "MV -> ~A" (assq-ref labels (cadr args)))) (list "MV -> ~A" (assq-ref labels (cadr args))))
((prompt) ((prompt)
;; the H is for handler ;; the H is for handler
(list "H -> ~A" (assq-ref labels (caddr args)))) (list "H -> ~A" (assq-ref labels (cadr args))))
(else (else
(and=> (assembly->object code) (and=> (assembly->object code)
(lambda (obj) (list "~s" obj))))))) (lambda (obj) (list "~s" obj)))))))