From: Taylor R Campbell 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)))