/[cvs]/stack/stack.c
ViewVC logotype

Diff of /stack/stack.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;
Legend:
Removed from v.1.121  
changed lines
  Added in v.1.122
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26