[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/bytecode-speedup 26d97dcae9 3/3: ; * src/bytecode.c (exec_byte_c
From: |
Mattias Engdegård |
Subject: |
scratch/bytecode-speedup 26d97dcae9 3/3: ; * src/bytecode.c (exec_byte_code): better variable naming |
Date: |
Thu, 20 Jan 2022 16:25:07 -0500 (EST) |
branch: scratch/bytecode-speedup
commit 26d97dcae90fff210ad50077f17967b848af4849
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
; * src/bytecode.c (exec_byte_code): better variable naming
---
src/bytecode.c | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/bytecode.c b/src/bytecode.c
index 0bca2546f7..3593bb9474 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1434,23 +1434,23 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object
vector, Lisp_Object maxdepth,
CASE (Bsetcar):
{
- Lisp_Object newcar = POP;
+ Lisp_Object newval = POP;
Lisp_Object cell = TOP;
CHECK_CONS (cell);
CHECK_IMPURE (cell, XCONS (cell));
- XSETCAR (cell, newcar);
- TOP = newcar;
+ XSETCAR (cell, newval);
+ TOP = newval;
NEXT;
}
CASE (Bsetcdr):
{
- Lisp_Object newcar = POP;
+ Lisp_Object newval = POP;
Lisp_Object cell = TOP;
CHECK_CONS (cell);
CHECK_IMPURE (cell, XCONS (cell));
- XSETCDR (cell, newcar);
- TOP = newcar;
+ XSETCDR (cell, newval);
+ TOP = newval;
NEXT;
}