From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 11 Jan 2019 05:16:55 +0000 (+0000)
Subject: Fix lambda-body -> scode-lambda-body straggler.
X-Git-Tag: mit-scheme-pucked-10.1.10~6^2~44
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=779f5cb5931909f2101bf86dee45faec192ba5be;p=mit-scheme.git

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

diff --git a/src/compiler/machines/svm/disassembler.scm b/src/compiler/machines/svm/disassembler.scm
index 72cf16277..98710395b 100644
--- 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)))