svm: typo

diff --git a/src/compiler/machines/svm/lapgen.scm b/src/compiler/machines/svm/lapgen.scm
index 811e68fb473d766484bfa2389fec96417ada85e8..778e7fd886ba4a1f1aa6e1b6f377e8520e970924 100644 (file)
--- 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))