diff options
author | Andy Wingo <wingo@pobox.com> | 2008-10-15 22:42:51 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-10-15 22:42:51 +0200 |
commit | 1a38597553387a95d645df1c0310a1fedb1851ca (patch) | |
tree | 9770b1d387eb3e64fc41d7c0f54a0e775671accb | |
parent | 8f64368ee5e2923f38867da2d367755445e931d4 (diff) | |
download | guile-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.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))))))) |