Attempt to fix an undefined variable reference in svm disassembler.

Guessing here what the right way is; I don't know this code well
enough to say for sure.

diff --git a/src/compiler/machines/svm/disassembler.scm b/src/compiler/machines/svm/disassembler.scm
index 6547ec27bfc3492a1612501d1b38e64dd8d67394..ad995cfcf0afd21f58c35d96265fca346dcbe98f 100644 (file)
--- a/src/compiler/machines/svm/disassembler.scm
+++ b/src/compiler/machines/svm/disassembler.scm
@@ -245,7 +245,8 @@ USA.
   (cond ((lambda? constant)
         (let ((expression (lambda-body constant)))
           (if (and (compiled-code-address? expression)
-                   (eq? (compiled-code-address->block expression) block))
+                   (eq? (compiled-code-address->block expression)
+                        (cursor-block cursor)))
               (begin
                 (write-string "  (")
                 (let ((offset (compiled-code-address->offset expression)))