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

Diff of /stack/stack.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.78 by teddy, Thu Feb 14 05:21:06 2002 UTC revision 1.79 by masse, Thu Feb 14 12:01:58 2002 UTC
# Line 729  extern void quit(environment *env) Line 729  extern void quit(environment *env)
729    clear(env);    clear(env);
730    if (env->err) return;    if (env->err) return;
731    for(i= 0; i<HASHTBLSIZE; i++) {    for(i= 0; i<HASHTBLSIZE; i++) {
732      if (env->symbols[i]!= NULL) {      while(env->symbols[i]!= NULL) {
733        forget_sym(&(env->symbols[i]));        forget_sym(&(env->symbols[i]));
734        env->symbols[i]= NULL;        env->symbols[i]= NULL;
735      }      }

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

root@recompile.se
ViewVC Help
Powered by ViewVC 1.1.26