From 779f5cb5931909f2101bf86dee45faec192ba5be Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 11 Jan 2019 05:16:55 +0000 Subject: [PATCH] Fix lambda-body -> scode-lambda-body straggler. --- src/compiler/machines/svm/disassembler.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.25.1