mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

fix mv-call disasm bug

Browse source 
* module/system/vm/disasm.scm (code-annotation): Fix bug with mv-call.
This commit is contained in:
Andy Wingo 2008-10-15 22:42:51 +02:00
parent 8f64368ee5
commit 1a38597553
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/disasm.scm
View file

@ -163,7 +163,7 @@
(list "~s" (variable-ref v)) (list "~s" (variable-ref v))
(list "`~s'" v))))) (list "`~s'" v)))))
((mv-call) ((mv-call)
(list "MV -> ~A" (+ end-addr (apply make-int16 args)))) (list "MV -> ~A" (+ end-addr (apply make-int16 (cdr args)))))
(else (else
(and=> (code->object code) (and=> (code->object code)
(lambda (obj) (list "~s" obj))))))) (lambda (obj) (list "~s" obj)))))))