summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-10-21 15:02:08 +0200
committerAndy Wingo <wingo@pobox.com>2015-10-21 15:02:08 +0200
commit4afb46f8599854dd36af25576ec4b7ab1c39745f (patch)
tree1d0c9bc844e39cfc338a4e37ab2430896126359c
parent70c317ab5173e26d9f2a9b8b81a9441ef3ef7008 (diff)
downloadguile-4afb46f8599854dd36af25576ec4b7ab1c39745f.tar.gz
Minor assembler cleanups
* module/system/vm/assembler.scm (shuffling-assembler): Minor renames.
-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 '<-)