From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 31 Jan 2017 01:39:32 +0000 (-0700)
Subject: svm: typo
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~10
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fda30fffcc505e8362c61939a02ee43754007011;p=mit-scheme.git

svm: typo
---

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))