Corrected tracing.

Pascal J. Bourguignon [2013-12-26 21:47]
Corrected tracing.
Filename
npvm.lisp
diff --git a/npvm.lisp b/npvm.lisp
index d645bba..8e92762 100644
--- a/npvm.lisp
+++ b/npvm.lisp
@@ -183,7 +183,7 @@
       (vm-dump vm))
     (handler-case
         (loop
-          (when trace (vm-disassemble program pc))
+          (when trace (vm-disassemble vm pc))
           (macrolet ((next-instruction ()
                        `(aref program (prog1 pc (incf pc)))))
             (let ((code (next-instruction)))
ViewGit