1284 |
myenv.err=0; |
myenv.err=0; |
1285 |
} |
} |
1286 |
sx_72656164(&myenv); /* "read" */ |
sx_72656164(&myenv); /* "read" */ |
1287 |
if (myenv.err==4) { /* EOF */ |
if (myenv.err) { /* EOF or other error */ |
1288 |
myenv.err=0; |
myenv.err=0; |
1289 |
quit(&myenv); |
quit(&myenv); |
1290 |
} else if(myenv.head->type!=empty |
} else if(myenv.head->type!=empty |
1291 |
&& CAR(myenv.head)->type==symb |
&& CAR(myenv.head)->type==symb |
1292 |
&& CAR(myenv.head)->content.sym->id[0] == ';') { |
&& CAR(myenv.head)->content.sym->id[0] == ';') { |
1293 |
toss(&myenv); /* No error check in main */ |
toss(&myenv); if(myenv.err) continue; |
1294 |
eval(&myenv); |
eval(&myenv); |
1295 |
|
} else { |
1296 |
|
gc_maybe(&myenv); |
1297 |
} |
} |
|
gc_maybe(&myenv); |
|
1298 |
} |
} |
1299 |
quit(&myenv); |
quit(&myenv); |
1300 |
return EXIT_FAILURE; |
return EXIT_FAILURE; |