- if ((programs + n)->storage) {
- free_tab ((programs + n)->storage);
- }
- if ((programs + n)->stack) {
- free_tab ((programs + n)->stack);
- }
- if ((programs + n)->root) {
- delelement ((programs + n)->root);
- }
- if ((programs + n)->string) {
- free ((programs + n)->string);
- (programs + n)->string = NULL;
- }