PUBLIC struct seg_des *seg_static_free(struct seg_des *seg)
{
prog_del(&seg->lineroot, 0, MAXINT, 0);
seg->extdef->lc.pfrec.localproc = seg->save_localproc;
return mem_free(seg);
}
PRIVATE int cmd_del(struct comal_line *line)
{
long from = line->lc.twonum.num1;
long to = line->lc.twonum.num2;
if (from == 0 && to == MAXINT)
run_error(CMD_ERR,
"Please mention a line number range with DEL");
if (prog_del(&curenv->progroot, from, to, 1))
prog_structure_scan();
return 0;
}