From bd93f5db084acbb33c170bca98d9a648f2940fc6 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 23 Feb 2014 21:19:03 +0000 Subject: [PATCH] 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. --- src/compiler/machines/svm/disassembler.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.25.1