static status storeChain(Chain ch, FileObj file) { Cell cell; TRY(storeSlotsObject(ch, file)); for_cell(cell, ch) { storeCharFile(file, cell == ch->current ? 'E' : 'e'); TRY( storeObject(cell->value, file) ); }
static status SaveRelationHyper(Hyper h, FileObj f) { if ( isSavedObject(h->from) && isSavedObject(h->to) ) { storeCharFile(f, 's'); return storeObject(h, f); } succeed; }