/[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.123 by masse, Wed Mar 27 19:53:01 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;
# Line 2526  void assocgen(environment *env, funcp eq Line 2526  void assocgen(environment *env, funcp eq
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    }
Legend:
Removed from v.1.121  
changed lines
  Added in v.1.123
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26