summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/system/vm/assembler.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index bad298d0d..d50ab13b5 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -691,13 +691,13 @@ later by the linker."
(emit asm 1 0 c)
(emit-drop asm 2)))))
(('X8_S12_S12 '<- 'X8_C24)
- #'(lambda (asm dst a c)
+ #'(lambda (asm dst a const)
(cond
((< (logior dst a) (ash 1 12))
- (emit asm dst a c))
+ (emit asm dst a const))
(else
(emit-push asm a)
- (emit asm 0 0 c)
+ (emit asm 0 0 const)
(emit-pop asm dst)))))
(('X8_S12_C12 '<-)