From fda30fffcc505e8362c61939a02ee43754007011 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 30 Jan 2017 18:39:32 -0700 Subject: [PATCH] svm: typo --- src/compiler/machines/svm/lapgen.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/machines/svm/lapgen.scm b/src/compiler/machines/svm/lapgen.scm index 811e68fb4..778e7fd88 100644 --- a/src/compiler/machines/svm/lapgen.scm +++ b/src/compiler/machines/svm/lapgen.scm @@ -260,7 +260,7 @@ USA. (define (rtl:immediate-machine-constant? expression) (and (rtl:machine-constant? expression) - (immediate-integer? (rtl:machine-constant-value offset)))) + (immediate-integer? (rtl:machine-constant-value expression)))) (define (simple-offset->ea! offset) (let ((base (rtl:offset-base offset)) -- 2.25.1