Parent Directory | Revision Log | Patch
revision 1.121 by masse, Wed Mar 27 14:45:17 2002 UTC | revision 1.122 by masse, Wed Mar 27 14:49:56 2002 UTC | |
---|---|---|
# | Line 1651 extern void foreach(environment *env) | Line 1651 extern void foreach(environment *env) |
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; |
|
root@recompile.se | ViewVC Help |
Powered by ViewVC 1.1.26 |