summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-10-15 22:42:51 +0200
committerAndy Wingo <wingo@pobox.com>2008-10-15 22:42:51 +0200
commit1a38597553387a95d645df1c0310a1fedb1851ca (patch)
tree9770b1d387eb3e64fc41d7c0f54a0e775671accb
parent8f64368ee5e2923f38867da2d367755445e931d4 (diff)
downloadguile-1a38597553387a95d645df1c0310a1fedb1851ca.tar.gz
fix mv-call disasm bug
* module/system/vm/disasm.scm (code-annotation): Fix bug with mv-call.
-rw-r--r--module/system/vm/disasm.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/disasm.scm b/module/system/vm/disasm.scm
index cda471951..5ec1c004b 100644
--- a/module/system/vm/disasm.scm
+++ b/module/system/vm/disasm.scm
@@ -163,7 +163,7 @@
(list "~s" (variable-ref v))
(list "`~s'" v)))))
((mv-call)
- (list "MV -> ~A" (+ end-addr (apply make-int16 args))))
+ (list "MV -> ~A" (+ end-addr (apply make-int16 (cdr args)))))
(else
(and=> (code->object code)
(lambda (obj) (list "~s" obj)))))))