Fix lambda-body -> scode-lambda-body straggler.

diff --git a/src/compiler/machines/svm/disassembler.scm b/src/compiler/machines/svm/disassembler.scm
index 72cf16277152e196a3f0e091ec72f8d67a78a89f..98710395bc02b2eb3b98fb77ac02796f36aff15d 100644 (file)
--- a/src/compiler/machines/svm/disassembler.scm
+++ b/src/compiler/machines/svm/disassembler.scm
@@ -246,7 +246,7 @@ USA.
 (define (write-constant constant cursor)
   (write-string (cdr (write-to-string constant 60)))
   (cond ((scode-lambda? constant)
-        (let ((expression (lambda-body constant)))
+        (let ((expression (scode-lambda-body constant)))
           (if (and (compiled-code-address? expression)
                    (eq? (compiled-code-address->block expression)
                         (cursor-block cursor)))