| … | |
… | |
| 5641 | ok_to_freely_gc (SCHEME_A); |
5641 | ok_to_freely_gc (SCHEME_A); |
| 5642 | |
5642 | |
| 5643 | if (pcd->func (SCHEME_A_ SCHEME_V->op) == NIL) |
5643 | if (pcd->func (SCHEME_A_ SCHEME_V->op) == NIL) |
| 5644 | return; |
5644 | return; |
| 5645 | |
5645 | |
| 5646 | #if USE_ERROR_CHECKING |
5646 | if (SCHEME_V->no_memory && USE_ERROR_CHECKING) |
| 5647 | if (SCHEME_V->no_memory) |
|
|
| 5648 | { |
5647 | { |
| 5649 | xwrstr ("No memory!\n"); |
5648 | xwrstr ("No memory!\n"); |
| 5650 | return; |
5649 | return; |
| 5651 | } |
5650 | } |
| 5652 | #endif |
|
|
| 5653 | } |
5651 | } |
| 5654 | } |
5652 | } |
| 5655 | |
5653 | |
| 5656 | /* ========== Initialization of internal keywords ========== */ |
5654 | /* ========== Initialization of internal keywords ========== */ |
| 5657 | |
5655 | |
