1362 |
eval(env); |
eval(env); |
1363 |
} |
} |
1364 |
|
|
1365 |
|
extern void sx_656c7365(environment *env) |
1366 |
|
{ |
1367 |
|
if(env->head==NULL || CDR(env->head)==NULL |
1368 |
|
|| CDR(CDR(env->head))==NULL || CDR(CDR(CDR(env->head)))==NULL) { |
1369 |
|
printerr("Too Few Arguments"); |
1370 |
|
env->err= 1; |
1371 |
|
return; |
1372 |
|
} |
1373 |
|
|
1374 |
|
if(CAR(CDR(env->head))->type!=symb |
1375 |
|
|| strcmp(CAR(CDR(env->head))->content.sym->id, "if")!=0) { |
1376 |
|
printerr("Bad Argument Type"); |
1377 |
|
env->err= 2; |
1378 |
|
return; |
1379 |
|
} |
1380 |
|
|
1381 |
|
swap(env); toss(env); |
1382 |
|
ifelse(env); |
1383 |
|
} |
1384 |
|
|
1385 |
/* "while" */ |
/* "while" */ |
1386 |
extern void sx_7768696c65(environment *env) |
extern void sx_7768696c65(environment *env) |
1387 |
{ |
{ |