| … | … | ||
|---|---|---|---|
| 1767 | SET_FLAG (op, flag); | 1767 | SET_FLAG (op, flag); |
| 1768 | else | 1768 | else |
| 1769 | CLEAR_FLAG (op, flag); | 1769 | CLEAR_FLAG (op, flag); |
| 1770 | OUTPUT: RETVAL | 1770 | OUTPUT: RETVAL |
| 1771 | 1771 | ||
| 1772 | object *head (object *op) | ||
| 1773 | PROTOTYPE: $ | ||
| 1774 | CODE: | ||
| 1775 | RETVAL = op->head ? op->head : op; | ||
| 1776 | OUTPUT: RETVAL | ||
| 1777 | |||
| 1778 | int is_head (object *op) | ||
| 1779 | PROTOTYPE: $ | ||
| 1780 | CODE: | ||
| 1781 | RETVAL = !op->head; | ||
| 1782 | OUTPUT: RETVAL | ||
| 1783 | |||
| 1772 | void | 1784 | void |
| 1773 | inv (object *obj) | 1785 | inv (object *obj) |
| 1774 | PROTOTYPE: $ | 1786 | PROTOTYPE: $ |
| 1775 | PPCODE: | 1787 | PPCODE: |
| 1776 | { | 1788 | { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |