diff options
-rw-r--r-- | module/system/vm/disasm.scm | 2 |
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))))))) |