1651 |
|
|
1652 |
iterator= foo; |
iterator= foo; |
1653 |
|
|
1654 |
while(iterator!=NULL) { |
while(iterator->type!=empty) { |
1655 |
push_val(env, CAR(iterator)); |
push_val(env, CAR(iterator)); |
1656 |
push_val(env, loop); |
push_val(env, loop); |
1657 |
eval(env); if(env->err) return; |
eval(env); if(env->err) return; |
2526 |
swap(env); if(env->err) return; |
swap(env); if(env->err) return; |
2527 |
toss(env); |
toss(env); |
2528 |
} |
} |
2529 |
|
|
2530 |
|
extern void sx_646f(environment *env) |
2531 |
|
{ |
2532 |
|
swap(env); if(env->err) return; |
2533 |
|
eval(env); |
2534 |
|
} |