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

Diff of /stack/stack.c

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

revision 1.105 by masse, Tue Mar 12 14:53:19 2002 UTC revision 1.106 by masse, Tue Mar 12 15:13:48 2002 UTC
# Line 1362  extern void ifelse(environment *env) Line 1362  extern void ifelse(environment *env)
1362    eval(env);    eval(env);
1363  }  }
1364    
1365    extern void sx_656c7365(environment *env)
1366    {
1367      if(env->head==NULL || CDR(env->head)==NULL
1368         || CDR(CDR(env->head))==NULL || CDR(CDR(CDR(env->head)))==NULL) {
1369        printerr("Too Few Arguments");
1370        env->err= 1;
1371        return;
1372      }
1373    
1374      if(CAR(CDR(env->head))->type!=symb
1375         || strcmp(CAR(CDR(env->head))->content.sym->id, "if")!=0) {
1376        printerr("Bad Argument Type");
1377        env->err= 2;
1378        return;
1379      }
1380    
1381      swap(env); toss(env);
1382      ifelse(env);
1383    }
1384    
1385  /* "while" */  /* "while" */
1386  extern void sx_7768696c65(environment *env)  extern void sx_7768696c65(environment *env)
1387  {  {
Legend:
Removed from v.1.105  
changed lines
  Added in v.1.106
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26