From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 23 Feb 2014 21:19:03 +0000 (+0000)
Subject: Attempt to fix an undefined variable reference in svm disassembler.
X-Git-Tag: release-9.2.0~32
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bd93f5db084acbb33c170bca98d9a648f2940fc6;p=mit-scheme.git

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 6547ec27b..ad995cfcf 100644
--- 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)))