summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)))))))