aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index 0bca2546f7f..3593bb94744 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,
1434 1434
1435 CASE (Bsetcar): 1435 CASE (Bsetcar):
1436 { 1436 {
1437 Lisp_Object newcar = POP; 1437 Lisp_Object newval = POP;
1438 Lisp_Object cell = TOP; 1438 Lisp_Object cell = TOP;
1439 CHECK_CONS (cell); 1439 CHECK_CONS (cell);
1440 CHECK_IMPURE (cell, XCONS (cell)); 1440 CHECK_IMPURE (cell, XCONS (cell));
1441 XSETCAR (cell, newcar); 1441 XSETCAR (cell, newval);
1442 TOP = newcar; 1442 TOP = newval;
1443 NEXT; 1443 NEXT;
1444 } 1444 }
1445 1445
1446 CASE (Bsetcdr): 1446 CASE (Bsetcdr):
1447 { 1447 {
1448 Lisp_Object newcar = POP; 1448 Lisp_Object newval = POP;
1449 Lisp_Object cell = TOP; 1449 Lisp_Object cell = TOP;
1450 CHECK_CONS (cell); 1450 CHECK_CONS (cell);
1451 CHECK_IMPURE (cell, XCONS (cell)); 1451 CHECK_IMPURE (cell, XCONS (cell));
1452 XSETCDR (cell, newcar); 1452 XSETCDR (cell, newval);
1453 TOP = newcar; 1453 TOP = newval;
1454 NEXT; 1454 NEXT;
1455 } 1455 }
1456 1456