diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 12 |
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 | ||