diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index f719b036d14..75a040a8489 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -1638,7 +1638,6 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template, | |||
| 1638 | record_in_backtrace (Qsetcar, &TOP, 2); | 1638 | record_in_backtrace (Qsetcar, &TOP, 2); |
| 1639 | wrong_type_argument (Qconsp, cell); | 1639 | wrong_type_argument (Qconsp, cell); |
| 1640 | } | 1640 | } |
| 1641 | CHECK_IMPURE (cell, XCONS (cell)); | ||
| 1642 | XSETCAR (cell, newval); | 1641 | XSETCAR (cell, newval); |
| 1643 | TOP = newval; | 1642 | TOP = newval; |
| 1644 | NEXT; | 1643 | NEXT; |
| @@ -1653,7 +1652,6 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template, | |||
| 1653 | record_in_backtrace (Qsetcdr, &TOP, 2); | 1652 | record_in_backtrace (Qsetcdr, &TOP, 2); |
| 1654 | wrong_type_argument (Qconsp, cell); | 1653 | wrong_type_argument (Qconsp, cell); |
| 1655 | } | 1654 | } |
| 1656 | CHECK_IMPURE (cell, XCONS (cell)); | ||
| 1657 | XSETCDR (cell, newval); | 1655 | XSETCDR (cell, newval); |
| 1658 | TOP = newval; | 1656 | TOP = newval; |
| 1659 | NEXT; | 1657 | NEXT; |