inc/initial.cseg

   1
   2 /* Support-Code: Code Segment */
   3
   4         /* set return address */
   5         ST_RET() = (int)&&__ret1;
   6
   7         r[0] = (int)extendEnviroment( (int**)NULL, 0);
   8         goto __skipBody1;
   9 __body1:
  10         push(fp);
  11         fp = sp;
  12         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
  13
  14         r_res = (int)&__sc_number;
  15         push(r_res);
  16         push(1);
  17         r_res = (int)probeSymbolDefined("make-vector",topLevel);
  18         if (r_res==0) goto __else1;
  19         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1;
  20         r_res = (int)((SymbolEntry*)r_res)->sob;
  21         goto __endIf1;
  22 __else1:
  23         fprintf(stderr,"Symbol make-vector not defined"); exit(-1);
  24 __endIf1:
  25         if (IS_SOB_CLOSURE(r_res)) goto __app1;
  26         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
  27 __app1:
  28         push((int)SOB_CLOSURE_ENV(r_res));
  29         push((int)&&__ret2);
  30         goto *(SOB_CLOSURE_CODE(r_res));
  31 __ret2:
  32         sp = sp-2-stack[sp-2];
  33         push(r_res);
  34         push(1);
  35         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
  36         goto __skipBody2;
  37 __body2:
  38         push(fp);
  39         fp = sp;
  40         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
  41
  42         r_res = ((int**)ST_ENV())[0][0];
  43         push(r_res);
  44         r_res = (int)&__sc_number0;
  45         push(r_res);
  46         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
  47         r_res = ST_ARG(0);
  48         push(r_res);
  49         push(3);
  50         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
  51         if (r_res==0) goto __else2;
  52         if (! ((SymbolEntry*)r_res)->isDefined) goto __else2;
  53         r_res = (int)((SymbolEntry*)r_res)->sob;
  54         goto __endIf2;
  55 __else2:
  56         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
  57 __endIf2:
  58         if (IS_SOB_CLOSURE(r_res)) goto __app2;
  59         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
  60 __app2:
  61         push((int)SOB_CLOSURE_ENV(r_res));
  62         push((int)&&__ret3);
  63         goto *(SOB_CLOSURE_CODE(r_res));
  64 __ret3:
  65         sp = sp-2-stack[sp-2];
  66         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
  67         r_res = ST_ARG(0);
  68         fp = pop();
  69         RETURN();
  70 __skipBody2:
  71         r_res = (int)makeSchemeClosure((void*)r[0],&&__body2);
  72         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
  73         push((int)SOB_CLOSURE_ENV(r_res));
  74         push(ST_RET());
  75         shiftActFrmDown();
  76         goto *(SOB_CLOSURE_CODE(r_res));
  77         sp = sp-2-stack[sp-2];
  78         fp = pop();
  79         RETURN();
  80 __skipBody1:
  81         r_res = (int)makeSchemeClosure((void*)r[0],&&__body1);
  82         r[0] = (int)getSymbol("box",topLevel);
  83         ((SymbolEntry*)r[0])->isDefined = 1;
  84         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
  85         r_res = (int)&sc_void;
  86 __ret1:
  87         /* set return address */
  88         ST_RET() = (int)&&__ret4;
  89
  90         r[0] = (int)extendEnviroment( (int**)NULL, 0);
  91         goto __skipBody3;
  92 __body3:
  93         push(fp);
  94         fp = sp;
  95         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
  96         r_res = (int)&sc_false;
  97         push(r_res);
  98         push(1);
  99         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
 100         goto __skipBody4;
 101 __body4:
 102         push(fp);
 103         fp = sp;
 104         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 105
 106         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 107         r_res = ST_ARG(0);
 108         push(r_res);
 109         push(1);
 110         r_res = (int)probeSymbolDefined("box",topLevel);
 111         if (r_res==0) goto __else3;
 112         if (! ((SymbolEntry*)r_res)->isDefined) goto __else3;
 113         r_res = (int)((SymbolEntry*)r_res)->sob;
 114         goto __endIf3;
 115 __else3:
 116         fprintf(stderr,"Symbol box not defined"); exit(-1);
 117 __endIf3:
 118         if (IS_SOB_CLOSURE(r_res)) goto __app3;
 119         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 120 __app3:
 121         push((int)SOB_CLOSURE_ENV(r_res));
 122         push((int)&&__ret5);
 123         goto *(SOB_CLOSURE_CODE(r_res));
 124 __ret5:
 125         sp = sp-2-stack[sp-2];
 126         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 127         ST_ARG(0) = r_res;
 128         r_res = (int)&sc_void;
 129
 130         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
 131         goto __skipBody5;
 132 __body5:
 133         push(fp);
 134         fp = sp;
 135         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 136
 137         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 138         r_res = ST_ARG(0);
 139         push(r_res);
 140         push(1);
 141         r_res = (int)probeSymbolDefined("null?",topLevel);
 142         if (r_res==0) goto __else5;
 143         if (! ((SymbolEntry*)r_res)->isDefined) goto __else5;
 144         r_res = (int)((SymbolEntry*)r_res)->sob;
 145         goto __endIf5;
 146 __else5:
 147         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
 148 __endIf5:
 149         if (IS_SOB_CLOSURE(r_res)) goto __app5;
 150         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 151 __app5:
 152         push((int)SOB_CLOSURE_ENV(r_res));
 153         push((int)&&__ret7);
 154         goto *(SOB_CLOSURE_CODE(r_res));
 155 __ret7:
 156         sp = sp-2-stack[sp-2];
 157         if ((SchemeObject*)r_res==&sc_false) goto __else4;
 158         r_res = ((int**)ST_ENV())[1][1];
 159         goto __endIf4;
 160 __else4:
 161
 162
 163         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 164         r_res = ST_ARG(0);
 165         push(r_res);
 166         push(1);
 167         r_res = (int)probeSymbolDefined("cdr",topLevel);
 168         if (r_res==0) goto __else6;
 169         if (! ((SymbolEntry*)r_res)->isDefined) goto __else6;
 170         r_res = (int)((SymbolEntry*)r_res)->sob;
 171         goto __endIf6;
 172 __else6:
 173         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
 174 __endIf6:
 175         if (IS_SOB_CLOSURE(r_res)) goto __app7;
 176         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 177 __app7:
 178         push((int)SOB_CLOSURE_ENV(r_res));
 179         push((int)&&__ret9);
 180         goto *(SOB_CLOSURE_CODE(r_res));
 181 __ret9:
 182         sp = sp-2-stack[sp-2];
 183         push(r_res);
 184         push(1);
 185
 186         r_res = (int)&__sc_number1;
 187         push(r_res);
 188         r_res = ((int**)ST_ENV())[0][0];
 189         push(r_res);
 190         push(2);
 191         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
 192         if (r_res==0) goto __else7;
 193         if (! ((SymbolEntry*)r_res)->isDefined) goto __else7;
 194         r_res = (int)((SymbolEntry*)r_res)->sob;
 195         goto __endIf7;
 196 __else7:
 197         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
 198 __endIf7:
 199         if (IS_SOB_CLOSURE(r_res)) goto __app8;
 200         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 201 __app8:
 202         push((int)SOB_CLOSURE_ENV(r_res));
 203         push((int)&&__ret10);
 204         goto *(SOB_CLOSURE_CODE(r_res));
 205 __ret10:
 206         sp = sp-2-stack[sp-2];
 207         if (IS_SOB_CLOSURE(r_res)) goto __app6;
 208         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 209 __app6:
 210         push((int)SOB_CLOSURE_ENV(r_res));
 211         push((int)&&__ret8);
 212         goto *(SOB_CLOSURE_CODE(r_res));
 213 __ret8:
 214         sp = sp-2-stack[sp-2];
 215         push(r_res);
 216
 217         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 218         r_res = ST_ARG(0);
 219         push(r_res);
 220         push(1);
 221         r_res = (int)probeSymbolDefined("car",topLevel);
 222         if (r_res==0) goto __else8;
 223         if (! ((SymbolEntry*)r_res)->isDefined) goto __else8;
 224         r_res = (int)((SymbolEntry*)r_res)->sob;
 225         goto __endIf8;
 226 __else8:
 227         fprintf(stderr,"Symbol car not defined"); exit(-1);
 228 __endIf8:
 229         if (IS_SOB_CLOSURE(r_res)) goto __app9;
 230         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 231 __app9:
 232         push((int)SOB_CLOSURE_ENV(r_res));
 233         push((int)&&__ret11);
 234         goto *(SOB_CLOSURE_CODE(r_res));
 235 __ret11:
 236         sp = sp-2-stack[sp-2];
 237         push(r_res);
 238         push(2);
 239         r_res = ((int**)ST_ENV())[1][0];
 240         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 241         push((int)SOB_CLOSURE_ENV(r_res));
 242         push(ST_RET());
 243         shiftActFrmDown();
 244         goto *(SOB_CLOSURE_CODE(r_res));
 245         sp = sp-2-stack[sp-2];
 246 __endIf4:
 247         fp = pop();
 248         RETURN();
 249 __skipBody5:
 250         r_res = (int)makeSchemeClosure((void*)r[0],&&__body5);
 251         push(r_res);
 252         r_res = (int)&__sc_number2;
 253         push(r_res);
 254         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 255         r_res = ST_ARG(0);
 256         push(r_res);
 257         push(3);
 258         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
 259         if (r_res==0) goto __else9;
 260         if (! ((SymbolEntry*)r_res)->isDefined) goto __else9;
 261         r_res = (int)((SymbolEntry*)r_res)->sob;
 262         goto __endIf9;
 263 __else9:
 264         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
 265 __endIf9:
 266         if (IS_SOB_CLOSURE(r_res)) goto __app4;
 267         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 268 __app4:
 269         push((int)SOB_CLOSURE_ENV(r_res));
 270         push((int)&&__ret6);
 271         goto *(SOB_CLOSURE_CODE(r_res));
 272 __ret6:
 273         sp = sp-2-stack[sp-2];
 274         push(0);
 275         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
 276         goto __skipBody6;
 277 __body6:
 278         push(fp);
 279         fp = sp;
 280         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 281         r_res = ((int**)ST_ENV())[1][2];
 282         push(r_res);
 283         push(1);
 284
 285         r_res = (int)&__sc_number3;
 286         push(r_res);
 287         r_res = ((int**)ST_ENV())[0][0];
 288         push(r_res);
 289         push(2);
 290         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
 291         if (r_res==0) goto __else10;
 292         if (! ((SymbolEntry*)r_res)->isDefined) goto __else10;
 293         r_res = (int)((SymbolEntry*)r_res)->sob;
 294         goto __endIf10;
 295 __else10:
 296         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
 297 __endIf10:
 298         if (IS_SOB_CLOSURE(r_res)) goto __app10;
 299         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 300 __app10:
 301         push((int)SOB_CLOSURE_ENV(r_res));
 302         push((int)&&__ret12);
 303         goto *(SOB_CLOSURE_CODE(r_res));
 304 __ret12:
 305         sp = sp-2-stack[sp-2];
 306         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 307         push((int)SOB_CLOSURE_ENV(r_res));
 308         push(ST_RET());
 309         shiftActFrmDown();
 310         goto *(SOB_CLOSURE_CODE(r_res));
 311         sp = sp-2-stack[sp-2];
 312         fp = pop();
 313         RETURN();
 314 __skipBody6:
 315         r_res = (int)makeSchemeClosure((void*)r[0],&&__body6);
 316         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 317         push((int)SOB_CLOSURE_ENV(r_res));
 318         push(ST_RET());
 319         shiftActFrmDown();
 320         goto *(SOB_CLOSURE_CODE(r_res));
 321         sp = sp-2-stack[sp-2];
 322         fp = pop();
 323         RETURN();
 324 __skipBody4:
 325         r_res = (int)makeSchemeClosure((void*)r[0],&&__body4);
 326         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 327         push((int)SOB_CLOSURE_ENV(r_res));
 328         push(ST_RET());
 329         shiftActFrmDown();
 330         goto *(SOB_CLOSURE_CODE(r_res));
 331         sp = sp-2-stack[sp-2];
 332         fp = pop();
 333         RETURN();
 334 __skipBody3:
 335         r_res = (int)makeSchemeClosure((void*)r[0],&&__body3);
 336         r[0] = (int)getSymbol("foldr",topLevel);
 337         ((SymbolEntry*)r[0])->isDefined = 1;
 338         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 339         r_res = (int)&sc_void;
 340 __ret4:
 341         /* set return address */
 342         ST_RET() = (int)&&__ret13;
 343
 344         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 345         goto __skipBody7;
 346 __body7:
 347         push(fp);
 348         fp = sp;
 349         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 350
 351         r_res = (int)&__sc_number4;
 352         push(r_res);
 353         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 354         r_res = ST_ARG(0);
 355         push(r_res);
 356         push(2);
 357         r_res = (int)probeSymbolDefined("binary-add",topLevel);
 358         if (r_res==0) goto __else11;
 359         if (! ((SymbolEntry*)r_res)->isDefined) goto __else11;
 360         r_res = (int)((SymbolEntry*)r_res)->sob;
 361         goto __endIf11;
 362 __else11:
 363         fprintf(stderr,"Symbol binary-add not defined"); exit(-1);
 364 __endIf11:
 365         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 366         push((int)SOB_CLOSURE_ENV(r_res));
 367         push(ST_RET());
 368         shiftActFrmDown();
 369         goto *(SOB_CLOSURE_CODE(r_res));
 370         sp = sp-2-stack[sp-2];
 371         fp = pop();
 372         RETURN();
 373 __skipBody7:
 374         r_res = (int)makeSchemeClosure((void*)r[0],&&__body7);
 375         r[0] = (int)getSymbol("add1",topLevel);
 376         ((SymbolEntry*)r[0])->isDefined = 1;
 377         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 378         r_res = (int)&sc_void;
 379 __ret13:
 380         /* set return address */
 381         ST_RET() = (int)&&__ret14;
 382
 383         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 384         goto __skipBody8;
 385 __body8:
 386         push(fp);
 387         fp = sp;
 388         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 389
 390         r_res = (int)&__sc_number5;
 391         push(r_res);
 392         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 393         r_res = ST_ARG(0);
 394         push(r_res);
 395         push(2);
 396         r_res = (int)probeSymbolDefined("binary-sub",topLevel);
 397         if (r_res==0) goto __else12;
 398         if (! ((SymbolEntry*)r_res)->isDefined) goto __else12;
 399         r_res = (int)((SymbolEntry*)r_res)->sob;
 400         goto __endIf12;
 401 __else12:
 402         fprintf(stderr,"Symbol binary-sub not defined"); exit(-1);
 403 __endIf12:
 404         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 405         push((int)SOB_CLOSURE_ENV(r_res));
 406         push(ST_RET());
 407         shiftActFrmDown();
 408         goto *(SOB_CLOSURE_CODE(r_res));
 409         sp = sp-2-stack[sp-2];
 410         fp = pop();
 411         RETURN();
 412 __skipBody8:
 413         r_res = (int)makeSchemeClosure((void*)r[0],&&__body8);
 414         r[0] = (int)getSymbol("sub1",topLevel);
 415         ((SymbolEntry*)r[0])->isDefined = 1;
 416         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 417         r_res = (int)&sc_void;
 418 __ret14:
 419         /* set return address */
 420         ST_RET() = (int)&&__ret15;
 421
 422         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 423         goto __skipBody9;
 424 __body9:
 425         push(fp);
 426         fp = sp;
 427         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 428         r_res = (int)&sc_false;
 429         push(r_res);
 430         push(1);
 431         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
 432         goto __skipBody10;
 433 __body10:
 434         push(fp);
 435         fp = sp;
 436         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 437
 438         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 439         r_res = ST_ARG(0);
 440         push(r_res);
 441         push(1);
 442         r_res = (int)probeSymbolDefined("box",topLevel);
 443         if (r_res==0) goto __else13;
 444         if (! ((SymbolEntry*)r_res)->isDefined) goto __else13;
 445         r_res = (int)((SymbolEntry*)r_res)->sob;
 446         goto __endIf13;
 447 __else13:
 448         fprintf(stderr,"Symbol box not defined"); exit(-1);
 449 __endIf13:
 450         if (IS_SOB_CLOSURE(r_res)) goto __app11;
 451         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 452 __app11:
 453         push((int)SOB_CLOSURE_ENV(r_res));
 454         push((int)&&__ret16);
 455         goto *(SOB_CLOSURE_CODE(r_res));
 456 __ret16:
 457         sp = sp-2-stack[sp-2];
 458         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 459         ST_ARG(0) = r_res;
 460         r_res = (int)&sc_void;
 461
 462         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
 463         goto __skipBody11;
 464 __body11:
 465         push(fp);
 466         fp = sp;
 467         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 468
 469         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 470         r_res = ST_ARG(1);
 471         push(r_res);
 472         push(1);
 473         r_res = (int)probeSymbolDefined("null?",topLevel);
 474         if (r_res==0) goto __else14;
 475         if (! ((SymbolEntry*)r_res)->isDefined) goto __else14;
 476         r_res = (int)((SymbolEntry*)r_res)->sob;
 477         goto __endIf14;
 478 __else14:
 479         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
 480 __endIf14:
 481         if (IS_SOB_CLOSURE(r_res)) goto __app13;
 482         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 483 __app13:
 484         push((int)SOB_CLOSURE_ENV(r_res));
 485         push((int)&&__ret18);
 486         goto *(SOB_CLOSURE_CODE(r_res));
 487 __ret18:
 488         sp = sp-2-stack[sp-2];
 489         if ((SchemeObject*)r_res!=&sc_false) goto __endOr1;
 490
 491
 492         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 493         r_res = ST_ARG(1);
 494         push(r_res);
 495         push(1);
 496         r_res = (int)probeSymbolDefined("car",topLevel);
 497         if (r_res==0) goto __else16;
 498         if (! ((SymbolEntry*)r_res)->isDefined) goto __else16;
 499         r_res = (int)((SymbolEntry*)r_res)->sob;
 500         goto __endIf16;
 501 __else16:
 502         fprintf(stderr,"Symbol car not defined"); exit(-1);
 503 __endIf16:
 504         if (IS_SOB_CLOSURE(r_res)) goto __app15;
 505         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 506 __app15:
 507         push((int)SOB_CLOSURE_ENV(r_res));
 508         push((int)&&__ret20);
 509         goto *(SOB_CLOSURE_CODE(r_res));
 510 __ret20:
 511         sp = sp-2-stack[sp-2];
 512         push(r_res);
 513         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 514         r_res = ST_ARG(0);
 515         push(r_res);
 516         push(2);
 517         r_res = ((int**)ST_ENV())[1][0];
 518         if (IS_SOB_CLOSURE(r_res)) goto __app14;
 519         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 520 __app14:
 521         push((int)SOB_CLOSURE_ENV(r_res));
 522         push((int)&&__ret19);
 523         goto *(SOB_CLOSURE_CODE(r_res));
 524 __ret19:
 525         sp = sp-2-stack[sp-2];
 526         if ((SchemeObject*)r_res==&sc_false) goto __else15;
 527
 528         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 529         r_res = ST_ARG(1);
 530         push(r_res);
 531         push(1);
 532         r_res = (int)probeSymbolDefined("cdr",topLevel);
 533         if (r_res==0) goto __else17;
 534         if (! ((SymbolEntry*)r_res)->isDefined) goto __else17;
 535         r_res = (int)((SymbolEntry*)r_res)->sob;
 536         goto __endIf17;
 537 __else17:
 538         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
 539 __endIf17:
 540         if (IS_SOB_CLOSURE(r_res)) goto __app16;
 541         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 542 __app16:
 543         push((int)SOB_CLOSURE_ENV(r_res));
 544         push((int)&&__ret21);
 545         goto *(SOB_CLOSURE_CODE(r_res));
 546 __ret21:
 547         sp = sp-2-stack[sp-2];
 548         push(r_res);
 549
 550         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 551         r_res = ST_ARG(1);
 552         push(r_res);
 553         push(1);
 554         r_res = (int)probeSymbolDefined("car",topLevel);
 555         if (r_res==0) goto __else18;
 556         if (! ((SymbolEntry*)r_res)->isDefined) goto __else18;
 557         r_res = (int)((SymbolEntry*)r_res)->sob;
 558         goto __endIf18;
 559 __else18:
 560         fprintf(stderr,"Symbol car not defined"); exit(-1);
 561 __endIf18:
 562         if (IS_SOB_CLOSURE(r_res)) goto __app17;
 563         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 564 __app17:
 565         push((int)SOB_CLOSURE_ENV(r_res));
 566         push((int)&&__ret22);
 567         goto *(SOB_CLOSURE_CODE(r_res));
 568 __ret22:
 569         sp = sp-2-stack[sp-2];
 570         push(r_res);
 571         push(2);
 572
 573         r_res = (int)&__sc_number6;
 574         push(r_res);
 575         r_res = ((int**)ST_ENV())[0][0];
 576         push(r_res);
 577         push(2);
 578         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
 579         if (r_res==0) goto __else19;
 580         if (! ((SymbolEntry*)r_res)->isDefined) goto __else19;
 581         r_res = (int)((SymbolEntry*)r_res)->sob;
 582         goto __endIf19;
 583 __else19:
 584         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
 585 __endIf19:
 586         if (IS_SOB_CLOSURE(r_res)) goto __app18;
 587         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 588 __app18:
 589         push((int)SOB_CLOSURE_ENV(r_res));
 590         push((int)&&__ret23);
 591         goto *(SOB_CLOSURE_CODE(r_res));
 592 __ret23:
 593         sp = sp-2-stack[sp-2];
 594         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 595         push((int)SOB_CLOSURE_ENV(r_res));
 596         push(ST_RET());
 597         shiftActFrmDown();
 598         goto *(SOB_CLOSURE_CODE(r_res));
 599         sp = sp-2-stack[sp-2];
 600         goto __endIf15;
 601 __else15:
 602         r_res = (int)&sc_false;
 603 __endIf15:
 604         if ((SchemeObject*)r_res!=&sc_false) goto __endOr1;
 605 __endOr1:
 606         fp = pop();
 607         RETURN();
 608 __skipBody11:
 609         r_res = (int)makeSchemeClosure((void*)r[0],&&__body11);
 610         push(r_res);
 611         r_res = (int)&__sc_number7;
 612         push(r_res);
 613         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 614         r_res = ST_ARG(0);
 615         push(r_res);
 616         push(3);
 617         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
 618         if (r_res==0) goto __else20;
 619         if (! ((SymbolEntry*)r_res)->isDefined) goto __else20;
 620         r_res = (int)((SymbolEntry*)r_res)->sob;
 621         goto __endIf20;
 622 __else20:
 623         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
 624 __endIf20:
 625         if (IS_SOB_CLOSURE(r_res)) goto __app12;
 626         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 627 __app12:
 628         push((int)SOB_CLOSURE_ENV(r_res));
 629         push((int)&&__ret17);
 630         goto *(SOB_CLOSURE_CODE(r_res));
 631 __ret17:
 632         sp = sp-2-stack[sp-2];
 633         push(0);
 634         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
 635         goto __skipBody12;
 636 __body12:
 637         push(fp);
 638         fp = sp;
 639         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 640         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
 641         goto __skipBody13;
 642 __body13:
 643         push(fp);
 644         fp = sp;
 645         prepareStackForAbsOpt(2);
 646         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 647         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 648         r_res = ST_ARG(1);
 649         push(r_res);
 650         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 651         r_res = ST_ARG(0);
 652         push(r_res);
 653         push(2);
 654
 655         r_res = (int)&__sc_number8;
 656         push(r_res);
 657         r_res = ((int**)ST_ENV())[1][0];
 658         push(r_res);
 659         push(2);
 660         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
 661         if (r_res==0) goto __else21;
 662         if (! ((SymbolEntry*)r_res)->isDefined) goto __else21;
 663         r_res = (int)((SymbolEntry*)r_res)->sob;
 664         goto __endIf21;
 665 __else21:
 666         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
 667 __endIf21:
 668         if (IS_SOB_CLOSURE(r_res)) goto __app19;
 669         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 670 __app19:
 671         push((int)SOB_CLOSURE_ENV(r_res));
 672         push((int)&&__ret24);
 673         goto *(SOB_CLOSURE_CODE(r_res));
 674 __ret24:
 675         sp = sp-2-stack[sp-2];
 676         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 677         push((int)SOB_CLOSURE_ENV(r_res));
 678         push(ST_RET());
 679         shiftActFrmDown();
 680         goto *(SOB_CLOSURE_CODE(r_res));
 681         sp = sp-2-stack[sp-2];
 682         fp = pop();
 683         RETURN();
 684 __skipBody13:
 685         r_res = (int)makeSchemeClosure((void*)r[0],&&__body13);
 686         fp = pop();
 687         RETURN();
 688 __skipBody12:
 689         r_res = (int)makeSchemeClosure((void*)r[0],&&__body12);
 690         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 691         push((int)SOB_CLOSURE_ENV(r_res));
 692         push(ST_RET());
 693         shiftActFrmDown();
 694         goto *(SOB_CLOSURE_CODE(r_res));
 695         sp = sp-2-stack[sp-2];
 696         fp = pop();
 697         RETURN();
 698 __skipBody10:
 699         r_res = (int)makeSchemeClosure((void*)r[0],&&__body10);
 700         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 701         push((int)SOB_CLOSURE_ENV(r_res));
 702         push(ST_RET());
 703         shiftActFrmDown();
 704         goto *(SOB_CLOSURE_CODE(r_res));
 705         sp = sp-2-stack[sp-2];
 706         fp = pop();
 707         RETURN();
 708 __skipBody9:
 709         r_res = (int)makeSchemeClosure((void*)r[0],&&__body9);
 710         r[0] = (int)getSymbol("order",topLevel);
 711         ((SymbolEntry*)r[0])->isDefined = 1;
 712         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 713         r_res = (int)&sc_void;
 714 __ret15:
 715         /* set return address */
 716         ST_RET() = (int)&&__ret25;
 717
 718
 719         r_res = (int)probeSymbolDefined("binary<?",topLevel);
 720         if (r_res==0) goto __else22;
 721         if (! ((SymbolEntry*)r_res)->isDefined) goto __else22;
 722         r_res = (int)((SymbolEntry*)r_res)->sob;
 723         goto __endIf22;
 724 __else22:
 725         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
 726 __endIf22:
 727         push(r_res);
 728         push(1);
 729         r_res = (int)probeSymbolDefined("order",topLevel);
 730         if (r_res==0) goto __else23;
 731         if (! ((SymbolEntry*)r_res)->isDefined) goto __else23;
 732         r_res = (int)((SymbolEntry*)r_res)->sob;
 733         goto __endIf23;
 734 __else23:
 735         fprintf(stderr,"Symbol order not defined"); exit(-1);
 736 __endIf23:
 737         if (IS_SOB_CLOSURE(r_res)) goto __app20;
 738         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 739 __app20:
 740         push((int)SOB_CLOSURE_ENV(r_res));
 741         push((int)&&__ret26);
 742         goto *(SOB_CLOSURE_CODE(r_res));
 743 __ret26:
 744         sp = sp-2-stack[sp-2];
 745         r[0] = (int)getSymbol("<",topLevel);
 746         ((SymbolEntry*)r[0])->isDefined = 1;
 747         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 748         r_res = (int)&sc_void;
 749 __ret25:
 750         /* set return address */
 751         ST_RET() = (int)&&__ret27;
 752
 753         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 754         goto __skipBody14;
 755 __body14:
 756         push(fp);
 757         fp = sp;
 758         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 759
 760         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 761         r_res = ST_ARG(1);
 762         push(r_res);
 763         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 764         r_res = ST_ARG(0);
 765         push(r_res);
 766         push(2);
 767         r_res = (int)probeSymbolDefined("binary<?",topLevel);
 768         if (r_res==0) goto __else24;
 769         if (! ((SymbolEntry*)r_res)->isDefined) goto __else24;
 770         r_res = (int)((SymbolEntry*)r_res)->sob;
 771         goto __endIf24;
 772 __else24:
 773         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
 774 __endIf24:
 775         if (IS_SOB_CLOSURE(r_res)) goto __app22;
 776         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 777 __app22:
 778         push((int)SOB_CLOSURE_ENV(r_res));
 779         push((int)&&__ret29);
 780         goto *(SOB_CLOSURE_CODE(r_res));
 781 __ret29:
 782         sp = sp-2-stack[sp-2];
 783         if ((SchemeObject*)r_res!=&sc_false) goto __endOr2;
 784
 785         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 786         r_res = ST_ARG(1);
 787         push(r_res);
 788         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 789         r_res = ST_ARG(0);
 790         push(r_res);
 791         push(2);
 792         r_res = (int)probeSymbolDefined("binary=?",topLevel);
 793         if (r_res==0) goto __else25;
 794         if (! ((SymbolEntry*)r_res)->isDefined) goto __else25;
 795         r_res = (int)((SymbolEntry*)r_res)->sob;
 796         goto __endIf25;
 797 __else25:
 798         fprintf(stderr,"Symbol binary=\? not defined"); exit(-1);
 799 __endIf25:
 800         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 801         push((int)SOB_CLOSURE_ENV(r_res));
 802         push(ST_RET());
 803         shiftActFrmDown();
 804         goto *(SOB_CLOSURE_CODE(r_res));
 805         sp = sp-2-stack[sp-2];
 806         if ((SchemeObject*)r_res!=&sc_false) goto __endOr2;
 807 __endOr2:
 808         fp = pop();
 809         RETURN();
 810 __skipBody14:
 811         r_res = (int)makeSchemeClosure((void*)r[0],&&__body14);
 812         push(r_res);
 813         push(1);
 814         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 815         goto __skipBody15;
 816 __body15:
 817         push(fp);
 818         fp = sp;
 819         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 820
 821         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 822         r_res = ST_ARG(0);
 823         push(r_res);
 824         push(1);
 825         r_res = (int)probeSymbolDefined("order",topLevel);
 826         if (r_res==0) goto __else26;
 827         if (! ((SymbolEntry*)r_res)->isDefined) goto __else26;
 828         r_res = (int)((SymbolEntry*)r_res)->sob;
 829         goto __endIf26;
 830 __else26:
 831         fprintf(stderr,"Symbol order not defined"); exit(-1);
 832 __endIf26:
 833         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 834         push((int)SOB_CLOSURE_ENV(r_res));
 835         push(ST_RET());
 836         shiftActFrmDown();
 837         goto *(SOB_CLOSURE_CODE(r_res));
 838         sp = sp-2-stack[sp-2];
 839         fp = pop();
 840         RETURN();
 841 __skipBody15:
 842         r_res = (int)makeSchemeClosure((void*)r[0],&&__body15);
 843         if (IS_SOB_CLOSURE(r_res)) goto __app21;
 844         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 845 __app21:
 846         push((int)SOB_CLOSURE_ENV(r_res));
 847         push((int)&&__ret28);
 848         goto *(SOB_CLOSURE_CODE(r_res));
 849 __ret28:
 850         sp = sp-2-stack[sp-2];
 851         r[0] = (int)getSymbol("<=",topLevel);
 852         ((SymbolEntry*)r[0])->isDefined = 1;
 853         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 854         r_res = (int)&sc_void;
 855 __ret27:
 856         /* set return address */
 857         ST_RET() = (int)&&__ret30;
 858
 859         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 860         goto __skipBody16;
 861 __body16:
 862         push(fp);
 863         fp = sp;
 864         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 865
 866         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 867         r_res = ST_ARG(0);
 868         push(r_res);
 869         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 870         r_res = ST_ARG(1);
 871         push(r_res);
 872         push(2);
 873         r_res = (int)probeSymbolDefined("binary<?",topLevel);
 874         if (r_res==0) goto __else27;
 875         if (! ((SymbolEntry*)r_res)->isDefined) goto __else27;
 876         r_res = (int)((SymbolEntry*)r_res)->sob;
 877         goto __endIf27;
 878 __else27:
 879         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
 880 __endIf27:
 881         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 882         push((int)SOB_CLOSURE_ENV(r_res));
 883         push(ST_RET());
 884         shiftActFrmDown();
 885         goto *(SOB_CLOSURE_CODE(r_res));
 886         sp = sp-2-stack[sp-2];
 887         fp = pop();
 888         RETURN();
 889 __skipBody16:
 890         r_res = (int)makeSchemeClosure((void*)r[0],&&__body16);
 891         push(r_res);
 892         push(1);
 893         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 894         goto __skipBody17;
 895 __body17:
 896         push(fp);
 897         fp = sp;
 898         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 899
 900         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 901         r_res = ST_ARG(0);
 902         push(r_res);
 903         push(1);
 904         r_res = (int)probeSymbolDefined("order",topLevel);
 905         if (r_res==0) goto __else28;
 906         if (! ((SymbolEntry*)r_res)->isDefined) goto __else28;
 907         r_res = (int)((SymbolEntry*)r_res)->sob;
 908         goto __endIf28;
 909 __else28:
 910         fprintf(stderr,"Symbol order not defined"); exit(-1);
 911 __endIf28:
 912         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 913         push((int)SOB_CLOSURE_ENV(r_res));
 914         push(ST_RET());
 915         shiftActFrmDown();
 916         goto *(SOB_CLOSURE_CODE(r_res));
 917         sp = sp-2-stack[sp-2];
 918         fp = pop();
 919         RETURN();
 920 __skipBody17:
 921         r_res = (int)makeSchemeClosure((void*)r[0],&&__body17);
 922         if (IS_SOB_CLOSURE(r_res)) goto __app23;
 923         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 924 __app23:
 925         push((int)SOB_CLOSURE_ENV(r_res));
 926         push((int)&&__ret31);
 927         goto *(SOB_CLOSURE_CODE(r_res));
 928 __ret31:
 929         sp = sp-2-stack[sp-2];
 930         r[0] = (int)getSymbol(">",topLevel);
 931         ((SymbolEntry*)r[0])->isDefined = 1;
 932         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 933         r_res = (int)&sc_void;
 934 __ret30:
 935         /* set return address */
 936         ST_RET() = (int)&&__ret32;
 937
 938         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 939         goto __skipBody18;
 940 __body18:
 941         push(fp);
 942         fp = sp;
 943         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 944
 945         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 946         r_res = ST_ARG(1);
 947         push(r_res);
 948         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 949         r_res = ST_ARG(0);
 950         push(r_res);
 951         push(2);
 952         r_res = (int)probeSymbolDefined("binary=?",topLevel);
 953         if (r_res==0) goto __else29;
 954         if (! ((SymbolEntry*)r_res)->isDefined) goto __else29;
 955         r_res = (int)((SymbolEntry*)r_res)->sob;
 956         goto __endIf29;
 957 __else29:
 958         fprintf(stderr,"Symbol binary=\? not defined"); exit(-1);
 959 __endIf29:
 960         if (IS_SOB_CLOSURE(r_res)) goto __app25;
 961         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 962 __app25:
 963         push((int)SOB_CLOSURE_ENV(r_res));
 964         push((int)&&__ret34);
 965         goto *(SOB_CLOSURE_CODE(r_res));
 966 __ret34:
 967         sp = sp-2-stack[sp-2];
 968         if ((SchemeObject*)r_res!=&sc_false) goto __endOr3;
 969
 970         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 971         r_res = ST_ARG(0);
 972         push(r_res);
 973         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 974         r_res = ST_ARG(1);
 975         push(r_res);
 976         push(2);
 977         r_res = (int)probeSymbolDefined("binary<?",topLevel);
 978         if (r_res==0) goto __else30;
 979         if (! ((SymbolEntry*)r_res)->isDefined) goto __else30;
 980         r_res = (int)((SymbolEntry*)r_res)->sob;
 981         goto __endIf30;
 982 __else30:
 983         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
 984 __endIf30:
 985         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 986         push((int)SOB_CLOSURE_ENV(r_res));
 987         push(ST_RET());
 988         shiftActFrmDown();
 989         goto *(SOB_CLOSURE_CODE(r_res));
 990         sp = sp-2-stack[sp-2];
 991         if ((SchemeObject*)r_res!=&sc_false) goto __endOr3;
 992 __endOr3:
 993         fp = pop();
 994         RETURN();
 995 __skipBody18:
 996         r_res = (int)makeSchemeClosure((void*)r[0],&&__body18);
 997         push(r_res);
 998         push(1);
 999         r[0] = (int)extendEnviroment( (int**)NULL, 0);
1000         goto __skipBody19;
1001 __body19:
1002         push(fp);
1003         fp = sp;
1004         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1005
1006         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1007         r_res = ST_ARG(0);
1008         push(r_res);
1009         push(1);
1010         r_res = (int)probeSymbolDefined("order",topLevel);
1011         if (r_res==0) goto __else31;
1012         if (! ((SymbolEntry*)r_res)->isDefined) goto __else31;
1013         r_res = (int)((SymbolEntry*)r_res)->sob;
1014         goto __endIf31;
1015 __else31:
1016         fprintf(stderr,"Symbol order not defined"); exit(-1);
1017 __endIf31:
1018         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1019         push((int)SOB_CLOSURE_ENV(r_res));
1020         push(ST_RET());
1021         shiftActFrmDown();
1022         goto *(SOB_CLOSURE_CODE(r_res));
1023         sp = sp-2-stack[sp-2];
1024         fp = pop();
1025         RETURN();
1026 __skipBody19:
1027         r_res = (int)makeSchemeClosure((void*)r[0],&&__body19);
1028         if (IS_SOB_CLOSURE(r_res)) goto __app24;
1029         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1030 __app24:
1031         push((int)SOB_CLOSURE_ENV(r_res));
1032         push((int)&&__ret33);
1033         goto *(SOB_CLOSURE_CODE(r_res));
1034 __ret33:
1035         sp = sp-2-stack[sp-2];
1036         r[0] = (int)getSymbol(">=",topLevel);
1037         ((SymbolEntry*)r[0])->isDefined = 1;
1038         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1039         r_res = (int)&sc_void;
1040 __ret32:
1041         /* set return address */
1042         ST_RET() = (int)&&__ret35;
1043
1044
1045         r_res = (int)probeSymbolDefined("binary=?",topLevel);
1046         if (r_res==0) goto __else32;
1047         if (! ((SymbolEntry*)r_res)->isDefined) goto __else32;
1048         r_res = (int)((SymbolEntry*)r_res)->sob;
1049         goto __endIf32;
1050 __else32:
1051         fprintf(stderr,"Symbol binary=\? not defined"); exit(-1);
1052 __endIf32:
1053         push(r_res);
1054         push(1);
1055         r_res = (int)probeSymbolDefined("order",topLevel);
1056         if (r_res==0) goto __else33;
1057         if (! ((SymbolEntry*)r_res)->isDefined) goto __else33;
1058         r_res = (int)((SymbolEntry*)r_res)->sob;
1059         goto __endIf33;
1060 __else33:
1061         fprintf(stderr,"Symbol order not defined"); exit(-1);
1062 __endIf33:
1063         if (IS_SOB_CLOSURE(r_res)) goto __app26;
1064         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1065 __app26:
1066         push((int)SOB_CLOSURE_ENV(r_res));
1067         push((int)&&__ret36);
1068         goto *(SOB_CLOSURE_CODE(r_res));
1069 __ret36:
1070         sp = sp-2-stack[sp-2];
1071         r[0] = (int)getSymbol("=",topLevel);
1072         ((SymbolEntry*)r[0])->isDefined = 1;
1073         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1074         r_res = (int)&sc_void;
1075 __ret35:
1076         /* set return address */
1077         ST_RET() = (int)&&__ret37;
1078
1079         r_res = (int)&sc_false;
1080         push(r_res);
1081         push(1);
1082         r[0] = (int)extendEnviroment( (int**)NULL, 0);
1083         goto __skipBody20;
1084 __body20:
1085         push(fp);
1086         fp = sp;
1087         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1088
1089         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1090         r_res = ST_ARG(0);
1091         push(r_res);
1092         push(1);
1093         r_res = (int)probeSymbolDefined("box",topLevel);
1094         if (r_res==0) goto __else34;
1095         if (! ((SymbolEntry*)r_res)->isDefined) goto __else34;
1096         r_res = (int)((SymbolEntry*)r_res)->sob;
1097         goto __endIf34;
1098 __else34:
1099         fprintf(stderr,"Symbol box not defined"); exit(-1);
1100 __endIf34:
1101         if (IS_SOB_CLOSURE(r_res)) goto __app28;
1102         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1103 __app28:
1104         push((int)SOB_CLOSURE_ENV(r_res));
1105         push((int)&&__ret39);
1106         goto *(SOB_CLOSURE_CODE(r_res));
1107 __ret39:
1108         sp = sp-2-stack[sp-2];
1109         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1110         ST_ARG(0) = r_res;
1111         r_res = (int)&sc_void;
1112
1113         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
1114         goto __skipBody21;
1115 __body21:
1116         push(fp);
1117         fp = sp;
1118         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1119
1120         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
1121         r_res = ST_ARG(1);
1122         push(r_res);
1123         push(1);
1124         r_res = (int)probeSymbolDefined("null?",topLevel);
1125         if (r_res==0) goto __else35;
1126         if (! ((SymbolEntry*)r_res)->isDefined) goto __else35;
1127         r_res = (int)((SymbolEntry*)r_res)->sob;
1128         goto __endIf35;
1129 __else35:
1130         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
1131 __endIf35:
1132         if (IS_SOB_CLOSURE(r_res)) goto __app30;
1133         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1134 __app30:
1135         push((int)SOB_CLOSURE_ENV(r_res));
1136         push((int)&&__ret41);
1137         goto *(SOB_CLOSURE_CODE(r_res));
1138 __ret41:
1139         sp = sp-2-stack[sp-2];
1140         if ((SchemeObject*)r_res!=&sc_false) goto __endOr4;
1141
1142         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
1143         r_res = ST_ARG(1);
1144         push(r_res);
1145         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
1146         goto __skipBody22;
1147 __body22:
1148         push(fp);
1149         fp = sp;
1150         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1151
1152
1153         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1154         r_res = ST_ARG(0);
1155         push(r_res);
1156         r_res = ((int**)ST_ENV())[0][0];
1157         push(r_res);
1158         push(2);
1159         r_res = (int)probeSymbolDefined("=",topLevel);
1160         if (r_res==0) goto __else37;
1161         if (! ((SymbolEntry*)r_res)->isDefined) goto __else37;
1162         r_res = (int)((SymbolEntry*)r_res)->sob;
1163         goto __endIf37;
1164 __else37:
1165         fprintf(stderr,"Symbol = not defined"); exit(-1);
1166 __endIf37:
1167         if (IS_SOB_CLOSURE(r_res)) goto __app32;
1168         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1169 __app32:
1170         push((int)SOB_CLOSURE_ENV(r_res));
1171         push((int)&&__ret43);
1172         goto *(SOB_CLOSURE_CODE(r_res));
1173 __ret43:
1174         sp = sp-2-stack[sp-2];
1175         push(r_res);
1176         push(1);
1177         r_res = (int)probeSymbolDefined("not",topLevel);
1178         if (r_res==0) goto __else38;
1179         if (! ((SymbolEntry*)r_res)->isDefined) goto __else38;
1180         r_res = (int)((SymbolEntry*)r_res)->sob;
1181         goto __endIf38;
1182 __else38:
1183         fprintf(stderr,"Symbol not not defined"); exit(-1);
1184 __endIf38:
1185         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1186         push((int)SOB_CLOSURE_ENV(r_res));
1187         push(ST_RET());
1188         shiftActFrmDown();
1189         goto *(SOB_CLOSURE_CODE(r_res));
1190         sp = sp-2-stack[sp-2];
1191         fp = pop();
1192         RETURN();
1193 __skipBody22:
1194         r_res = (int)makeSchemeClosure((void*)r[0],&&__body22);
1195         push(r_res);
1196         push(2);
1197         r_res = (int)probeSymbolDefined("andmap",topLevel);
1198         if (r_res==0) goto __else39;
1199         if (! ((SymbolEntry*)r_res)->isDefined) goto __else39;
1200         r_res = (int)((SymbolEntry*)r_res)->sob;
1201         goto __endIf39;
1202 __else39:
1203         fprintf(stderr,"Symbol andmap not defined"); exit(-1);
1204 __endIf39:
1205         if (IS_SOB_CLOSURE(r_res)) goto __app31;
1206         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1207 __app31:
1208         push((int)SOB_CLOSURE_ENV(r_res));
1209         push((int)&&__ret42);
1210         goto *(SOB_CLOSURE_CODE(r_res));
1211 __ret42:
1212         sp = sp-2-stack[sp-2];
1213         if ((SchemeObject*)r_res==&sc_false) goto __else36;
1214
1215         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
1216         r_res = ST_ARG(1);
1217         push(r_res);
1218         push(1);
1219         r_res = (int)probeSymbolDefined("cdr",topLevel);
1220         if (r_res==0) goto __else40;
1221         if (! ((SymbolEntry*)r_res)->isDefined) goto __else40;
1222         r_res = (int)((SymbolEntry*)r_res)->sob;
1223         goto __endIf40;
1224 __else40:
1225         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1226 __endIf40:
1227         if (IS_SOB_CLOSURE(r_res)) goto __app33;
1228         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1229 __app33:
1230         push((int)SOB_CLOSURE_ENV(r_res));
1231         push((int)&&__ret44);
1232         goto *(SOB_CLOSURE_CODE(r_res));
1233 __ret44:
1234         sp = sp-2-stack[sp-2];
1235         push(r_res);
1236
1237         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
1238         r_res = ST_ARG(1);
1239         push(r_res);
1240         push(1);
1241         r_res = (int)probeSymbolDefined("car",topLevel);
1242         if (r_res==0) goto __else41;
1243         if (! ((SymbolEntry*)r_res)->isDefined) goto __else41;
1244         r_res = (int)((SymbolEntry*)r_res)->sob;
1245         goto __endIf41;
1246 __else41:
1247         fprintf(stderr,"Symbol car not defined"); exit(-1);
1248 __endIf41:
1249         if (IS_SOB_CLOSURE(r_res)) goto __app34;
1250         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1251 __app34:
1252         push((int)SOB_CLOSURE_ENV(r_res));
1253         push((int)&&__ret45);
1254         goto *(SOB_CLOSURE_CODE(r_res));
1255 __ret45:
1256         sp = sp-2-stack[sp-2];
1257         push(r_res);
1258         push(2);
1259
1260         r_res = (int)&__sc_number9;
1261         push(r_res);
1262         r_res = ((int**)ST_ENV())[0][0];
1263         push(r_res);
1264         push(2);
1265         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
1266         if (r_res==0) goto __else42;
1267         if (! ((SymbolEntry*)r_res)->isDefined) goto __else42;
1268         r_res = (int)((SymbolEntry*)r_res)->sob;
1269         goto __endIf42;
1270 __else42:
1271         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
1272 __endIf42:
1273         if (IS_SOB_CLOSURE(r_res)) goto __app35;
1274         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1275 __app35:
1276         push((int)SOB_CLOSURE_ENV(r_res));
1277         push((int)&&__ret46);
1278         goto *(SOB_CLOSURE_CODE(r_res));
1279 __ret46:
1280         sp = sp-2-stack[sp-2];
1281         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1282         push((int)SOB_CLOSURE_ENV(r_res));
1283         push(ST_RET());
1284         shiftActFrmDown();
1285         goto *(SOB_CLOSURE_CODE(r_res));
1286         sp = sp-2-stack[sp-2];
1287         goto __endIf36;
1288 __else36:
1289         r_res = (int)&sc_false;
1290 __endIf36:
1291         if ((SchemeObject*)r_res!=&sc_false) goto __endOr4;
1292 __endOr4:
1293         fp = pop();
1294         RETURN();
1295 __skipBody21:
1296         r_res = (int)makeSchemeClosure((void*)r[0],&&__body21);
1297         push(r_res);
1298         r_res = (int)&__sc_number10;
1299         push(r_res);
1300         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1301         r_res = ST_ARG(0);
1302         push(r_res);
1303         push(3);
1304         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
1305         if (r_res==0) goto __else43;
1306         if (! ((SymbolEntry*)r_res)->isDefined) goto __else43;
1307         r_res = (int)((SymbolEntry*)r_res)->sob;
1308         goto __endIf43;
1309 __else43:
1310         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
1311 __endIf43:
1312         if (IS_SOB_CLOSURE(r_res)) goto __app29;
1313         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1314 __app29:
1315         push((int)SOB_CLOSURE_ENV(r_res));
1316         push((int)&&__ret40);
1317         goto *(SOB_CLOSURE_CODE(r_res));
1318 __ret40:
1319         sp = sp-2-stack[sp-2];
1320         push(0);
1321         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
1322         goto __skipBody23;
1323 __body23:
1324         push(fp);
1325         fp = sp;
1326         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1327         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
1328         goto __skipBody24;
1329 __body24:
1330         push(fp);
1331         fp = sp;
1332         prepareStackForAbsOpt(1);
1333         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1334
1335         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1336         r_res = ST_ARG(0);
1337         push(r_res);
1338         push(1);
1339         r_res = (int)probeSymbolDefined("cdr",topLevel);
1340         if (r_res==0) goto __else44;
1341         if (! ((SymbolEntry*)r_res)->isDefined) goto __else44;
1342         r_res = (int)((SymbolEntry*)r_res)->sob;
1343         goto __endIf44;
1344 __else44:
1345         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1346 __endIf44:
1347         if (IS_SOB_CLOSURE(r_res)) goto __app36;
1348         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1349 __app36:
1350         push((int)SOB_CLOSURE_ENV(r_res));
1351         push((int)&&__ret47);
1352         goto *(SOB_CLOSURE_CODE(r_res));
1353 __ret47:
1354         sp = sp-2-stack[sp-2];
1355         push(r_res);
1356
1357         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1358         r_res = ST_ARG(0);
1359         push(r_res);
1360         push(1);
1361         r_res = (int)probeSymbolDefined("car",topLevel);
1362         if (r_res==0) goto __else45;
1363         if (! ((SymbolEntry*)r_res)->isDefined) goto __else45;
1364         r_res = (int)((SymbolEntry*)r_res)->sob;
1365         goto __endIf45;
1366 __else45:
1367         fprintf(stderr,"Symbol car not defined"); exit(-1);
1368 __endIf45:
1369         if (IS_SOB_CLOSURE(r_res)) goto __app37;
1370         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1371 __app37:
1372         push((int)SOB_CLOSURE_ENV(r_res));
1373         push((int)&&__ret48);
1374         goto *(SOB_CLOSURE_CODE(r_res));
1375 __ret48:
1376         sp = sp-2-stack[sp-2];
1377         push(r_res);
1378         push(2);
1379
1380         r_res = (int)&__sc_number11;
1381         push(r_res);
1382         r_res = ((int**)ST_ENV())[1][0];
1383         push(r_res);
1384         push(2);
1385         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
1386         if (r_res==0) goto __else46;
1387         if (! ((SymbolEntry*)r_res)->isDefined) goto __else46;
1388         r_res = (int)((SymbolEntry*)r_res)->sob;
1389         goto __endIf46;
1390 __else46:
1391         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
1392 __endIf46:
1393         if (IS_SOB_CLOSURE(r_res)) goto __app38;
1394         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1395 __app38:
1396         push((int)SOB_CLOSURE_ENV(r_res));
1397         push((int)&&__ret49);
1398         goto *(SOB_CLOSURE_CODE(r_res));
1399 __ret49:
1400         sp = sp-2-stack[sp-2];
1401         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1402         push((int)SOB_CLOSURE_ENV(r_res));
1403         push(ST_RET());
1404         shiftActFrmDown();
1405         goto *(SOB_CLOSURE_CODE(r_res));
1406         sp = sp-2-stack[sp-2];
1407         fp = pop();
1408         RETURN();
1409 __skipBody24:
1410         r_res = (int)makeSchemeClosure((void*)r[0],&&__body24);
1411         fp = pop();
1412         RETURN();
1413 __skipBody23:
1414         r_res = (int)makeSchemeClosure((void*)r[0],&&__body23);
1415         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1416         push((int)SOB_CLOSURE_ENV(r_res));
1417         push(ST_RET());
1418         shiftActFrmDown();
1419         goto *(SOB_CLOSURE_CODE(r_res));
1420         sp = sp-2-stack[sp-2];
1421         fp = pop();
1422         RETURN();
1423 __skipBody20:
1424         r_res = (int)makeSchemeClosure((void*)r[0],&&__body20);
1425         if (IS_SOB_CLOSURE(r_res)) goto __app27;
1426         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1427 __app27:
1428         push((int)SOB_CLOSURE_ENV(r_res));
1429         push((int)&&__ret38);
1430         goto *(SOB_CLOSURE_CODE(r_res));
1431 __ret38:
1432         sp = sp-2-stack[sp-2];
1433         r[0] = (int)getSymbol("<>",topLevel);
1434         ((SymbolEntry*)r[0])->isDefined = 1;
1435         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1436         r_res = (int)&sc_void;
1437 __ret37:
1438         /* set return address */
1439         ST_RET() = (int)&&__ret50;
1440
1441         r[0] = (int)extendEnviroment( (int**)NULL, 0);
1442         goto __skipBody25;
1443 __body25:
1444         push(fp);
1445         fp = sp;
1446         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1447         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1448         r_res = ST_ARG(0);
1449         if ((SchemeObject*)r_res==&sc_false) goto __else47;
1450         r_res = (int)&sc_false;
1451         goto __endIf47;
1452 __else47:
1453         r_res = (int)&sc_true;
1454 __endIf47:
1455         fp = pop();
1456         RETURN();
1457 __skipBody25:
1458         r_res = (int)makeSchemeClosure((void*)r[0],&&__body25);
1459         r[0] = (int)getSymbol("not",topLevel);
1460         ((SymbolEntry*)r[0])->isDefined = 1;
1461         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1462         r_res = (int)&sc_void;
1463 __ret50:
1464         /* set return address */
1465         ST_RET() = (int)&&__ret51;
1466
1467         r[0] = (int)extendEnviroment( (int**)NULL, 0);
1468         goto __skipBody26;
1469 __body26:
1470         push(fp);
1471         fp = sp;
1472         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1473         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
1474         goto __skipBody27;
1475 __body27:
1476         push(fp);
1477         fp = sp;
1478         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1479
1480
1481         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1482         r_res = ST_ARG(0);
1483         push(r_res);
1484         push(1);
1485         r_res = ((int**)ST_ENV())[0][1];
1486         if (IS_SOB_CLOSURE(r_res)) goto __app40;
1487         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1488 __app40:
1489         push((int)SOB_CLOSURE_ENV(r_res));
1490         push((int)&&__ret53);
1491         goto *(SOB_CLOSURE_CODE(r_res));
1492 __ret53:
1493         sp = sp-2-stack[sp-2];
1494         push(r_res);
1495         push(1);
1496         r_res = ((int**)ST_ENV())[0][0];
1497         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1498         push((int)SOB_CLOSURE_ENV(r_res));
1499         push(ST_RET());
1500         shiftActFrmDown();
1501         goto *(SOB_CLOSURE_CODE(r_res));
1502         sp = sp-2-stack[sp-2];
1503         fp = pop();
1504         RETURN();
1505 __skipBody27:
1506         r_res = (int)makeSchemeClosure((void*)r[0],&&__body27);
1507         fp = pop();
1508         RETURN();
1509 __skipBody26:
1510         r_res = (int)makeSchemeClosure((void*)r[0],&&__body26);
1511         push(r_res);
1512         push(1);
1513         r[0] = (int)extendEnviroment( (int**)NULL, 0);
1514         goto __skipBody28;
1515 __body28:
1516         push(fp);
1517         fp = sp;
1518         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1519         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
1520         goto __skipBody29;
1521 __body29:
1522         push(fp);
1523         fp = sp;
1524         prepareStackForAbsOpt(1);
1525         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1526
1527         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1528         r_res = ST_ARG(0);
1529         push(r_res);
1530         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
1531         goto __skipBody30;
1532 __body30:
1533         push(fp);
1534         fp = sp;
1535         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1536         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1537         r_res = ST_ARG(0);
1538         fp = pop();
1539         RETURN();
1540 __skipBody30:
1541         r_res = (int)makeSchemeClosure((void*)r[0],&&__body30);
1542         push(r_res);
1543         r_res = ((int**)ST_ENV())[0][0];
1544         push(r_res);
1545         push(3);
1546         r_res = (int)probeSymbolDefined("foldr",topLevel);
1547         if (r_res==0) goto __else48;
1548         if (! ((SymbolEntry*)r_res)->isDefined) goto __else48;
1549         r_res = (int)((SymbolEntry*)r_res)->sob;
1550         goto __endIf48;
1551 __else48:
1552         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
1553 __endIf48:
1554         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1555         push((int)SOB_CLOSURE_ENV(r_res));
1556         push(ST_RET());
1557         shiftActFrmDown();
1558         goto *(SOB_CLOSURE_CODE(r_res));
1559         sp = sp-2-stack[sp-2];
1560         fp = pop();
1561         RETURN();
1562 __skipBody29:
1563         r_res = (int)makeSchemeClosure((void*)r[0],&&__body29);
1564         fp = pop();
1565         RETURN();
1566 __skipBody28:
1567         r_res = (int)makeSchemeClosure((void*)r[0],&&__body28);
1568         if (IS_SOB_CLOSURE(r_res)) goto __app39;
1569         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1570 __app39:
1571         push((int)SOB_CLOSURE_ENV(r_res));
1572         push((int)&&__ret52);
1573         goto *(SOB_CLOSURE_CODE(r_res));
1574 __ret52:
1575         sp = sp-2-stack[sp-2];
1576         r[0] = (int)getSymbol("compose",topLevel);
1577         ((SymbolEntry*)r[0])->isDefined = 1;
1578         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1579         r_res = (int)&sc_void;
1580 __ret51:
1581         /* set return address */
1582         ST_RET() = (int)&&__ret54;
1583
1584
1585         r_res = (int)probeSymbolDefined("car",topLevel);
1586         if (r_res==0) goto __else49;
1587         if (! ((SymbolEntry*)r_res)->isDefined) goto __else49;
1588         r_res = (int)((SymbolEntry*)r_res)->sob;
1589         goto __endIf49;
1590 __else49:
1591         fprintf(stderr,"Symbol car not defined"); exit(-1);
1592 __endIf49:
1593         push(r_res);
1594         r_res = (int)probeSymbolDefined("car",topLevel);
1595         if (r_res==0) goto __else50;
1596         if (! ((SymbolEntry*)r_res)->isDefined) goto __else50;
1597         r_res = (int)((SymbolEntry*)r_res)->sob;
1598         goto __endIf50;
1599 __else50:
1600         fprintf(stderr,"Symbol car not defined"); exit(-1);
1601 __endIf50:
1602         push(r_res);
1603         push(2);
1604         r_res = (int)probeSymbolDefined("compose",topLevel);
1605         if (r_res==0) goto __else51;
1606         if (! ((SymbolEntry*)r_res)->isDefined) goto __else51;
1607         r_res = (int)((SymbolEntry*)r_res)->sob;
1608         goto __endIf51;
1609 __else51:
1610         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1611 __endIf51:
1612         if (IS_SOB_CLOSURE(r_res)) goto __app41;
1613         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1614 __app41:
1615         push((int)SOB_CLOSURE_ENV(r_res));
1616         push((int)&&__ret55);
1617         goto *(SOB_CLOSURE_CODE(r_res));
1618 __ret55:
1619         sp = sp-2-stack[sp-2];
1620         r[0] = (int)getSymbol("caar",topLevel);
1621         ((SymbolEntry*)r[0])->isDefined = 1;
1622         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1623         r_res = (int)&sc_void;
1624 __ret54:
1625         /* set return address */
1626         ST_RET() = (int)&&__ret56;
1627
1628
1629         r_res = (int)probeSymbolDefined("cdr",topLevel);
1630         if (r_res==0) goto __else52;
1631         if (! ((SymbolEntry*)r_res)->isDefined) goto __else52;
1632         r_res = (int)((SymbolEntry*)r_res)->sob;
1633         goto __endIf52;
1634 __else52:
1635         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1636 __endIf52:
1637         push(r_res);
1638         r_res = (int)probeSymbolDefined("car",topLevel);
1639         if (r_res==0) goto __else53;
1640         if (! ((SymbolEntry*)r_res)->isDefined) goto __else53;
1641         r_res = (int)((SymbolEntry*)r_res)->sob;
1642         goto __endIf53;
1643 __else53:
1644         fprintf(stderr,"Symbol car not defined"); exit(-1);
1645 __endIf53:
1646         push(r_res);
1647         push(2);
1648         r_res = (int)probeSymbolDefined("compose",topLevel);
1649         if (r_res==0) goto __else54;
1650         if (! ((SymbolEntry*)r_res)->isDefined) goto __else54;
1651         r_res = (int)((SymbolEntry*)r_res)->sob;
1652         goto __endIf54;
1653 __else54:
1654         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1655 __endIf54:
1656         if (IS_SOB_CLOSURE(r_res)) goto __app42;
1657         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1658 __app42:
1659         push((int)SOB_CLOSURE_ENV(r_res));
1660         push((int)&&__ret57);
1661         goto *(SOB_CLOSURE_CODE(r_res));
1662 __ret57:
1663         sp = sp-2-stack[sp-2];
1664         r[0] = (int)getSymbol("cadr",topLevel);
1665         ((SymbolEntry*)r[0])->isDefined = 1;
1666         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1667         r_res = (int)&sc_void;
1668 __ret56:
1669         /* set return address */
1670         ST_RET() = (int)&&__ret58;
1671
1672
1673         r_res = (int)probeSymbolDefined("car",topLevel);
1674         if (r_res==0) goto __else55;
1675         if (! ((SymbolEntry*)r_res)->isDefined) goto __else55;
1676         r_res = (int)((SymbolEntry*)r_res)->sob;
1677         goto __endIf55;
1678 __else55:
1679         fprintf(stderr,"Symbol car not defined"); exit(-1);
1680 __endIf55:
1681         push(r_res);
1682         r_res = (int)probeSymbolDefined("cdr",topLevel);
1683         if (r_res==0) goto __else56;
1684         if (! ((SymbolEntry*)r_res)->isDefined) goto __else56;
1685         r_res = (int)((SymbolEntry*)r_res)->sob;
1686         goto __endIf56;
1687 __else56:
1688         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1689 __endIf56:
1690         push(r_res);
1691         push(2);
1692         r_res = (int)probeSymbolDefined("compose",topLevel);
1693         if (r_res==0) goto __else57;
1694         if (! ((SymbolEntry*)r_res)->isDefined) goto __else57;
1695         r_res = (int)((SymbolEntry*)r_res)->sob;
1696         goto __endIf57;
1697 __else57:
1698         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1699 __endIf57:
1700         if (IS_SOB_CLOSURE(r_res)) goto __app43;
1701         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1702 __app43:
1703         push((int)SOB_CLOSURE_ENV(r_res));
1704         push((int)&&__ret59);
1705         goto *(SOB_CLOSURE_CODE(r_res));
1706 __ret59:
1707         sp = sp-2-stack[sp-2];
1708         r[0] = (int)getSymbol("cdar",topLevel);
1709         ((SymbolEntry*)r[0])->isDefined = 1;
1710         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1711         r_res = (int)&sc_void;
1712 __ret58:
1713         /* set return address */
1714         ST_RET() = (int)&&__ret60;
1715
1716
1717         r_res = (int)probeSymbolDefined("cdr",topLevel);
1718         if (r_res==0) goto __else58;
1719         if (! ((SymbolEntry*)r_res)->isDefined) goto __else58;
1720         r_res = (int)((SymbolEntry*)r_res)->sob;
1721         goto __endIf58;
1722 __else58:
1723         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1724 __endIf58:
1725         push(r_res);
1726         r_res = (int)probeSymbolDefined("cdr",topLevel);
1727         if (r_res==0) goto __else59;
1728         if (! ((SymbolEntry*)r_res)->isDefined) goto __else59;
1729         r_res = (int)((SymbolEntry*)r_res)->sob;
1730         goto __endIf59;
1731 __else59:
1732         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1733 __endIf59:
1734         push(r_res);
1735         push(2);
1736         r_res = (int)probeSymbolDefined("compose",topLevel);
1737         if (r_res==0) goto __else60;
1738         if (! ((SymbolEntry*)r_res)->isDefined) goto __else60;
1739         r_res = (int)((SymbolEntry*)r_res)->sob;
1740         goto __endIf60;
1741 __else60:
1742         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1743 __endIf60:
1744         if (IS_SOB_CLOSURE(r_res)) goto __app44;
1745         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1746 __app44:
1747         push((int)SOB_CLOSURE_ENV(r_res));
1748         push((int)&&__ret61);
1749         goto *(SOB_CLOSURE_CODE(r_res));
1750 __ret61:
1751         sp = sp-2-stack[sp-2];
1752         r[0] = (int)getSymbol("cddr",topLevel);
1753         ((SymbolEntry*)r[0])->isDefined = 1;
1754         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1755         r_res = (int)&sc_void;
1756 __ret60:
1757         /* set return address */
1758         ST_RET() = (int)&&__ret62;
1759
1760
1761         r_res = (int)probeSymbolDefined("caar",topLevel);
1762         if (r_res==0) goto __else61;
1763         if (! ((SymbolEntry*)r_res)->isDefined) goto __else61;
1764         r_res = (int)((SymbolEntry*)r_res)->sob;
1765         goto __endIf61;
1766 __else61:
1767         fprintf(stderr,"Symbol caar not defined"); exit(-1);
1768 __endIf61:
1769         push(r_res);
1770         r_res = (int)probeSymbolDefined("car",topLevel);
1771         if (r_res==0) goto __else62;
1772         if (! ((SymbolEntry*)r_res)->isDefined) goto __else62;
1773         r_res = (int)((SymbolEntry*)r_res)->sob;
1774         goto __endIf62;
1775 __else62:
1776         fprintf(stderr,"Symbol car not defined"); exit(-1);
1777 __endIf62:
1778         push(r_res);
1779         push(2);
1780         r_res = (int)probeSymbolDefined("compose",topLevel);
1781         if (r_res==0) goto __else63;
1782         if (! ((SymbolEntry*)r_res)->isDefined) goto __else63;
1783         r_res = (int)((SymbolEntry*)r_res)->sob;
1784         goto __endIf63;
1785 __else63:
1786         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1787 __endIf63:
1788         if (IS_SOB_CLOSURE(r_res)) goto __app45;
1789         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1790 __app45:
1791         push((int)SOB_CLOSURE_ENV(r_res));
1792         push((int)&&__ret63);
1793         goto *(SOB_CLOSURE_CODE(r_res));
1794 __ret63:
1795         sp = sp-2-stack[sp-2];
1796         r[0] = (int)getSymbol("caaar",topLevel);
1797         ((SymbolEntry*)r[0])->isDefined = 1;
1798         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1799         r_res = (int)&sc_void;
1800 __ret62:
1801         /* set return address */
1802         ST_RET() = (int)&&__ret64;
1803
1804
1805         r_res = (int)probeSymbolDefined("cadr",topLevel);
1806         if (r_res==0) goto __else64;
1807         if (! ((SymbolEntry*)r_res)->isDefined) goto __else64;
1808         r_res = (int)((SymbolEntry*)r_res)->sob;
1809         goto __endIf64;
1810 __else64:
1811         fprintf(stderr,"Symbol cadr not defined"); exit(-1);
1812 __endIf64:
1813         push(r_res);
1814         r_res = (int)probeSymbolDefined("car",topLevel);
1815         if (r_res==0) goto __else65;
1816         if (! ((SymbolEntry*)r_res)->isDefined) goto __else65;
1817         r_res = (int)((SymbolEntry*)r_res)->sob;
1818         goto __endIf65;
1819 __else65:
1820         fprintf(stderr,"Symbol car not defined"); exit(-1);
1821 __endIf65:
1822         push(r_res);
1823         push(2);
1824         r_res = (int)probeSymbolDefined("compose",topLevel);
1825         if (r_res==0) goto __else66;
1826         if (! ((SymbolEntry*)r_res)->isDefined) goto __else66;
1827         r_res = (int)((SymbolEntry*)r_res)->sob;
1828         goto __endIf66;
1829 __else66:
1830         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1831 __endIf66:
1832         if (IS_SOB_CLOSURE(r_res)) goto __app46;
1833         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1834 __app46:
1835         push((int)SOB_CLOSURE_ENV(r_res));
1836         push((int)&&__ret65);
1837         goto *(SOB_CLOSURE_CODE(r_res));
1838 __ret65:
1839         sp = sp-2-stack[sp-2];
1840         r[0] = (int)getSymbol("caadr",topLevel);
1841         ((SymbolEntry*)r[0])->isDefined = 1;
1842         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1843         r_res = (int)&sc_void;
1844 __ret64:
1845         /* set return address */
1846         ST_RET() = (int)&&__ret66;
1847
1848
1849         r_res = (int)probeSymbolDefined("cdar",topLevel);
1850         if (r_res==0) goto __else67;
1851         if (! ((SymbolEntry*)r_res)->isDefined) goto __else67;
1852         r_res = (int)((SymbolEntry*)r_res)->sob;
1853         goto __endIf67;
1854 __else67:
1855         fprintf(stderr,"Symbol cdar not defined"); exit(-1);
1856 __endIf67:
1857         push(r_res);
1858         r_res = (int)probeSymbolDefined("car",topLevel);
1859         if (r_res==0) goto __else68;
1860         if (! ((SymbolEntry*)r_res)->isDefined) goto __else68;
1861         r_res = (int)((SymbolEntry*)r_res)->sob;
1862         goto __endIf68;
1863 __else68:
1864         fprintf(stderr,"Symbol car not defined"); exit(-1);
1865 __endIf68:
1866         push(r_res);
1867         push(2);
1868         r_res = (int)probeSymbolDefined("compose",topLevel);
1869         if (r_res==0) goto __else69;
1870         if (! ((SymbolEntry*)r_res)->isDefined) goto __else69;
1871         r_res = (int)((SymbolEntry*)r_res)->sob;
1872         goto __endIf69;
1873 __else69:
1874         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1875 __endIf69:
1876         if (IS_SOB_CLOSURE(r_res)) goto __app47;
1877         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1878 __app47:
1879         push((int)SOB_CLOSURE_ENV(r_res));
1880         push((int)&&__ret67);
1881         goto *(SOB_CLOSURE_CODE(r_res));
1882 __ret67:
1883         sp = sp-2-stack[sp-2];
1884         r[0] = (int)getSymbol("cadar",topLevel);
1885         ((SymbolEntry*)r[0])->isDefined = 1;
1886         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1887         r_res = (int)&sc_void;
1888 __ret66:
1889         /* set return address */
1890         ST_RET() = (int)&&__ret68;
1891
1892
1893         r_res = (int)probeSymbolDefined("cddr",topLevel);
1894         if (r_res==0) goto __else70;
1895         if (! ((SymbolEntry*)r_res)->isDefined) goto __else70;
1896         r_res = (int)((SymbolEntry*)r_res)->sob;
1897         goto __endIf70;
1898 __else70:
1899         fprintf(stderr,"Symbol cddr not defined"); exit(-1);
1900 __endIf70:
1901         push(r_res);
1902         r_res = (int)probeSymbolDefined("car",topLevel);
1903         if (r_res==0) goto __else71;
1904         if (! ((SymbolEntry*)r_res)->isDefined) goto __else71;
1905         r_res = (int)((SymbolEntry*)r_res)->sob;
1906         goto __endIf71;
1907 __else71:
1908         fprintf(stderr,"Symbol car not defined"); exit(-1);
1909 __endIf71:
1910         push(r_res);
1911         push(2);
1912         r_res = (int)probeSymbolDefined("compose",topLevel);
1913         if (r_res==0) goto __else72;
1914         if (! ((SymbolEntry*)r_res)->isDefined) goto __else72;
1915         r_res = (int)((SymbolEntry*)r_res)->sob;
1916         goto __endIf72;
1917 __else72:
1918         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1919 __endIf72:
1920         if (IS_SOB_CLOSURE(r_res)) goto __app48;
1921         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1922 __app48:
1923         push((int)SOB_CLOSURE_ENV(r_res));
1924         push((int)&&__ret69);
1925         goto *(SOB_CLOSURE_CODE(r_res));
1926 __ret69:
1927         sp = sp-2-stack[sp-2];
1928         r[0] = (int)getSymbol("caddr",topLevel);
1929         ((SymbolEntry*)r[0])->isDefined = 1;
1930         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1931         r_res = (int)&sc_void;
1932 __ret68:
1933         /* set return address */
1934         ST_RET() = (int)&&__ret70;
1935
1936
1937         r_res = (int)probeSymbolDefined("caar",topLevel);
1938         if (r_res==0) goto __else73;
1939         if (! ((SymbolEntry*)r_res)->isDefined) goto __else73;
1940         r_res = (int)((SymbolEntry*)r_res)->sob;
1941         goto __endIf73;
1942 __else73:
1943         fprintf(stderr,"Symbol caar not defined"); exit(-1);
1944 __endIf73:
1945         push(r_res);
1946         r_res = (int)probeSymbolDefined("cdr",topLevel);
1947         if (r_res==0) goto __else74;
1948         if (! ((SymbolEntry*)r_res)->isDefined) goto __else74;
1949         r_res = (int)((SymbolEntry*)r_res)->sob;
1950         goto __endIf74;
1951 __else74:
1952         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1953 __endIf74:
1954         push(r_res);
1955         push(2);
1956         r_res = (int)probeSymbolDefined("compose",topLevel);
1957         if (r_res==0) goto __else75;
1958         if (! ((SymbolEntry*)r_res)->isDefined) goto __else75;
1959         r_res = (int)((SymbolEntry*)r_res)->sob;
1960         goto __endIf75;
1961 __else75:
1962         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1963 __endIf75:
1964         if (IS_SOB_CLOSURE(r_res)) goto __app49;
1965         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1966 __app49:
1967         push((int)SOB_CLOSURE_ENV(r_res));
1968         push((int)&&__ret71);
1969         goto *(SOB_CLOSURE_CODE(r_res));
1970 __ret71:
1971         sp = sp-2-stack[sp-2];
1972         r[0] = (int)getSymbol("cdaar",topLevel);
1973         ((SymbolEntry*)r[0])->isDefined = 1;
1974         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1975         r_res = (int)&sc_void;
1976 __ret70:
1977         /* set return address */
1978         ST_RET() = (int)&&__ret72;
1979
1980
1981         r_res = (int)probeSymbolDefined("cadr",topLevel);
1982         if (r_res==0) goto __else76;
1983         if (! ((SymbolEntry*)r_res)->isDefined) goto __else76;
1984         r_res = (int)((SymbolEntry*)r_res)->sob;
1985         goto __endIf76;
1986 __else76:
1987         fprintf(stderr,"Symbol cadr not defined"); exit(-1);
1988 __endIf76:
1989         push(r_res);
1990         r_res = (int)probeSymbolDefined("cdr",topLevel);
1991         if (r_res==0) goto __else77;
1992         if (! ((SymbolEntry*)r_res)->isDefined) goto __else77;
1993         r_res = (int)((SymbolEntry*)r_res)->sob;
1994         goto __endIf77;
1995 __else77:
1996         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1997 __endIf77:
1998         push(r_res);
1999         push(2);
2000         r_res = (int)probeSymbolDefined("compose",topLevel);
2001         if (r_res==0) goto __else78;
2002         if (! ((SymbolEntry*)r_res)->isDefined) goto __else78;
2003         r_res = (int)((SymbolEntry*)r_res)->sob;
2004         goto __endIf78;
2005 __else78:
2006         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2007 __endIf78:
2008         if (IS_SOB_CLOSURE(r_res)) goto __app50;
2009         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2010 __app50:
2011         push((int)SOB_CLOSURE_ENV(r_res));
2012         push((int)&&__ret73);
2013         goto *(SOB_CLOSURE_CODE(r_res));
2014 __ret73:
2015         sp = sp-2-stack[sp-2];
2016         r[0] = (int)getSymbol("cdadr",topLevel);
2017         ((SymbolEntry*)r[0])->isDefined = 1;
2018         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2019         r_res = (int)&sc_void;
2020 __ret72:
2021         /* set return address */
2022         ST_RET() = (int)&&__ret74;
2023
2024
2025         r_res = (int)probeSymbolDefined("cdar",topLevel);
2026         if (r_res==0) goto __else79;
2027         if (! ((SymbolEntry*)r_res)->isDefined) goto __else79;
2028         r_res = (int)((SymbolEntry*)r_res)->sob;
2029         goto __endIf79;
2030 __else79:
2031         fprintf(stderr,"Symbol cdar not defined"); exit(-1);
2032 __endIf79:
2033         push(r_res);
2034         r_res = (int)probeSymbolDefined("cdr",topLevel);
2035         if (r_res==0) goto __else80;
2036         if (! ((SymbolEntry*)r_res)->isDefined) goto __else80;
2037         r_res = (int)((SymbolEntry*)r_res)->sob;
2038         goto __endIf80;
2039 __else80:
2040         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2041 __endIf80:
2042         push(r_res);
2043         push(2);
2044         r_res = (int)probeSymbolDefined("compose",topLevel);
2045         if (r_res==0) goto __else81;
2046         if (! ((SymbolEntry*)r_res)->isDefined) goto __else81;
2047         r_res = (int)((SymbolEntry*)r_res)->sob;
2048         goto __endIf81;
2049 __else81:
2050         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2051 __endIf81:
2052         if (IS_SOB_CLOSURE(r_res)) goto __app51;
2053         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2054 __app51:
2055         push((int)SOB_CLOSURE_ENV(r_res));
2056         push((int)&&__ret75);
2057         goto *(SOB_CLOSURE_CODE(r_res));
2058 __ret75:
2059         sp = sp-2-stack[sp-2];
2060         r[0] = (int)getSymbol("cddar",topLevel);
2061         ((SymbolEntry*)r[0])->isDefined = 1;
2062         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2063         r_res = (int)&sc_void;
2064 __ret74:
2065         /* set return address */
2066         ST_RET() = (int)&&__ret76;
2067
2068
2069         r_res = (int)probeSymbolDefined("cddr",topLevel);
2070         if (r_res==0) goto __else82;
2071         if (! ((SymbolEntry*)r_res)->isDefined) goto __else82;
2072         r_res = (int)((SymbolEntry*)r_res)->sob;
2073         goto __endIf82;
2074 __else82:
2075         fprintf(stderr,"Symbol cddr not defined"); exit(-1);
2076 __endIf82:
2077         push(r_res);
2078         r_res = (int)probeSymbolDefined("cdr",topLevel);
2079         if (r_res==0) goto __else83;
2080         if (! ((SymbolEntry*)r_res)->isDefined) goto __else83;
2081         r_res = (int)((SymbolEntry*)r_res)->sob;
2082         goto __endIf83;
2083 __else83:
2084         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2085 __endIf83:
2086         push(r_res);
2087         push(2);
2088         r_res = (int)probeSymbolDefined("compose",topLevel);
2089         if (r_res==0) goto __else84;
2090         if (! ((SymbolEntry*)r_res)->isDefined) goto __else84;
2091         r_res = (int)((SymbolEntry*)r_res)->sob;
2092         goto __endIf84;
2093 __else84:
2094         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2095 __endIf84:
2096         if (IS_SOB_CLOSURE(r_res)) goto __app52;
2097         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2098 __app52:
2099         push((int)SOB_CLOSURE_ENV(r_res));
2100         push((int)&&__ret77);
2101         goto *(SOB_CLOSURE_CODE(r_res));
2102 __ret77:
2103         sp = sp-2-stack[sp-2];
2104         r[0] = (int)getSymbol("cdddr",topLevel);
2105         ((SymbolEntry*)r[0])->isDefined = 1;
2106         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2107         r_res = (int)&sc_void;
2108 __ret76:
2109         /* set return address */
2110         ST_RET() = (int)&&__ret78;
2111
2112
2113         r_res = (int)probeSymbolDefined("caaar",topLevel);
2114         if (r_res==0) goto __else85;
2115         if (! ((SymbolEntry*)r_res)->isDefined) goto __else85;
2116         r_res = (int)((SymbolEntry*)r_res)->sob;
2117         goto __endIf85;
2118 __else85:
2119         fprintf(stderr,"Symbol caaar not defined"); exit(-1);
2120 __endIf85:
2121         push(r_res);
2122         r_res = (int)probeSymbolDefined("car",topLevel);
2123         if (r_res==0) goto __else86;
2124         if (! ((SymbolEntry*)r_res)->isDefined) goto __else86;
2125         r_res = (int)((SymbolEntry*)r_res)->sob;
2126         goto __endIf86;
2127 __else86:
2128         fprintf(stderr,"Symbol car not defined"); exit(-1);
2129 __endIf86:
2130         push(r_res);
2131         push(2);
2132         r_res = (int)probeSymbolDefined("compose",topLevel);
2133         if (r_res==0) goto __else87;
2134         if (! ((SymbolEntry*)r_res)->isDefined) goto __else87;
2135         r_res = (int)((SymbolEntry*)r_res)->sob;
2136         goto __endIf87;
2137 __else87:
2138         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2139 __endIf87:
2140         if (IS_SOB_CLOSURE(r_res)) goto __app53;
2141         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2142 __app53:
2143         push((int)SOB_CLOSURE_ENV(r_res));
2144         push((int)&&__ret79);
2145         goto *(SOB_CLOSURE_CODE(r_res));
2146 __ret79:
2147         sp = sp-2-stack[sp-2];
2148         r[0] = (int)getSymbol("caaaar",topLevel);
2149         ((SymbolEntry*)r[0])->isDefined = 1;
2150         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2151         r_res = (int)&sc_void;
2152 __ret78:
2153         /* set return address */
2154         ST_RET() = (int)&&__ret80;
2155
2156
2157         r_res = (int)probeSymbolDefined("caadr",topLevel);
2158         if (r_res==0) goto __else88;
2159         if (! ((SymbolEntry*)r_res)->isDefined) goto __else88;
2160         r_res = (int)((SymbolEntry*)r_res)->sob;
2161         goto __endIf88;
2162 __else88:
2163         fprintf(stderr,"Symbol caadr not defined"); exit(-1);
2164 __endIf88:
2165         push(r_res);
2166         r_res = (int)probeSymbolDefined("car",topLevel);
2167         if (r_res==0) goto __else89;
2168         if (! ((SymbolEntry*)r_res)->isDefined) goto __else89;
2169         r_res = (int)((SymbolEntry*)r_res)->sob;
2170         goto __endIf89;
2171 __else89:
2172         fprintf(stderr,"Symbol car not defined"); exit(-1);
2173 __endIf89:
2174         push(r_res);
2175         push(2);
2176         r_res = (int)probeSymbolDefined("compose",topLevel);
2177         if (r_res==0) goto __else90;
2178         if (! ((SymbolEntry*)r_res)->isDefined) goto __else90;
2179         r_res = (int)((SymbolEntry*)r_res)->sob;
2180         goto __endIf90;
2181 __else90:
2182         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2183 __endIf90:
2184         if (IS_SOB_CLOSURE(r_res)) goto __app54;
2185         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2186 __app54:
2187         push((int)SOB_CLOSURE_ENV(r_res));
2188         push((int)&&__ret81);
2189         goto *(SOB_CLOSURE_CODE(r_res));
2190 __ret81:
2191         sp = sp-2-stack[sp-2];
2192         r[0] = (int)getSymbol("caaadr",topLevel);
2193         ((SymbolEntry*)r[0])->isDefined = 1;
2194         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2195         r_res = (int)&sc_void;
2196 __ret80:
2197         /* set return address */
2198         ST_RET() = (int)&&__ret82;
2199
2200
2201         r_res = (int)probeSymbolDefined("cadar",topLevel);
2202         if (r_res==0) goto __else91;
2203         if (! ((SymbolEntry*)r_res)->isDefined) goto __else91;
2204         r_res = (int)((SymbolEntry*)r_res)->sob;
2205         goto __endIf91;
2206 __else91:
2207         fprintf(stderr,"Symbol cadar not defined"); exit(-1);
2208 __endIf91:
2209         push(r_res);
2210         r_res = (int)probeSymbolDefined("car",topLevel);
2211         if (r_res==0) goto __else92;
2212         if (! ((SymbolEntry*)r_res)->isDefined) goto __else92;
2213         r_res = (int)((SymbolEntry*)r_res)->sob;
2214         goto __endIf92;
2215 __else92:
2216         fprintf(stderr,"Symbol car not defined"); exit(-1);
2217 __endIf92:
2218         push(r_res);
2219         push(2);
2220         r_res = (int)probeSymbolDefined("compose",topLevel);
2221         if (r_res==0) goto __else93;
2222         if (! ((SymbolEntry*)r_res)->isDefined) goto __else93;
2223         r_res = (int)((SymbolEntry*)r_res)->sob;
2224         goto __endIf93;
2225 __else93:
2226         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2227 __endIf93:
2228         if (IS_SOB_CLOSURE(r_res)) goto __app55;
2229         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2230 __app55:
2231         push((int)SOB_CLOSURE_ENV(r_res));
2232         push((int)&&__ret83);
2233         goto *(SOB_CLOSURE_CODE(r_res));
2234 __ret83:
2235         sp = sp-2-stack[sp-2];
2236         r[0] = (int)getSymbol("caadar",topLevel);
2237         ((SymbolEntry*)r[0])->isDefined = 1;
2238         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2239         r_res = (int)&sc_void;
2240 __ret82:
2241         /* set return address */
2242         ST_RET() = (int)&&__ret84;
2243
2244
2245         r_res = (int)probeSymbolDefined("caddr",topLevel);
2246         if (r_res==0) goto __else94;
2247         if (! ((SymbolEntry*)r_res)->isDefined) goto __else94;
2248         r_res = (int)((SymbolEntry*)r_res)->sob;
2249         goto __endIf94;
2250 __else94:
2251         fprintf(stderr,"Symbol caddr not defined"); exit(-1);
2252 __endIf94:
2253         push(r_res);
2254         r_res = (int)probeSymbolDefined("car",topLevel);
2255         if (r_res==0) goto __else95;
2256         if (! ((SymbolEntry*)r_res)->isDefined) goto __else95;
2257         r_res = (int)((SymbolEntry*)r_res)->sob;
2258         goto __endIf95;
2259 __else95:
2260         fprintf(stderr,"Symbol car not defined"); exit(-1);
2261 __endIf95:
2262         push(r_res);
2263         push(2);
2264         r_res = (int)probeSymbolDefined("compose",topLevel);
2265         if (r_res==0) goto __else96;
2266         if (! ((SymbolEntry*)r_res)->isDefined) goto __else96;
2267         r_res = (int)((SymbolEntry*)r_res)->sob;
2268         goto __endIf96;
2269 __else96:
2270         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2271 __endIf96:
2272         if (IS_SOB_CLOSURE(r_res)) goto __app56;
2273         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2274 __app56:
2275         push((int)SOB_CLOSURE_ENV(r_res));
2276         push((int)&&__ret85);
2277         goto *(SOB_CLOSURE_CODE(r_res));
2278 __ret85:
2279         sp = sp-2-stack[sp-2];
2280         r[0] = (int)getSymbol("caaddr",topLevel);
2281         ((SymbolEntry*)r[0])->isDefined = 1;
2282         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2283         r_res = (int)&sc_void;
2284 __ret84:
2285         /* set return address */
2286         ST_RET() = (int)&&__ret86;
2287
2288
2289         r_res = (int)probeSymbolDefined("cdaar",topLevel);
2290         if (r_res==0) goto __else97;
2291         if (! ((SymbolEntry*)r_res)->isDefined) goto __else97;
2292         r_res = (int)((SymbolEntry*)r_res)->sob;
2293         goto __endIf97;
2294 __else97:
2295         fprintf(stderr,"Symbol cdaar not defined"); exit(-1);
2296 __endIf97:
2297         push(r_res);
2298         r_res = (int)probeSymbolDefined("car",topLevel);
2299         if (r_res==0) goto __else98;
2300         if (! ((SymbolEntry*)r_res)->isDefined) goto __else98;
2301         r_res = (int)((SymbolEntry*)r_res)->sob;
2302         goto __endIf98;
2303 __else98:
2304         fprintf(stderr,"Symbol car not defined"); exit(-1);
2305 __endIf98:
2306         push(r_res);
2307         push(2);
2308         r_res = (int)probeSymbolDefined("compose",topLevel);
2309         if (r_res==0) goto __else99;
2310         if (! ((SymbolEntry*)r_res)->isDefined) goto __else99;
2311         r_res = (int)((SymbolEntry*)r_res)->sob;
2312         goto __endIf99;
2313 __else99:
2314         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2315 __endIf99:
2316         if (IS_SOB_CLOSURE(r_res)) goto __app57;
2317         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2318 __app57:
2319         push((int)SOB_CLOSURE_ENV(r_res));
2320         push((int)&&__ret87);
2321         goto *(SOB_CLOSURE_CODE(r_res));
2322 __ret87:
2323         sp = sp-2-stack[sp-2];
2324         r[0] = (int)getSymbol("cadaar",topLevel);
2325         ((SymbolEntry*)r[0])->isDefined = 1;
2326         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2327         r_res = (int)&sc_void;
2328 __ret86:
2329         /* set return address */
2330         ST_RET() = (int)&&__ret88;
2331
2332
2333         r_res = (int)probeSymbolDefined("cdadr",topLevel);
2334         if (r_res==0) goto __else100;
2335         if (! ((SymbolEntry*)r_res)->isDefined) goto __else100;
2336         r_res = (int)((SymbolEntry*)r_res)->sob;
2337         goto __endIf100;
2338 __else100:
2339         fprintf(stderr,"Symbol cdadr not defined"); exit(-1);
2340 __endIf100:
2341         push(r_res);
2342         r_res = (int)probeSymbolDefined("car",topLevel);
2343         if (r_res==0) goto __else101;
2344         if (! ((SymbolEntry*)r_res)->isDefined) goto __else101;
2345         r_res = (int)((SymbolEntry*)r_res)->sob;
2346         goto __endIf101;
2347 __else101:
2348         fprintf(stderr,"Symbol car not defined"); exit(-1);
2349 __endIf101:
2350         push(r_res);
2351         push(2);
2352         r_res = (int)probeSymbolDefined("compose",topLevel);
2353         if (r_res==0) goto __else102;
2354         if (! ((SymbolEntry*)r_res)->isDefined) goto __else102;
2355         r_res = (int)((SymbolEntry*)r_res)->sob;
2356         goto __endIf102;
2357 __else102:
2358         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2359 __endIf102:
2360         if (IS_SOB_CLOSURE(r_res)) goto __app58;
2361         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2362 __app58:
2363         push((int)SOB_CLOSURE_ENV(r_res));
2364         push((int)&&__ret89);
2365         goto *(SOB_CLOSURE_CODE(r_res));
2366 __ret89:
2367         sp = sp-2-stack[sp-2];
2368         r[0] = (int)getSymbol("cadadr",topLevel);
2369         ((SymbolEntry*)r[0])->isDefined = 1;
2370         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2371         r_res = (int)&sc_void;
2372 __ret88:
2373         /* set return address */
2374         ST_RET() = (int)&&__ret90;
2375
2376
2377         r_res = (int)probeSymbolDefined("cddar",topLevel);
2378         if (r_res==0) goto __else103;
2379         if (! ((SymbolEntry*)r_res)->isDefined) goto __else103;
2380         r_res = (int)((SymbolEntry*)r_res)->sob;
2381         goto __endIf103;
2382 __else103:
2383         fprintf(stderr,"Symbol cddar not defined"); exit(-1);
2384 __endIf103:
2385         push(r_res);
2386         r_res = (int)probeSymbolDefined("car",topLevel);
2387         if (r_res==0) goto __else104;
2388         if (! ((SymbolEntry*)r_res)->isDefined) goto __else104;
2389         r_res = (int)((SymbolEntry*)r_res)->sob;
2390         goto __endIf104;
2391 __else104:
2392         fprintf(stderr,"Symbol car not defined"); exit(-1);
2393 __endIf104:
2394         push(r_res);
2395         push(2);
2396         r_res = (int)probeSymbolDefined("compose",topLevel);
2397         if (r_res==0) goto __else105;
2398         if (! ((SymbolEntry*)r_res)->isDefined) goto __else105;
2399         r_res = (int)((SymbolEntry*)r_res)->sob;
2400         goto __endIf105;
2401 __else105:
2402         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2403 __endIf105:
2404         if (IS_SOB_CLOSURE(r_res)) goto __app59;
2405         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2406 __app59:
2407         push((int)SOB_CLOSURE_ENV(r_res));
2408         push((int)&&__ret91);
2409         goto *(SOB_CLOSURE_CODE(r_res));
2410 __ret91:
2411         sp = sp-2-stack[sp-2];
2412         r[0] = (int)getSymbol("caddar",topLevel);
2413         ((SymbolEntry*)r[0])->isDefined = 1;
2414         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2415         r_res = (int)&sc_void;
2416 __ret90:
2417         /* set return address */
2418         ST_RET() = (int)&&__ret92;
2419
2420
2421         r_res = (int)probeSymbolDefined("cdddr",topLevel);
2422         if (r_res==0) goto __else106;
2423         if (! ((SymbolEntry*)r_res)->isDefined) goto __else106;
2424         r_res = (int)((SymbolEntry*)r_res)->sob;
2425         goto __endIf106;
2426 __else106:
2427         fprintf(stderr,"Symbol cdddr not defined"); exit(-1);
2428 __endIf106:
2429         push(r_res);
2430         r_res = (int)probeSymbolDefined("car",topLevel);
2431         if (r_res==0) goto __else107;
2432         if (! ((SymbolEntry*)r_res)->isDefined) goto __else107;
2433         r_res = (int)((SymbolEntry*)r_res)->sob;
2434         goto __endIf107;
2435 __else107:
2436         fprintf(stderr,"Symbol car not defined"); exit(-1);
2437 __endIf107:
2438         push(r_res);
2439         push(2);
2440         r_res = (int)probeSymbolDefined("compose",topLevel);
2441         if (r_res==0) goto __else108;
2442         if (! ((SymbolEntry*)r_res)->isDefined) goto __else108;
2443         r_res = (int)((SymbolEntry*)r_res)->sob;
2444         goto __endIf108;
2445 __else108:
2446         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2447 __endIf108:
2448         if (IS_SOB_CLOSURE(r_res)) goto __app60;
2449         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2450 __app60:
2451         push((int)SOB_CLOSURE_ENV(r_res));
2452         push((int)&&__ret93);
2453         goto *(SOB_CLOSURE_CODE(r_res));
2454 __ret93:
2455         sp = sp-2-stack[sp-2];
2456         r[0] = (int)getSymbol("cadddr",topLevel);
2457         ((SymbolEntry*)r[0])->isDefined = 1;
2458         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2459         r_res = (int)&sc_void;
2460 __ret92:
2461         /* set return address */
2462         ST_RET() = (int)&&__ret94;
2463
2464
2465         r_res = (int)probeSymbolDefined("caaar",topLevel);
2466         if (r_res==0) goto __else109;
2467         if (! ((SymbolEntry*)r_res)->isDefined) goto __else109;
2468         r_res = (int)((SymbolEntry*)r_res)->sob;
2469         goto __endIf109;
2470 __else109:
2471         fprintf(stderr,"Symbol caaar not defined"); exit(-1);
2472 __endIf109:
2473         push(r_res);
2474         r_res = (int)probeSymbolDefined("cdr",topLevel);
2475         if (r_res==0) goto __else110;
2476         if (! ((SymbolEntry*)r_res)->isDefined) goto __else110;
2477         r_res = (int)((SymbolEntry*)r_res)->sob;
2478         goto __endIf110;
2479 __else110:
2480         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2481 __endIf110:
2482         push(r_res);
2483         push(2);
2484         r_res = (int)probeSymbolDefined("compose",topLevel);
2485         if (r_res==0) goto __else111;
2486         if (! ((SymbolEntry*)r_res)->isDefined) goto __else111;
2487         r_res = (int)((SymbolEntry*)r_res)->sob;
2488         goto __endIf111;
2489 __else111:
2490         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2491 __endIf111:
2492         if (IS_SOB_CLOSURE(r_res)) goto __app61;
2493         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2494 __app61:
2495         push((int)SOB_CLOSURE_ENV(r_res));
2496         push((int)&&__ret95);
2497         goto *(SOB_CLOSURE_CODE(r_res));
2498 __ret95:
2499         sp = sp-2-stack[sp-2];
2500         r[0] = (int)getSymbol("cdaaar",topLevel);
2501         ((SymbolEntry*)r[0])->isDefined = 1;
2502         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2503         r_res = (int)&sc_void;
2504 __ret94:
2505         /* set return address */
2506         ST_RET() = (int)&&__ret96;
2507
2508
2509         r_res = (int)probeSymbolDefined("caadr",topLevel);
2510         if (r_res==0) goto __else112;
2511         if (! ((SymbolEntry*)r_res)->isDefined) goto __else112;
2512         r_res = (int)((SymbolEntry*)r_res)->sob;
2513         goto __endIf112;
2514 __else112:
2515         fprintf(stderr,"Symbol caadr not defined"); exit(-1);
2516 __endIf112:
2517         push(r_res);
2518         r_res = (int)probeSymbolDefined("cdr",topLevel);
2519         if (r_res==0) goto __else113;
2520         if (! ((SymbolEntry*)r_res)->isDefined) goto __else113;
2521         r_res = (int)((SymbolEntry*)r_res)->sob;
2522         goto __endIf113;
2523 __else113:
2524         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2525 __endIf113:
2526         push(r_res);
2527         push(2);
2528         r_res = (int)probeSymbolDefined("compose",topLevel);
2529         if (r_res==0) goto __else114;
2530         if (! ((SymbolEntry*)r_res)->isDefined) goto __else114;
2531         r_res = (int)((SymbolEntry*)r_res)->sob;
2532         goto __endIf114;
2533 __else114:
2534         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2535 __endIf114:
2536         if (IS_SOB_CLOSURE(r_res)) goto __app62;
2537         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2538 __app62:
2539         push((int)SOB_CLOSURE_ENV(r_res));
2540         push((int)&&__ret97);
2541         goto *(SOB_CLOSURE_CODE(r_res));
2542 __ret97:
2543         sp = sp-2-stack[sp-2];
2544         r[0] = (int)getSymbol("cdaadr",topLevel);
2545         ((SymbolEntry*)r[0])->isDefined = 1;
2546         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2547         r_res = (int)&sc_void;
2548 __ret96:
2549         /* set return address */
2550         ST_RET() = (int)&&__ret98;
2551
2552
2553         r_res = (int)probeSymbolDefined("cadar",topLevel);
2554         if (r_res==0) goto __else115;
2555         if (! ((SymbolEntry*)r_res)->isDefined) goto __else115;
2556         r_res = (int)((SymbolEntry*)r_res)->sob;
2557         goto __endIf115;
2558 __else115:
2559         fprintf(stderr,"Symbol cadar not defined"); exit(-1);
2560 __endIf115:
2561         push(r_res);
2562         r_res = (int)probeSymbolDefined("cdr",topLevel);
2563         if (r_res==0) goto __else116;
2564         if (! ((SymbolEntry*)r_res)->isDefined) goto __else116;
2565         r_res = (int)((SymbolEntry*)r_res)->sob;
2566         goto __endIf116;
2567 __else116:
2568         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2569 __endIf116:
2570         push(r_res);
2571         push(2);
2572         r_res = (int)probeSymbolDefined("compose",topLevel);
2573         if (r_res==0) goto __else117;
2574         if (! ((SymbolEntry*)r_res)->isDefined) goto __else117;
2575         r_res = (int)((SymbolEntry*)r_res)->sob;
2576         goto __endIf117;
2577 __else117:
2578         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2579 __endIf117:
2580         if (IS_SOB_CLOSURE(r_res)) goto __app63;
2581         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2582 __app63:
2583         push((int)SOB_CLOSURE_ENV(r_res));
2584         push((int)&&__ret99);
2585         goto *(SOB_CLOSURE_CODE(r_res));
2586 __ret99:
2587         sp = sp-2-stack[sp-2];
2588         r[0] = (int)getSymbol("cdadar",topLevel);
2589         ((SymbolEntry*)r[0])->isDefined = 1;
2590         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2591         r_res = (int)&sc_void;
2592 __ret98:
2593         /* set return address */
2594         ST_RET() = (int)&&__ret100;
2595
2596
2597         r_res = (int)probeSymbolDefined("caddr",topLevel);
2598         if (r_res==0) goto __else118;
2599         if (! ((SymbolEntry*)r_res)->isDefined) goto __else118;
2600         r_res = (int)((SymbolEntry*)r_res)->sob;
2601         goto __endIf118;
2602 __else118:
2603         fprintf(stderr,"Symbol caddr not defined"); exit(-1);
2604 __endIf118:
2605         push(r_res);
2606         r_res = (int)probeSymbolDefined("cdr",topLevel);
2607         if (r_res==0) goto __else119;
2608         if (! ((SymbolEntry*)r_res)->isDefined) goto __else119;
2609         r_res = (int)((SymbolEntry*)r_res)->sob;
2610         goto __endIf119;
2611 __else119:
2612         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2613 __endIf119:
2614         push(r_res);
2615         push(2);
2616         r_res = (int)probeSymbolDefined("compose",topLevel);
2617         if (r_res==0) goto __else120;
2618         if (! ((SymbolEntry*)r_res)->isDefined) goto __else120;
2619         r_res = (int)((SymbolEntry*)r_res)->sob;
2620         goto __endIf120;
2621 __else120:
2622         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2623 __endIf120:
2624         if (IS_SOB_CLOSURE(r_res)) goto __app64;
2625         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2626 __app64:
2627         push((int)SOB_CLOSURE_ENV(r_res));
2628         push((int)&&__ret101);
2629         goto *(SOB_CLOSURE_CODE(r_res));
2630 __ret101:
2631         sp = sp-2-stack[sp-2];
2632         r[0] = (int)getSymbol("cdaddr",topLevel);
2633         ((SymbolEntry*)r[0])->isDefined = 1;
2634         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2635         r_res = (int)&sc_void;
2636 __ret100:
2637         /* set return address */
2638         ST_RET() = (int)&&__ret102;
2639
2640
2641         r_res = (int)probeSymbolDefined("cdaar",topLevel);
2642         if (r_res==0) goto __else121;
2643         if (! ((SymbolEntry*)r_res)->isDefined) goto __else121;
2644         r_res = (int)((SymbolEntry*)r_res)->sob;
2645         goto __endIf121;
2646 __else121:
2647         fprintf(stderr,"Symbol cdaar not defined"); exit(-1);
2648 __endIf121:
2649         push(r_res);
2650         r_res = (int)probeSymbolDefined("cdr",topLevel);
2651         if (r_res==0) goto __else122;
2652         if (! ((SymbolEntry*)r_res)->isDefined) goto __else122;
2653         r_res = (int)((SymbolEntry*)r_res)->sob;
2654         goto __endIf122;
2655 __else122:
2656         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2657 __endIf122:
2658         push(r_res);
2659         push(2);
2660         r_res = (int)probeSymbolDefined("compose",topLevel);
2661         if (r_res==0) goto __else123;
2662         if (! ((SymbolEntry*)r_res)->isDefined) goto __else123;
2663         r_res = (int)((SymbolEntry*)r_res)->sob;
2664         goto __endIf123;
2665 __else123:
2666         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2667 __endIf123:
2668         if (IS_SOB_CLOSURE(r_res)) goto __app65;
2669         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2670 __app65:
2671         push((int)SOB_CLOSURE_ENV(r_res));
2672         push((int)&&__ret103);
2673         goto *(SOB_CLOSURE_CODE(r_res));
2674 __ret103:
2675         sp = sp-2-stack[sp-2];
2676         r[0] = (int)getSymbol("cddaar",topLevel);
2677         ((SymbolEntry*)r[0])->isDefined = 1;
2678         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2679         r_res = (int)&sc_void;
2680 __ret102:
2681         /* set return address */
2682         ST_RET() = (int)&&__ret104;
2683
2684
2685         r_res = (int)probeSymbolDefined("cdadr",topLevel);
2686         if (r_res==0) goto __else124;
2687         if (! ((SymbolEntry*)r_res)->isDefined) goto __else124;
2688         r_res = (int)((SymbolEntry*)r_res)->sob;
2689         goto __endIf124;
2690 __else124:
2691         fprintf(stderr,"Symbol cdadr not defined"); exit(-1);
2692 __endIf124:
2693         push(r_res);
2694         r_res = (int)probeSymbolDefined("cdr",topLevel);
2695         if (r_res==0) goto __else125;
2696         if (! ((SymbolEntry*)r_res)->isDefined) goto __else125;
2697         r_res = (int)((SymbolEntry*)r_res)->sob;
2698         goto __endIf125;
2699 __else125:
2700         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2701 __endIf125:
2702         push(r_res);
2703         push(2);
2704         r_res = (int)probeSymbolDefined("compose",topLevel);
2705         if (r_res==0) goto __else126;
2706         if (! ((SymbolEntry*)r_res)->isDefined) goto __else126;
2707         r_res = (int)((SymbolEntry*)r_res)->sob;
2708         goto __endIf126;
2709 __else126:
2710         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2711 __endIf126:
2712         if (IS_SOB_CLOSURE(r_res)) goto __app66;
2713         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2714 __app66:
2715         push((int)SOB_CLOSURE_ENV(r_res));
2716         push((int)&&__ret105);
2717         goto *(SOB_CLOSURE_CODE(r_res));
2718 __ret105:
2719         sp = sp-2-stack[sp-2];
2720         r[0] = (int)getSymbol("cddadr",topLevel);
2721         ((SymbolEntry*)r[0])->isDefined = 1;
2722         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2723         r_res = (int)&sc_void;
2724 __ret104:
2725         /* set return address */
2726         ST_RET() = (int)&&__ret106;
2727
2728
2729         r_res = (int)probeSymbolDefined("cddar",topLevel);
2730         if (r_res==0) goto __else127;
2731         if (! ((SymbolEntry*)r_res)->isDefined) goto __else127;
2732         r_res = (int)((SymbolEntry*)r_res)->sob;
2733         goto __endIf127;
2734 __else127:
2735         fprintf(stderr,"Symbol cddar not defined"); exit(-1);
2736 __endIf127:
2737         push(r_res);
2738         r_res = (int)probeSymbolDefined("cdr",topLevel);
2739         if (r_res==0) goto __else128;
2740         if (! ((SymbolEntry*)r_res)->isDefined) goto __else128;
2741         r_res = (int)((SymbolEntry*)r_res)->sob;
2742         goto __endIf128;
2743 __else128:
2744         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2745 __endIf128:
2746         push(r_res);
2747         push(2);
2748         r_res = (int)probeSymbolDefined("compose",topLevel);
2749         if (r_res==0) goto __else129;
2750         if (! ((SymbolEntry*)r_res)->isDefined) goto __else129;
2751         r_res = (int)((SymbolEntry*)r_res)->sob;
2752         goto __endIf129;
2753 __else129:
2754         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2755 __endIf129:
2756         if (IS_SOB_CLOSURE(r_res)) goto __app67;
2757         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2758 __app67:
2759         push((int)SOB_CLOSURE_ENV(r_res));
2760         push((int)&&__ret107);
2761         goto *(SOB_CLOSURE_CODE(r_res));
2762 __ret107:
2763         sp = sp-2-stack[sp-2];
2764         r[0] = (int)getSymbol("cdddar",topLevel);
2765         ((SymbolEntry*)r[0])->isDefined = 1;
2766         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2767         r_res = (int)&sc_void;
2768 __ret106:
2769         /* set return address */
2770         ST_RET() = (int)&&__ret108;
2771
2772
2773         r_res = (int)probeSymbolDefined("cdddr",topLevel);
2774         if (r_res==0) goto __else130;
2775         if (! ((SymbolEntry*)r_res)->isDefined) goto __else130;
2776         r_res = (int)((SymbolEntry*)r_res)->sob;
2777         goto __endIf130;
2778 __else130:
2779         fprintf(stderr,"Symbol cdddr not defined"); exit(-1);
2780 __endIf130:
2781         push(r_res);
2782         r_res = (int)probeSymbolDefined("cdr",topLevel);
2783         if (r_res==0) goto __else131;
2784         if (! ((SymbolEntry*)r_res)->isDefined) goto __else131;
2785         r_res = (int)((SymbolEntry*)r_res)->sob;
2786         goto __endIf131;
2787 __else131:
2788         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2789 __endIf131:
2790         push(r_res);
2791         push(2);
2792         r_res = (int)probeSymbolDefined("compose",topLevel);
2793         if (r_res==0) goto __else132;
2794         if (! ((SymbolEntry*)r_res)->isDefined) goto __else132;
2795         r_res = (int)((SymbolEntry*)r_res)->sob;
2796         goto __endIf132;
2797 __else132:
2798         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2799 __endIf132:
2800         if (IS_SOB_CLOSURE(r_res)) goto __app68;
2801         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2802 __app68:
2803         push((int)SOB_CLOSURE_ENV(r_res));
2804         push((int)&&__ret109);
2805         goto *(SOB_CLOSURE_CODE(r_res));
2806 __ret109:
2807         sp = sp-2-stack[sp-2];
2808         r[0] = (int)getSymbol("cddddr",topLevel);
2809         ((SymbolEntry*)r[0])->isDefined = 1;
2810         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2811         r_res = (int)&sc_void;
2812 __ret108:
2813         /* set return address */
2814         ST_RET() = (int)&&__ret110;
2815
2816         r[0] = (int)extendEnviroment( (int**)NULL, 0);
2817         goto __skipBody31;
2818 __body31:
2819         push(fp);
2820         fp = sp;
2821         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
2822         r_res = (int)&sc_false;
2823         push(r_res);
2824         push(1);
2825         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
2826         goto __skipBody32;
2827 __body32:
2828         push(fp);
2829         fp = sp;
2830         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
2831
2832         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2833         r_res = ST_ARG(0);
2834         push(r_res);
2835         push(1);
2836         r_res = (int)probeSymbolDefined("box",topLevel);
2837         if (r_res==0) goto __else133;
2838         if (! ((SymbolEntry*)r_res)->isDefined) goto __else133;
2839         r_res = (int)((SymbolEntry*)r_res)->sob;
2840         goto __endIf133;
2841 __else133:
2842         fprintf(stderr,"Symbol box not defined"); exit(-1);
2843 __endIf133:
2844         if (IS_SOB_CLOSURE(r_res)) goto __app69;
2845         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2846 __app69:
2847         push((int)SOB_CLOSURE_ENV(r_res));
2848         push((int)&&__ret111);
2849         goto *(SOB_CLOSURE_CODE(r_res));
2850 __ret111:
2851         sp = sp-2-stack[sp-2];
2852         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2853         ST_ARG(0) = r_res;
2854         r_res = (int)&sc_void;
2855
2856         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
2857         goto __skipBody33;
2858 __body33:
2859         push(fp);
2860         fp = sp;
2861         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
2862
2863         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2864         r_res = ST_ARG(0);
2865         push(r_res);
2866         push(1);
2867         r_res = (int)probeSymbolDefined("null?",topLevel);
2868         if (r_res==0) goto __else135;
2869         if (! ((SymbolEntry*)r_res)->isDefined) goto __else135;
2870         r_res = (int)((SymbolEntry*)r_res)->sob;
2871         goto __endIf135;
2872 __else135:
2873         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
2874 __endIf135:
2875         if (IS_SOB_CLOSURE(r_res)) goto __app71;
2876         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2877 __app71:
2878         push((int)SOB_CLOSURE_ENV(r_res));
2879         push((int)&&__ret113);
2880         goto *(SOB_CLOSURE_CODE(r_res));
2881 __ret113:
2882         sp = sp-2-stack[sp-2];
2883         if ((SchemeObject*)r_res==&sc_false) goto __else134;
2884         r_res = ((int**)ST_ENV())[1][1];
2885         goto __endIf134;
2886 __else134:
2887
2888
2889         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2890         r_res = ST_ARG(0);
2891         push(r_res);
2892         push(1);
2893         r_res = (int)probeSymbolDefined("cdr",topLevel);
2894         if (r_res==0) goto __else136;
2895         if (! ((SymbolEntry*)r_res)->isDefined) goto __else136;
2896         r_res = (int)((SymbolEntry*)r_res)->sob;
2897         goto __endIf136;
2898 __else136:
2899         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2900 __endIf136:
2901         if (IS_SOB_CLOSURE(r_res)) goto __app73;
2902         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2903 __app73:
2904         push((int)SOB_CLOSURE_ENV(r_res));
2905         push((int)&&__ret115);
2906         goto *(SOB_CLOSURE_CODE(r_res));
2907 __ret115:
2908         sp = sp-2-stack[sp-2];
2909         push(r_res);
2910         push(1);
2911
2912         r_res = (int)&__sc_number12;
2913         push(r_res);
2914         r_res = ((int**)ST_ENV())[0][0];
2915         push(r_res);
2916         push(2);
2917         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
2918         if (r_res==0) goto __else137;
2919         if (! ((SymbolEntry*)r_res)->isDefined) goto __else137;
2920         r_res = (int)((SymbolEntry*)r_res)->sob;
2921         goto __endIf137;
2922 __else137:
2923         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
2924 __endIf137:
2925         if (IS_SOB_CLOSURE(r_res)) goto __app74;
2926         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2927 __app74:
2928         push((int)SOB_CLOSURE_ENV(r_res));
2929         push((int)&&__ret116);
2930         goto *(SOB_CLOSURE_CODE(r_res));
2931 __ret116:
2932         sp = sp-2-stack[sp-2];
2933         if (IS_SOB_CLOSURE(r_res)) goto __app72;
2934         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2935 __app72:
2936         push((int)SOB_CLOSURE_ENV(r_res));
2937         push((int)&&__ret114);
2938         goto *(SOB_CLOSURE_CODE(r_res));
2939 __ret114:
2940         sp = sp-2-stack[sp-2];
2941         push(r_res);
2942
2943         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2944         r_res = ST_ARG(0);
2945         push(r_res);
2946         push(1);
2947         r_res = (int)probeSymbolDefined("car",topLevel);
2948         if (r_res==0) goto __else138;
2949         if (! ((SymbolEntry*)r_res)->isDefined) goto __else138;
2950         r_res = (int)((SymbolEntry*)r_res)->sob;
2951         goto __endIf138;
2952 __else138:
2953         fprintf(stderr,"Symbol car not defined"); exit(-1);
2954 __endIf138:
2955         if (IS_SOB_CLOSURE(r_res)) goto __app75;
2956         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2957 __app75:
2958         push((int)SOB_CLOSURE_ENV(r_res));
2959         push((int)&&__ret117);
2960         goto *(SOB_CLOSURE_CODE(r_res));
2961 __ret117:
2962         sp = sp-2-stack[sp-2];
2963         push(r_res);
2964         push(2);
2965         r_res = ((int**)ST_ENV())[1][0];
2966         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
2967         push((int)SOB_CLOSURE_ENV(r_res));
2968         push(ST_RET());
2969         shiftActFrmDown();
2970         goto *(SOB_CLOSURE_CODE(r_res));
2971         sp = sp-2-stack[sp-2];
2972 __endIf134:
2973         fp = pop();
2974         RETURN();
2975 __skipBody33:
2976         r_res = (int)makeSchemeClosure((void*)r[0],&&__body33);
2977         push(r_res);
2978         r_res = (int)&__sc_number13;
2979         push(r_res);
2980         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2981         r_res = ST_ARG(0);
2982         push(r_res);
2983         push(3);
2984         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
2985         if (r_res==0) goto __else139;
2986         if (! ((SymbolEntry*)r_res)->isDefined) goto __else139;
2987         r_res = (int)((SymbolEntry*)r_res)->sob;
2988         goto __endIf139;
2989 __else139:
2990         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
2991 __endIf139:
2992         if (IS_SOB_CLOSURE(r_res)) goto __app70;
2993         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2994 __app70:
2995         push((int)SOB_CLOSURE_ENV(r_res));
2996         push((int)&&__ret112);
2997         goto *(SOB_CLOSURE_CODE(r_res));
2998 __ret112:
2999         sp = sp-2-stack[sp-2];
3000         push(0);
3001         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
3002         goto __skipBody34;
3003 __body34:
3004         push(fp);
3005         fp = sp;
3006         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3007         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
3008         goto __skipBody35;
3009 __body35:
3010         push(fp);
3011         fp = sp;
3012         prepareStackForAbsOpt(1);
3013         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3014         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3015         r_res = ST_ARG(0);
3016         push(r_res);
3017         push(1);
3018
3019         r_res = (int)&__sc_number14;
3020         push(r_res);
3021         r_res = ((int**)ST_ENV())[1][0];
3022         push(r_res);
3023         push(2);
3024         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
3025         if (r_res==0) goto __else140;
3026         if (! ((SymbolEntry*)r_res)->isDefined) goto __else140;
3027         r_res = (int)((SymbolEntry*)r_res)->sob;
3028         goto __endIf140;
3029 __else140:
3030         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
3031 __endIf140:
3032         if (IS_SOB_CLOSURE(r_res)) goto __app76;
3033         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3034 __app76:
3035         push((int)SOB_CLOSURE_ENV(r_res));
3036         push((int)&&__ret118);
3037         goto *(SOB_CLOSURE_CODE(r_res));
3038 __ret118:
3039         sp = sp-2-stack[sp-2];
3040         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3041         push((int)SOB_CLOSURE_ENV(r_res));
3042         push(ST_RET());
3043         shiftActFrmDown();
3044         goto *(SOB_CLOSURE_CODE(r_res));
3045         sp = sp-2-stack[sp-2];
3046         fp = pop();
3047         RETURN();
3048 __skipBody35:
3049         r_res = (int)makeSchemeClosure((void*)r[0],&&__body35);
3050         fp = pop();
3051         RETURN();
3052 __skipBody34:
3053         r_res = (int)makeSchemeClosure((void*)r[0],&&__body34);
3054         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3055         push((int)SOB_CLOSURE_ENV(r_res));
3056         push(ST_RET());
3057         shiftActFrmDown();
3058         goto *(SOB_CLOSURE_CODE(r_res));
3059         sp = sp-2-stack[sp-2];
3060         fp = pop();
3061         RETURN();
3062 __skipBody32:
3063         r_res = (int)makeSchemeClosure((void*)r[0],&&__body32);
3064         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3065         push((int)SOB_CLOSURE_ENV(r_res));
3066         push(ST_RET());
3067         shiftActFrmDown();
3068         goto *(SOB_CLOSURE_CODE(r_res));
3069         sp = sp-2-stack[sp-2];
3070         fp = pop();
3071         RETURN();
3072 __skipBody31:
3073         r_res = (int)makeSchemeClosure((void*)r[0],&&__body31);
3074         r[0] = (int)getSymbol("^variadic-right-from-binary",topLevel);
3075         ((SymbolEntry*)r[0])->isDefined = 1;
3076         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3077         r_res = (int)&sc_void;
3078 __ret110:
3079         /* set return address */
3080         ST_RET() = (int)&&__ret119;
3081
3082         r[0] = (int)extendEnviroment( (int**)NULL, 0);
3083         goto __skipBody36;
3084 __body36:
3085         push(fp);
3086         fp = sp;
3087         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3088         r_res = (int)&sc_false;
3089         push(r_res);
3090         push(1);
3091         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
3092         goto __skipBody37;
3093 __body37:
3094         push(fp);
3095         fp = sp;
3096         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3097
3098         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3099         r_res = ST_ARG(0);
3100         push(r_res);
3101         push(1);
3102         r_res = (int)probeSymbolDefined("box",topLevel);
3103         if (r_res==0) goto __else141;
3104         if (! ((SymbolEntry*)r_res)->isDefined) goto __else141;
3105         r_res = (int)((SymbolEntry*)r_res)->sob;
3106         goto __endIf141;
3107 __else141:
3108         fprintf(stderr,"Symbol box not defined"); exit(-1);
3109 __endIf141:
3110         if (IS_SOB_CLOSURE(r_res)) goto __app77;
3111         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3112 __app77:
3113         push((int)SOB_CLOSURE_ENV(r_res));
3114         push((int)&&__ret120);
3115         goto *(SOB_CLOSURE_CODE(r_res));
3116 __ret120:
3117         sp = sp-2-stack[sp-2];
3118         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3119         ST_ARG(0) = r_res;
3120         r_res = (int)&sc_void;
3121
3122         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
3123         goto __skipBody38;
3124 __body38:
3125         push(fp);
3126         fp = sp;
3127         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3128
3129         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
3130         r_res = ST_ARG(1);
3131         push(r_res);
3132         push(1);
3133         r_res = (int)probeSymbolDefined("null?",topLevel);
3134         if (r_res==0) goto __else143;
3135         if (! ((SymbolEntry*)r_res)->isDefined) goto __else143;
3136         r_res = (int)((SymbolEntry*)r_res)->sob;
3137         goto __endIf143;
3138 __else143:
3139         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
3140 __endIf143:
3141         if (IS_SOB_CLOSURE(r_res)) goto __app79;
3142         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3143 __app79:
3144         push((int)SOB_CLOSURE_ENV(r_res));
3145         push((int)&&__ret122);
3146         goto *(SOB_CLOSURE_CODE(r_res));
3147 __ret122:
3148         sp = sp-2-stack[sp-2];
3149         if ((SchemeObject*)r_res==&sc_false) goto __else142;
3150         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3151         r_res = ST_ARG(0);
3152         goto __endIf142;
3153 __else142:
3154
3155         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
3156         r_res = ST_ARG(1);
3157         push(r_res);
3158         push(1);
3159         r_res = (int)probeSymbolDefined("cdr",topLevel);
3160         if (r_res==0) goto __else144;
3161         if (! ((SymbolEntry*)r_res)->isDefined) goto __else144;
3162         r_res = (int)((SymbolEntry*)r_res)->sob;
3163         goto __endIf144;
3164 __else144:
3165         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
3166 __endIf144:
3167         if (IS_SOB_CLOSURE(r_res)) goto __app80;
3168         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3169 __app80:
3170         push((int)SOB_CLOSURE_ENV(r_res));
3171         push((int)&&__ret123);
3172         goto *(SOB_CLOSURE_CODE(r_res));
3173 __ret123:
3174         sp = sp-2-stack[sp-2];
3175         push(r_res);
3176
3177
3178         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
3179         r_res = ST_ARG(1);
3180         push(r_res);
3181         push(1);
3182         r_res = (int)probeSymbolDefined("car",topLevel);
3183         if (r_res==0) goto __else145;
3184         if (! ((SymbolEntry*)r_res)->isDefined) goto __else145;
3185         r_res = (int)((SymbolEntry*)r_res)->sob;
3186         goto __endIf145;
3187 __else145:
3188         fprintf(stderr,"Symbol car not defined"); exit(-1);
3189 __endIf145:
3190         if (IS_SOB_CLOSURE(r_res)) goto __app82;
3191         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3192 __app82:
3193         push((int)SOB_CLOSURE_ENV(r_res));
3194         push((int)&&__ret125);
3195         goto *(SOB_CLOSURE_CODE(r_res));
3196 __ret125:
3197         sp = sp-2-stack[sp-2];
3198         push(r_res);
3199         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3200         r_res = ST_ARG(0);
3201         push(r_res);
3202         push(2);
3203         r_res = ((int**)ST_ENV())[1][0];
3204         if (IS_SOB_CLOSURE(r_res)) goto __app81;
3205         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3206 __app81:
3207         push((int)SOB_CLOSURE_ENV(r_res));
3208         push((int)&&__ret124);
3209         goto *(SOB_CLOSURE_CODE(r_res));
3210 __ret124:
3211         sp = sp-2-stack[sp-2];
3212         push(r_res);
3213         push(2);
3214
3215         r_res = (int)&__sc_number15;
3216         push(r_res);
3217         r_res = ((int**)ST_ENV())[0][0];
3218         push(r_res);
3219         push(2);
3220         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
3221         if (r_res==0) goto __else146;
3222         if (! ((SymbolEntry*)r_res)->isDefined) goto __else146;
3223         r_res = (int)((SymbolEntry*)r_res)->sob;
3224         goto __endIf146;
3225 __else146:
3226         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
3227 __endIf146:
3228         if (IS_SOB_CLOSURE(r_res)) goto __app83;
3229         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3230 __app83:
3231         push((int)SOB_CLOSURE_ENV(r_res));
3232         push((int)&&__ret126);
3233         goto *(SOB_CLOSURE_CODE(r_res));
3234 __ret126:
3235         sp = sp-2-stack[sp-2];
3236         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3237         push((int)SOB_CLOSURE_ENV(r_res));
3238         push(ST_RET());
3239         shiftActFrmDown();
3240         goto *(SOB_CLOSURE_CODE(r_res));
3241         sp = sp-2-stack[sp-2];
3242 __endIf142:
3243         fp = pop();
3244         RETURN();
3245 __skipBody38:
3246         r_res = (int)makeSchemeClosure((void*)r[0],&&__body38);
3247         push(r_res);
3248         r_res = (int)&__sc_number16;
3249         push(r_res);
3250         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3251         r_res = ST_ARG(0);
3252         push(r_res);
3253         push(3);
3254         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
3255         if (r_res==0) goto __else147;
3256         if (! ((SymbolEntry*)r_res)->isDefined) goto __else147;
3257         r_res = (int)((SymbolEntry*)r_res)->sob;
3258         goto __endIf147;
3259 __else147:
3260         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
3261 __endIf147:
3262         if (IS_SOB_CLOSURE(r_res)) goto __app78;
3263         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3264 __app78:
3265         push((int)SOB_CLOSURE_ENV(r_res));
3266         push((int)&&__ret121);
3267         goto *(SOB_CLOSURE_CODE(r_res));
3268 __ret121:
3269         sp = sp-2-stack[sp-2];
3270         push(0);
3271         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
3272         goto __skipBody39;
3273 __body39:
3274         push(fp);
3275         fp = sp;
3276         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3277         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
3278         goto __skipBody40;
3279 __body40:
3280         push(fp);
3281         fp = sp;
3282         prepareStackForAbsOpt(1);
3283         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3284
3285         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3286         r_res = ST_ARG(0);
3287         push(r_res);
3288         push(1);
3289         r_res = (int)probeSymbolDefined("null?",topLevel);
3290         if (r_res==0) goto __else149;
3291         if (! ((SymbolEntry*)r_res)->isDefined) goto __else149;
3292         r_res = (int)((SymbolEntry*)r_res)->sob;
3293         goto __endIf149;
3294 __else149:
3295         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
3296 __endIf149:
3297         if (IS_SOB_CLOSURE(r_res)) goto __app84;
3298         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3299 __app84:
3300         push((int)SOB_CLOSURE_ENV(r_res));
3301         push((int)&&__ret127);
3302         goto *(SOB_CLOSURE_CODE(r_res));
3303 __ret127:
3304         sp = sp-2-stack[sp-2];
3305         if ((SchemeObject*)r_res==&sc_false) goto __else148;
3306         r_res = ((int**)ST_ENV())[2][1];
3307         goto __endIf148;
3308 __else148:
3309
3310         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3311         r_res = ST_ARG(0);
3312         push(r_res);
3313         push(1);
3314         r_res = (int)probeSymbolDefined("cdr",topLevel);
3315         if (r_res==0) goto __else150;
3316         if (! ((SymbolEntry*)r_res)->isDefined) goto __else150;
3317         r_res = (int)((SymbolEntry*)r_res)->sob;
3318         goto __endIf150;
3319 __else150:
3320         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
3321 __endIf150:
3322         if (IS_SOB_CLOSURE(r_res)) goto __app85;
3323         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3324 __app85:
3325         push((int)SOB_CLOSURE_ENV(r_res));
3326         push((int)&&__ret128);
3327         goto *(SOB_CLOSURE_CODE(r_res));
3328 __ret128:
3329         sp = sp-2-stack[sp-2];
3330         push(r_res);
3331
3332         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3333         r_res = ST_ARG(0);
3334         push(r_res);
3335         push(1);
3336         r_res = (int)probeSymbolDefined("car",topLevel);
3337         if (r_res==0) goto __else151;
3338         if (! ((SymbolEntry*)r_res)->isDefined) goto __else151;
3339         r_res = (int)((SymbolEntry*)r_res)->sob;
3340         goto __endIf151;
3341 __else151:
3342         fprintf(stderr,"Symbol car not defined"); exit(-1);
3343 __endIf151:
3344         if (IS_SOB_CLOSURE(r_res)) goto __app86;
3345         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3346 __app86:
3347         push((int)SOB_CLOSURE_ENV(r_res));
3348         push((int)&&__ret129);
3349         goto *(SOB_CLOSURE_CODE(r_res));
3350 __ret129:
3351         sp = sp-2-stack[sp-2];
3352         push(r_res);
3353         push(2);
3354
3355         r_res = (int)&__sc_number17;
3356         push(r_res);
3357         r_res = ((int**)ST_ENV())[1][0];
3358         push(r_res);
3359         push(2);
3360         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
3361         if (r_res==0) goto __else152;
3362         if (! ((SymbolEntry*)r_res)->isDefined) goto __else152;
3363         r_res = (int)((SymbolEntry*)r_res)->sob;
3364         goto __endIf152;
3365 __else152:
3366         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
3367 __endIf152:
3368         if (IS_SOB_CLOSURE(r_res)) goto __app87;
3369         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3370 __app87:
3371         push((int)SOB_CLOSURE_ENV(r_res));
3372         push((int)&&__ret130);
3373         goto *(SOB_CLOSURE_CODE(r_res));
3374 __ret130:
3375         sp = sp-2-stack[sp-2];
3376         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3377         push((int)SOB_CLOSURE_ENV(r_res));
3378         push(ST_RET());
3379         shiftActFrmDown();
3380         goto *(SOB_CLOSURE_CODE(r_res));
3381         sp = sp-2-stack[sp-2];
3382 __endIf148:
3383         fp = pop();
3384         RETURN();
3385 __skipBody40:
3386         r_res = (int)makeSchemeClosure((void*)r[0],&&__body40);
3387         fp = pop();
3388         RETURN();
3389 __skipBody39:
3390         r_res = (int)makeSchemeClosure((void*)r[0],&&__body39);
3391         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3392         push((int)SOB_CLOSURE_ENV(r_res));
3393         push(ST_RET());
3394         shiftActFrmDown();
3395         goto *(SOB_CLOSURE_CODE(r_res));
3396         sp = sp-2-stack[sp-2];
3397         fp = pop();
3398         RETURN();
3399 __skipBody37:
3400         r_res = (int)makeSchemeClosure((void*)r[0],&&__body37);
3401         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3402         push((int)SOB_CLOSURE_ENV(r_res));
3403         push(ST_RET());
3404         shiftActFrmDown();
3405         goto *(SOB_CLOSURE_CODE(r_res));
3406         sp = sp-2-stack[sp-2];
3407         fp = pop();
3408         RETURN();
3409 __skipBody36:
3410         r_res = (int)makeSchemeClosure((void*)r[0],&&__body36);
3411         r[0] = (int)getSymbol("^variadic-left-from-binary",topLevel);
3412         ((SymbolEntry*)r[0])->isDefined = 1;
3413         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3414         r_res = (int)&sc_void;
3415 __ret119:
3416         /* set return address */
3417         ST_RET() = (int)&&__ret131;
3418
3419
3420         r_res = (int)&__sc_number18;
3421         push(r_res);
3422         r_res = (int)probeSymbolDefined("binary-add",topLevel);
3423         if (r_res==0) goto __else153;
3424         if (! ((SymbolEntry*)r_res)->isDefined) goto __else153;
3425         r_res = (int)((SymbolEntry*)r_res)->sob;
3426         goto __endIf153;
3427 __else153:
3428         fprintf(stderr,"Symbol binary-add not defined"); exit(-1);
3429 __endIf153:
3430         push(r_res);
3431         push(2);
3432         r_res = (int)probeSymbolDefined("^variadic-right-from-binary",topLevel);
3433         if (r_res==0) goto __else154;
3434         if (! ((SymbolEntry*)r_res)->isDefined) goto __else154;
3435         r_res = (int)((SymbolEntry*)r_res)->sob;
3436         goto __endIf154;
3437 __else154:
3438         fprintf(stderr,"Symbol ^variadic-right-from-binary not defined"); exit(-1);
3439 __endIf154:
3440         if (IS_SOB_CLOSURE(r_res)) goto __app88;
3441         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3442 __app88:
3443         push((int)SOB_CLOSURE_ENV(r_res));
3444         push((int)&&__ret132);
3445         goto *(SOB_CLOSURE_CODE(r_res));
3446 __ret132:
3447         sp = sp-2-stack[sp-2];
3448         r[0] = (int)getSymbol("+",topLevel);
3449         ((SymbolEntry*)r[0])->isDefined = 1;
3450         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3451         r_res = (int)&sc_void;
3452 __ret131:
3453         /* set return address */
3454         ST_RET() = (int)&&__ret133;
3455
3456
3457         r_res = (int)&__sc_number19;
3458         push(r_res);
3459         r_res = (int)probeSymbolDefined("binary-mul",topLevel);
3460         if (r_res==0) goto __else155;
3461         if (! ((SymbolEntry*)r_res)->isDefined) goto __else155;
3462         r_res = (int)((SymbolEntry*)r_res)->sob;
3463         goto __endIf155;
3464 __else155:
3465         fprintf(stderr,"Symbol binary-mul not defined"); exit(-1);
3466 __endIf155:
3467         push(r_res);
3468         push(2);
3469         r_res = (int)probeSymbolDefined("^variadic-right-from-binary",topLevel);
3470         if (r_res==0) goto __else156;
3471         if (! ((SymbolEntry*)r_res)->isDefined) goto __else156;
3472         r_res = (int)((SymbolEntry*)r_res)->sob;
3473         goto __endIf156;
3474 __else156:
3475         fprintf(stderr,"Symbol ^variadic-right-from-binary not defined"); exit(-1);
3476 __endIf156:
3477         if (IS_SOB_CLOSURE(r_res)) goto __app89;
3478         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3479 __app89:
3480         push((int)SOB_CLOSURE_ENV(r_res));
3481         push((int)&&__ret134);
3482         goto *(SOB_CLOSURE_CODE(r_res));
3483 __ret134:
3484         sp = sp-2-stack[sp-2];
3485         r[0] = (int)getSymbol("*",topLevel);
3486         ((SymbolEntry*)r[0])->isDefined = 1;
3487         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3488         r_res = (int)&sc_void;
3489 __ret133:
3490         /* set return address */
3491         ST_RET() = (int)&&__ret135;
3492
3493
3494         r_res = (int)&__sc_number20;
3495         push(r_res);
3496         r_res = (int)probeSymbolDefined("binary-sub",topLevel);
3497         if (r_res==0) goto __else157;
3498         if (! ((SymbolEntry*)r_res)->isDefined) goto __else157;
3499         r_res = (int)((SymbolEntry*)r_res)->sob;
3500         goto __endIf157;
3501 __else157:
3502         fprintf(stderr,"Symbol binary-sub not defined"); exit(-1);
3503 __endIf157:
3504         push(r_res);
3505         push(2);
3506         r_res = (int)probeSymbolDefined("^variadic-left-from-binary",topLevel);
3507         if (r_res==0) goto __else158;
3508         if (! ((SymbolEntry*)r_res)->isDefined) goto __else158;
3509         r_res = (int)((SymbolEntry*)r_res)->sob;
3510         goto __endIf158;
3511 __else158:
3512         fprintf(stderr,"Symbol ^variadic-left-from-binary not defined"); exit(-1);
3513 __endIf158:
3514         if (IS_SOB_CLOSURE(r_res)) goto __app90;
3515         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3516 __app90:
3517         push((int)SOB_CLOSURE_ENV(r_res));
3518         push((int)&&__ret136);
3519         goto *(SOB_CLOSURE_CODE(r_res));
3520 __ret136:
3521         sp = sp-2-stack[sp-2];
3522         r[0] = (int)getSymbol("-",topLevel);
3523         ((SymbolEntry*)r[0])->isDefined = 1;
3524         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3525         r_res = (int)&sc_void;
3526 __ret135:
3527         /* set return address */
3528         ST_RET() = (int)&&__ret137;
3529
3530
3531         r_res = (int)&__sc_number21;
3532         push(r_res);
3533         r_res = (int)probeSymbolDefined("binary-div",topLevel);
3534         if (r_res==0) goto __else159;
3535         if (! ((SymbolEntry*)r_res)->isDefined) goto __else159;
3536         r_res = (int)((SymbolEntry*)r_res)->sob;
3537         goto __endIf159;
3538 __else159:
3539         fprintf(stderr,"Symbol binary-div not defined"); exit(-1);
3540 __endIf159:
3541         push(r_res);
3542         push(2);
3543         r_res = (int)probeSymbolDefined("^variadic-left-from-binary",topLevel);
3544         if (r_res==0) goto __else160;
3545         if (! ((SymbolEntry*)r_res)->isDefined) goto __else160;
3546         r_res = (int)((SymbolEntry*)r_res)->sob;
3547         goto __endIf160;
3548 __else160:
3549         fprintf(stderr,"Symbol ^variadic-left-from-binary not defined"); exit(-1);
3550 __endIf160:
3551         if (IS_SOB_CLOSURE(r_res)) goto __app91;
3552         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3553 __app91:
3554         push((int)SOB_CLOSURE_ENV(r_res));
3555         push((int)&&__ret138);
3556         goto *(SOB_CLOSURE_CODE(r_res));
3557 __ret138:
3558         sp = sp-2-stack[sp-2];
3559         r[0] = (int)getSymbol("/",topLevel);
3560         ((SymbolEntry*)r[0])->isDefined = 1;
3561         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3562         r_res = (int)&sc_void;
3563 __ret137:
3564         /* set return address */
3565         ST_RET() = (int)&&__ret139;
3566
3567         r[0] = (int)extendEnviroment( (int**)NULL, 0);
3568         goto __skipBody41;
3569 __body41:
3570         push(fp);
3571         fp = sp;
3572         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3573         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
3574         goto __skipBody42;
3575 __body42:
3576         push(fp);
3577         fp = sp;
3578         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3579
3580
3581         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
3582         r_res = ST_ARG(1);
3583         push(r_res);
3584         push(1);
3585         r_res = (int)probeSymbolDefined("char->integer",topLevel);
3586         if (r_res==0) goto __else161;
3587         if (! ((SymbolEntry*)r_res)->isDefined) goto __else161;
3588         r_res = (int)((SymbolEntry*)r_res)->sob;
3589         goto __endIf161;
3590 __else161:
3591         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
3592 __endIf161:
3593         if (IS_SOB_CLOSURE(r_res)) goto __app92;
3594         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3595 __app92:
3596         push((int)SOB_CLOSURE_ENV(r_res));
3597         push((int)&&__ret140);
3598         goto *(SOB_CLOSURE_CODE(r_res));
3599 __ret140:
3600         sp = sp-2-stack[sp-2];
3601         push(r_res);
3602
3603         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3604         r_res = ST_ARG(0);
3605         push(r_res);
3606         push(1);
3607         r_res = (int)probeSymbolDefined("char->integer",topLevel);
3608         if (r_res==0) goto __else162;
3609         if (! ((SymbolEntry*)r_res)->isDefined) goto __else162;
3610         r_res = (int)((SymbolEntry*)r_res)->sob;
3611         goto __endIf162;
3612 __else162:
3613         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
3614 __endIf162:
3615         if (IS_SOB_CLOSURE(r_res)) goto __app93;
3616         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3617 __app93:
3618         push((int)SOB_CLOSURE_ENV(r_res));
3619         push((int)&&__ret141);
3620         goto *(SOB_CLOSURE_CODE(r_res));
3621 __ret141:
3622         sp = sp-2-stack[sp-2];
3623         push(r_res);
3624         push(2);
3625         r_res = ((int**)ST_ENV())[0][0];
3626         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3627         push((int)SOB_CLOSURE_ENV(r_res));
3628         push(ST_RET());
3629         shiftActFrmDown();
3630         goto *(SOB_CLOSURE_CODE(r_res));
3631         sp = sp-2-stack[sp-2];
3632         fp = pop();
3633         RETURN();
3634 __skipBody42:
3635         r_res = (int)makeSchemeClosure((void*)r[0],&&__body42);
3636         fp = pop();
3637         RETURN();
3638 __skipBody41:
3639         r_res = (int)makeSchemeClosure((void*)r[0],&&__body41);
3640         r[0] = (int)getSymbol("^char-op",topLevel);
3641         ((SymbolEntry*)r[0])->isDefined = 1;
3642         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3643         r_res = (int)&sc_void;
3644 __ret139:
3645         /* set return address */
3646         ST_RET() = (int)&&__ret142;
3647
3648
3649
3650         r_res = (int)probeSymbolDefined("=",topLevel);
3651         if (r_res==0) goto __else163;
3652         if (! ((SymbolEntry*)r_res)->isDefined) goto __else163;
3653         r_res = (int)((SymbolEntry*)r_res)->sob;
3654         goto __endIf163;
3655 __else163:
3656         fprintf(stderr,"Symbol = not defined"); exit(-1);
3657 __endIf163:
3658         push(r_res);
3659         push(1);
3660         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3661         if (r_res==0) goto __else164;
3662         if (! ((SymbolEntry*)r_res)->isDefined) goto __else164;
3663         r_res = (int)((SymbolEntry*)r_res)->sob;
3664         goto __endIf164;
3665 __else164:
3666         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3667 __endIf164:
3668         if (IS_SOB_CLOSURE(r_res)) goto __app95;
3669         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3670 __app95:
3671         push((int)SOB_CLOSURE_ENV(r_res));
3672         push((int)&&__ret144);
3673         goto *(SOB_CLOSURE_CODE(r_res));
3674 __ret144:
3675         sp = sp-2-stack[sp-2];
3676         push(r_res);
3677         push(1);
3678         r_res = (int)probeSymbolDefined("order",topLevel);
3679         if (r_res==0) goto __else165;
3680         if (! ((SymbolEntry*)r_res)->isDefined) goto __else165;
3681         r_res = (int)((SymbolEntry*)r_res)->sob;
3682         goto __endIf165;
3683 __else165:
3684         fprintf(stderr,"Symbol order not defined"); exit(-1);
3685 __endIf165:
3686         if (IS_SOB_CLOSURE(r_res)) goto __app94;
3687         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3688 __app94:
3689         push((int)SOB_CLOSURE_ENV(r_res));
3690         push((int)&&__ret143);
3691         goto *(SOB_CLOSURE_CODE(r_res));
3692 __ret143:
3693         sp = sp-2-stack[sp-2];
3694         r[0] = (int)getSymbol("char=?",topLevel);
3695         ((SymbolEntry*)r[0])->isDefined = 1;
3696         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3697         r_res = (int)&sc_void;
3698 __ret142:
3699         /* set return address */
3700         ST_RET() = (int)&&__ret145;
3701
3702
3703
3704         r_res = (int)probeSymbolDefined("<=",topLevel);
3705         if (r_res==0) goto __else166;
3706         if (! ((SymbolEntry*)r_res)->isDefined) goto __else166;
3707         r_res = (int)((SymbolEntry*)r_res)->sob;
3708         goto __endIf166;
3709 __else166:
3710         fprintf(stderr,"Symbol <= not defined"); exit(-1);
3711 __endIf166:
3712         push(r_res);
3713         push(1);
3714         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3715         if (r_res==0) goto __else167;
3716         if (! ((SymbolEntry*)r_res)->isDefined) goto __else167;
3717         r_res = (int)((SymbolEntry*)r_res)->sob;
3718         goto __endIf167;
3719 __else167:
3720         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3721 __endIf167:
3722         if (IS_SOB_CLOSURE(r_res)) goto __app97;
3723         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3724 __app97:
3725         push((int)SOB_CLOSURE_ENV(r_res));
3726         push((int)&&__ret147);
3727         goto *(SOB_CLOSURE_CODE(r_res));
3728 __ret147:
3729         sp = sp-2-stack[sp-2];
3730         push(r_res);
3731         push(1);
3732         r_res = (int)probeSymbolDefined("order",topLevel);
3733         if (r_res==0) goto __else168;
3734         if (! ((SymbolEntry*)r_res)->isDefined) goto __else168;
3735         r_res = (int)((SymbolEntry*)r_res)->sob;
3736         goto __endIf168;
3737 __else168:
3738         fprintf(stderr,"Symbol order not defined"); exit(-1);
3739 __endIf168:
3740         if (IS_SOB_CLOSURE(r_res)) goto __app96;
3741         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3742 __app96:
3743         push((int)SOB_CLOSURE_ENV(r_res));
3744         push((int)&&__ret146);
3745         goto *(SOB_CLOSURE_CODE(r_res));
3746 __ret146:
3747         sp = sp-2-stack[sp-2];
3748         r[0] = (int)getSymbol("char<=?",topLevel);
3749         ((SymbolEntry*)r[0])->isDefined = 1;
3750         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3751         r_res = (int)&sc_void;
3752 __ret145:
3753         /* set return address */
3754         ST_RET() = (int)&&__ret148;
3755
3756
3757
3758         r_res = (int)probeSymbolDefined("<",topLevel);
3759         if (r_res==0) goto __else169;
3760         if (! ((SymbolEntry*)r_res)->isDefined) goto __else169;
3761         r_res = (int)((SymbolEntry*)r_res)->sob;
3762         goto __endIf169;
3763 __else169:
3764         fprintf(stderr,"Symbol < not defined"); exit(-1);
3765 __endIf169:
3766         push(r_res);
3767         push(1);
3768         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3769         if (r_res==0) goto __else170;
3770         if (! ((SymbolEntry*)r_res)->isDefined) goto __else170;
3771         r_res = (int)((SymbolEntry*)r_res)->sob;
3772         goto __endIf170;
3773 __else170:
3774         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3775 __endIf170:
3776         if (IS_SOB_CLOSURE(r_res)) goto __app99;
3777         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3778 __app99:
3779         push((int)SOB_CLOSURE_ENV(r_res));
3780         push((int)&&__ret150);
3781         goto *(SOB_CLOSURE_CODE(r_res));
3782 __ret150:
3783         sp = sp-2-stack[sp-2];
3784         push(r_res);
3785         push(1);
3786         r_res = (int)probeSymbolDefined("order",topLevel);
3787         if (r_res==0) goto __else171;
3788         if (! ((SymbolEntry*)r_res)->isDefined) goto __else171;
3789         r_res = (int)((SymbolEntry*)r_res)->sob;
3790         goto __endIf171;
3791 __else171:
3792         fprintf(stderr,"Symbol order not defined"); exit(-1);
3793 __endIf171:
3794         if (IS_SOB_CLOSURE(r_res)) goto __app98;
3795         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3796 __app98:
3797         push((int)SOB_CLOSURE_ENV(r_res));
3798         push((int)&&__ret149);
3799         goto *(SOB_CLOSURE_CODE(r_res));
3800 __ret149:
3801         sp = sp-2-stack[sp-2];
3802         r[0] = (int)getSymbol("char<?",topLevel);
3803         ((SymbolEntry*)r[0])->isDefined = 1;
3804         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3805         r_res = (int)&sc_void;
3806 __ret148:
3807         /* set return address */
3808         ST_RET() = (int)&&__ret151;
3809
3810
3811
3812         r_res = (int)probeSymbolDefined(">=",topLevel);
3813         if (r_res==0) goto __else172;
3814         if (! ((SymbolEntry*)r_res)->isDefined) goto __else172;
3815         r_res = (int)((SymbolEntry*)r_res)->sob;
3816         goto __endIf172;
3817 __else172:
3818         fprintf(stderr,"Symbol >= not defined"); exit(-1);
3819 __endIf172:
3820         push(r_res);
3821         push(1);
3822         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3823         if (r_res==0) goto __else173;
3824         if (! ((SymbolEntry*)r_res)->isDefined) goto __else173;
3825         r_res = (int)((SymbolEntry*)r_res)->sob;
3826         goto __endIf173;
3827 __else173:
3828         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3829 __endIf173:
3830         if (IS_SOB_CLOSURE(r_res)) goto __app101;
3831         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3832 __app101:
3833         push((int)SOB_CLOSURE_ENV(r_res));
3834         push((int)&&__ret153);
3835         goto *(SOB_CLOSURE_CODE(r_res));
3836 __ret153:
3837         sp = sp-2-stack[sp-2];
3838         push(r_res);
3839         push(1);
3840         r_res = (int)probeSymbolDefined("order",topLevel);
3841         if (r_res==0) goto __else174;
3842         if (! ((SymbolEntry*)r_res)->isDefined) goto __else174;
3843         r_res = (int)((SymbolEntry*)r_res)->sob;
3844         goto __endIf174;
3845 __else174:
3846         fprintf(stderr,"Symbol order not defined"); exit(-1);
3847 __endIf174:
3848         if (IS_SOB_CLOSURE(r_res)) goto __app100;
3849         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3850 __app100:
3851         push((int)SOB_CLOSURE_ENV(r_res));
3852         push((int)&&__ret152);
3853         goto *(SOB_CLOSURE_CODE(r_res));
3854 __ret152:
3855         sp = sp-2-stack[sp-2];
3856         r[0] = (int)getSymbol("char>=?",topLevel);
3857         ((SymbolEntry*)r[0])->isDefined = 1;
3858         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3859         r_res = (int)&sc_void;
3860 __ret151:
3861         /* set return address */
3862         ST_RET() = (int)&&__ret154;
3863
3864
3865
3866         r_res = (int)probeSymbolDefined(">",topLevel);
3867         if (r_res==0) goto __else175;
3868         if (! ((SymbolEntry*)r_res)->isDefined) goto __else175;
3869         r_res = (int)((SymbolEntry*)r_res)->sob;
3870         goto __endIf175;
3871 __else175:
3872         fprintf(stderr,"Symbol > not defined"); exit(-1);
3873 __endIf175:
3874         push(r_res);
3875         push(1);
3876         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3877         if (r_res==0) goto __else176;
3878         if (! ((SymbolEntry*)r_res)->isDefined) goto __else176;
3879         r_res = (int)((SymbolEntry*)r_res)->sob;
3880         goto __endIf176;
3881 __else176:
3882         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3883 __endIf176:
3884         if (IS_SOB_CLOSURE(r_res)) goto __app103;
3885         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3886 __app103:
3887         push((int)SOB_CLOSURE_ENV(r_res));
3888         push((int)&&__ret156);
3889         goto *(SOB_CLOSURE_CODE(r_res));
3890 __ret156:
3891         sp = sp-2-stack[sp-2];
3892         push(r_res);
3893         push(1);
3894         r_res = (int)probeSymbolDefined("order",topLevel);
3895         if (r_res==0) goto __else177;
3896         if (! ((SymbolEntry*)r_res)->isDefined) goto __else177;
3897         r_res = (int)((SymbolEntry*)r_res)->sob;
3898         goto __endIf177;
3899 __else177:
3900         fprintf(stderr,"Symbol order not defined"); exit(-1);
3901 __endIf177:
3902         if (IS_SOB_CLOSURE(r_res)) goto __app102;
3903         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3904 __app102:
3905         push((int)SOB_CLOSURE_ENV(r_res));
3906         push((int)&&__ret155);
3907         goto *(SOB_CLOSURE_CODE(r_res));
3908 __ret155:
3909         sp = sp-2-stack[sp-2];
3910         r[0] = (int)getSymbol("char>?",topLevel);
3911         ((SymbolEntry*)r[0])->isDefined = 1;
3912         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3913         r_res = (int)&sc_void;
3914 __ret154:
3915         /* set return address */
3916         ST_RET() = (int)&&__ret157;
3917
3918         r[0] = (int)extendEnviroment( (int**)NULL, 0);
3919         goto __skipBody43;
3920 __body43:
3921         push(fp);
3922         fp = sp;
3923         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3924
3925         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3926         r_res = ST_ARG(0);
3927         push(r_res);
3928         r_res = (int)&__sc_char;
3929         push(r_res);
3930         push(2);
3931         r_res = (int)probeSymbolDefined("char<=?",topLevel);
3932         if (r_res==0) goto __else179;
3933         if (! ((SymbolEntry*)r_res)->isDefined) goto __else179;
3934         r_res = (int)((SymbolEntry*)r_res)->sob;
3935         goto __endIf179;
3936 __else179:
3937         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
3938 __endIf179:
3939         if (IS_SOB_CLOSURE(r_res)) goto __app104;
3940         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3941 __app104:
3942         push((int)SOB_CLOSURE_ENV(r_res));
3943         push((int)&&__ret158);
3944         goto *(SOB_CLOSURE_CODE(r_res));
3945 __ret158:
3946         sp = sp-2-stack[sp-2];
3947         if ((SchemeObject*)r_res==&sc_false) goto __else178;
3948
3949         r_res = (int)&__sc_char0;
3950         push(r_res);
3951         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3952         r_res = ST_ARG(0);
3953         push(r_res);
3954         push(2);
3955         r_res = (int)probeSymbolDefined("char<=?",topLevel);
3956         if (r_res==0) goto __else180;
3957         if (! ((SymbolEntry*)r_res)->isDefined) goto __else180;
3958         r_res = (int)((SymbolEntry*)r_res)->sob;
3959         goto __endIf180;
3960 __else180:
3961         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
3962 __endIf180:
3963         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3964         push((int)SOB_CLOSURE_ENV(r_res));
3965         push(ST_RET());
3966         shiftActFrmDown();
3967         goto *(SOB_CLOSURE_CODE(r_res));
3968         sp = sp-2-stack[sp-2];
3969         goto __endIf178;
3970 __else178:
3971         r_res = (int)&sc_false;
3972 __endIf178:
3973         fp = pop();
3974         RETURN();
3975 __skipBody43:
3976         r_res = (int)makeSchemeClosure((void*)r[0],&&__body43);
3977         r[0] = (int)getSymbol("char-uppercase?",topLevel);
3978         ((SymbolEntry*)r[0])->isDefined = 1;
3979         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3980         r_res = (int)&sc_void;
3981 __ret157:
3982         /* set return address */
3983         ST_RET() = (int)&&__ret159;
3984
3985         r[0] = (int)extendEnviroment( (int**)NULL, 0);
3986         goto __skipBody44;
3987 __body44:
3988         push(fp);
3989         fp = sp;
3990         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3991
3992         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3993         r_res = ST_ARG(0);
3994         push(r_res);
3995         r_res = (int)&__sc_char1;
3996         push(r_res);
3997         push(2);
3998         r_res = (int)probeSymbolDefined("char<=?",topLevel);
3999         if (r_res==0) goto __else182;
4000         if (! ((SymbolEntry*)r_res)->isDefined) goto __else182;
4001         r_res = (int)((SymbolEntry*)r_res)->sob;
4002         goto __endIf182;
4003 __else182:
4004         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
4005 __endIf182:
4006         if (IS_SOB_CLOSURE(r_res)) goto __app105;
4007         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4008 __app105:
4009         push((int)SOB_CLOSURE_ENV(r_res));
4010         push((int)&&__ret160);
4011         goto *(SOB_CLOSURE_CODE(r_res));
4012 __ret160:
4013         sp = sp-2-stack[sp-2];
4014         if ((SchemeObject*)r_res==&sc_false) goto __else181;
4015
4016         r_res = (int)&__sc_char2;
4017         push(r_res);
4018         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4019         r_res = ST_ARG(0);
4020         push(r_res);
4021         push(2);
4022         r_res = (int)probeSymbolDefined("char<=?",topLevel);
4023         if (r_res==0) goto __else183;
4024         if (! ((SymbolEntry*)r_res)->isDefined) goto __else183;
4025         r_res = (int)((SymbolEntry*)r_res)->sob;
4026         goto __endIf183;
4027 __else183:
4028         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
4029 __endIf183:
4030         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4031         push((int)SOB_CLOSURE_ENV(r_res));
4032         push(ST_RET());
4033         shiftActFrmDown();
4034         goto *(SOB_CLOSURE_CODE(r_res));
4035         sp = sp-2-stack[sp-2];
4036         goto __endIf181;
4037 __else181:
4038         r_res = (int)&sc_false;
4039 __endIf181:
4040         fp = pop();
4041         RETURN();
4042 __skipBody44:
4043         r_res = (int)makeSchemeClosure((void*)r[0],&&__body44);
4044         r[0] = (int)getSymbol("char-lowercase?",topLevel);
4045         ((SymbolEntry*)r[0])->isDefined = 1;
4046         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4047         r_res = (int)&sc_void;
4048 __ret159:
4049         /* set return address */
4050         ST_RET() = (int)&&__ret161;
4051
4052
4053
4054         r_res = (int)&__sc_char3;
4055         push(r_res);
4056         push(1);
4057         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4058         if (r_res==0) goto __else184;
4059         if (! ((SymbolEntry*)r_res)->isDefined) goto __else184;
4060         r_res = (int)((SymbolEntry*)r_res)->sob;
4061         goto __endIf184;
4062 __else184:
4063         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4064 __endIf184:
4065         if (IS_SOB_CLOSURE(r_res)) goto __app108;
4066         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4067 __app108:
4068         push((int)SOB_CLOSURE_ENV(r_res));
4069         push((int)&&__ret164);
4070         goto *(SOB_CLOSURE_CODE(r_res));
4071 __ret164:
4072         sp = sp-2-stack[sp-2];
4073         push(r_res);
4074
4075         r_res = (int)&__sc_char4;
4076         push(r_res);
4077         push(1);
4078         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4079         if (r_res==0) goto __else185;
4080         if (! ((SymbolEntry*)r_res)->isDefined) goto __else185;
4081         r_res = (int)((SymbolEntry*)r_res)->sob;
4082         goto __endIf185;
4083 __else185:
4084         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4085 __endIf185:
4086         if (IS_SOB_CLOSURE(r_res)) goto __app109;
4087         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4088 __app109:
4089         push((int)SOB_CLOSURE_ENV(r_res));
4090         push((int)&&__ret165);
4091         goto *(SOB_CLOSURE_CODE(r_res));
4092 __ret165:
4093         sp = sp-2-stack[sp-2];
4094         push(r_res);
4095         push(2);
4096         r_res = (int)probeSymbolDefined("-",topLevel);
4097         if (r_res==0) goto __else186;
4098         if (! ((SymbolEntry*)r_res)->isDefined) goto __else186;
4099         r_res = (int)((SymbolEntry*)r_res)->sob;
4100         goto __endIf186;
4101 __else186:
4102         fprintf(stderr,"Symbol - not defined"); exit(-1);
4103 __endIf186:
4104         if (IS_SOB_CLOSURE(r_res)) goto __app107;
4105         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4106 __app107:
4107         push((int)SOB_CLOSURE_ENV(r_res));
4108         push((int)&&__ret163);
4109         goto *(SOB_CLOSURE_CODE(r_res));
4110 __ret163:
4111         sp = sp-2-stack[sp-2];
4112         push(r_res);
4113         push(1);
4114         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4115         goto __skipBody45;
4116 __body45:
4117         push(fp);
4118         fp = sp;
4119         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4120         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
4121         goto __skipBody46;
4122 __body46:
4123         push(fp);
4124         fp = sp;
4125         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4126
4127         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4128         r_res = ST_ARG(0);
4129         push(r_res);
4130         push(1);
4131         r_res = (int)probeSymbolDefined("char-lowercase?",topLevel);
4132         if (r_res==0) goto __else188;
4133         if (! ((SymbolEntry*)r_res)->isDefined) goto __else188;
4134         r_res = (int)((SymbolEntry*)r_res)->sob;
4135         goto __endIf188;
4136 __else188:
4137         fprintf(stderr,"Symbol char-lowercase\? not defined"); exit(-1);
4138 __endIf188:
4139         if (IS_SOB_CLOSURE(r_res)) goto __app110;
4140         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4141 __app110:
4142         push((int)SOB_CLOSURE_ENV(r_res));
4143         push((int)&&__ret166);
4144         goto *(SOB_CLOSURE_CODE(r_res));
4145 __ret166:
4146         sp = sp-2-stack[sp-2];
4147         if ((SchemeObject*)r_res==&sc_false) goto __else187;
4148
4149
4150         r_res = ((int**)ST_ENV())[0][0];
4151         push(r_res);
4152
4153         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4154         r_res = ST_ARG(0);
4155         push(r_res);
4156         push(1);
4157         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4158         if (r_res==0) goto __else189;
4159         if (! ((SymbolEntry*)r_res)->isDefined) goto __else189;
4160         r_res = (int)((SymbolEntry*)r_res)->sob;
4161         goto __endIf189;
4162 __else189:
4163         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4164 __endIf189:
4165         if (IS_SOB_CLOSURE(r_res)) goto __app112;
4166         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4167 __app112:
4168         push((int)SOB_CLOSURE_ENV(r_res));
4169         push((int)&&__ret168);
4170         goto *(SOB_CLOSURE_CODE(r_res));
4171 __ret168:
4172         sp = sp-2-stack[sp-2];
4173         push(r_res);
4174         push(2);
4175         r_res = (int)probeSymbolDefined("-",topLevel);
4176         if (r_res==0) goto __else190;
4177         if (! ((SymbolEntry*)r_res)->isDefined) goto __else190;
4178         r_res = (int)((SymbolEntry*)r_res)->sob;
4179         goto __endIf190;
4180 __else190:
4181         fprintf(stderr,"Symbol - not defined"); exit(-1);
4182 __endIf190:
4183         if (IS_SOB_CLOSURE(r_res)) goto __app111;
4184         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4185 __app111:
4186         push((int)SOB_CLOSURE_ENV(r_res));
4187         push((int)&&__ret167);
4188         goto *(SOB_CLOSURE_CODE(r_res));
4189 __ret167:
4190         sp = sp-2-stack[sp-2];
4191         push(r_res);
4192         push(1);
4193         r_res = (int)probeSymbolDefined("integer->char",topLevel);
4194         if (r_res==0) goto __else191;
4195         if (! ((SymbolEntry*)r_res)->isDefined) goto __else191;
4196         r_res = (int)((SymbolEntry*)r_res)->sob;
4197         goto __endIf191;
4198 __else191:
4199         fprintf(stderr,"Symbol integer->char not defined"); exit(-1);
4200 __endIf191:
4201         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4202         push((int)SOB_CLOSURE_ENV(r_res));
4203         push(ST_RET());
4204         shiftActFrmDown();
4205         goto *(SOB_CLOSURE_CODE(r_res));
4206         sp = sp-2-stack[sp-2];
4207         goto __endIf187;
4208 __else187:
4209         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4210         r_res = ST_ARG(0);
4211 __endIf187:
4212         fp = pop();
4213         RETURN();
4214 __skipBody46:
4215         r_res = (int)makeSchemeClosure((void*)r[0],&&__body46);
4216         fp = pop();
4217         RETURN();
4218 __skipBody45:
4219         r_res = (int)makeSchemeClosure((void*)r[0],&&__body45);
4220         if (IS_SOB_CLOSURE(r_res)) goto __app106;
4221         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4222 __app106:
4223         push((int)SOB_CLOSURE_ENV(r_res));
4224         push((int)&&__ret162);
4225         goto *(SOB_CLOSURE_CODE(r_res));
4226 __ret162:
4227         sp = sp-2-stack[sp-2];
4228         r[0] = (int)getSymbol("char-upcase",topLevel);
4229         ((SymbolEntry*)r[0])->isDefined = 1;
4230         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4231         r_res = (int)&sc_void;
4232 __ret161:
4233         /* set return address */
4234         ST_RET() = (int)&&__ret169;
4235
4236
4237
4238         r_res = (int)&__sc_char5;
4239         push(r_res);
4240         push(1);
4241         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4242         if (r_res==0) goto __else192;
4243         if (! ((SymbolEntry*)r_res)->isDefined) goto __else192;
4244         r_res = (int)((SymbolEntry*)r_res)->sob;
4245         goto __endIf192;
4246 __else192:
4247         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4248 __endIf192:
4249         if (IS_SOB_CLOSURE(r_res)) goto __app115;
4250         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4251 __app115:
4252         push((int)SOB_CLOSURE_ENV(r_res));
4253         push((int)&&__ret172);
4254         goto *(SOB_CLOSURE_CODE(r_res));
4255 __ret172:
4256         sp = sp-2-stack[sp-2];
4257         push(r_res);
4258
4259         r_res = (int)&__sc_char6;
4260         push(r_res);
4261         push(1);
4262         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4263         if (r_res==0) goto __else193;
4264         if (! ((SymbolEntry*)r_res)->isDefined) goto __else193;
4265         r_res = (int)((SymbolEntry*)r_res)->sob;
4266         goto __endIf193;
4267 __else193:
4268         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4269 __endIf193:
4270         if (IS_SOB_CLOSURE(r_res)) goto __app116;
4271         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4272 __app116:
4273         push((int)SOB_CLOSURE_ENV(r_res));
4274         push((int)&&__ret173);
4275         goto *(SOB_CLOSURE_CODE(r_res));
4276 __ret173:
4277         sp = sp-2-stack[sp-2];
4278         push(r_res);
4279         push(2);
4280         r_res = (int)probeSymbolDefined("-",topLevel);
4281         if (r_res==0) goto __else194;
4282         if (! ((SymbolEntry*)r_res)->isDefined) goto __else194;
4283         r_res = (int)((SymbolEntry*)r_res)->sob;
4284         goto __endIf194;
4285 __else194:
4286         fprintf(stderr,"Symbol - not defined"); exit(-1);
4287 __endIf194:
4288         if (IS_SOB_CLOSURE(r_res)) goto __app114;
4289         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4290 __app114:
4291         push((int)SOB_CLOSURE_ENV(r_res));
4292         push((int)&&__ret171);
4293         goto *(SOB_CLOSURE_CODE(r_res));
4294 __ret171:
4295         sp = sp-2-stack[sp-2];
4296         push(r_res);
4297         push(1);
4298         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4299         goto __skipBody47;
4300 __body47:
4301         push(fp);
4302         fp = sp;
4303         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4304         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
4305         goto __skipBody48;
4306 __body48:
4307         push(fp);
4308         fp = sp;
4309         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4310
4311         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4312         r_res = ST_ARG(0);
4313         push(r_res);
4314         push(1);
4315         r_res = (int)probeSymbolDefined("char-uppercase?",topLevel);
4316         if (r_res==0) goto __else196;
4317         if (! ((SymbolEntry*)r_res)->isDefined) goto __else196;
4318         r_res = (int)((SymbolEntry*)r_res)->sob;
4319         goto __endIf196;
4320 __else196:
4321         fprintf(stderr,"Symbol char-uppercase\? not defined"); exit(-1);
4322 __endIf196:
4323         if (IS_SOB_CLOSURE(r_res)) goto __app117;
4324         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4325 __app117:
4326         push((int)SOB_CLOSURE_ENV(r_res));
4327         push((int)&&__ret174);
4328         goto *(SOB_CLOSURE_CODE(r_res));
4329 __ret174:
4330         sp = sp-2-stack[sp-2];
4331         if ((SchemeObject*)r_res==&sc_false) goto __else195;
4332
4333
4334         r_res = ((int**)ST_ENV())[0][0];
4335         push(r_res);
4336
4337         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4338         r_res = ST_ARG(0);
4339         push(r_res);
4340         push(1);
4341         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4342         if (r_res==0) goto __else197;
4343         if (! ((SymbolEntry*)r_res)->isDefined) goto __else197;
4344         r_res = (int)((SymbolEntry*)r_res)->sob;
4345         goto __endIf197;
4346 __else197:
4347         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4348 __endIf197:
4349         if (IS_SOB_CLOSURE(r_res)) goto __app119;
4350         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4351 __app119:
4352         push((int)SOB_CLOSURE_ENV(r_res));
4353         push((int)&&__ret176);
4354         goto *(SOB_CLOSURE_CODE(r_res));
4355 __ret176:
4356         sp = sp-2-stack[sp-2];
4357         push(r_res);
4358         push(2);
4359         r_res = (int)probeSymbolDefined("+",topLevel);
4360         if (r_res==0) goto __else198;
4361         if (! ((SymbolEntry*)r_res)->isDefined) goto __else198;
4362         r_res = (int)((SymbolEntry*)r_res)->sob;
4363         goto __endIf198;
4364 __else198:
4365         fprintf(stderr,"Symbol + not defined"); exit(-1);
4366 __endIf198:
4367         if (IS_SOB_CLOSURE(r_res)) goto __app118;
4368         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4369 __app118:
4370         push((int)SOB_CLOSURE_ENV(r_res));
4371         push((int)&&__ret175);
4372         goto *(SOB_CLOSURE_CODE(r_res));
4373 __ret175:
4374         sp = sp-2-stack[sp-2];
4375         push(r_res);
4376         push(1);
4377         r_res = (int)probeSymbolDefined("integer->char",topLevel);
4378         if (r_res==0) goto __else199;
4379         if (! ((SymbolEntry*)r_res)->isDefined) goto __else199;
4380         r_res = (int)((SymbolEntry*)r_res)->sob;
4381         goto __endIf199;
4382 __else199:
4383         fprintf(stderr,"Symbol integer->char not defined"); exit(-1);
4384 __endIf199:
4385         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4386         push((int)SOB_CLOSURE_ENV(r_res));
4387         push(ST_RET());
4388         shiftActFrmDown();
4389         goto *(SOB_CLOSURE_CODE(r_res));
4390         sp = sp-2-stack[sp-2];
4391         goto __endIf195;
4392 __else195:
4393         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4394         r_res = ST_ARG(0);
4395 __endIf195:
4396         fp = pop();
4397         RETURN();
4398 __skipBody48:
4399         r_res = (int)makeSchemeClosure((void*)r[0],&&__body48);
4400         fp = pop();
4401         RETURN();
4402 __skipBody47:
4403         r_res = (int)makeSchemeClosure((void*)r[0],&&__body47);
4404         if (IS_SOB_CLOSURE(r_res)) goto __app113;
4405         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4406 __app113:
4407         push((int)SOB_CLOSURE_ENV(r_res));
4408         push((int)&&__ret170);
4409         goto *(SOB_CLOSURE_CODE(r_res));
4410 __ret170:
4411         sp = sp-2-stack[sp-2];
4412         r[0] = (int)getSymbol("char-downcase",topLevel);
4413         ((SymbolEntry*)r[0])->isDefined = 1;
4414         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4415         r_res = (int)&sc_void;
4416 __ret169:
4417         /* set return address */
4418         ST_RET() = (int)&&__ret177;
4419
4420
4421         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4422         goto __skipBody49;
4423 __body49:
4424         push(fp);
4425         fp = sp;
4426         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4427
4428
4429         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4430         r_res = ST_ARG(1);
4431         push(r_res);
4432         push(1);
4433         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4434         if (r_res==0) goto __else200;
4435         if (! ((SymbolEntry*)r_res)->isDefined) goto __else200;
4436         r_res = (int)((SymbolEntry*)r_res)->sob;
4437         goto __endIf200;
4438 __else200:
4439         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4440 __endIf200:
4441         if (IS_SOB_CLOSURE(r_res)) goto __app121;
4442         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4443 __app121:
4444         push((int)SOB_CLOSURE_ENV(r_res));
4445         push((int)&&__ret179);
4446         goto *(SOB_CLOSURE_CODE(r_res));
4447 __ret179:
4448         sp = sp-2-stack[sp-2];
4449         push(r_res);
4450
4451         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4452         r_res = ST_ARG(0);
4453         push(r_res);
4454         push(1);
4455         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4456         if (r_res==0) goto __else201;
4457         if (! ((SymbolEntry*)r_res)->isDefined) goto __else201;
4458         r_res = (int)((SymbolEntry*)r_res)->sob;
4459         goto __endIf201;
4460 __else201:
4461         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4462 __endIf201:
4463         if (IS_SOB_CLOSURE(r_res)) goto __app122;
4464         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4465 __app122:
4466         push((int)SOB_CLOSURE_ENV(r_res));
4467         push((int)&&__ret180);
4468         goto *(SOB_CLOSURE_CODE(r_res));
4469 __ret180:
4470         sp = sp-2-stack[sp-2];
4471         push(r_res);
4472         push(2);
4473         r_res = (int)probeSymbolDefined("char<=?",topLevel);
4474         if (r_res==0) goto __else202;
4475         if (! ((SymbolEntry*)r_res)->isDefined) goto __else202;
4476         r_res = (int)((SymbolEntry*)r_res)->sob;
4477         goto __endIf202;
4478 __else202:
4479         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
4480 __endIf202:
4481         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4482         push((int)SOB_CLOSURE_ENV(r_res));
4483         push(ST_RET());
4484         shiftActFrmDown();
4485         goto *(SOB_CLOSURE_CODE(r_res));
4486         sp = sp-2-stack[sp-2];
4487         fp = pop();
4488         RETURN();
4489 __skipBody49:
4490         r_res = (int)makeSchemeClosure((void*)r[0],&&__body49);
4491         push(r_res);
4492         push(1);
4493         r_res = (int)probeSymbolDefined("order",topLevel);
4494         if (r_res==0) goto __else203;
4495         if (! ((SymbolEntry*)r_res)->isDefined) goto __else203;
4496         r_res = (int)((SymbolEntry*)r_res)->sob;
4497         goto __endIf203;
4498 __else203:
4499         fprintf(stderr,"Symbol order not defined"); exit(-1);
4500 __endIf203:
4501         if (IS_SOB_CLOSURE(r_res)) goto __app120;
4502         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4503 __app120:
4504         push((int)SOB_CLOSURE_ENV(r_res));
4505         push((int)&&__ret178);
4506         goto *(SOB_CLOSURE_CODE(r_res));
4507 __ret178:
4508         sp = sp-2-stack[sp-2];
4509         r[0] = (int)getSymbol("char-ci<=?",topLevel);
4510         ((SymbolEntry*)r[0])->isDefined = 1;
4511         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4512         r_res = (int)&sc_void;
4513 __ret177:
4514         /* set return address */
4515         ST_RET() = (int)&&__ret181;
4516
4517
4518         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4519         goto __skipBody50;
4520 __body50:
4521         push(fp);
4522         fp = sp;
4523         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4524
4525
4526         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4527         r_res = ST_ARG(1);
4528         push(r_res);
4529         push(1);
4530         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4531         if (r_res==0) goto __else204;
4532         if (! ((SymbolEntry*)r_res)->isDefined) goto __else204;
4533         r_res = (int)((SymbolEntry*)r_res)->sob;
4534         goto __endIf204;
4535 __else204:
4536         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4537 __endIf204:
4538         if (IS_SOB_CLOSURE(r_res)) goto __app124;
4539         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4540 __app124:
4541         push((int)SOB_CLOSURE_ENV(r_res));
4542         push((int)&&__ret183);
4543         goto *(SOB_CLOSURE_CODE(r_res));
4544 __ret183:
4545         sp = sp-2-stack[sp-2];
4546         push(r_res);
4547
4548         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4549         r_res = ST_ARG(0);
4550         push(r_res);
4551         push(1);
4552         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4553         if (r_res==0) goto __else205;
4554         if (! ((SymbolEntry*)r_res)->isDefined) goto __else205;
4555         r_res = (int)((SymbolEntry*)r_res)->sob;
4556         goto __endIf205;
4557 __else205:
4558         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4559 __endIf205:
4560         if (IS_SOB_CLOSURE(r_res)) goto __app125;
4561         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4562 __app125:
4563         push((int)SOB_CLOSURE_ENV(r_res));
4564         push((int)&&__ret184);
4565         goto *(SOB_CLOSURE_CODE(r_res));
4566 __ret184:
4567         sp = sp-2-stack[sp-2];
4568         push(r_res);
4569         push(2);
4570         r_res = (int)probeSymbolDefined("char<?",topLevel);
4571         if (r_res==0) goto __else206;
4572         if (! ((SymbolEntry*)r_res)->isDefined) goto __else206;
4573         r_res = (int)((SymbolEntry*)r_res)->sob;
4574         goto __endIf206;
4575 __else206:
4576         fprintf(stderr,"Symbol char<\? not defined"); exit(-1);
4577 __endIf206:
4578         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4579         push((int)SOB_CLOSURE_ENV(r_res));
4580         push(ST_RET());
4581         shiftActFrmDown();
4582         goto *(SOB_CLOSURE_CODE(r_res));
4583         sp = sp-2-stack[sp-2];
4584         fp = pop();
4585         RETURN();
4586 __skipBody50:
4587         r_res = (int)makeSchemeClosure((void*)r[0],&&__body50);
4588         push(r_res);
4589         push(1);
4590         r_res = (int)probeSymbolDefined("order",topLevel);
4591         if (r_res==0) goto __else207;
4592         if (! ((SymbolEntry*)r_res)->isDefined) goto __else207;
4593         r_res = (int)((SymbolEntry*)r_res)->sob;
4594         goto __endIf207;
4595 __else207:
4596         fprintf(stderr,"Symbol order not defined"); exit(-1);
4597 __endIf207:
4598         if (IS_SOB_CLOSURE(r_res)) goto __app123;
4599         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4600 __app123:
4601         push((int)SOB_CLOSURE_ENV(r_res));
4602         push((int)&&__ret182);
4603         goto *(SOB_CLOSURE_CODE(r_res));
4604 __ret182:
4605         sp = sp-2-stack[sp-2];
4606         r[0] = (int)getSymbol("char-ci<?",topLevel);
4607         ((SymbolEntry*)r[0])->isDefined = 1;
4608         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4609         r_res = (int)&sc_void;
4610 __ret181:
4611         /* set return address */
4612         ST_RET() = (int)&&__ret185;
4613
4614
4615         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4616         goto __skipBody51;
4617 __body51:
4618         push(fp);
4619         fp = sp;
4620         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4621
4622
4623         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4624         r_res = ST_ARG(1);
4625         push(r_res);
4626         push(1);
4627         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4628         if (r_res==0) goto __else208;
4629         if (! ((SymbolEntry*)r_res)->isDefined) goto __else208;
4630         r_res = (int)((SymbolEntry*)r_res)->sob;
4631         goto __endIf208;
4632 __else208:
4633         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4634 __endIf208:
4635         if (IS_SOB_CLOSURE(r_res)) goto __app127;
4636         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4637 __app127:
4638         push((int)SOB_CLOSURE_ENV(r_res));
4639         push((int)&&__ret187);
4640         goto *(SOB_CLOSURE_CODE(r_res));
4641 __ret187:
4642         sp = sp-2-stack[sp-2];
4643         push(r_res);
4644
4645         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4646         r_res = ST_ARG(0);
4647         push(r_res);
4648         push(1);
4649         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4650         if (r_res==0) goto __else209;
4651         if (! ((SymbolEntry*)r_res)->isDefined) goto __else209;
4652         r_res = (int)((SymbolEntry*)r_res)->sob;
4653         goto __endIf209;
4654 __else209:
4655         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4656 __endIf209:
4657         if (IS_SOB_CLOSURE(r_res)) goto __app128;
4658         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4659 __app128:
4660         push((int)SOB_CLOSURE_ENV(r_res));
4661         push((int)&&__ret188);
4662         goto *(SOB_CLOSURE_CODE(r_res));
4663 __ret188:
4664         sp = sp-2-stack[sp-2];
4665         push(r_res);
4666         push(2);
4667         r_res = (int)probeSymbolDefined("char=?",topLevel);
4668         if (r_res==0) goto __else210;
4669         if (! ((SymbolEntry*)r_res)->isDefined) goto __else210;
4670         r_res = (int)((SymbolEntry*)r_res)->sob;
4671         goto __endIf210;
4672 __else210:
4673         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
4674 __endIf210:
4675         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4676         push((int)SOB_CLOSURE_ENV(r_res));
4677         push(ST_RET());
4678         shiftActFrmDown();
4679         goto *(SOB_CLOSURE_CODE(r_res));
4680         sp = sp-2-stack[sp-2];
4681         fp = pop();
4682         RETURN();
4683 __skipBody51:
4684         r_res = (int)makeSchemeClosure((void*)r[0],&&__body51);
4685         push(r_res);
4686         push(1);
4687         r_res = (int)probeSymbolDefined("order",topLevel);
4688         if (r_res==0) goto __else211;
4689         if (! ((SymbolEntry*)r_res)->isDefined) goto __else211;
4690         r_res = (int)((SymbolEntry*)r_res)->sob;
4691         goto __endIf211;
4692 __else211:
4693         fprintf(stderr,"Symbol order not defined"); exit(-1);
4694 __endIf211:
4695         if (IS_SOB_CLOSURE(r_res)) goto __app126;
4696         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4697 __app126:
4698         push((int)SOB_CLOSURE_ENV(r_res));
4699         push((int)&&__ret186);
4700         goto *(SOB_CLOSURE_CODE(r_res));
4701 __ret186:
4702         sp = sp-2-stack[sp-2];
4703         r[0] = (int)getSymbol("char-ci=?",topLevel);
4704         ((SymbolEntry*)r[0])->isDefined = 1;
4705         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4706         r_res = (int)&sc_void;
4707 __ret185:
4708         /* set return address */
4709         ST_RET() = (int)&&__ret189;
4710
4711
4712         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4713         goto __skipBody52;
4714 __body52:
4715         push(fp);
4716         fp = sp;
4717         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4718
4719
4720         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4721         r_res = ST_ARG(1);
4722         push(r_res);
4723         push(1);
4724         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4725         if (r_res==0) goto __else212;
4726         if (! ((SymbolEntry*)r_res)->isDefined) goto __else212;
4727         r_res = (int)((SymbolEntry*)r_res)->sob;
4728         goto __endIf212;
4729 __else212:
4730         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4731 __endIf212:
4732         if (IS_SOB_CLOSURE(r_res)) goto __app130;
4733         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4734 __app130:
4735         push((int)SOB_CLOSURE_ENV(r_res));
4736         push((int)&&__ret191);
4737         goto *(SOB_CLOSURE_CODE(r_res));
4738 __ret191:
4739         sp = sp-2-stack[sp-2];
4740         push(r_res);
4741
4742         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4743         r_res = ST_ARG(0);
4744         push(r_res);
4745         push(1);
4746         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4747         if (r_res==0) goto __else213;
4748         if (! ((SymbolEntry*)r_res)->isDefined) goto __else213;
4749         r_res = (int)((SymbolEntry*)r_res)->sob;
4750         goto __endIf213;
4751 __else213:
4752         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4753 __endIf213:
4754         if (IS_SOB_CLOSURE(r_res)) goto __app131;
4755         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4756 __app131:
4757         push((int)SOB_CLOSURE_ENV(r_res));
4758         push((int)&&__ret192);
4759         goto *(SOB_CLOSURE_CODE(r_res));
4760 __ret192:
4761         sp = sp-2-stack[sp-2];
4762         push(r_res);
4763         push(2);
4764         r_res = (int)probeSymbolDefined("char>?",topLevel);
4765         if (r_res==0) goto __else214;
4766         if (! ((SymbolEntry*)r_res)->isDefined) goto __else214;
4767         r_res = (int)((SymbolEntry*)r_res)->sob;
4768         goto __endIf214;
4769 __else214:
4770         fprintf(stderr,"Symbol char>\? not defined"); exit(-1);
4771 __endIf214:
4772         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4773         push((int)SOB_CLOSURE_ENV(r_res));
4774         push(ST_RET());
4775         shiftActFrmDown();
4776         goto *(SOB_CLOSURE_CODE(r_res));
4777         sp = sp-2-stack[sp-2];
4778         fp = pop();
4779         RETURN();
4780 __skipBody52:
4781         r_res = (int)makeSchemeClosure((void*)r[0],&&__body52);
4782         push(r_res);
4783         push(1);
4784         r_res = (int)probeSymbolDefined("order",topLevel);
4785         if (r_res==0) goto __else215;
4786         if (! ((SymbolEntry*)r_res)->isDefined) goto __else215;
4787         r_res = (int)((SymbolEntry*)r_res)->sob;
4788         goto __endIf215;
4789 __else215:
4790         fprintf(stderr,"Symbol order not defined"); exit(-1);
4791 __endIf215:
4792         if (IS_SOB_CLOSURE(r_res)) goto __app129;
4793         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4794 __app129:
4795         push((int)SOB_CLOSURE_ENV(r_res));
4796         push((int)&&__ret190);
4797         goto *(SOB_CLOSURE_CODE(r_res));
4798 __ret190:
4799         sp = sp-2-stack[sp-2];
4800         r[0] = (int)getSymbol("char-ci>?",topLevel);
4801         ((SymbolEntry*)r[0])->isDefined = 1;
4802         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4803         r_res = (int)&sc_void;
4804 __ret189:
4805         /* set return address */
4806         ST_RET() = (int)&&__ret193;
4807
4808
4809         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4810         goto __skipBody53;
4811 __body53:
4812         push(fp);
4813         fp = sp;
4814         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4815
4816
4817         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4818         r_res = ST_ARG(1);
4819         push(r_res);
4820         push(1);
4821         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4822         if (r_res==0) goto __else216;
4823         if (! ((SymbolEntry*)r_res)->isDefined) goto __else216;
4824         r_res = (int)((SymbolEntry*)r_res)->sob;
4825         goto __endIf216;
4826 __else216:
4827         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4828 __endIf216:
4829         if (IS_SOB_CLOSURE(r_res)) goto __app133;
4830         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4831 __app133:
4832         push((int)SOB_CLOSURE_ENV(r_res));
4833         push((int)&&__ret195);
4834         goto *(SOB_CLOSURE_CODE(r_res));
4835 __ret195:
4836         sp = sp-2-stack[sp-2];
4837         push(r_res);
4838
4839         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4840         r_res = ST_ARG(0);
4841         push(r_res);
4842         push(1);
4843         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4844         if (r_res==0) goto __else217;
4845         if (! ((SymbolEntry*)r_res)->isDefined) goto __else217;
4846         r_res = (int)((SymbolEntry*)r_res)->sob;
4847         goto __endIf217;
4848 __else217:
4849         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4850 __endIf217:
4851         if (IS_SOB_CLOSURE(r_res)) goto __app134;
4852         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4853 __app134:
4854         push((int)SOB_CLOSURE_ENV(r_res));
4855         push((int)&&__ret196);
4856         goto *(SOB_CLOSURE_CODE(r_res));
4857 __ret196:
4858         sp = sp-2-stack[sp-2];
4859         push(r_res);
4860         push(2);
4861         r_res = (int)probeSymbolDefined("char>=?",topLevel);
4862         if (r_res==0) goto __else218;
4863         if (! ((SymbolEntry*)r_res)->isDefined) goto __else218;
4864         r_res = (int)((SymbolEntry*)r_res)->sob;
4865         goto __endIf218;
4866 __else218:
4867         fprintf(stderr,"Symbol char>=\? not defined"); exit(-1);
4868 __endIf218:
4869         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4870         push((int)SOB_CLOSURE_ENV(r_res));
4871         push(ST_RET());
4872         shiftActFrmDown();
4873         goto *(SOB_CLOSURE_CODE(r_res));
4874         sp = sp-2-stack[sp-2];
4875         fp = pop();
4876         RETURN();
4877 __skipBody53:
4878         r_res = (int)makeSchemeClosure((void*)r[0],&&__body53);
4879         push(r_res);
4880         push(1);
4881         r_res = (int)probeSymbolDefined("order",topLevel);
4882         if (r_res==0) goto __else219;
4883         if (! ((SymbolEntry*)r_res)->isDefined) goto __else219;
4884         r_res = (int)((SymbolEntry*)r_res)->sob;
4885         goto __endIf219;
4886 __else219:
4887         fprintf(stderr,"Symbol order not defined"); exit(-1);
4888 __endIf219:
4889         if (IS_SOB_CLOSURE(r_res)) goto __app132;
4890         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4891 __app132:
4892         push((int)SOB_CLOSURE_ENV(r_res));
4893         push((int)&&__ret194);
4894         goto *(SOB_CLOSURE_CODE(r_res));
4895 __ret194:
4896         sp = sp-2-stack[sp-2];
4897         r[0] = (int)getSymbol("char-ci>=?",topLevel);
4898         ((SymbolEntry*)r[0])->isDefined = 1;
4899         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4900         r_res = (int)&sc_void;
4901 __ret193:
4902         /* set return address */
4903         ST_RET() = (int)&&__ret197;
4904
4905         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4906         goto __skipBody54;
4907 __body54:
4908         push(fp);
4909         fp = sp;
4910         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4911
4912
4913
4914         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4915         r_res = ST_ARG(0);
4916         push(r_res);
4917         push(1);
4918         r_res = (int)probeSymbolDefined("string->list",topLevel);
4919         if (r_res==0) goto __else220;
4920         if (! ((SymbolEntry*)r_res)->isDefined) goto __else220;
4921         r_res = (int)((SymbolEntry*)r_res)->sob;
4922         goto __endIf220;
4923 __else220:
4924         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
4925 __endIf220:
4926         if (IS_SOB_CLOSURE(r_res)) goto __app136;
4927         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4928 __app136:
4929         push((int)SOB_CLOSURE_ENV(r_res));
4930         push((int)&&__ret199);
4931         goto *(SOB_CLOSURE_CODE(r_res));
4932 __ret199:
4933         sp = sp-2-stack[sp-2];
4934         push(r_res);
4935         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4936         if (r_res==0) goto __else221;
4937         if (! ((SymbolEntry*)r_res)->isDefined) goto __else221;
4938         r_res = (int)((SymbolEntry*)r_res)->sob;
4939         goto __endIf221;
4940 __else221:
4941         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4942 __endIf221:
4943         push(r_res);
4944         push(2);
4945         r_res = (int)probeSymbolDefined("map",topLevel);
4946         if (r_res==0) goto __else222;
4947         if (! ((SymbolEntry*)r_res)->isDefined) goto __else222;
4948         r_res = (int)((SymbolEntry*)r_res)->sob;
4949         goto __endIf222;
4950 __else222:
4951         fprintf(stderr,"Symbol map not defined"); exit(-1);
4952 __endIf222:
4953         if (IS_SOB_CLOSURE(r_res)) goto __app135;
4954         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4955 __app135:
4956         push((int)SOB_CLOSURE_ENV(r_res));
4957         push((int)&&__ret198);
4958         goto *(SOB_CLOSURE_CODE(r_res));
4959 __ret198:
4960         sp = sp-2-stack[sp-2];
4961         push(r_res);
4962         push(1);
4963         r_res = (int)probeSymbolDefined("list->string",topLevel);
4964         if (r_res==0) goto __else223;
4965         if (! ((SymbolEntry*)r_res)->isDefined) goto __else223;
4966         r_res = (int)((SymbolEntry*)r_res)->sob;
4967         goto __endIf223;
4968 __else223:
4969         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
4970 __endIf223:
4971         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4972         push((int)SOB_CLOSURE_ENV(r_res));
4973         push(ST_RET());
4974         shiftActFrmDown();
4975         goto *(SOB_CLOSURE_CODE(r_res));
4976         sp = sp-2-stack[sp-2];
4977         fp = pop();
4978         RETURN();
4979 __skipBody54:
4980         r_res = (int)makeSchemeClosure((void*)r[0],&&__body54);
4981         r[0] = (int)getSymbol("string-upcase",topLevel);
4982         ((SymbolEntry*)r[0])->isDefined = 1;
4983         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4984         r_res = (int)&sc_void;
4985 __ret197:
4986         /* set return address */
4987         ST_RET() = (int)&&__ret200;
4988
4989         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4990         goto __skipBody55;
4991 __body55:
4992         push(fp);
4993         fp = sp;
4994         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4995
4996
4997
4998         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4999         r_res = ST_ARG(0);
5000         push(r_res);
5001         push(1);
5002         r_res = (int)probeSymbolDefined("string->list",topLevel);
5003         if (r_res==0) goto __else224;
5004         if (! ((SymbolEntry*)r_res)->isDefined) goto __else224;
5005         r_res = (int)((SymbolEntry*)r_res)->sob;
5006         goto __endIf224;
5007 __else224:
5008         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
5009 __endIf224:
5010         if (IS_SOB_CLOSURE(r_res)) goto __app138;
5011         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5012 __app138:
5013         push((int)SOB_CLOSURE_ENV(r_res));
5014         push((int)&&__ret202);
5015         goto *(SOB_CLOSURE_CODE(r_res));
5016 __ret202:
5017         sp = sp-2-stack[sp-2];
5018         push(r_res);
5019         r_res = (int)probeSymbolDefined("char-downcase",topLevel);
5020         if (r_res==0) goto __else225;
5021         if (! ((SymbolEntry*)r_res)->isDefined) goto __else225;
5022         r_res = (int)((SymbolEntry*)r_res)->sob;
5023         goto __endIf225;
5024 __else225:
5025         fprintf(stderr,"Symbol char-downcase not defined"); exit(-1);
5026 __endIf225:
5027         push(r_res);
5028         push(2);
5029         r_res = (int)probeSymbolDefined("map",topLevel);
5030         if (r_res==0) goto __else226;
5031         if (! ((SymbolEntry*)r_res)->isDefined) goto __else226;
5032         r_res = (int)((SymbolEntry*)r_res)->sob;
5033         goto __endIf226;
5034 __else226:
5035         fprintf(stderr,"Symbol map not defined"); exit(-1);
5036 __endIf226:
5037         if (IS_SOB_CLOSURE(r_res)) goto __app137;
5038         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5039 __app137:
5040         push((int)SOB_CLOSURE_ENV(r_res));
5041         push((int)&&__ret201);
5042         goto *(SOB_CLOSURE_CODE(r_res));
5043 __ret201:
5044         sp = sp-2-stack[sp-2];
5045         push(r_res);
5046         push(1);
5047         r_res = (int)probeSymbolDefined("list->string",topLevel);
5048         if (r_res==0) goto __else227;
5049         if (! ((SymbolEntry*)r_res)->isDefined) goto __else227;
5050         r_res = (int)((SymbolEntry*)r_res)->sob;
5051         goto __endIf227;
5052 __else227:
5053         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
5054 __endIf227:
5055         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5056         push((int)SOB_CLOSURE_ENV(r_res));
5057         push(ST_RET());
5058         shiftActFrmDown();
5059         goto *(SOB_CLOSURE_CODE(r_res));
5060         sp = sp-2-stack[sp-2];
5061         fp = pop();
5062         RETURN();
5063 __skipBody55:
5064         r_res = (int)makeSchemeClosure((void*)r[0],&&__body55);
5065         r[0] = (int)getSymbol("string-downcase",topLevel);
5066         ((SymbolEntry*)r[0])->isDefined = 1;
5067         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5068         r_res = (int)&sc_void;
5069 __ret200:
5070         /* set return address */
5071         ST_RET() = (int)&&__ret203;
5072
5073         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5074         goto __skipBody56;
5075 __body56:
5076         push(fp);
5077         fp = sp;
5078         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5079
5080
5081         r_res = (int)&__sc_number22;
5082         push(r_res);
5083         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5084         r_res = ST_ARG(0);
5085         push(r_res);
5086         push(2);
5087         r_res = (int)probeSymbolDefined("remainder",topLevel);
5088         if (r_res==0) goto __else228;
5089         if (! ((SymbolEntry*)r_res)->isDefined) goto __else228;
5090         r_res = (int)((SymbolEntry*)r_res)->sob;
5091         goto __endIf228;
5092 __else228:
5093         fprintf(stderr,"Symbol remainder not defined"); exit(-1);
5094 __endIf228:
5095         if (IS_SOB_CLOSURE(r_res)) goto __app139;
5096         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5097 __app139:
5098         push((int)SOB_CLOSURE_ENV(r_res));
5099         push((int)&&__ret204);
5100         goto *(SOB_CLOSURE_CODE(r_res));
5101 __ret204:
5102         sp = sp-2-stack[sp-2];
5103         push(r_res);
5104         push(1);
5105         r_res = (int)probeSymbolDefined("zero?",topLevel);
5106         if (r_res==0) goto __else229;
5107         if (! ((SymbolEntry*)r_res)->isDefined) goto __else229;
5108         r_res = (int)((SymbolEntry*)r_res)->sob;
5109         goto __endIf229;
5110 __else229:
5111         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
5112 __endIf229:
5113         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5114         push((int)SOB_CLOSURE_ENV(r_res));
5115         push(ST_RET());
5116         shiftActFrmDown();
5117         goto *(SOB_CLOSURE_CODE(r_res));
5118         sp = sp-2-stack[sp-2];
5119         fp = pop();
5120         RETURN();
5121 __skipBody56:
5122         r_res = (int)makeSchemeClosure((void*)r[0],&&__body56);
5123         r[0] = (int)getSymbol("even?",topLevel);
5124         ((SymbolEntry*)r[0])->isDefined = 1;
5125         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5126         r_res = (int)&sc_void;
5127 __ret203:
5128         /* set return address */
5129         ST_RET() = (int)&&__ret205;
5130
5131         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5132         goto __skipBody57;
5133 __body57:
5134         push(fp);
5135         fp = sp;
5136         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5137
5138
5139
5140         r_res = (int)&__sc_number23;
5141         push(r_res);
5142         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5143         r_res = ST_ARG(0);
5144         push(r_res);
5145         push(2);
5146         r_res = (int)probeSymbolDefined("remainder",topLevel);
5147         if (r_res==0) goto __else230;
5148         if (! ((SymbolEntry*)r_res)->isDefined) goto __else230;
5149         r_res = (int)((SymbolEntry*)r_res)->sob;
5150         goto __endIf230;
5151 __else230:
5152         fprintf(stderr,"Symbol remainder not defined"); exit(-1);
5153 __endIf230:
5154         if (IS_SOB_CLOSURE(r_res)) goto __app141;
5155         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5156 __app141:
5157         push((int)SOB_CLOSURE_ENV(r_res));
5158         push((int)&&__ret207);
5159         goto *(SOB_CLOSURE_CODE(r_res));
5160 __ret207:
5161         sp = sp-2-stack[sp-2];
5162         push(r_res);
5163         push(1);
5164         r_res = (int)probeSymbolDefined("zero?",topLevel);
5165         if (r_res==0) goto __else231;
5166         if (! ((SymbolEntry*)r_res)->isDefined) goto __else231;
5167         r_res = (int)((SymbolEntry*)r_res)->sob;
5168         goto __endIf231;
5169 __else231:
5170         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
5171 __endIf231:
5172         if (IS_SOB_CLOSURE(r_res)) goto __app140;
5173         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5174 __app140:
5175         push((int)SOB_CLOSURE_ENV(r_res));
5176         push((int)&&__ret206);
5177         goto *(SOB_CLOSURE_CODE(r_res));
5178 __ret206:
5179         sp = sp-2-stack[sp-2];
5180         push(r_res);
5181         push(1);
5182         r_res = (int)probeSymbolDefined("not",topLevel);
5183         if (r_res==0) goto __else232;
5184         if (! ((SymbolEntry*)r_res)->isDefined) goto __else232;
5185         r_res = (int)((SymbolEntry*)r_res)->sob;
5186         goto __endIf232;
5187 __else232:
5188         fprintf(stderr,"Symbol not not defined"); exit(-1);
5189 __endIf232:
5190         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5191         push((int)SOB_CLOSURE_ENV(r_res));
5192         push(ST_RET());
5193         shiftActFrmDown();
5194         goto *(SOB_CLOSURE_CODE(r_res));
5195         sp = sp-2-stack[sp-2];
5196         fp = pop();
5197         RETURN();
5198 __skipBody57:
5199         r_res = (int)makeSchemeClosure((void*)r[0],&&__body57);
5200         r[0] = (int)getSymbol("odd?",topLevel);
5201         ((SymbolEntry*)r[0])->isDefined = 1;
5202         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5203         r_res = (int)&sc_void;
5204 __ret205:
5205         /* set return address */
5206         ST_RET() = (int)&&__ret208;
5207
5208         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5209         goto __skipBody58;
5210 __body58:
5211         push(fp);
5212         fp = sp;
5213         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5214
5215         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5216         r_res = ST_ARG(0);
5217         push(r_res);
5218         push(1);
5219         r_res = (int)probeSymbolDefined("null?",topLevel);
5220         if (r_res==0) goto __else234;
5221         if (! ((SymbolEntry*)r_res)->isDefined) goto __else234;
5222         r_res = (int)((SymbolEntry*)r_res)->sob;
5223         goto __endIf234;
5224 __else234:
5225         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
5226 __endIf234:
5227         if (IS_SOB_CLOSURE(r_res)) goto __app142;
5228         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5229 __app142:
5230         push((int)SOB_CLOSURE_ENV(r_res));
5231         push((int)&&__ret209);
5232         goto *(SOB_CLOSURE_CODE(r_res));
5233 __ret209:
5234         sp = sp-2-stack[sp-2];
5235         if ((SchemeObject*)r_res==&sc_false) goto __else233;
5236         r_res = (int)&__sc_number24;
5237         goto __endIf233;
5238 __else233:
5239
5240
5241
5242         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5243         r_res = ST_ARG(0);
5244         push(r_res);
5245         push(1);
5246         r_res = (int)probeSymbolDefined("cdr",topLevel);
5247         if (r_res==0) goto __else235;
5248         if (! ((SymbolEntry*)r_res)->isDefined) goto __else235;
5249         r_res = (int)((SymbolEntry*)r_res)->sob;
5250         goto __endIf235;
5251 __else235:
5252         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5253 __endIf235:
5254         if (IS_SOB_CLOSURE(r_res)) goto __app144;
5255         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5256 __app144:
5257         push((int)SOB_CLOSURE_ENV(r_res));
5258         push((int)&&__ret211);
5259         goto *(SOB_CLOSURE_CODE(r_res));
5260 __ret211:
5261         sp = sp-2-stack[sp-2];
5262         push(r_res);
5263         push(1);
5264         r_res = (int)probeSymbolDefined("length",topLevel);
5265         if (r_res==0) goto __else236;
5266         if (! ((SymbolEntry*)r_res)->isDefined) goto __else236;
5267         r_res = (int)((SymbolEntry*)r_res)->sob;
5268         goto __endIf236;
5269 __else236:
5270         fprintf(stderr,"Symbol length not defined"); exit(-1);
5271 __endIf236:
5272         if (IS_SOB_CLOSURE(r_res)) goto __app143;
5273         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5274 __app143:
5275         push((int)SOB_CLOSURE_ENV(r_res));
5276         push((int)&&__ret210);
5277         goto *(SOB_CLOSURE_CODE(r_res));
5278 __ret210:
5279         sp = sp-2-stack[sp-2];
5280         push(r_res);
5281         push(1);
5282         r_res = (int)probeSymbolDefined("add1",topLevel);
5283         if (r_res==0) goto __else237;
5284         if (! ((SymbolEntry*)r_res)->isDefined) goto __else237;
5285         r_res = (int)((SymbolEntry*)r_res)->sob;
5286         goto __endIf237;
5287 __else237:
5288         fprintf(stderr,"Symbol add1 not defined"); exit(-1);
5289 __endIf237:
5290         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5291         push((int)SOB_CLOSURE_ENV(r_res));
5292         push(ST_RET());
5293         shiftActFrmDown();
5294         goto *(SOB_CLOSURE_CODE(r_res));
5295         sp = sp-2-stack[sp-2];
5296 __endIf233:
5297         fp = pop();
5298         RETURN();
5299 __skipBody58:
5300         r_res = (int)makeSchemeClosure((void*)r[0],&&__body58);
5301         r[0] = (int)getSymbol("length",topLevel);
5302         ((SymbolEntry*)r[0])->isDefined = 1;
5303         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5304         r_res = (int)&sc_void;
5305 __ret208:
5306         /* set return address */
5307         ST_RET() = (int)&&__ret212;
5308
5309         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5310         goto __skipBody59;
5311 __body59:
5312         push(fp);
5313         fp = sp;
5314         prepareStackForAbsOpt(1);
5315         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5316         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5317         r_res = ST_ARG(0);
5318         fp = pop();
5319         RETURN();
5320 __skipBody59:
5321         r_res = (int)makeSchemeClosure((void*)r[0],&&__body59);
5322         r[0] = (int)getSymbol("list",topLevel);
5323         ((SymbolEntry*)r[0])->isDefined = 1;
5324         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5325         r_res = (int)&sc_void;
5326 __ret212:
5327         /* set return address */
5328         ST_RET() = (int)&&__ret213;
5329
5330         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5331         goto __skipBody60;
5332 __body60:
5333         push(fp);
5334         fp = sp;
5335         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5336
5337         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5338         r_res = ST_ARG(1);
5339         push(r_res);
5340         push(1);
5341         r_res = (int)probeSymbolDefined("zero?",topLevel);
5342         if (r_res==0) goto __else239;
5343         if (! ((SymbolEntry*)r_res)->isDefined) goto __else239;
5344         r_res = (int)((SymbolEntry*)r_res)->sob;
5345         goto __endIf239;
5346 __else239:
5347         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
5348 __endIf239:
5349         if (IS_SOB_CLOSURE(r_res)) goto __app145;
5350         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5351 __app145:
5352         push((int)SOB_CLOSURE_ENV(r_res));
5353         push((int)&&__ret214);
5354         goto *(SOB_CLOSURE_CODE(r_res));
5355 __ret214:
5356         sp = sp-2-stack[sp-2];
5357         if ((SchemeObject*)r_res==&sc_false) goto __else238;
5358
5359         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5360         r_res = ST_ARG(0);
5361         push(r_res);
5362         push(1);
5363         r_res = (int)probeSymbolDefined("car",topLevel);
5364         if (r_res==0) goto __else240;
5365         if (! ((SymbolEntry*)r_res)->isDefined) goto __else240;
5366         r_res = (int)((SymbolEntry*)r_res)->sob;
5367         goto __endIf240;
5368 __else240:
5369         fprintf(stderr,"Symbol car not defined"); exit(-1);
5370 __endIf240:
5371         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5372         push((int)SOB_CLOSURE_ENV(r_res));
5373         push(ST_RET());
5374         shiftActFrmDown();
5375         goto *(SOB_CLOSURE_CODE(r_res));
5376         sp = sp-2-stack[sp-2];
5377         goto __endIf238;
5378 __else238:
5379
5380
5381         r_res = (int)&__sc_number25;
5382         push(r_res);
5383         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5384         r_res = ST_ARG(1);
5385         push(r_res);
5386         push(2);
5387         r_res = (int)probeSymbolDefined("-",topLevel);
5388         if (r_res==0) goto __else241;
5389         if (! ((SymbolEntry*)r_res)->isDefined) goto __else241;
5390         r_res = (int)((SymbolEntry*)r_res)->sob;
5391         goto __endIf241;
5392 __else241:
5393         fprintf(stderr,"Symbol - not defined"); exit(-1);
5394 __endIf241:
5395         if (IS_SOB_CLOSURE(r_res)) goto __app146;
5396         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5397 __app146:
5398         push((int)SOB_CLOSURE_ENV(r_res));
5399         push((int)&&__ret215);
5400         goto *(SOB_CLOSURE_CODE(r_res));
5401 __ret215:
5402         sp = sp-2-stack[sp-2];
5403         push(r_res);
5404
5405         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5406         r_res = ST_ARG(0);
5407         push(r_res);
5408         push(1);
5409         r_res = (int)probeSymbolDefined("cdr",topLevel);
5410         if (r_res==0) goto __else242;
5411         if (! ((SymbolEntry*)r_res)->isDefined) goto __else242;
5412         r_res = (int)((SymbolEntry*)r_res)->sob;
5413         goto __endIf242;
5414 __else242:
5415         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5416 __endIf242:
5417         if (IS_SOB_CLOSURE(r_res)) goto __app147;
5418         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5419 __app147:
5420         push((int)SOB_CLOSURE_ENV(r_res));
5421         push((int)&&__ret216);
5422         goto *(SOB_CLOSURE_CODE(r_res));
5423 __ret216:
5424         sp = sp-2-stack[sp-2];
5425         push(r_res);
5426         push(2);
5427         r_res = (int)probeSymbolDefined("list-ref",topLevel);
5428         if (r_res==0) goto __else243;
5429         if (! ((SymbolEntry*)r_res)->isDefined) goto __else243;
5430         r_res = (int)((SymbolEntry*)r_res)->sob;
5431         goto __endIf243;
5432 __else243:
5433         fprintf(stderr,"Symbol list-ref not defined"); exit(-1);
5434 __endIf243:
5435         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5436         push((int)SOB_CLOSURE_ENV(r_res));
5437         push(ST_RET());
5438         shiftActFrmDown();
5439         goto *(SOB_CLOSURE_CODE(r_res));
5440         sp = sp-2-stack[sp-2];
5441 __endIf238:
5442         fp = pop();
5443         RETURN();
5444 __skipBody60:
5445         r_res = (int)makeSchemeClosure((void*)r[0],&&__body60);
5446         r[0] = (int)getSymbol("list-ref",topLevel);
5447         ((SymbolEntry*)r[0])->isDefined = 1;
5448         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5449         r_res = (int)&sc_void;
5450 __ret213:
5451         /* set return address */
5452         ST_RET() = (int)&&__ret217;
5453
5454         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5455         goto __skipBody61;
5456 __body61:
5457         push(fp);
5458         fp = sp;
5459         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5460
5461         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5462         r_res = ST_ARG(0);
5463         push(r_res);
5464         push(1);
5465         r_res = (int)probeSymbolDefined("null?",topLevel);
5466         if (r_res==0) goto __else244;
5467         if (! ((SymbolEntry*)r_res)->isDefined) goto __else244;
5468         r_res = (int)((SymbolEntry*)r_res)->sob;
5469         goto __endIf244;
5470 __else244:
5471         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
5472 __endIf244:
5473         if (IS_SOB_CLOSURE(r_res)) goto __app148;
5474         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5475 __app148:
5476         push((int)SOB_CLOSURE_ENV(r_res));
5477         push((int)&&__ret218);
5478         goto *(SOB_CLOSURE_CODE(r_res));
5479 __ret218:
5480         sp = sp-2-stack[sp-2];
5481         if ((SchemeObject*)r_res!=&sc_false) goto __endOr5;
5482
5483         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5484         r_res = ST_ARG(0);
5485         push(r_res);
5486         push(1);
5487         r_res = (int)probeSymbolDefined("pair?",topLevel);
5488         if (r_res==0) goto __else246;
5489         if (! ((SymbolEntry*)r_res)->isDefined) goto __else246;
5490         r_res = (int)((SymbolEntry*)r_res)->sob;
5491         goto __endIf246;
5492 __else246:
5493         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
5494 __endIf246:
5495         if (IS_SOB_CLOSURE(r_res)) goto __app149;
5496         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5497 __app149:
5498         push((int)SOB_CLOSURE_ENV(r_res));
5499         push((int)&&__ret219);
5500         goto *(SOB_CLOSURE_CODE(r_res));
5501 __ret219:
5502         sp = sp-2-stack[sp-2];
5503         if ((SchemeObject*)r_res==&sc_false) goto __else245;
5504
5505
5506         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5507         r_res = ST_ARG(0);
5508         push(r_res);
5509         push(1);
5510         r_res = (int)probeSymbolDefined("cdr",topLevel);
5511         if (r_res==0) goto __else247;
5512         if (! ((SymbolEntry*)r_res)->isDefined) goto __else247;
5513         r_res = (int)((SymbolEntry*)r_res)->sob;
5514         goto __endIf247;
5515 __else247:
5516         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5517 __endIf247:
5518         if (IS_SOB_CLOSURE(r_res)) goto __app150;
5519         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5520 __app150:
5521         push((int)SOB_CLOSURE_ENV(r_res));
5522         push((int)&&__ret220);
5523         goto *(SOB_CLOSURE_CODE(r_res));
5524 __ret220:
5525         sp = sp-2-stack[sp-2];
5526         push(r_res);
5527         push(1);
5528         r_res = (int)probeSymbolDefined("list?",topLevel);
5529         if (r_res==0) goto __else248;
5530         if (! ((SymbolEntry*)r_res)->isDefined) goto __else248;
5531         r_res = (int)((SymbolEntry*)r_res)->sob;
5532         goto __endIf248;
5533 __else248:
5534         fprintf(stderr,"Symbol list\? not defined"); exit(-1);
5535 __endIf248:
5536         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5537         push((int)SOB_CLOSURE_ENV(r_res));
5538         push(ST_RET());
5539         shiftActFrmDown();
5540         goto *(SOB_CLOSURE_CODE(r_res));
5541         sp = sp-2-stack[sp-2];
5542         goto __endIf245;
5543 __else245:
5544         r_res = (int)&sc_false;
5545 __endIf245:
5546         if ((SchemeObject*)r_res!=&sc_false) goto __endOr5;
5547 __endOr5:
5548         fp = pop();
5549         RETURN();
5550 __skipBody61:
5551         r_res = (int)makeSchemeClosure((void*)r[0],&&__body61);
5552         r[0] = (int)getSymbol("list?",topLevel);
5553         ((SymbolEntry*)r[0])->isDefined = 1;
5554         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5555         r_res = (int)&sc_void;
5556 __ret217:
5557         /* set return address */
5558         ST_RET() = (int)&&__ret221;
5559
5560         r_res = (int)&sc_false;
5561         push(r_res);
5562         r_res = (int)&sc_false;
5563         push(r_res);
5564         push(2);
5565         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5566         goto __skipBody62;
5567 __body62:
5568         push(fp);
5569         fp = sp;
5570         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5571
5572         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5573         r_res = ST_ARG(0);
5574         push(r_res);
5575         push(1);
5576         r_res = (int)probeSymbolDefined("box",topLevel);
5577         if (r_res==0) goto __else249;
5578         if (! ((SymbolEntry*)r_res)->isDefined) goto __else249;
5579         r_res = (int)((SymbolEntry*)r_res)->sob;
5580         goto __endIf249;
5581 __else249:
5582         fprintf(stderr,"Symbol box not defined"); exit(-1);
5583 __endIf249:
5584         if (IS_SOB_CLOSURE(r_res)) goto __app152;
5585         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5586 __app152:
5587         push((int)SOB_CLOSURE_ENV(r_res));
5588         push((int)&&__ret223);
5589         goto *(SOB_CLOSURE_CODE(r_res));
5590 __ret223:
5591         sp = sp-2-stack[sp-2];
5592         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5593         ST_ARG(0) = r_res;
5594         r_res = (int)&sc_void;
5595
5596         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5597         r_res = ST_ARG(1);
5598         push(r_res);
5599         push(1);
5600         r_res = (int)probeSymbolDefined("box",topLevel);
5601         if (r_res==0) goto __else250;
5602         if (! ((SymbolEntry*)r_res)->isDefined) goto __else250;
5603         r_res = (int)((SymbolEntry*)r_res)->sob;
5604         goto __endIf250;
5605 __else250:
5606         fprintf(stderr,"Symbol box not defined"); exit(-1);
5607 __endIf250:
5608         if (IS_SOB_CLOSURE(r_res)) goto __app153;
5609         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5610 __app153:
5611         push((int)SOB_CLOSURE_ENV(r_res));
5612         push((int)&&__ret224);
5613         goto *(SOB_CLOSURE_CODE(r_res));
5614 __ret224:
5615         sp = sp-2-stack[sp-2];
5616         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5617         ST_ARG(1) = r_res;
5618         r_res = (int)&sc_void;
5619
5620         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
5621         goto __skipBody63;
5622 __body63:
5623         push(fp);
5624         fp = sp;
5625         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5626
5627
5628         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5629         r_res = ST_ARG(1);
5630         push(r_res);
5631         push(1);
5632         r_res = (int)probeSymbolDefined("car",topLevel);
5633         if (r_res==0) goto __else252;
5634         if (! ((SymbolEntry*)r_res)->isDefined) goto __else252;
5635         r_res = (int)((SymbolEntry*)r_res)->sob;
5636         goto __endIf252;
5637 __else252:
5638         fprintf(stderr,"Symbol car not defined"); exit(-1);
5639 __endIf252:
5640         if (IS_SOB_CLOSURE(r_res)) goto __app156;
5641         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5642 __app156:
5643         push((int)SOB_CLOSURE_ENV(r_res));
5644         push((int)&&__ret227);
5645         goto *(SOB_CLOSURE_CODE(r_res));
5646 __ret227:
5647         sp = sp-2-stack[sp-2];
5648         push(r_res);
5649         push(1);
5650         r_res = (int)probeSymbolDefined("null?",topLevel);
5651         if (r_res==0) goto __else253;
5652         if (! ((SymbolEntry*)r_res)->isDefined) goto __else253;
5653         r_res = (int)((SymbolEntry*)r_res)->sob;
5654         goto __endIf253;
5655 __else253:
5656         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
5657 __endIf253:
5658         if (IS_SOB_CLOSURE(r_res)) goto __app155;
5659         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5660 __app155:
5661         push((int)SOB_CLOSURE_ENV(r_res));
5662         push((int)&&__ret226);
5663         goto *(SOB_CLOSURE_CODE(r_res));
5664 __ret226:
5665         sp = sp-2-stack[sp-2];
5666         if ((SchemeObject*)r_res==&sc_false) goto __else251;
5667         r_res = (int)&sc_nil;
5668         goto __endIf251;
5669 __else251:
5670
5671         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5672         r_res = ST_ARG(1);
5673         push(r_res);
5674         r_res = (int)probeSymbolDefined("cdr",topLevel);
5675         if (r_res==0) goto __else254;
5676         if (! ((SymbolEntry*)r_res)->isDefined) goto __else254;
5677         r_res = (int)((SymbolEntry*)r_res)->sob;
5678         goto __endIf254;
5679 __else254:
5680         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5681 __endIf254:
5682         push(r_res);
5683         push(2);
5684
5685         r_res = (int)&__sc_number26;
5686         push(r_res);
5687         r_res = ((int**)ST_ENV())[0][1];
5688         push(r_res);
5689         push(2);
5690         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
5691         if (r_res==0) goto __else255;
5692         if (! ((SymbolEntry*)r_res)->isDefined) goto __else255;
5693         r_res = (int)((SymbolEntry*)r_res)->sob;
5694         goto __endIf255;
5695 __else255:
5696         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
5697 __endIf255:
5698         if (IS_SOB_CLOSURE(r_res)) goto __app159;
5699         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5700 __app159:
5701         push((int)SOB_CLOSURE_ENV(r_res));
5702         push((int)&&__ret230);
5703         goto *(SOB_CLOSURE_CODE(r_res));
5704 __ret230:
5705         sp = sp-2-stack[sp-2];
5706         if (IS_SOB_CLOSURE(r_res)) goto __app158;
5707         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5708 __app158:
5709         push((int)SOB_CLOSURE_ENV(r_res));
5710         push((int)&&__ret229);
5711         goto *(SOB_CLOSURE_CODE(r_res));
5712 __ret229:
5713         sp = sp-2-stack[sp-2];
5714         push(r_res);
5715         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5716         r_res = ST_ARG(0);
5717         push(r_res);
5718         push(2);
5719
5720         r_res = (int)&__sc_number27;
5721         push(r_res);
5722         r_res = ((int**)ST_ENV())[0][0];
5723         push(r_res);
5724         push(2);
5725         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
5726         if (r_res==0) goto __else256;
5727         if (! ((SymbolEntry*)r_res)->isDefined) goto __else256;
5728         r_res = (int)((SymbolEntry*)r_res)->sob;
5729         goto __endIf256;
5730 __else256:
5731         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
5732 __endIf256:
5733         if (IS_SOB_CLOSURE(r_res)) goto __app160;
5734         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5735 __app160:
5736         push((int)SOB_CLOSURE_ENV(r_res));
5737         push((int)&&__ret231);
5738         goto *(SOB_CLOSURE_CODE(r_res));
5739 __ret231:
5740         sp = sp-2-stack[sp-2];
5741         if (IS_SOB_CLOSURE(r_res)) goto __app157;
5742         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5743 __app157:
5744         push((int)SOB_CLOSURE_ENV(r_res));
5745         push((int)&&__ret228);
5746         goto *(SOB_CLOSURE_CODE(r_res));
5747 __ret228:
5748         sp = sp-2-stack[sp-2];
5749         push(r_res);
5750
5751         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5752         r_res = ST_ARG(1);
5753         push(r_res);
5754         r_res = (int)probeSymbolDefined("car",topLevel);
5755         if (r_res==0) goto __else257;
5756         if (! ((SymbolEntry*)r_res)->isDefined) goto __else257;
5757         r_res = (int)((SymbolEntry*)r_res)->sob;
5758         goto __endIf257;
5759 __else257:
5760         fprintf(stderr,"Symbol car not defined"); exit(-1);
5761 __endIf257:
5762         push(r_res);
5763         push(2);
5764
5765         r_res = (int)&__sc_number28;
5766         push(r_res);
5767         r_res = ((int**)ST_ENV())[0][1];
5768         push(r_res);
5769         push(2);
5770         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
5771         if (r_res==0) goto __else258;
5772         if (! ((SymbolEntry*)r_res)->isDefined) goto __else258;
5773         r_res = (int)((SymbolEntry*)r_res)->sob;
5774         goto __endIf258;
5775 __else258:
5776         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
5777 __endIf258:
5778         if (IS_SOB_CLOSURE(r_res)) goto __app163;
5779         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5780 __app163:
5781         push((int)SOB_CLOSURE_ENV(r_res));
5782         push((int)&&__ret234);
5783         goto *(SOB_CLOSURE_CODE(r_res));
5784 __ret234:
5785         sp = sp-2-stack[sp-2];
5786         if (IS_SOB_CLOSURE(r_res)) goto __app162;
5787         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5788 __app162:
5789         push((int)SOB_CLOSURE_ENV(r_res));
5790         push((int)&&__ret233);
5791         goto *(SOB_CLOSURE_CODE(r_res));
5792 __ret233:
5793         sp = sp-2-stack[sp-2];
5794         push(r_res);
5795         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5796         r_res = ST_ARG(0);
5797         push(r_res);
5798         push(2);
5799         r_res = (int)probeSymbolDefined("apply",topLevel);
5800         if (r_res==0) goto __else259;
5801         if (! ((SymbolEntry*)r_res)->isDefined) goto __else259;
5802         r_res = (int)((SymbolEntry*)r_res)->sob;
5803         goto __endIf259;
5804 __else259:
5805         fprintf(stderr,"Symbol apply not defined"); exit(-1);
5806 __endIf259:
5807         if (IS_SOB_CLOSURE(r_res)) goto __app161;
5808         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5809 __app161:
5810         push((int)SOB_CLOSURE_ENV(r_res));
5811         push((int)&&__ret232);
5812         goto *(SOB_CLOSURE_CODE(r_res));
5813 __ret232:
5814         sp = sp-2-stack[sp-2];
5815         push(r_res);
5816         push(2);
5817         r_res = (int)probeSymbolDefined("cons",topLevel);
5818         if (r_res==0) goto __else260;
5819         if (! ((SymbolEntry*)r_res)->isDefined) goto __else260;
5820         r_res = (int)((SymbolEntry*)r_res)->sob;
5821         goto __endIf260;
5822 __else260:
5823         fprintf(stderr,"Symbol cons not defined"); exit(-1);
5824 __endIf260:
5825         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5826         push((int)SOB_CLOSURE_ENV(r_res));
5827         push(ST_RET());
5828         shiftActFrmDown();
5829         goto *(SOB_CLOSURE_CODE(r_res));
5830         sp = sp-2-stack[sp-2];
5831 __endIf251:
5832         fp = pop();
5833         RETURN();
5834 __skipBody63:
5835         r_res = (int)makeSchemeClosure((void*)r[0],&&__body63);
5836         push(r_res);
5837         r_res = (int)&__sc_number29;
5838         push(r_res);
5839         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5840         r_res = ST_ARG(0);
5841         push(r_res);
5842         push(3);
5843         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
5844         if (r_res==0) goto __else261;
5845         if (! ((SymbolEntry*)r_res)->isDefined) goto __else261;
5846         r_res = (int)((SymbolEntry*)r_res)->sob;
5847         goto __endIf261;
5848 __else261:
5849         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
5850 __endIf261:
5851         if (IS_SOB_CLOSURE(r_res)) goto __app154;
5852         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5853 __app154:
5854         push((int)SOB_CLOSURE_ENV(r_res));
5855         push((int)&&__ret225);
5856         goto *(SOB_CLOSURE_CODE(r_res));
5857 __ret225:
5858         sp = sp-2-stack[sp-2];
5859
5860         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
5861         goto __skipBody64;
5862 __body64:
5863         push(fp);
5864         fp = sp;
5865         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5866
5867         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5868         r_res = ST_ARG(1);
5869         push(r_res);
5870         push(1);
5871         r_res = (int)probeSymbolDefined("null?",topLevel);
5872         if (r_res==0) goto __else263;
5873         if (! ((SymbolEntry*)r_res)->isDefined) goto __else263;
5874         r_res = (int)((SymbolEntry*)r_res)->sob;
5875         goto __endIf263;
5876 __else263:
5877         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
5878 __endIf263:
5879         if (IS_SOB_CLOSURE(r_res)) goto __app165;
5880         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5881 __app165:
5882         push((int)SOB_CLOSURE_ENV(r_res));
5883         push((int)&&__ret236);
5884         goto *(SOB_CLOSURE_CODE(r_res));
5885 __ret236:
5886         sp = sp-2-stack[sp-2];
5887         if ((SchemeObject*)r_res==&sc_false) goto __else262;
5888         r_res = (int)&sc_nil;
5889         goto __endIf262;
5890 __else262:
5891
5892
5893         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5894         r_res = ST_ARG(1);
5895         push(r_res);
5896         push(1);
5897         r_res = (int)probeSymbolDefined("cdr",topLevel);
5898         if (r_res==0) goto __else264;
5899         if (! ((SymbolEntry*)r_res)->isDefined) goto __else264;
5900         r_res = (int)((SymbolEntry*)r_res)->sob;
5901         goto __endIf264;
5902 __else264:
5903         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5904 __endIf264:
5905         if (IS_SOB_CLOSURE(r_res)) goto __app167;
5906         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5907 __app167:
5908         push((int)SOB_CLOSURE_ENV(r_res));
5909         push((int)&&__ret238);
5910         goto *(SOB_CLOSURE_CODE(r_res));
5911 __ret238:
5912         sp = sp-2-stack[sp-2];
5913         push(r_res);
5914         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5915         r_res = ST_ARG(0);
5916         push(r_res);
5917         push(2);
5918
5919         r_res = (int)&__sc_number30;
5920         push(r_res);
5921         r_res = ((int**)ST_ENV())[0][1];
5922         push(r_res);
5923         push(2);
5924         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
5925         if (r_res==0) goto __else265;
5926         if (! ((SymbolEntry*)r_res)->isDefined) goto __else265;
5927         r_res = (int)((SymbolEntry*)r_res)->sob;
5928         goto __endIf265;
5929 __else265:
5930         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
5931 __endIf265:
5932         if (IS_SOB_CLOSURE(r_res)) goto __app168;
5933         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5934 __app168:
5935         push((int)SOB_CLOSURE_ENV(r_res));
5936         push((int)&&__ret239);
5937         goto *(SOB_CLOSURE_CODE(r_res));
5938 __ret239:
5939         sp = sp-2-stack[sp-2];
5940         if (IS_SOB_CLOSURE(r_res)) goto __app166;
5941         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5942 __app166:
5943         push((int)SOB_CLOSURE_ENV(r_res));
5944         push((int)&&__ret237);
5945         goto *(SOB_CLOSURE_CODE(r_res));
5946 __ret237:
5947         sp = sp-2-stack[sp-2];
5948         push(r_res);
5949
5950
5951         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5952         r_res = ST_ARG(1);
5953         push(r_res);
5954         push(1);
5955         r_res = (int)probeSymbolDefined("car",topLevel);
5956         if (r_res==0) goto __else266;
5957         if (! ((SymbolEntry*)r_res)->isDefined) goto __else266;
5958         r_res = (int)((SymbolEntry*)r_res)->sob;
5959         goto __endIf266;
5960 __else266:
5961         fprintf(stderr,"Symbol car not defined"); exit(-1);
5962 __endIf266:
5963         if (IS_SOB_CLOSURE(r_res)) goto __app170;
5964         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5965 __app170:
5966         push((int)SOB_CLOSURE_ENV(r_res));
5967         push((int)&&__ret241);
5968         goto *(SOB_CLOSURE_CODE(r_res));
5969 __ret241:
5970         sp = sp-2-stack[sp-2];
5971         push(r_res);
5972         push(1);
5973         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5974         r_res = ST_ARG(0);
5975         if (IS_SOB_CLOSURE(r_res)) goto __app169;
5976         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5977 __app169:
5978         push((int)SOB_CLOSURE_ENV(r_res));
5979         push((int)&&__ret240);
5980         goto *(SOB_CLOSURE_CODE(r_res));
5981 __ret240:
5982         sp = sp-2-stack[sp-2];
5983         push(r_res);
5984         push(2);
5985         r_res = (int)probeSymbolDefined("cons",topLevel);
5986         if (r_res==0) goto __else267;
5987         if (! ((SymbolEntry*)r_res)->isDefined) goto __else267;
5988         r_res = (int)((SymbolEntry*)r_res)->sob;
5989         goto __endIf267;
5990 __else267:
5991         fprintf(stderr,"Symbol cons not defined"); exit(-1);
5992 __endIf267:
5993         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5994         push((int)SOB_CLOSURE_ENV(r_res));
5995         push(ST_RET());
5996         shiftActFrmDown();
5997         goto *(SOB_CLOSURE_CODE(r_res));
5998         sp = sp-2-stack[sp-2];
5999 __endIf262:
6000         fp = pop();
6001         RETURN();
6002 __skipBody64:
6003         r_res = (int)makeSchemeClosure((void*)r[0],&&__body64);
6004         push(r_res);
6005         r_res = (int)&__sc_number31;
6006         push(r_res);
6007         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6008         r_res = ST_ARG(1);
6009         push(r_res);
6010         push(3);
6011         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
6012         if (r_res==0) goto __else268;
6013         if (! ((SymbolEntry*)r_res)->isDefined) goto __else268;
6014         r_res = (int)((SymbolEntry*)r_res)->sob;
6015         goto __endIf268;
6016 __else268:
6017         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
6018 __endIf268:
6019         if (IS_SOB_CLOSURE(r_res)) goto __app164;
6020         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6021 __app164:
6022         push((int)SOB_CLOSURE_ENV(r_res));
6023         push((int)&&__ret235);
6024         goto *(SOB_CLOSURE_CODE(r_res));
6025 __ret235:
6026         sp = sp-2-stack[sp-2];
6027         push(0);
6028         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6029         goto __skipBody65;
6030 __body65:
6031         push(fp);
6032         fp = sp;
6033         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6034         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
6035         goto __skipBody66;
6036 __body66:
6037         push(fp);
6038         fp = sp;
6039         prepareStackForAbsOpt(2);
6040         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6041         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6042         r_res = ST_ARG(1);
6043         push(r_res);
6044         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6045         r_res = ST_ARG(0);
6046         push(r_res);
6047         push(2);
6048
6049         r_res = (int)&__sc_number32;
6050         push(r_res);
6051         r_res = ((int**)ST_ENV())[1][0];
6052         push(r_res);
6053         push(2);
6054         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
6055         if (r_res==0) goto __else269;
6056         if (! ((SymbolEntry*)r_res)->isDefined) goto __else269;
6057         r_res = (int)((SymbolEntry*)r_res)->sob;
6058         goto __endIf269;
6059 __else269:
6060         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
6061 __endIf269:
6062         if (IS_SOB_CLOSURE(r_res)) goto __app171;
6063         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6064 __app171:
6065         push((int)SOB_CLOSURE_ENV(r_res));
6066         push((int)&&__ret242);
6067         goto *(SOB_CLOSURE_CODE(r_res));
6068 __ret242:
6069         sp = sp-2-stack[sp-2];
6070         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6071         push((int)SOB_CLOSURE_ENV(r_res));
6072         push(ST_RET());
6073         shiftActFrmDown();
6074         goto *(SOB_CLOSURE_CODE(r_res));
6075         sp = sp-2-stack[sp-2];
6076         fp = pop();
6077         RETURN();
6078 __skipBody66:
6079         r_res = (int)makeSchemeClosure((void*)r[0],&&__body66);
6080         fp = pop();
6081         RETURN();
6082 __skipBody65:
6083         r_res = (int)makeSchemeClosure((void*)r[0],&&__body65);
6084         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6085         push((int)SOB_CLOSURE_ENV(r_res));
6086         push(ST_RET());
6087         shiftActFrmDown();
6088         goto *(SOB_CLOSURE_CODE(r_res));
6089         sp = sp-2-stack[sp-2];
6090         fp = pop();
6091         RETURN();
6092 __skipBody62:
6093         r_res = (int)makeSchemeClosure((void*)r[0],&&__body62);
6094         if (IS_SOB_CLOSURE(r_res)) goto __app151;
6095         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6096 __app151:
6097         push((int)SOB_CLOSURE_ENV(r_res));
6098         push((int)&&__ret222);
6099         goto *(SOB_CLOSURE_CODE(r_res));
6100 __ret222:
6101         sp = sp-2-stack[sp-2];
6102         r[0] = (int)getSymbol("map",topLevel);
6103         ((SymbolEntry*)r[0])->isDefined = 1;
6104         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6105         r_res = (int)&sc_void;
6106 __ret221:
6107         /* set return address */
6108         ST_RET() = (int)&&__ret243;
6109
6110         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6111         goto __skipBody67;
6112 __body67:
6113         push(fp);
6114         fp = sp;
6115         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6116
6117         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6118         r_res = ST_ARG(1);
6119         push(r_res);
6120         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6121         goto __skipBody68;
6122 __body68:
6123         push(fp);
6124         fp = sp;
6125         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6126
6127         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6128         r_res = ST_ARG(0);
6129         push(r_res);
6130         r_res = ((int**)ST_ENV())[0][0];
6131         push(r_res);
6132         push(2);
6133         r_res = (int)probeSymbolDefined("eq?",topLevel);
6134         if (r_res==0) goto __else270;
6135         if (! ((SymbolEntry*)r_res)->isDefined) goto __else270;
6136         r_res = (int)((SymbolEntry*)r_res)->sob;
6137         goto __endIf270;
6138 __else270:
6139         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
6140 __endIf270:
6141         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6142         push((int)SOB_CLOSURE_ENV(r_res));
6143         push(ST_RET());
6144         shiftActFrmDown();
6145         goto *(SOB_CLOSURE_CODE(r_res));
6146         sp = sp-2-stack[sp-2];
6147         fp = pop();
6148         RETURN();
6149 __skipBody68:
6150         r_res = (int)makeSchemeClosure((void*)r[0],&&__body68);
6151         push(r_res);
6152         push(2);
6153         r_res = (int)probeSymbolDefined("ormap",topLevel);
6154         if (r_res==0) goto __else271;
6155         if (! ((SymbolEntry*)r_res)->isDefined) goto __else271;
6156         r_res = (int)((SymbolEntry*)r_res)->sob;
6157         goto __endIf271;
6158 __else271:
6159         fprintf(stderr,"Symbol ormap not defined"); exit(-1);
6160 __endIf271:
6161         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6162         push((int)SOB_CLOSURE_ENV(r_res));
6163         push(ST_RET());
6164         shiftActFrmDown();
6165         goto *(SOB_CLOSURE_CODE(r_res));
6166         sp = sp-2-stack[sp-2];
6167         fp = pop();
6168         RETURN();
6169 __skipBody67:
6170         r_res = (int)makeSchemeClosure((void*)r[0],&&__body67);
6171         r[0] = (int)getSymbol("member?",topLevel);
6172         ((SymbolEntry*)r[0])->isDefined = 1;
6173         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6174         r_res = (int)&sc_void;
6175 __ret243:
6176         /* set return address */
6177         ST_RET() = (int)&&__ret244;
6178
6179         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6180         goto __skipBody69;
6181 __body69:
6182         push(fp);
6183         fp = sp;
6184         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6185
6186         r_res = (int)&__sc_number33;
6187         push(r_res);
6188         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6189         r_res = ST_ARG(0);
6190         push(r_res);
6191         push(2);
6192         r_res = (int)probeSymbolDefined("<",topLevel);
6193         if (r_res==0) goto __else272;
6194         if (! ((SymbolEntry*)r_res)->isDefined) goto __else272;
6195         r_res = (int)((SymbolEntry*)r_res)->sob;
6196         goto __endIf272;
6197 __else272:
6198         fprintf(stderr,"Symbol < not defined"); exit(-1);
6199 __endIf272:
6200         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6201         push((int)SOB_CLOSURE_ENV(r_res));
6202         push(ST_RET());
6203         shiftActFrmDown();
6204         goto *(SOB_CLOSURE_CODE(r_res));
6205         sp = sp-2-stack[sp-2];
6206         fp = pop();
6207         RETURN();
6208 __skipBody69:
6209         r_res = (int)makeSchemeClosure((void*)r[0],&&__body69);
6210         r[0] = (int)getSymbol("negative?",topLevel);
6211         ((SymbolEntry*)r[0])->isDefined = 1;
6212         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6213         r_res = (int)&sc_void;
6214 __ret244:
6215         /* set return address */
6216         ST_RET() = (int)&&__ret245;
6217
6218         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6219         goto __skipBody70;
6220 __body70:
6221         push(fp);
6222         fp = sp;
6223         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6224
6225         r_res = (int)&__sc_number34;
6226         push(r_res);
6227         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6228         r_res = ST_ARG(0);
6229         push(r_res);
6230         push(2);
6231         r_res = (int)probeSymbolDefined(">",topLevel);
6232         if (r_res==0) goto __else273;
6233         if (! ((SymbolEntry*)r_res)->isDefined) goto __else273;
6234         r_res = (int)((SymbolEntry*)r_res)->sob;
6235         goto __endIf273;
6236 __else273:
6237         fprintf(stderr,"Symbol > not defined"); exit(-1);
6238 __endIf273:
6239         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6240         push((int)SOB_CLOSURE_ENV(r_res));
6241         push(ST_RET());
6242         shiftActFrmDown();
6243         goto *(SOB_CLOSURE_CODE(r_res));
6244         sp = sp-2-stack[sp-2];
6245         fp = pop();
6246         RETURN();
6247 __skipBody70:
6248         r_res = (int)makeSchemeClosure((void*)r[0],&&__body70);
6249         r[0] = (int)getSymbol("positive?",topLevel);
6250         ((SymbolEntry*)r[0])->isDefined = 1;
6251         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6252         r_res = (int)&sc_void;
6253 __ret245:
6254         /* set return address */
6255         ST_RET() = (int)&&__ret246;
6256
6257         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6258         goto __skipBody71;
6259 __body71:
6260         push(fp);
6261         fp = sp;
6262         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6263
6264         r_res = (int)&__sc_number35;
6265         push(r_res);
6266         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6267         r_res = ST_ARG(0);
6268         push(r_res);
6269         push(2);
6270         r_res = (int)probeSymbolDefined("=",topLevel);
6271         if (r_res==0) goto __else274;
6272         if (! ((SymbolEntry*)r_res)->isDefined) goto __else274;
6273         r_res = (int)((SymbolEntry*)r_res)->sob;
6274         goto __endIf274;
6275 __else274:
6276         fprintf(stderr,"Symbol = not defined"); exit(-1);
6277 __endIf274:
6278         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6279         push((int)SOB_CLOSURE_ENV(r_res));
6280         push(ST_RET());
6281         shiftActFrmDown();
6282         goto *(SOB_CLOSURE_CODE(r_res));
6283         sp = sp-2-stack[sp-2];
6284         fp = pop();
6285         RETURN();
6286 __skipBody71:
6287         r_res = (int)makeSchemeClosure((void*)r[0],&&__body71);
6288         r[0] = (int)getSymbol("zero?",topLevel);
6289         ((SymbolEntry*)r[0])->isDefined = 1;
6290         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6291         r_res = (int)&sc_void;
6292 __ret246:
6293         /* set return address */
6294         ST_RET() = (int)&&__ret247;
6295
6296         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6297         goto __skipBody72;
6298 __body72:
6299         push(fp);
6300         fp = sp;
6301         prepareStackForAbsOpt(1);
6302         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6303
6304         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6305         r_res = ST_ARG(0);
6306         push(r_res);
6307         push(1);
6308         r_res = (int)probeSymbolDefined("list->vector",topLevel);
6309         if (r_res==0) goto __else275;
6310         if (! ((SymbolEntry*)r_res)->isDefined) goto __else275;
6311         r_res = (int)((SymbolEntry*)r_res)->sob;
6312         goto __endIf275;
6313 __else275:
6314         fprintf(stderr,"Symbol list->vector not defined"); exit(-1);
6315 __endIf275:
6316         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6317         push((int)SOB_CLOSURE_ENV(r_res));
6318         push(ST_RET());
6319         shiftActFrmDown();
6320         goto *(SOB_CLOSURE_CODE(r_res));
6321         sp = sp-2-stack[sp-2];
6322         fp = pop();
6323         RETURN();
6324 __skipBody72:
6325         r_res = (int)makeSchemeClosure((void*)r[0],&&__body72);
6326         r[0] = (int)getSymbol("vector",topLevel);
6327         ((SymbolEntry*)r[0])->isDefined = 1;
6328         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6329         r_res = (int)&sc_void;
6330 __ret247:
6331         /* set return address */
6332         ST_RET() = (int)&&__ret248;
6333
6334         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6335         goto __skipBody73;
6336 __body73:
6337         push(fp);
6338         fp = sp;
6339         prepareStackForAbsOpt(2);
6340         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6341         r_res = (int)&sc_false;
6342         push(r_res);
6343         push(1);
6344         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6345         goto __skipBody74;
6346 __body74:
6347         push(fp);
6348         fp = sp;
6349         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6350
6351         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6352         r_res = ST_ARG(0);
6353         push(r_res);
6354         push(1);
6355         r_res = (int)probeSymbolDefined("box",topLevel);
6356         if (r_res==0) goto __else276;
6357         if (! ((SymbolEntry*)r_res)->isDefined) goto __else276;
6358         r_res = (int)((SymbolEntry*)r_res)->sob;
6359         goto __endIf276;
6360 __else276:
6361         fprintf(stderr,"Symbol box not defined"); exit(-1);
6362 __endIf276:
6363         if (IS_SOB_CLOSURE(r_res)) goto __app172;
6364         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6365 __app172:
6366         push((int)SOB_CLOSURE_ENV(r_res));
6367         push((int)&&__ret249);
6368         goto *(SOB_CLOSURE_CODE(r_res));
6369 __ret249:
6370         sp = sp-2-stack[sp-2];
6371         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6372         ST_ARG(0) = r_res;
6373         r_res = (int)&sc_void;
6374
6375         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
6376         goto __skipBody75;
6377 __body75:
6378         push(fp);
6379         fp = sp;
6380         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6381
6382
6383         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6384         r_res = ST_ARG(0);
6385         push(r_res);
6386         push(1);
6387         r_res = (int)probeSymbolDefined("car",topLevel);
6388         if (r_res==0) goto __else278;
6389         if (! ((SymbolEntry*)r_res)->isDefined) goto __else278;
6390         r_res = (int)((SymbolEntry*)r_res)->sob;
6391         goto __endIf278;
6392 __else278:
6393         fprintf(stderr,"Symbol car not defined"); exit(-1);
6394 __endIf278:
6395         if (IS_SOB_CLOSURE(r_res)) goto __app175;
6396         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6397 __app175:
6398         push((int)SOB_CLOSURE_ENV(r_res));
6399         push((int)&&__ret252);
6400         goto *(SOB_CLOSURE_CODE(r_res));
6401 __ret252:
6402         sp = sp-2-stack[sp-2];
6403         push(r_res);
6404         push(1);
6405         r_res = (int)probeSymbolDefined("pair?",topLevel);
6406         if (r_res==0) goto __else279;
6407         if (! ((SymbolEntry*)r_res)->isDefined) goto __else279;
6408         r_res = (int)((SymbolEntry*)r_res)->sob;
6409         goto __endIf279;
6410 __else279:
6411         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
6412 __endIf279:
6413         if (IS_SOB_CLOSURE(r_res)) goto __app174;
6414         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6415 __app174:
6416         push((int)SOB_CLOSURE_ENV(r_res));
6417         push((int)&&__ret251);
6418         goto *(SOB_CLOSURE_CODE(r_res));
6419 __ret251:
6420         sp = sp-2-stack[sp-2];
6421         if ((SchemeObject*)r_res==&sc_false) goto __else277;
6422
6423
6424         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6425         r_res = ST_ARG(0);
6426         push(r_res);
6427         r_res = (int)probeSymbolDefined("car",topLevel);
6428         if (r_res==0) goto __else280;
6429         if (! ((SymbolEntry*)r_res)->isDefined) goto __else280;
6430         r_res = (int)((SymbolEntry*)r_res)->sob;
6431         goto __endIf280;
6432 __else280:
6433         fprintf(stderr,"Symbol car not defined"); exit(-1);
6434 __endIf280:
6435         push(r_res);
6436         push(2);
6437         r_res = (int)probeSymbolDefined("map",topLevel);
6438         if (r_res==0) goto __else281;
6439         if (! ((SymbolEntry*)r_res)->isDefined) goto __else281;
6440         r_res = (int)((SymbolEntry*)r_res)->sob;
6441         goto __endIf281;
6442 __else281:
6443         fprintf(stderr,"Symbol map not defined"); exit(-1);
6444 __endIf281:
6445         if (IS_SOB_CLOSURE(r_res)) goto __app177;
6446         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6447 __app177:
6448         push((int)SOB_CLOSURE_ENV(r_res));
6449         push((int)&&__ret254);
6450         goto *(SOB_CLOSURE_CODE(r_res));
6451 __ret254:
6452         sp = sp-2-stack[sp-2];
6453         push(r_res);
6454         r_res = ((int**)ST_ENV())[1][0];
6455         push(r_res);
6456         push(2);
6457         r_res = (int)probeSymbolDefined("apply",topLevel);
6458         if (r_res==0) goto __else282;
6459         if (! ((SymbolEntry*)r_res)->isDefined) goto __else282;
6460         r_res = (int)((SymbolEntry*)r_res)->sob;
6461         goto __endIf282;
6462 __else282:
6463         fprintf(stderr,"Symbol apply not defined"); exit(-1);
6464 __endIf282:
6465         if (IS_SOB_CLOSURE(r_res)) goto __app176;
6466         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6467 __app176:
6468         push((int)SOB_CLOSURE_ENV(r_res));
6469         push((int)&&__ret253);
6470         goto *(SOB_CLOSURE_CODE(r_res));
6471 __ret253:
6472         sp = sp-2-stack[sp-2];
6473         if ((SchemeObject*)r_res!=&sc_false) goto __endOr6;
6474
6475         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6476         r_res = ST_ARG(0);
6477         push(r_res);
6478         r_res = (int)probeSymbolDefined("cdr",topLevel);
6479         if (r_res==0) goto __else283;
6480         if (! ((SymbolEntry*)r_res)->isDefined) goto __else283;
6481         r_res = (int)((SymbolEntry*)r_res)->sob;
6482         goto __endIf283;
6483 __else283:
6484         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
6485 __endIf283:
6486         push(r_res);
6487         push(2);
6488         r_res = (int)probeSymbolDefined("map",topLevel);
6489         if (r_res==0) goto __else284;
6490         if (! ((SymbolEntry*)r_res)->isDefined) goto __else284;
6491         r_res = (int)((SymbolEntry*)r_res)->sob;
6492         goto __endIf284;
6493 __else284:
6494         fprintf(stderr,"Symbol map not defined"); exit(-1);
6495 __endIf284:
6496         if (IS_SOB_CLOSURE(r_res)) goto __app178;
6497         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6498 __app178:
6499         push((int)SOB_CLOSURE_ENV(r_res));
6500         push((int)&&__ret255);
6501         goto *(SOB_CLOSURE_CODE(r_res));
6502 __ret255:
6503         sp = sp-2-stack[sp-2];
6504         push(r_res);
6505         push(1);
6506
6507         r_res = (int)&__sc_number36;
6508         push(r_res);
6509         r_res = ((int**)ST_ENV())[0][0];
6510         push(r_res);
6511         push(2);
6512         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
6513         if (r_res==0) goto __else285;
6514         if (! ((SymbolEntry*)r_res)->isDefined) goto __else285;
6515         r_res = (int)((SymbolEntry*)r_res)->sob;
6516         goto __endIf285;
6517 __else285:
6518         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
6519 __endIf285:
6520         if (IS_SOB_CLOSURE(r_res)) goto __app179;
6521         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6522 __app179:
6523         push((int)SOB_CLOSURE_ENV(r_res));
6524         push((int)&&__ret256);
6525         goto *(SOB_CLOSURE_CODE(r_res));
6526 __ret256:
6527         sp = sp-2-stack[sp-2];
6528         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6529         push((int)SOB_CLOSURE_ENV(r_res));
6530         push(ST_RET());
6531         shiftActFrmDown();
6532         goto *(SOB_CLOSURE_CODE(r_res));
6533         sp = sp-2-stack[sp-2];
6534         if ((SchemeObject*)r_res!=&sc_false) goto __endOr6;
6535 __endOr6:
6536         goto __endIf277;
6537 __else277:
6538         r_res = (int)&sc_false;
6539 __endIf277:
6540         fp = pop();
6541         RETURN();
6542 __skipBody75:
6543         r_res = (int)makeSchemeClosure((void*)r[0],&&__body75);
6544         push(r_res);
6545         r_res = (int)&__sc_number37;
6546         push(r_res);
6547         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6548         r_res = ST_ARG(0);
6549         push(r_res);
6550         push(3);
6551         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
6552         if (r_res==0) goto __else286;
6553         if (! ((SymbolEntry*)r_res)->isDefined) goto __else286;
6554         r_res = (int)((SymbolEntry*)r_res)->sob;
6555         goto __endIf286;
6556 __else286:
6557         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
6558 __endIf286:
6559         if (IS_SOB_CLOSURE(r_res)) goto __app173;
6560         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6561 __app173:
6562         push((int)SOB_CLOSURE_ENV(r_res));
6563         push((int)&&__ret250);
6564         goto *(SOB_CLOSURE_CODE(r_res));
6565 __ret250:
6566         sp = sp-2-stack[sp-2];
6567         push(0);
6568         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
6569         goto __skipBody76;
6570 __body76:
6571         push(fp);
6572         fp = sp;
6573         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6574         r_res = ((int**)ST_ENV())[1][1];
6575         push(r_res);
6576         push(1);
6577
6578         r_res = (int)&__sc_number38;
6579         push(r_res);
6580         r_res = ((int**)ST_ENV())[0][0];
6581         push(r_res);
6582         push(2);
6583         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
6584         if (r_res==0) goto __else287;
6585         if (! ((SymbolEntry*)r_res)->isDefined) goto __else287;
6586         r_res = (int)((SymbolEntry*)r_res)->sob;
6587         goto __endIf287;
6588 __else287:
6589         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
6590 __endIf287:
6591         if (IS_SOB_CLOSURE(r_res)) goto __app180;
6592         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6593 __app180:
6594         push((int)SOB_CLOSURE_ENV(r_res));
6595         push((int)&&__ret257);
6596         goto *(SOB_CLOSURE_CODE(r_res));
6597 __ret257:
6598         sp = sp-2-stack[sp-2];
6599         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6600         push((int)SOB_CLOSURE_ENV(r_res));
6601         push(ST_RET());
6602         shiftActFrmDown();
6603         goto *(SOB_CLOSURE_CODE(r_res));
6604         sp = sp-2-stack[sp-2];
6605         fp = pop();
6606         RETURN();
6607 __skipBody76:
6608         r_res = (int)makeSchemeClosure((void*)r[0],&&__body76);
6609         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6610         push((int)SOB_CLOSURE_ENV(r_res));
6611         push(ST_RET());
6612         shiftActFrmDown();
6613         goto *(SOB_CLOSURE_CODE(r_res));
6614         sp = sp-2-stack[sp-2];
6615         fp = pop();
6616         RETURN();
6617 __skipBody74:
6618         r_res = (int)makeSchemeClosure((void*)r[0],&&__body74);
6619         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6620         push((int)SOB_CLOSURE_ENV(r_res));
6621         push(ST_RET());
6622         shiftActFrmDown();
6623         goto *(SOB_CLOSURE_CODE(r_res));
6624         sp = sp-2-stack[sp-2];
6625         fp = pop();
6626         RETURN();
6627 __skipBody73:
6628         r_res = (int)makeSchemeClosure((void*)r[0],&&__body73);
6629         r[0] = (int)getSymbol("ormap",topLevel);
6630         ((SymbolEntry*)r[0])->isDefined = 1;
6631         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6632         r_res = (int)&sc_void;
6633 __ret248:
6634         /* set return address */
6635         ST_RET() = (int)&&__ret258;
6636
6637         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6638         goto __skipBody77;
6639 __body77:
6640         push(fp);
6641         fp = sp;
6642         prepareStackForAbsOpt(2);
6643         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6644         r_res = (int)&sc_false;
6645         push(r_res);
6646         push(1);
6647         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6648         goto __skipBody78;
6649 __body78:
6650         push(fp);
6651         fp = sp;
6652         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6653
6654         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6655         r_res = ST_ARG(0);
6656         push(r_res);
6657         push(1);
6658         r_res = (int)probeSymbolDefined("box",topLevel);
6659         if (r_res==0) goto __else288;
6660         if (! ((SymbolEntry*)r_res)->isDefined) goto __else288;
6661         r_res = (int)((SymbolEntry*)r_res)->sob;
6662         goto __endIf288;
6663 __else288:
6664         fprintf(stderr,"Symbol box not defined"); exit(-1);
6665 __endIf288:
6666         if (IS_SOB_CLOSURE(r_res)) goto __app181;
6667         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6668 __app181:
6669         push((int)SOB_CLOSURE_ENV(r_res));
6670         push((int)&&__ret259);
6671         goto *(SOB_CLOSURE_CODE(r_res));
6672 __ret259:
6673         sp = sp-2-stack[sp-2];
6674         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6675         ST_ARG(0) = r_res;
6676         r_res = (int)&sc_void;
6677
6678         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
6679         goto __skipBody79;
6680 __body79:
6681         push(fp);
6682         fp = sp;
6683         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6684
6685
6686         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6687         r_res = ST_ARG(0);
6688         push(r_res);
6689         push(1);
6690         r_res = (int)probeSymbolDefined("car",topLevel);
6691         if (r_res==0) goto __else289;
6692         if (! ((SymbolEntry*)r_res)->isDefined) goto __else289;
6693         r_res = (int)((SymbolEntry*)r_res)->sob;
6694         goto __endIf289;
6695 __else289:
6696         fprintf(stderr,"Symbol car not defined"); exit(-1);
6697 __endIf289:
6698         if (IS_SOB_CLOSURE(r_res)) goto __app184;
6699         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6700 __app184:
6701         push((int)SOB_CLOSURE_ENV(r_res));
6702         push((int)&&__ret262);
6703         goto *(SOB_CLOSURE_CODE(r_res));
6704 __ret262:
6705         sp = sp-2-stack[sp-2];
6706         push(r_res);
6707         push(1);
6708         r_res = (int)probeSymbolDefined("null?",topLevel);
6709         if (r_res==0) goto __else290;
6710         if (! ((SymbolEntry*)r_res)->isDefined) goto __else290;
6711         r_res = (int)((SymbolEntry*)r_res)->sob;
6712         goto __endIf290;
6713 __else290:
6714         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
6715 __endIf290:
6716         if (IS_SOB_CLOSURE(r_res)) goto __app183;
6717         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6718 __app183:
6719         push((int)SOB_CLOSURE_ENV(r_res));
6720         push((int)&&__ret261);
6721         goto *(SOB_CLOSURE_CODE(r_res));
6722 __ret261:
6723         sp = sp-2-stack[sp-2];
6724         if ((SchemeObject*)r_res!=&sc_false) goto __endOr7;
6725
6726
6727         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6728         r_res = ST_ARG(0);
6729         push(r_res);
6730         r_res = (int)probeSymbolDefined("car",topLevel);
6731         if (r_res==0) goto __else292;
6732         if (! ((SymbolEntry*)r_res)->isDefined) goto __else292;
6733         r_res = (int)((SymbolEntry*)r_res)->sob;
6734         goto __endIf292;
6735 __else292:
6736         fprintf(stderr,"Symbol car not defined"); exit(-1);
6737 __endIf292:
6738         push(r_res);
6739         push(2);
6740         r_res = (int)probeSymbolDefined("map",topLevel);
6741         if (r_res==0) goto __else293;
6742         if (! ((SymbolEntry*)r_res)->isDefined) goto __else293;
6743         r_res = (int)((SymbolEntry*)r_res)->sob;
6744         goto __endIf293;
6745 __else293:
6746         fprintf(stderr,"Symbol map not defined"); exit(-1);
6747 __endIf293:
6748         if (IS_SOB_CLOSURE(r_res)) goto __app186;
6749         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6750 __app186:
6751         push((int)SOB_CLOSURE_ENV(r_res));
6752         push((int)&&__ret264);
6753         goto *(SOB_CLOSURE_CODE(r_res));
6754 __ret264:
6755         sp = sp-2-stack[sp-2];
6756         push(r_res);
6757         r_res = ((int**)ST_ENV())[1][0];
6758         push(r_res);
6759         push(2);
6760         r_res = (int)probeSymbolDefined("apply",topLevel);
6761         if (r_res==0) goto __else294;
6762         if (! ((SymbolEntry*)r_res)->isDefined) goto __else294;
6763         r_res = (int)((SymbolEntry*)r_res)->sob;
6764         goto __endIf294;
6765 __else294:
6766         fprintf(stderr,"Symbol apply not defined"); exit(-1);
6767 __endIf294:
6768         if (IS_SOB_CLOSURE(r_res)) goto __app185;
6769         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6770 __app185:
6771         push((int)SOB_CLOSURE_ENV(r_res));
6772         push((int)&&__ret263);
6773         goto *(SOB_CLOSURE_CODE(r_res));
6774 __ret263:
6775         sp = sp-2-stack[sp-2];
6776         if ((SchemeObject*)r_res==&sc_false) goto __else291;
6777
6778         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6779         r_res = ST_ARG(0);
6780         push(r_res);
6781         r_res = (int)probeSymbolDefined("cdr",topLevel);
6782         if (r_res==0) goto __else295;
6783         if (! ((SymbolEntry*)r_res)->isDefined) goto __else295;
6784         r_res = (int)((SymbolEntry*)r_res)->sob;
6785         goto __endIf295;
6786 __else295:
6787         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
6788 __endIf295:
6789         push(r_res);
6790         push(2);
6791         r_res = (int)probeSymbolDefined("map",topLevel);
6792         if (r_res==0) goto __else296;
6793         if (! ((SymbolEntry*)r_res)->isDefined) goto __else296;
6794         r_res = (int)((SymbolEntry*)r_res)->sob;
6795         goto __endIf296;
6796 __else296:
6797         fprintf(stderr,"Symbol map not defined"); exit(-1);
6798 __endIf296:
6799         if (IS_SOB_CLOSURE(r_res)) goto __app187;
6800         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6801 __app187:
6802         push((int)SOB_CLOSURE_ENV(r_res));
6803         push((int)&&__ret265);
6804         goto *(SOB_CLOSURE_CODE(r_res));
6805 __ret265:
6806         sp = sp-2-stack[sp-2];
6807         push(r_res);
6808         push(1);
6809
6810         r_res = (int)&__sc_number39;
6811         push(r_res);
6812         r_res = ((int**)ST_ENV())[0][0];
6813         push(r_res);
6814         push(2);
6815         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
6816         if (r_res==0) goto __else297;
6817         if (! ((SymbolEntry*)r_res)->isDefined) goto __else297;
6818         r_res = (int)((SymbolEntry*)r_res)->sob;
6819         goto __endIf297;
6820 __else297:
6821         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
6822 __endIf297:
6823         if (IS_SOB_CLOSURE(r_res)) goto __app188;
6824         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6825 __app188:
6826         push((int)SOB_CLOSURE_ENV(r_res));
6827         push((int)&&__ret266);
6828         goto *(SOB_CLOSURE_CODE(r_res));
6829 __ret266:
6830         sp = sp-2-stack[sp-2];
6831         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6832         push((int)SOB_CLOSURE_ENV(r_res));
6833         push(ST_RET());
6834         shiftActFrmDown();
6835         goto *(SOB_CLOSURE_CODE(r_res));
6836         sp = sp-2-stack[sp-2];
6837         goto __endIf291;
6838 __else291:
6839         r_res = (int)&sc_false;
6840 __endIf291:
6841         if ((SchemeObject*)r_res!=&sc_false) goto __endOr7;
6842 __endOr7:
6843         fp = pop();
6844         RETURN();
6845 __skipBody79:
6846         r_res = (int)makeSchemeClosure((void*)r[0],&&__body79);
6847         push(r_res);
6848         r_res = (int)&__sc_number40;
6849         push(r_res);
6850         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6851         r_res = ST_ARG(0);
6852         push(r_res);
6853         push(3);
6854         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
6855         if (r_res==0) goto __else298;
6856         if (! ((SymbolEntry*)r_res)->isDefined) goto __else298;
6857         r_res = (int)((SymbolEntry*)r_res)->sob;
6858         goto __endIf298;
6859 __else298:
6860         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
6861 __endIf298:
6862         if (IS_SOB_CLOSURE(r_res)) goto __app182;
6863         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6864 __app182:
6865         push((int)SOB_CLOSURE_ENV(r_res));
6866         push((int)&&__ret260);
6867         goto *(SOB_CLOSURE_CODE(r_res));
6868 __ret260:
6869         sp = sp-2-stack[sp-2];
6870         push(0);
6871         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
6872         goto __skipBody80;
6873 __body80:
6874         push(fp);
6875         fp = sp;
6876         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6877         r_res = ((int**)ST_ENV())[1][1];
6878         push(r_res);
6879         push(1);
6880
6881         r_res = (int)&__sc_number41;
6882         push(r_res);
6883         r_res = ((int**)ST_ENV())[0][0];
6884         push(r_res);
6885         push(2);
6886         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
6887         if (r_res==0) goto __else299;
6888         if (! ((SymbolEntry*)r_res)->isDefined) goto __else299;
6889         r_res = (int)((SymbolEntry*)r_res)->sob;
6890         goto __endIf299;
6891 __else299:
6892         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
6893 __endIf299:
6894         if (IS_SOB_CLOSURE(r_res)) goto __app189;
6895         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6896 __app189:
6897         push((int)SOB_CLOSURE_ENV(r_res));
6898         push((int)&&__ret267);
6899         goto *(SOB_CLOSURE_CODE(r_res));
6900 __ret267:
6901         sp = sp-2-stack[sp-2];
6902         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6903         push((int)SOB_CLOSURE_ENV(r_res));
6904         push(ST_RET());
6905         shiftActFrmDown();
6906         goto *(SOB_CLOSURE_CODE(r_res));
6907         sp = sp-2-stack[sp-2];
6908         fp = pop();
6909         RETURN();
6910 __skipBody80:
6911         r_res = (int)makeSchemeClosure((void*)r[0],&&__body80);
6912         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6913         push((int)SOB_CLOSURE_ENV(r_res));
6914         push(ST_RET());
6915         shiftActFrmDown();
6916         goto *(SOB_CLOSURE_CODE(r_res));
6917         sp = sp-2-stack[sp-2];
6918         fp = pop();
6919         RETURN();
6920 __skipBody78:
6921         r_res = (int)makeSchemeClosure((void*)r[0],&&__body78);
6922         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6923         push((int)SOB_CLOSURE_ENV(r_res));
6924         push(ST_RET());
6925         shiftActFrmDown();
6926         goto *(SOB_CLOSURE_CODE(r_res));
6927         sp = sp-2-stack[sp-2];
6928         fp = pop();
6929         RETURN();
6930 __skipBody77:
6931         r_res = (int)makeSchemeClosure((void*)r[0],&&__body77);
6932         r[0] = (int)getSymbol("andmap",topLevel);
6933         ((SymbolEntry*)r[0])->isDefined = 1;
6934         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6935         r_res = (int)&sc_void;
6936 __ret258:
6937         /* set return address */
6938         ST_RET() = (int)&&__ret268;
6939
6940         r_res = (int)&sc_false;
6941         push(r_res);
6942         push(1);
6943         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6944         goto __skipBody81;
6945 __body81:
6946         push(fp);
6947         fp = sp;
6948         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6949
6950         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6951         r_res = ST_ARG(0);
6952         push(r_res);
6953         push(1);
6954         r_res = (int)probeSymbolDefined("box",topLevel);
6955         if (r_res==0) goto __else300;
6956         if (! ((SymbolEntry*)r_res)->isDefined) goto __else300;
6957         r_res = (int)((SymbolEntry*)r_res)->sob;
6958         goto __endIf300;
6959 __else300:
6960         fprintf(stderr,"Symbol box not defined"); exit(-1);
6961 __endIf300:
6962         if (IS_SOB_CLOSURE(r_res)) goto __app191;
6963         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6964 __app191:
6965         push((int)SOB_CLOSURE_ENV(r_res));
6966         push((int)&&__ret270);
6967         goto *(SOB_CLOSURE_CODE(r_res));
6968 __ret270:
6969         sp = sp-2-stack[sp-2];
6970         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6971         ST_ARG(0) = r_res;
6972         r_res = (int)&sc_void;
6973
6974         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6975         goto __skipBody82;
6976 __body82:
6977         push(fp);
6978         fp = sp;
6979         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6980
6981         r_res = (int)&__sc_number42;
6982         push(r_res);
6983         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6984         r_res = ST_ARG(1);
6985         push(r_res);
6986         push(2);
6987         r_res = (int)probeSymbolDefined("=",topLevel);
6988         if (r_res==0) goto __else302;
6989         if (! ((SymbolEntry*)r_res)->isDefined) goto __else302;
6990         r_res = (int)((SymbolEntry*)r_res)->sob;
6991         goto __endIf302;
6992 __else302:
6993         fprintf(stderr,"Symbol = not defined"); exit(-1);
6994 __endIf302:
6995         if (IS_SOB_CLOSURE(r_res)) goto __app193;
6996         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6997 __app193:
6998         push((int)SOB_CLOSURE_ENV(r_res));
6999         push((int)&&__ret272);
7000         goto *(SOB_CLOSURE_CODE(r_res));
7001 __ret272:
7002         sp = sp-2-stack[sp-2];
7003         if ((SchemeObject*)r_res==&sc_false) goto __else301;
7004         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
7005         r_res = ST_ARG(2);
7006         goto __endIf301;
7007 __else301:
7008
7009         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
7010         r_res = ST_ARG(2);
7011         push(r_res);
7012
7013         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7014         r_res = ST_ARG(1);
7015         push(r_res);
7016         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7017         r_res = ST_ARG(0);
7018         push(r_res);
7019         push(2);
7020         r_res = (int)probeSymbolDefined("string-ref",topLevel);
7021         if (r_res==0) goto __else303;
7022         if (! ((SymbolEntry*)r_res)->isDefined) goto __else303;
7023         r_res = (int)((SymbolEntry*)r_res)->sob;
7024         goto __endIf303;
7025 __else303:
7026         fprintf(stderr,"Symbol string-ref not defined"); exit(-1);
7027 __endIf303:
7028         if (IS_SOB_CLOSURE(r_res)) goto __app195;
7029         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7030 __app195:
7031         push((int)SOB_CLOSURE_ENV(r_res));
7032         push((int)&&__ret274);
7033         goto *(SOB_CLOSURE_CODE(r_res));
7034 __ret274:
7035         sp = sp-2-stack[sp-2];
7036         push(r_res);
7037         push(2);
7038         r_res = (int)probeSymbolDefined("cons",topLevel);
7039         if (r_res==0) goto __else304;
7040         if (! ((SymbolEntry*)r_res)->isDefined) goto __else304;
7041         r_res = (int)((SymbolEntry*)r_res)->sob;
7042         goto __endIf304;
7043 __else304:
7044         fprintf(stderr,"Symbol cons not defined"); exit(-1);
7045 __endIf304:
7046         if (IS_SOB_CLOSURE(r_res)) goto __app194;
7047         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7048 __app194:
7049         push((int)SOB_CLOSURE_ENV(r_res));
7050         push((int)&&__ret273);
7051         goto *(SOB_CLOSURE_CODE(r_res));
7052 __ret273:
7053         sp = sp-2-stack[sp-2];
7054         push(r_res);
7055
7056         r_res = (int)&__sc_number43;
7057         push(r_res);
7058         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7059         r_res = ST_ARG(1);
7060         push(r_res);
7061         push(2);
7062         r_res = (int)probeSymbolDefined("-",topLevel);
7063         if (r_res==0) goto __else305;
7064         if (! ((SymbolEntry*)r_res)->isDefined) goto __else305;
7065         r_res = (int)((SymbolEntry*)r_res)->sob;
7066         goto __endIf305;
7067 __else305:
7068         fprintf(stderr,"Symbol - not defined"); exit(-1);
7069 __endIf305:
7070         if (IS_SOB_CLOSURE(r_res)) goto __app196;
7071         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7072 __app196:
7073         push((int)SOB_CLOSURE_ENV(r_res));
7074         push((int)&&__ret275);
7075         goto *(SOB_CLOSURE_CODE(r_res));
7076 __ret275:
7077         sp = sp-2-stack[sp-2];
7078         push(r_res);
7079         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7080         r_res = ST_ARG(0);
7081         push(r_res);
7082         push(3);
7083
7084         r_res = (int)&__sc_number44;
7085         push(r_res);
7086         r_res = ((int**)ST_ENV())[0][0];
7087         push(r_res);
7088         push(2);
7089         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
7090         if (r_res==0) goto __else306;
7091         if (! ((SymbolEntry*)r_res)->isDefined) goto __else306;
7092         r_res = (int)((SymbolEntry*)r_res)->sob;
7093         goto __endIf306;
7094 __else306:
7095         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
7096 __endIf306:
7097         if (IS_SOB_CLOSURE(r_res)) goto __app197;
7098         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7099 __app197:
7100         push((int)SOB_CLOSURE_ENV(r_res));
7101         push((int)&&__ret276);
7102         goto *(SOB_CLOSURE_CODE(r_res));
7103 __ret276:
7104         sp = sp-2-stack[sp-2];
7105         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7106         push((int)SOB_CLOSURE_ENV(r_res));
7107         push(ST_RET());
7108         shiftActFrmDown();
7109         goto *(SOB_CLOSURE_CODE(r_res));
7110         sp = sp-2-stack[sp-2];
7111 __endIf301:
7112         fp = pop();
7113         RETURN();
7114 __skipBody82:
7115         r_res = (int)makeSchemeClosure((void*)r[0],&&__body82);
7116         push(r_res);
7117         r_res = (int)&__sc_number45;
7118         push(r_res);
7119         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7120         r_res = ST_ARG(0);
7121         push(r_res);
7122         push(3);
7123         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
7124         if (r_res==0) goto __else307;
7125         if (! ((SymbolEntry*)r_res)->isDefined) goto __else307;
7126         r_res = (int)((SymbolEntry*)r_res)->sob;
7127         goto __endIf307;
7128 __else307:
7129         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
7130 __endIf307:
7131         if (IS_SOB_CLOSURE(r_res)) goto __app192;
7132         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7133 __app192:
7134         push((int)SOB_CLOSURE_ENV(r_res));
7135         push((int)&&__ret271);
7136         goto *(SOB_CLOSURE_CODE(r_res));
7137 __ret271:
7138         sp = sp-2-stack[sp-2];
7139         push(0);
7140         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
7141         goto __skipBody83;
7142 __body83:
7143         push(fp);
7144         fp = sp;
7145         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7146         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
7147         goto __skipBody84;
7148 __body84:
7149         push(fp);
7150         fp = sp;
7151         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7152         r_res = (int)&sc_nil;
7153         push(r_res);
7154
7155         r_res = (int)&__sc_number46;
7156         push(r_res);
7157
7158         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7159         r_res = ST_ARG(0);
7160         push(r_res);
7161         push(1);
7162         r_res = (int)probeSymbolDefined("string-length",topLevel);
7163         if (r_res==0) goto __else308;
7164         if (! ((SymbolEntry*)r_res)->isDefined) goto __else308;
7165         r_res = (int)((SymbolEntry*)r_res)->sob;
7166         goto __endIf308;
7167 __else308:
7168         fprintf(stderr,"Symbol string-length not defined"); exit(-1);
7169 __endIf308:
7170         if (IS_SOB_CLOSURE(r_res)) goto __app199;
7171         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7172 __app199:
7173         push((int)SOB_CLOSURE_ENV(r_res));
7174         push((int)&&__ret278);
7175         goto *(SOB_CLOSURE_CODE(r_res));
7176 __ret278:
7177         sp = sp-2-stack[sp-2];
7178         push(r_res);
7179         push(2);
7180         r_res = (int)probeSymbolDefined("-",topLevel);
7181         if (r_res==0) goto __else309;
7182         if (! ((SymbolEntry*)r_res)->isDefined) goto __else309;
7183         r_res = (int)((SymbolEntry*)r_res)->sob;
7184         goto __endIf309;
7185 __else309:
7186         fprintf(stderr,"Symbol - not defined"); exit(-1);
7187 __endIf309:
7188         if (IS_SOB_CLOSURE(r_res)) goto __app198;
7189         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7190 __app198:
7191         push((int)SOB_CLOSURE_ENV(r_res));
7192         push((int)&&__ret277);
7193         goto *(SOB_CLOSURE_CODE(r_res));
7194 __ret277:
7195         sp = sp-2-stack[sp-2];
7196         push(r_res);
7197         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7198         r_res = ST_ARG(0);
7199         push(r_res);
7200         push(3);
7201
7202         r_res = (int)&__sc_number47;
7203         push(r_res);
7204         r_res = ((int**)ST_ENV())[1][0];
7205         push(r_res);
7206         push(2);
7207         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
7208         if (r_res==0) goto __else310;
7209         if (! ((SymbolEntry*)r_res)->isDefined) goto __else310;
7210         r_res = (int)((SymbolEntry*)r_res)->sob;
7211         goto __endIf310;
7212 __else310:
7213         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
7214 __endIf310:
7215         if (IS_SOB_CLOSURE(r_res)) goto __app200;
7216         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7217 __app200:
7218         push((int)SOB_CLOSURE_ENV(r_res));
7219         push((int)&&__ret279);
7220         goto *(SOB_CLOSURE_CODE(r_res));
7221 __ret279:
7222         sp = sp-2-stack[sp-2];
7223         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7224         push((int)SOB_CLOSURE_ENV(r_res));
7225         push(ST_RET());
7226         shiftActFrmDown();
7227         goto *(SOB_CLOSURE_CODE(r_res));
7228         sp = sp-2-stack[sp-2];
7229         fp = pop();
7230         RETURN();
7231 __skipBody84:
7232         r_res = (int)makeSchemeClosure((void*)r[0],&&__body84);
7233         fp = pop();
7234         RETURN();
7235 __skipBody83:
7236         r_res = (int)makeSchemeClosure((void*)r[0],&&__body83);
7237         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7238         push((int)SOB_CLOSURE_ENV(r_res));
7239         push(ST_RET());
7240         shiftActFrmDown();
7241         goto *(SOB_CLOSURE_CODE(r_res));
7242         sp = sp-2-stack[sp-2];
7243         fp = pop();
7244         RETURN();
7245 __skipBody81:
7246         r_res = (int)makeSchemeClosure((void*)r[0],&&__body81);
7247         if (IS_SOB_CLOSURE(r_res)) goto __app190;
7248         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7249 __app190:
7250         push((int)SOB_CLOSURE_ENV(r_res));
7251         push((int)&&__ret269);
7252         goto *(SOB_CLOSURE_CODE(r_res));
7253 __ret269:
7254         sp = sp-2-stack[sp-2];
7255         r[0] = (int)getSymbol("string->list",topLevel);
7256         ((SymbolEntry*)r[0])->isDefined = 1;
7257         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7258         r_res = (int)&sc_void;
7259 __ret268:
7260         /* set return address */
7261         ST_RET() = (int)&&__ret280;
7262
7263         r[0] = (int)extendEnviroment( (int**)NULL, 0);
7264         goto __skipBody85;
7265 __body85:
7266         push(fp);
7267         fp = sp;
7268         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7269
7270         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7271         r_res = ST_ARG(1);
7272         push(r_res);
7273         push(1);
7274         r_res = (int)probeSymbolDefined("string-length",topLevel);
7275         if (r_res==0) goto __else311;
7276         if (! ((SymbolEntry*)r_res)->isDefined) goto __else311;
7277         r_res = (int)((SymbolEntry*)r_res)->sob;
7278         goto __endIf311;
7279 __else311:
7280         fprintf(stderr,"Symbol string-length not defined"); exit(-1);
7281 __endIf311:
7282         if (IS_SOB_CLOSURE(r_res)) goto __app201;
7283         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7284 __app201:
7285         push((int)SOB_CLOSURE_ENV(r_res));
7286         push((int)&&__ret281);
7287         goto *(SOB_CLOSURE_CODE(r_res));
7288 __ret281:
7289         sp = sp-2-stack[sp-2];
7290         push(r_res);
7291
7292         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7293         r_res = ST_ARG(0);
7294         push(r_res);
7295         push(1);
7296         r_res = (int)probeSymbolDefined("string-length",topLevel);
7297         if (r_res==0) goto __else312;
7298         if (! ((SymbolEntry*)r_res)->isDefined) goto __else312;
7299         r_res = (int)((SymbolEntry*)r_res)->sob;
7300         goto __endIf312;
7301 __else312:
7302         fprintf(stderr,"Symbol string-length not defined"); exit(-1);
7303 __endIf312:
7304         if (IS_SOB_CLOSURE(r_res)) goto __app202;
7305         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7306 __app202:
7307         push((int)SOB_CLOSURE_ENV(r_res));
7308         push((int)&&__ret282);
7309         goto *(SOB_CLOSURE_CODE(r_res));
7310 __ret282:
7311         sp = sp-2-stack[sp-2];
7312         push(r_res);
7313         push(2);
7314         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
7315         goto __skipBody86;
7316 __body86:
7317         push(fp);
7318         fp = sp;
7319         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7320
7321         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7322         r_res = ST_ARG(1);
7323         push(r_res);
7324         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7325         r_res = ST_ARG(0);
7326         push(r_res);
7327         push(2);
7328         r_res = (int)probeSymbolDefined("=",topLevel);
7329         if (r_res==0) goto __else314;
7330         if (! ((SymbolEntry*)r_res)->isDefined) goto __else314;
7331         r_res = (int)((SymbolEntry*)r_res)->sob;
7332         goto __endIf314;
7333 __else314:
7334         fprintf(stderr,"Symbol = not defined"); exit(-1);
7335 __endIf314:
7336         if (IS_SOB_CLOSURE(r_res)) goto __app203;
7337         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7338 __app203:
7339         push((int)SOB_CLOSURE_ENV(r_res));
7340         push((int)&&__ret283);
7341         goto *(SOB_CLOSURE_CODE(r_res));
7342 __ret283:
7343         sp = sp-2-stack[sp-2];
7344         if ((SchemeObject*)r_res==&sc_false) goto __else313;
7345
7346         r_res = ((int**)ST_ENV())[0][1];
7347         push(r_res);
7348         push(1);
7349         r_res = (int)probeSymbolDefined("string->list",topLevel);
7350         if (r_res==0) goto __else315;
7351         if (! ((SymbolEntry*)r_res)->isDefined) goto __else315;
7352         r_res = (int)((SymbolEntry*)r_res)->sob;
7353         goto __endIf315;
7354 __else315:
7355         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
7356 __endIf315:
7357         if (IS_SOB_CLOSURE(r_res)) goto __app204;
7358         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7359 __app204:
7360         push((int)SOB_CLOSURE_ENV(r_res));
7361         push((int)&&__ret284);
7362         goto *(SOB_CLOSURE_CODE(r_res));
7363 __ret284:
7364         sp = sp-2-stack[sp-2];
7365         push(r_res);
7366
7367         r_res = ((int**)ST_ENV())[0][0];
7368         push(r_res);
7369         push(1);
7370         r_res = (int)probeSymbolDefined("string->list",topLevel);
7371         if (r_res==0) goto __else316;
7372         if (! ((SymbolEntry*)r_res)->isDefined) goto __else316;
7373         r_res = (int)((SymbolEntry*)r_res)->sob;
7374         goto __endIf316;
7375 __else316:
7376         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
7377 __endIf316:
7378         if (IS_SOB_CLOSURE(r_res)) goto __app205;
7379         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7380 __app205:
7381         push((int)SOB_CLOSURE_ENV(r_res));
7382         push((int)&&__ret285);
7383         goto *(SOB_CLOSURE_CODE(r_res));
7384 __ret285:
7385         sp = sp-2-stack[sp-2];
7386         push(r_res);
7387         push(2);
7388         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
7389         goto __skipBody87;
7390 __body87:
7391         push(fp);
7392         fp = sp;
7393         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7394
7395         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7396         r_res = ST_ARG(1);
7397         push(r_res);
7398         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7399         r_res = ST_ARG(0);
7400         push(r_res);
7401         r_res = (int)probeSymbolDefined("char=?",topLevel);
7402         if (r_res==0) goto __else317;
7403         if (! ((SymbolEntry*)r_res)->isDefined) goto __else317;
7404         r_res = (int)((SymbolEntry*)r_res)->sob;
7405         goto __endIf317;
7406 __else317:
7407         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
7408 __endIf317:
7409         push(r_res);
7410         push(3);
7411         r_res = (int)probeSymbolDefined("andmap",topLevel);
7412         if (r_res==0) goto __else318;
7413         if (! ((SymbolEntry*)r_res)->isDefined) goto __else318;
7414         r_res = (int)((SymbolEntry*)r_res)->sob;
7415         goto __endIf318;
7416 __else318:
7417         fprintf(stderr,"Symbol andmap not defined"); exit(-1);
7418 __endIf318:
7419         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7420         push((int)SOB_CLOSURE_ENV(r_res));
7421         push(ST_RET());
7422         shiftActFrmDown();
7423         goto *(SOB_CLOSURE_CODE(r_res));
7424         sp = sp-2-stack[sp-2];
7425         fp = pop();
7426         RETURN();
7427 __skipBody87:
7428         r_res = (int)makeSchemeClosure((void*)r[0],&&__body87);
7429         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7430         push((int)SOB_CLOSURE_ENV(r_res));
7431         push(ST_RET());
7432         shiftActFrmDown();
7433         goto *(SOB_CLOSURE_CODE(r_res));
7434         sp = sp-2-stack[sp-2];
7435         goto __endIf313;
7436 __else313:
7437         r_res = (int)&sc_false;
7438 __endIf313:
7439         fp = pop();
7440         RETURN();
7441 __skipBody86:
7442         r_res = (int)makeSchemeClosure((void*)r[0],&&__body86);
7443         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7444         push((int)SOB_CLOSURE_ENV(r_res));
7445         push(ST_RET());
7446         shiftActFrmDown();
7447         goto *(SOB_CLOSURE_CODE(r_res));
7448         sp = sp-2-stack[sp-2];
7449         fp = pop();
7450         RETURN();
7451 __skipBody85:
7452         r_res = (int)makeSchemeClosure((void*)r[0],&&__body85);
7453         r[0] = (int)getSymbol("binary-string=?",topLevel);
7454         ((SymbolEntry*)r[0])->isDefined = 1;
7455         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7456         r_res = (int)&sc_void;
7457 __ret280:
7458         /* set return address */
7459         ST_RET() = (int)&&__ret286;
7460
7461         r[0] = (int)extendEnviroment( (int**)NULL, 0);
7462         goto __skipBody88;
7463 __body88:
7464         push(fp);
7465         fp = sp;
7466         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7467         r_res = (int)&sc_false;
7468         push(r_res);
7469         push(1);
7470         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
7471         goto __skipBody89;
7472 __body89:
7473         push(fp);
7474         fp = sp;
7475         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7476
7477         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7478         r_res = ST_ARG(0);
7479         push(r_res);
7480         push(1);
7481         r_res = (int)probeSymbolDefined("box",topLevel);
7482         if (r_res==0) goto __else319;
7483         if (! ((SymbolEntry*)r_res)->isDefined) goto __else319;
7484         r_res = (int)((SymbolEntry*)r_res)->sob;
7485         goto __endIf319;
7486 __else319:
7487         fprintf(stderr,"Symbol box not defined"); exit(-1);
7488 __endIf319:
7489         if (IS_SOB_CLOSURE(r_res)) goto __app206;
7490         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7491 __app206:
7492         push((int)SOB_CLOSURE_ENV(r_res));
7493         push((int)&&__ret287);
7494         goto *(SOB_CLOSURE_CODE(r_res));
7495 __ret287:
7496         sp = sp-2-stack[sp-2];
7497         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7498         ST_ARG(0) = r_res;
7499         r_res = (int)&sc_void;
7500
7501         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
7502         goto __skipBody90;
7503 __body90:
7504         push(fp);
7505         fp = sp;
7506         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7507
7508         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7509         r_res = ST_ARG(0);
7510         push(r_res);
7511         push(1);
7512         r_res = (int)probeSymbolDefined("null?",topLevel);
7513         if (r_res==0) goto __else321;
7514         if (! ((SymbolEntry*)r_res)->isDefined) goto __else321;
7515         r_res = (int)((SymbolEntry*)r_res)->sob;
7516         goto __endIf321;
7517 __else321:
7518         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
7519 __endIf321:
7520         if (IS_SOB_CLOSURE(r_res)) goto __app208;
7521         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7522 __app208:
7523         push((int)SOB_CLOSURE_ENV(r_res));
7524         push((int)&&__ret289);
7525         goto *(SOB_CLOSURE_CODE(r_res));
7526 __ret289:
7527         sp = sp-2-stack[sp-2];
7528         if ((SchemeObject*)r_res==&sc_false) goto __else320;
7529
7530         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7531         r_res = ST_ARG(1);
7532         push(r_res);
7533         push(1);
7534         r_res = (int)probeSymbolDefined("pair?",topLevel);
7535         if (r_res==0) goto __else322;
7536         if (! ((SymbolEntry*)r_res)->isDefined) goto __else322;
7537         r_res = (int)((SymbolEntry*)r_res)->sob;
7538         goto __endIf322;
7539 __else322:
7540         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
7541 __endIf322:
7542         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7543         push((int)SOB_CLOSURE_ENV(r_res));
7544         push(ST_RET());
7545         shiftActFrmDown();
7546         goto *(SOB_CLOSURE_CODE(r_res));
7547         sp = sp-2-stack[sp-2];
7548         goto __endIf320;
7549 __else320:
7550
7551         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7552         r_res = ST_ARG(1);
7553         push(r_res);
7554         push(1);
7555         r_res = (int)probeSymbolDefined("null?",topLevel);
7556         if (r_res==0) goto __else324;
7557         if (! ((SymbolEntry*)r_res)->isDefined) goto __else324;
7558         r_res = (int)((SymbolEntry*)r_res)->sob;
7559         goto __endIf324;
7560 __else324:
7561         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
7562 __endIf324:
7563         if (IS_SOB_CLOSURE(r_res)) goto __app209;
7564         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7565 __app209:
7566         push((int)SOB_CLOSURE_ENV(r_res));
7567         push((int)&&__ret290);
7568         goto *(SOB_CLOSURE_CODE(r_res));
7569 __ret290:
7570         sp = sp-2-stack[sp-2];
7571         if ((SchemeObject*)r_res==&sc_false) goto __else323;
7572         r_res = (int)&sc_false;
7573         goto __endIf323;
7574 __else323:
7575
7576
7577         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7578         r_res = ST_ARG(1);
7579         push(r_res);
7580         push(1);
7581         r_res = (int)probeSymbolDefined("car",topLevel);
7582         if (r_res==0) goto __else326;
7583         if (! ((SymbolEntry*)r_res)->isDefined) goto __else326;
7584         r_res = (int)((SymbolEntry*)r_res)->sob;
7585         goto __endIf326;
7586 __else326:
7587         fprintf(stderr,"Symbol car not defined"); exit(-1);
7588 __endIf326:
7589         if (IS_SOB_CLOSURE(r_res)) goto __app211;
7590         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7591 __app211:
7592         push((int)SOB_CLOSURE_ENV(r_res));
7593         push((int)&&__ret292);
7594         goto *(SOB_CLOSURE_CODE(r_res));
7595 __ret292:
7596         sp = sp-2-stack[sp-2];
7597         push(r_res);
7598
7599         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7600         r_res = ST_ARG(0);
7601         push(r_res);
7602         push(1);
7603         r_res = (int)probeSymbolDefined("car",topLevel);
7604         if (r_res==0) goto __else327;
7605         if (! ((SymbolEntry*)r_res)->isDefined) goto __else327;
7606         r_res = (int)((SymbolEntry*)r_res)->sob;
7607         goto __endIf327;
7608 __else327:
7609         fprintf(stderr,"Symbol car not defined"); exit(-1);
7610 __endIf327:
7611         if (IS_SOB_CLOSURE(r_res)) goto __app212;
7612         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7613 __app212:
7614         push((int)SOB_CLOSURE_ENV(r_res));
7615         push((int)&&__ret293);
7616         goto *(SOB_CLOSURE_CODE(r_res));
7617 __ret293:
7618         sp = sp-2-stack[sp-2];
7619         push(r_res);
7620         push(2);
7621         r_res = (int)probeSymbolDefined("char=?",topLevel);
7622         if (r_res==0) goto __else328;
7623         if (! ((SymbolEntry*)r_res)->isDefined) goto __else328;
7624         r_res = (int)((SymbolEntry*)r_res)->sob;
7625         goto __endIf328;
7626 __else328:
7627         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
7628 __endIf328:
7629         if (IS_SOB_CLOSURE(r_res)) goto __app210;
7630         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7631 __app210:
7632         push((int)SOB_CLOSURE_ENV(r_res));
7633         push((int)&&__ret291);
7634         goto *(SOB_CLOSURE_CODE(r_res));
7635 __ret291:
7636         sp = sp-2-stack[sp-2];
7637         if ((SchemeObject*)r_res==&sc_false) goto __else325;
7638
7639         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7640         r_res = ST_ARG(1);
7641         push(r_res);
7642         push(1);
7643         r_res = (int)probeSymbolDefined("cdr",topLevel);
7644         if (r_res==0) goto __else329;
7645         if (! ((SymbolEntry*)r_res)->isDefined) goto __else329;
7646         r_res = (int)((SymbolEntry*)r_res)->sob;
7647         goto __endIf329;
7648 __else329:
7649         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
7650 __endIf329:
7651         if (IS_SOB_CLOSURE(r_res)) goto __app213;
7652         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7653 __app213:
7654         push((int)SOB_CLOSURE_ENV(r_res));
7655         push((int)&&__ret294);
7656         goto *(SOB_CLOSURE_CODE(r_res));
7657 __ret294:
7658         sp = sp-2-stack[sp-2];
7659         push(r_res);
7660
7661         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7662         r_res = ST_ARG(0);
7663         push(r_res);
7664         push(1);
7665         r_res = (int)probeSymbolDefined("cdr",topLevel);
7666         if (r_res==0) goto __else330;
7667         if (! ((SymbolEntry*)r_res)->isDefined) goto __else330;
7668         r_res = (int)((SymbolEntry*)r_res)->sob;
7669         goto __endIf330;
7670 __else330:
7671         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
7672 __endIf330:
7673         if (IS_SOB_CLOSURE(r_res)) goto __app214;
7674         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7675 __app214:
7676         push((int)SOB_CLOSURE_ENV(r_res));
7677         push((int)&&__ret295);
7678         goto *(SOB_CLOSURE_CODE(r_res));
7679 __ret295:
7680         sp = sp-2-stack[sp-2];
7681         push(r_res);
7682         push(2);
7683
7684         r_res = (int)&__sc_number48;
7685         push(r_res);
7686         r_res = ((int**)ST_ENV())[0][0];
7687         push(r_res);
7688         push(2);
7689         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
7690         if (r_res==0) goto __else331;
7691         if (! ((SymbolEntry*)r_res)->isDefined) goto __else331;
7692         r_res = (int)((SymbolEntry*)r_res)->sob;
7693         goto __endIf331;
7694 __else331:
7695         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
7696 __endIf331:
7697         if (IS_SOB_CLOSURE(r_res)) goto __app215;
7698         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7699 __app215:
7700         push((int)SOB_CLOSURE_ENV(r_res));
7701         push((int)&&__ret296);
7702         goto *(SOB_CLOSURE_CODE(r_res));
7703 __ret296:
7704         sp = sp-2-stack[sp-2];
7705         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7706         push((int)SOB_CLOSURE_ENV(r_res));
7707         push(ST_RET());
7708         shiftActFrmDown();
7709         goto *(SOB_CLOSURE_CODE(r_res));
7710         sp = sp-2-stack[sp-2];
7711         goto __endIf325;
7712 __else325:
7713
7714
7715         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7716         r_res = ST_ARG(1);
7717         push(r_res);
7718         push(1);
7719         r_res = (int)probeSymbolDefined("car",topLevel);
7720         if (r_res==0) goto __else332;
7721         if (! ((SymbolEntry*)r_res)->isDefined) goto __else332;
7722         r_res = (int)((SymbolEntry*)r_res)->sob;
7723         goto __endIf332;
7724 __else332:
7725         fprintf(stderr,"Symbol car not defined"); exit(-1);
7726 __endIf332:
7727         if (IS_SOB_CLOSURE(r_res)) goto __app216;
7728         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7729 __app216:
7730         push((int)SOB_CLOSURE_ENV(r_res));
7731         push((int)&&__ret297);
7732         goto *(SOB_CLOSURE_CODE(r_res));
7733 __ret297:
7734         sp = sp-2-stack[sp-2];
7735         push(r_res);
7736
7737         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7738         r_res = ST_ARG(0);
7739         push(r_res);
7740         push(1);
7741         r_res = (int)probeSymbolDefined("car",topLevel);
7742         if (r_res==0) goto __else333;
7743         if (! ((SymbolEntry*)r_res)->isDefined) goto __else333;
7744         r_res = (int)((SymbolEntry*)r_res)->sob;
7745         goto __endIf333;
7746 __else333:
7747         fprintf(stderr,"Symbol car not defined"); exit(-1);
7748 __endIf333:
7749         if (IS_SOB_CLOSURE(r_res)) goto __app217;
7750         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7751 __app217:
7752         push((int)SOB_CLOSURE_ENV(r_res));
7753         push((int)&&__ret298);
7754         goto *(SOB_CLOSURE_CODE(r_res));
7755 __ret298:
7756         sp = sp-2-stack[sp-2];
7757         push(r_res);
7758         push(2);
7759         r_res = (int)probeSymbolDefined("char<?",topLevel);
7760         if (r_res==0) goto __else334;
7761         if (! ((SymbolEntry*)r_res)->isDefined) goto __else334;
7762         r_res = (int)((SymbolEntry*)r_res)->sob;
7763         goto __endIf334;
7764 __else334:
7765         fprintf(stderr,"Symbol char<\? not defined"); exit(-1);
7766 __endIf334:
7767         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7768         push((int)SOB_CLOSURE_ENV(r_res));
7769         push(ST_RET());
7770         shiftActFrmDown();
7771         goto *(SOB_CLOSURE_CODE(r_res));
7772         sp = sp-2-stack[sp-2];
7773 __endIf325:
7774 __endIf323:
7775 __endIf320:
7776         fp = pop();
7777         RETURN();
7778 __skipBody90:
7779         r_res = (int)makeSchemeClosure((void*)r[0],&&__body90);
7780         push(r_res);
7781         r_res = (int)&__sc_number49;
7782         push(r_res);
7783         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7784         r_res = ST_ARG(0);
7785         push(r_res);
7786         push(3);
7787         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
7788         if (r_res==0) goto __else335;
7789         if (! ((SymbolEntry*)r_res)->isDefined) goto __else335;
7790         r_res = (int)((SymbolEntry*)r_res)->sob;
7791         goto __endIf335;
7792 __else335:
7793         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
7794 __endIf335:
7795         if (IS_SOB_CLOSURE(r_res)) goto __app207;
7796         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7797 __app207:
7798         push((int)SOB_CLOSURE_ENV(r_res));
7799         push((int)&&__ret288);
7800         goto *(SOB_CLOSURE_CODE(r_res));
7801 __ret288:
7802         sp = sp-2-stack[sp-2];
7803         push(0);
7804         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
7805         goto __skipBody91;
7806 __body91:
7807         push(fp);
7808         fp = sp;
7809         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7810
7811         r_res = ((int**)ST_ENV())[1][1];
7812         push(r_res);
7813         push(1);
7814         r_res = (int)probeSymbolDefined("string->list",topLevel);
7815         if (r_res==0) goto __else336;
7816         if (! ((SymbolEntry*)r_res)->isDefined) goto __else336;
7817         r_res = (int)((SymbolEntry*)r_res)->sob;
7818         goto __endIf336;
7819 __else336:
7820         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
7821 __endIf336:
7822         if (IS_SOB_CLOSURE(r_res)) goto __app218;
7823         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7824 __app218:
7825         push((int)SOB_CLOSURE_ENV(r_res));
7826         push((int)&&__ret299);
7827         goto *(SOB_CLOSURE_CODE(r_res));
7828 __ret299:
7829         sp = sp-2-stack[sp-2];
7830         push(r_res);
7831
7832         r_res = ((int**)ST_ENV())[1][0];
7833         push(r_res);
7834         push(1);
7835         r_res = (int)probeSymbolDefined("string->list",topLevel);
7836         if (r_res==0) goto __else337;
7837         if (! ((SymbolEntry*)r_res)->isDefined) goto __else337;
7838         r_res = (int)((SymbolEntry*)r_res)->sob;
7839         goto __endIf337;
7840 __else337:
7841         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
7842 __endIf337:
7843         if (IS_SOB_CLOSURE(r_res)) goto __app219;
7844         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7845 __app219:
7846         push((int)SOB_CLOSURE_ENV(r_res));
7847         push((int)&&__ret300);
7848         goto *(SOB_CLOSURE_CODE(r_res));
7849 __ret300:
7850         sp = sp-2-stack[sp-2];
7851         push(r_res);
7852         push(2);
7853
7854         r_res = (int)&__sc_number50;
7855         push(r_res);
7856         r_res = ((int**)ST_ENV())[0][0];
7857         push(r_res);
7858         push(2);
7859         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
7860         if (r_res==0) goto __else338;
7861         if (! ((SymbolEntry*)r_res)->isDefined) goto __else338;
7862         r_res = (int)((SymbolEntry*)r_res)->sob;
7863         goto __endIf338;
7864 __else338:
7865         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
7866 __endIf338:
7867         if (IS_SOB_CLOSURE(r_res)) goto __app220;
7868         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7869 __app220:
7870         push((int)SOB_CLOSURE_ENV(r_res));
7871         push((int)&&__ret301);
7872         goto *(SOB_CLOSURE_CODE(r_res));
7873 __ret301:
7874         sp = sp-2-stack[sp-2];
7875         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7876         push((int)SOB_CLOSURE_ENV(r_res));
7877         push(ST_RET());
7878         shiftActFrmDown();
7879         goto *(SOB_CLOSURE_CODE(r_res));
7880         sp = sp-2-stack[sp-2];
7881         fp = pop();
7882         RETURN();
7883 __skipBody91:
7884         r_res = (int)makeSchemeClosure((void*)r[0],&&__body91);
7885         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7886         push((int)SOB_CLOSURE_ENV(r_res));
7887         push(ST_RET());
7888         shiftActFrmDown();
7889         goto *(SOB_CLOSURE_CODE(r_res));
7890         sp = sp-2-stack[sp-2];
7891         fp = pop();
7892         RETURN();
7893 __skipBody89:
7894         r_res = (int)makeSchemeClosure((void*)r[0],&&__body89);
7895         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7896         push((int)SOB_CLOSURE_ENV(r_res));
7897         push(ST_RET());
7898         shiftActFrmDown();
7899         goto *(SOB_CLOSURE_CODE(r_res));
7900         sp = sp-2-stack[sp-2];
7901         fp = pop();
7902         RETURN();
7903 __skipBody88:
7904         r_res = (int)makeSchemeClosure((void*)r[0],&&__body88);
7905         r[0] = (int)getSymbol("binary-string<?",topLevel);
7906         ((SymbolEntry*)r[0])->isDefined = 1;
7907         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7908         r_res = (int)&sc_void;
7909 __ret286:
7910         /* set return address */
7911         ST_RET() = (int)&&__ret302;
7912
7913         r[0] = (int)extendEnviroment( (int**)NULL, 0);
7914         goto __skipBody92;
7915 __body92:
7916         push(fp);
7917         fp = sp;
7918         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7919
7920         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7921         r_res = ST_ARG(0);
7922         push(r_res);
7923         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7924         r_res = ST_ARG(1);
7925         push(r_res);
7926         push(2);
7927         r_res = (int)probeSymbolDefined("binary-string<?",topLevel);
7928         if (r_res==0) goto __else339;
7929         if (! ((SymbolEntry*)r_res)->isDefined) goto __else339;
7930         r_res = (int)((SymbolEntry*)r_res)->sob;
7931         goto __endIf339;
7932 __else339:
7933         fprintf(stderr,"Symbol binary-string<\? not defined"); exit(-1);
7934 __endIf339:
7935         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7936         push((int)SOB_CLOSURE_ENV(r_res));
7937         push(ST_RET());
7938         shiftActFrmDown();
7939         goto *(SOB_CLOSURE_CODE(r_res));
7940         sp = sp-2-stack[sp-2];
7941         fp = pop();
7942         RETURN();
7943 __skipBody92:
7944         r_res = (int)makeSchemeClosure((void*)r[0],&&__body92);
7945         r[0] = (int)getSymbol("binary-string>?",topLevel);
7946         ((SymbolEntry*)r[0])->isDefined = 1;
7947         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7948         r_res = (int)&sc_void;
7949 __ret302:
7950         /* set return address */
7951         ST_RET() = (int)&&__ret303;
7952
7953         r[0] = (int)extendEnviroment( (int**)NULL, 0);
7954         goto __skipBody93;
7955 __body93:
7956         push(fp);
7957         fp = sp;
7958         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7959
7960
7961         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7962         r_res = ST_ARG(1);
7963         push(r_res);
7964         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7965         r_res = ST_ARG(0);
7966         push(r_res);
7967         push(2);
7968         r_res = (int)probeSymbolDefined("binary-string>?",topLevel);
7969         if (r_res==0) goto __else340;
7970         if (! ((SymbolEntry*)r_res)->isDefined) goto __else340;
7971         r_res = (int)((SymbolEntry*)r_res)->sob;
7972         goto __endIf340;
7973 __else340:
7974         fprintf(stderr,"Symbol binary-string>\? not defined"); exit(-1);
7975 __endIf340:
7976         if (IS_SOB_CLOSURE(r_res)) goto __app221;
7977         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7978 __app221:
7979         push((int)SOB_CLOSURE_ENV(r_res));
7980         push((int)&&__ret304);
7981         goto *(SOB_CLOSURE_CODE(r_res));
7982 __ret304:
7983         sp = sp-2-stack[sp-2];
7984         push(r_res);
7985         push(1);
7986         r_res = (int)probeSymbolDefined("not",topLevel);
7987         if (r_res==0) goto __else341;
7988         if (! ((SymbolEntry*)r_res)->isDefined) goto __else341;
7989         r_res = (int)((SymbolEntry*)r_res)->sob;
7990         goto __endIf341;
7991 __else341:
7992         fprintf(stderr,"Symbol not not defined"); exit(-1);
7993 __endIf341:
7994         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7995         push((int)SOB_CLOSURE_ENV(r_res));
7996         push(ST_RET());
7997         shiftActFrmDown();
7998         goto *(SOB_CLOSURE_CODE(r_res));
7999         sp = sp-2-stack[sp-2];
8000         fp = pop();
8001         RETURN();
8002 __skipBody93:
8003         r_res = (int)makeSchemeClosure((void*)r[0],&&__body93);
8004         r[0] = (int)getSymbol("binary-string<=?",topLevel);
8005         ((SymbolEntry*)r[0])->isDefined = 1;
8006         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8007         r_res = (int)&sc_void;
8008 __ret303:
8009         /* set return address */
8010         ST_RET() = (int)&&__ret305;
8011
8012         r[0] = (int)extendEnviroment( (int**)NULL, 0);
8013         goto __skipBody94;
8014 __body94:
8015         push(fp);
8016         fp = sp;
8017         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8018
8019
8020         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8021         r_res = ST_ARG(1);
8022         push(r_res);
8023         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8024         r_res = ST_ARG(0);
8025         push(r_res);
8026         push(2);
8027         r_res = (int)probeSymbolDefined("binary-string<?",topLevel);
8028         if (r_res==0) goto __else342;
8029         if (! ((SymbolEntry*)r_res)->isDefined) goto __else342;
8030         r_res = (int)((SymbolEntry*)r_res)->sob;
8031         goto __endIf342;
8032 __else342:
8033         fprintf(stderr,"Symbol binary-string<\? not defined"); exit(-1);
8034 __endIf342:
8035         if (IS_SOB_CLOSURE(r_res)) goto __app222;
8036         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8037 __app222:
8038         push((int)SOB_CLOSURE_ENV(r_res));
8039         push((int)&&__ret306);
8040         goto *(SOB_CLOSURE_CODE(r_res));
8041 __ret306:
8042         sp = sp-2-stack[sp-2];
8043         push(r_res);
8044         push(1);
8045         r_res = (int)probeSymbolDefined("not",topLevel);
8046         if (r_res==0) goto __else343;
8047         if (! ((SymbolEntry*)r_res)->isDefined) goto __else343;
8048         r_res = (int)((SymbolEntry*)r_res)->sob;
8049         goto __endIf343;
8050 __else343:
8051         fprintf(stderr,"Symbol not not defined"); exit(-1);
8052 __endIf343:
8053         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8054         push((int)SOB_CLOSURE_ENV(r_res));
8055         push(ST_RET());
8056         shiftActFrmDown();
8057         goto *(SOB_CLOSURE_CODE(r_res));
8058         sp = sp-2-stack[sp-2];
8059         fp = pop();
8060         RETURN();
8061 __skipBody94:
8062         r_res = (int)makeSchemeClosure((void*)r[0],&&__body94);
8063         r[0] = (int)getSymbol("binary-string>=?",topLevel);
8064         ((SymbolEntry*)r[0])->isDefined = 1;
8065         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8066         r_res = (int)&sc_void;
8067 __ret305:
8068         /* set return address */
8069         ST_RET() = (int)&&__ret307;
8070
8071
8072         r_res = (int)probeSymbolDefined("binary-string=?",topLevel);
8073         if (r_res==0) goto __else344;
8074         if (! ((SymbolEntry*)r_res)->isDefined) goto __else344;
8075         r_res = (int)((SymbolEntry*)r_res)->sob;
8076         goto __endIf344;
8077 __else344:
8078         fprintf(stderr,"Symbol binary-string=\? not defined"); exit(-1);
8079 __endIf344:
8080         push(r_res);
8081         push(1);
8082         r_res = (int)probeSymbolDefined("order",topLevel);
8083         if (r_res==0) goto __else345;
8084         if (! ((SymbolEntry*)r_res)->isDefined) goto __else345;
8085         r_res = (int)((SymbolEntry*)r_res)->sob;
8086         goto __endIf345;
8087 __else345:
8088         fprintf(stderr,"Symbol order not defined"); exit(-1);
8089 __endIf345:
8090         if (IS_SOB_CLOSURE(r_res)) goto __app223;
8091         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8092 __app223:
8093         push((int)SOB_CLOSURE_ENV(r_res));
8094         push((int)&&__ret308);
8095         goto *(SOB_CLOSURE_CODE(r_res));
8096 __ret308:
8097         sp = sp-2-stack[sp-2];
8098         r[0] = (int)getSymbol("string=?",topLevel);
8099         ((SymbolEntry*)r[0])->isDefined = 1;
8100         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8101         r_res = (int)&sc_void;
8102 __ret307:
8103         /* set return address */
8104         ST_RET() = (int)&&__ret309;
8105
8106
8107         r_res = (int)probeSymbolDefined("binary-string<?",topLevel);
8108         if (r_res==0) goto __else346;
8109         if (! ((SymbolEntry*)r_res)->isDefined) goto __else346;
8110         r_res = (int)((SymbolEntry*)r_res)->sob;
8111         goto __endIf346;
8112 __else346:
8113         fprintf(stderr,"Symbol binary-string<\? not defined"); exit(-1);
8114 __endIf346:
8115         push(r_res);
8116         push(1);
8117         r_res = (int)probeSymbolDefined("order",topLevel);
8118         if (r_res==0) goto __else347;
8119         if (! ((SymbolEntry*)r_res)->isDefined) goto __else347;
8120         r_res = (int)((SymbolEntry*)r_res)->sob;
8121         goto __endIf347;
8122 __else347:
8123         fprintf(stderr,"Symbol order not defined"); exit(-1);
8124 __endIf347:
8125         if (IS_SOB_CLOSURE(r_res)) goto __app224;
8126         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8127 __app224:
8128         push((int)SOB_CLOSURE_ENV(r_res));
8129         push((int)&&__ret310);
8130         goto *(SOB_CLOSURE_CODE(r_res));
8131 __ret310:
8132         sp = sp-2-stack[sp-2];
8133         r[0] = (int)getSymbol("string<?",topLevel);
8134         ((SymbolEntry*)r[0])->isDefined = 1;
8135         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8136         r_res = (int)&sc_void;
8137 __ret309:
8138         /* set return address */
8139         ST_RET() = (int)&&__ret311;
8140
8141
8142         r_res = (int)probeSymbolDefined("binary-string>?",topLevel);
8143         if (r_res==0) goto __else348;
8144         if (! ((SymbolEntry*)r_res)->isDefined) goto __else348;
8145         r_res = (int)((SymbolEntry*)r_res)->sob;
8146         goto __endIf348;
8147 __else348:
8148         fprintf(stderr,"Symbol binary-string>\? not defined"); exit(-1);
8149 __endIf348:
8150         push(r_res);
8151         push(1);
8152         r_res = (int)probeSymbolDefined("order",topLevel);
8153         if (r_res==0) goto __else349;
8154         if (! ((SymbolEntry*)r_res)->isDefined) goto __else349;
8155         r_res = (int)((SymbolEntry*)r_res)->sob;
8156         goto __endIf349;
8157 __else349:
8158         fprintf(stderr,"Symbol order not defined"); exit(-1);
8159 __endIf349:
8160         if (IS_SOB_CLOSURE(r_res)) goto __app225;
8161         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8162 __app225:
8163         push((int)SOB_CLOSURE_ENV(r_res));
8164         push((int)&&__ret312);
8165         goto *(SOB_CLOSURE_CODE(r_res));
8166 __ret312:
8167         sp = sp-2-stack[sp-2];
8168         r[0] = (int)getSymbol("string>?",topLevel);
8169         ((SymbolEntry*)r[0])->isDefined = 1;
8170         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8171         r_res = (int)&sc_void;
8172 __ret311:
8173         /* set return address */
8174         ST_RET() = (int)&&__ret313;
8175
8176
8177         r_res = (int)probeSymbolDefined("binary-string<=?",topLevel);
8178         if (r_res==0) goto __else350;
8179         if (! ((SymbolEntry*)r_res)->isDefined) goto __else350;
8180         r_res = (int)((SymbolEntry*)r_res)->sob;
8181         goto __endIf350;
8182 __else350:
8183         fprintf(stderr,"Symbol binary-string<=\? not defined"); exit(-1);
8184 __endIf350:
8185         push(r_res);
8186         push(1);
8187         r_res = (int)probeSymbolDefined("order",topLevel);
8188         if (r_res==0) goto __else351;
8189         if (! ((SymbolEntry*)r_res)->isDefined) goto __else351;
8190         r_res = (int)((SymbolEntry*)r_res)->sob;
8191         goto __endIf351;
8192 __else351:
8193         fprintf(stderr,"Symbol order not defined"); exit(-1);
8194 __endIf351:
8195         if (IS_SOB_CLOSURE(r_res)) goto __app226;
8196         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8197 __app226:
8198         push((int)SOB_CLOSURE_ENV(r_res));
8199         push((int)&&__ret314);
8200         goto *(SOB_CLOSURE_CODE(r_res));
8201 __ret314:
8202         sp = sp-2-stack[sp-2];
8203         r[0] = (int)getSymbol("string<=?",topLevel);
8204         ((SymbolEntry*)r[0])->isDefined = 1;
8205         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8206         r_res = (int)&sc_void;
8207 __ret313:
8208         /* set return address */
8209         ST_RET() = (int)&&__ret315;
8210
8211
8212         r_res = (int)probeSymbolDefined("binary-string>=?",topLevel);
8213         if (r_res==0) goto __else352;
8214         if (! ((SymbolEntry*)r_res)->isDefined) goto __else352;
8215         r_res = (int)((SymbolEntry*)r_res)->sob;
8216         goto __endIf352;
8217 __else352:
8218         fprintf(stderr,"Symbol binary-string>=\? not defined"); exit(-1);
8219 __endIf352:
8220         push(r_res);
8221         push(1);
8222         r_res = (int)probeSymbolDefined("order",topLevel);
8223         if (r_res==0) goto __else353;
8224         if (! ((SymbolEntry*)r_res)->isDefined) goto __else353;
8225         r_res = (int)((SymbolEntry*)r_res)->sob;
8226         goto __endIf353;
8227 __else353:
8228         fprintf(stderr,"Symbol order not defined"); exit(-1);
8229 __endIf353:
8230         if (IS_SOB_CLOSURE(r_res)) goto __app227;
8231         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8232 __app227:
8233         push((int)SOB_CLOSURE_ENV(r_res));
8234         push((int)&&__ret316);
8235         goto *(SOB_CLOSURE_CODE(r_res));
8236 __ret316:
8237         sp = sp-2-stack[sp-2];
8238         r[0] = (int)getSymbol("string>=?",topLevel);
8239         ((SymbolEntry*)r[0])->isDefined = 1;
8240         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8241         r_res = (int)&sc_void;
8242 __ret315:
8243         /* set return address */
8244         ST_RET() = (int)&&__ret317;
8245
8246         r_res = (int)&sc_false;
8247         push(r_res);
8248         push(1);
8249         r[0] = (int)extendEnviroment( (int**)NULL, 0);
8250         goto __skipBody95;
8251 __body95:
8252         push(fp);
8253         fp = sp;
8254         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8255
8256         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8257         r_res = ST_ARG(0);
8258         push(r_res);
8259         push(1);
8260         r_res = (int)probeSymbolDefined("box",topLevel);
8261         if (r_res==0) goto __else354;
8262         if (! ((SymbolEntry*)r_res)->isDefined) goto __else354;
8263         r_res = (int)((SymbolEntry*)r_res)->sob;
8264         goto __endIf354;
8265 __else354:
8266         fprintf(stderr,"Symbol box not defined"); exit(-1);
8267 __endIf354:
8268         if (IS_SOB_CLOSURE(r_res)) goto __app229;
8269         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8270 __app229:
8271         push((int)SOB_CLOSURE_ENV(r_res));
8272         push((int)&&__ret319);
8273         goto *(SOB_CLOSURE_CODE(r_res));
8274 __ret319:
8275         sp = sp-2-stack[sp-2];
8276         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8277         ST_ARG(0) = r_res;
8278         r_res = (int)&sc_void;
8279
8280         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
8281         goto __skipBody96;
8282 __body96:
8283         push(fp);
8284         fp = sp;
8285         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8286
8287         r_res = (int)&__sc_number51;
8288         push(r_res);
8289         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8290         r_res = ST_ARG(1);
8291         push(r_res);
8292         push(2);
8293         r_res = (int)probeSymbolDefined("=",topLevel);
8294         if (r_res==0) goto __else356;
8295         if (! ((SymbolEntry*)r_res)->isDefined) goto __else356;
8296         r_res = (int)((SymbolEntry*)r_res)->sob;
8297         goto __endIf356;
8298 __else356:
8299         fprintf(stderr,"Symbol = not defined"); exit(-1);
8300 __endIf356:
8301         if (IS_SOB_CLOSURE(r_res)) goto __app231;
8302         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8303 __app231:
8304         push((int)SOB_CLOSURE_ENV(r_res));
8305         push((int)&&__ret321);
8306         goto *(SOB_CLOSURE_CODE(r_res));
8307 __ret321:
8308         sp = sp-2-stack[sp-2];
8309         if ((SchemeObject*)r_res==&sc_false) goto __else355;
8310         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
8311         r_res = ST_ARG(2);
8312         goto __endIf355;
8313 __else355:
8314
8315         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
8316         r_res = ST_ARG(2);
8317         push(r_res);
8318
8319         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8320         r_res = ST_ARG(1);
8321         push(r_res);
8322         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8323         r_res = ST_ARG(0);
8324         push(r_res);
8325         push(2);
8326         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8327         if (r_res==0) goto __else357;
8328         if (! ((SymbolEntry*)r_res)->isDefined) goto __else357;
8329         r_res = (int)((SymbolEntry*)r_res)->sob;
8330         goto __endIf357;
8331 __else357:
8332         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8333 __endIf357:
8334         if (IS_SOB_CLOSURE(r_res)) goto __app233;
8335         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8336 __app233:
8337         push((int)SOB_CLOSURE_ENV(r_res));
8338         push((int)&&__ret323);
8339         goto *(SOB_CLOSURE_CODE(r_res));
8340 __ret323:
8341         sp = sp-2-stack[sp-2];
8342         push(r_res);
8343         push(2);
8344         r_res = (int)probeSymbolDefined("cons",topLevel);
8345         if (r_res==0) goto __else358;
8346         if (! ((SymbolEntry*)r_res)->isDefined) goto __else358;
8347         r_res = (int)((SymbolEntry*)r_res)->sob;
8348         goto __endIf358;
8349 __else358:
8350         fprintf(stderr,"Symbol cons not defined"); exit(-1);
8351 __endIf358:
8352         if (IS_SOB_CLOSURE(r_res)) goto __app232;
8353         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8354 __app232:
8355         push((int)SOB_CLOSURE_ENV(r_res));
8356         push((int)&&__ret322);
8357         goto *(SOB_CLOSURE_CODE(r_res));
8358 __ret322:
8359         sp = sp-2-stack[sp-2];
8360         push(r_res);
8361
8362         r_res = (int)&__sc_number52;
8363         push(r_res);
8364         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8365         r_res = ST_ARG(1);
8366         push(r_res);
8367         push(2);
8368         r_res = (int)probeSymbolDefined("-",topLevel);
8369         if (r_res==0) goto __else359;
8370         if (! ((SymbolEntry*)r_res)->isDefined) goto __else359;
8371         r_res = (int)((SymbolEntry*)r_res)->sob;
8372         goto __endIf359;
8373 __else359:
8374         fprintf(stderr,"Symbol - not defined"); exit(-1);
8375 __endIf359:
8376         if (IS_SOB_CLOSURE(r_res)) goto __app234;
8377         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8378 __app234:
8379         push((int)SOB_CLOSURE_ENV(r_res));
8380         push((int)&&__ret324);
8381         goto *(SOB_CLOSURE_CODE(r_res));
8382 __ret324:
8383         sp = sp-2-stack[sp-2];
8384         push(r_res);
8385         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8386         r_res = ST_ARG(0);
8387         push(r_res);
8388         push(3);
8389
8390         r_res = (int)&__sc_number53;
8391         push(r_res);
8392         r_res = ((int**)ST_ENV())[0][0];
8393         push(r_res);
8394         push(2);
8395         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8396         if (r_res==0) goto __else360;
8397         if (! ((SymbolEntry*)r_res)->isDefined) goto __else360;
8398         r_res = (int)((SymbolEntry*)r_res)->sob;
8399         goto __endIf360;
8400 __else360:
8401         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8402 __endIf360:
8403         if (IS_SOB_CLOSURE(r_res)) goto __app235;
8404         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8405 __app235:
8406         push((int)SOB_CLOSURE_ENV(r_res));
8407         push((int)&&__ret325);
8408         goto *(SOB_CLOSURE_CODE(r_res));
8409 __ret325:
8410         sp = sp-2-stack[sp-2];
8411         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8412         push((int)SOB_CLOSURE_ENV(r_res));
8413         push(ST_RET());
8414         shiftActFrmDown();
8415         goto *(SOB_CLOSURE_CODE(r_res));
8416         sp = sp-2-stack[sp-2];
8417 __endIf355:
8418         fp = pop();
8419         RETURN();
8420 __skipBody96:
8421         r_res = (int)makeSchemeClosure((void*)r[0],&&__body96);
8422         push(r_res);
8423         r_res = (int)&__sc_number54;
8424         push(r_res);
8425         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8426         r_res = ST_ARG(0);
8427         push(r_res);
8428         push(3);
8429         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
8430         if (r_res==0) goto __else361;
8431         if (! ((SymbolEntry*)r_res)->isDefined) goto __else361;
8432         r_res = (int)((SymbolEntry*)r_res)->sob;
8433         goto __endIf361;
8434 __else361:
8435         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
8436 __endIf361:
8437         if (IS_SOB_CLOSURE(r_res)) goto __app230;
8438         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8439 __app230:
8440         push((int)SOB_CLOSURE_ENV(r_res));
8441         push((int)&&__ret320);
8442         goto *(SOB_CLOSURE_CODE(r_res));
8443 __ret320:
8444         sp = sp-2-stack[sp-2];
8445         push(0);
8446         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
8447         goto __skipBody97;
8448 __body97:
8449         push(fp);
8450         fp = sp;
8451         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8452         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
8453         goto __skipBody98;
8454 __body98:
8455         push(fp);
8456         fp = sp;
8457         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8458         r_res = (int)&sc_nil;
8459         push(r_res);
8460
8461         r_res = (int)&__sc_number55;
8462         push(r_res);
8463
8464         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8465         r_res = ST_ARG(0);
8466         push(r_res);
8467         push(1);
8468         r_res = (int)probeSymbolDefined("vector-length",topLevel);
8469         if (r_res==0) goto __else362;
8470         if (! ((SymbolEntry*)r_res)->isDefined) goto __else362;
8471         r_res = (int)((SymbolEntry*)r_res)->sob;
8472         goto __endIf362;
8473 __else362:
8474         fprintf(stderr,"Symbol vector-length not defined"); exit(-1);
8475 __endIf362:
8476         if (IS_SOB_CLOSURE(r_res)) goto __app237;
8477         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8478 __app237:
8479         push((int)SOB_CLOSURE_ENV(r_res));
8480         push((int)&&__ret327);
8481         goto *(SOB_CLOSURE_CODE(r_res));
8482 __ret327:
8483         sp = sp-2-stack[sp-2];
8484         push(r_res);
8485         push(2);
8486         r_res = (int)probeSymbolDefined("-",topLevel);
8487         if (r_res==0) goto __else363;
8488         if (! ((SymbolEntry*)r_res)->isDefined) goto __else363;
8489         r_res = (int)((SymbolEntry*)r_res)->sob;
8490         goto __endIf363;
8491 __else363:
8492         fprintf(stderr,"Symbol - not defined"); exit(-1);
8493 __endIf363:
8494         if (IS_SOB_CLOSURE(r_res)) goto __app236;
8495         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8496 __app236:
8497         push((int)SOB_CLOSURE_ENV(r_res));
8498         push((int)&&__ret326);
8499         goto *(SOB_CLOSURE_CODE(r_res));
8500 __ret326:
8501         sp = sp-2-stack[sp-2];
8502         push(r_res);
8503         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8504         r_res = ST_ARG(0);
8505         push(r_res);
8506         push(3);
8507
8508         r_res = (int)&__sc_number56;
8509         push(r_res);
8510         r_res = ((int**)ST_ENV())[1][0];
8511         push(r_res);
8512         push(2);
8513         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8514         if (r_res==0) goto __else364;
8515         if (! ((SymbolEntry*)r_res)->isDefined) goto __else364;
8516         r_res = (int)((SymbolEntry*)r_res)->sob;
8517         goto __endIf364;
8518 __else364:
8519         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8520 __endIf364:
8521         if (IS_SOB_CLOSURE(r_res)) goto __app238;
8522         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8523 __app238:
8524         push((int)SOB_CLOSURE_ENV(r_res));
8525         push((int)&&__ret328);
8526         goto *(SOB_CLOSURE_CODE(r_res));
8527 __ret328:
8528         sp = sp-2-stack[sp-2];
8529         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8530         push((int)SOB_CLOSURE_ENV(r_res));
8531         push(ST_RET());
8532         shiftActFrmDown();
8533         goto *(SOB_CLOSURE_CODE(r_res));
8534         sp = sp-2-stack[sp-2];
8535         fp = pop();
8536         RETURN();
8537 __skipBody98:
8538         r_res = (int)makeSchemeClosure((void*)r[0],&&__body98);
8539         fp = pop();
8540         RETURN();
8541 __skipBody97:
8542         r_res = (int)makeSchemeClosure((void*)r[0],&&__body97);
8543         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8544         push((int)SOB_CLOSURE_ENV(r_res));
8545         push(ST_RET());
8546         shiftActFrmDown();
8547         goto *(SOB_CLOSURE_CODE(r_res));
8548         sp = sp-2-stack[sp-2];
8549         fp = pop();
8550         RETURN();
8551 __skipBody95:
8552         r_res = (int)makeSchemeClosure((void*)r[0],&&__body95);
8553         if (IS_SOB_CLOSURE(r_res)) goto __app228;
8554         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8555 __app228:
8556         push((int)SOB_CLOSURE_ENV(r_res));
8557         push((int)&&__ret318);
8558         goto *(SOB_CLOSURE_CODE(r_res));
8559 __ret318:
8560         sp = sp-2-stack[sp-2];
8561         r[0] = (int)getSymbol("vector->list",topLevel);
8562         ((SymbolEntry*)r[0])->isDefined = 1;
8563         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8564         r_res = (int)&sc_void;
8565 __ret317:
8566         /* set return address */
8567         ST_RET() = (int)&&__ret329;
8568
8569         r[0] = (int)extendEnviroment( (int**)NULL, 0);
8570         goto __skipBody99;
8571 __body99:
8572         push(fp);
8573         fp = sp;
8574         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8575
8576         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8577         r_res = ST_ARG(0);
8578         push(r_res);
8579         push(1);
8580         r_res = (int)probeSymbolDefined("length",topLevel);
8581         if (r_res==0) goto __else365;
8582         if (! ((SymbolEntry*)r_res)->isDefined) goto __else365;
8583         r_res = (int)((SymbolEntry*)r_res)->sob;
8584         goto __endIf365;
8585 __else365:
8586         fprintf(stderr,"Symbol length not defined"); exit(-1);
8587 __endIf365:
8588         if (IS_SOB_CLOSURE(r_res)) goto __app239;
8589         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8590 __app239:
8591         push((int)SOB_CLOSURE_ENV(r_res));
8592         push((int)&&__ret330);
8593         goto *(SOB_CLOSURE_CODE(r_res));
8594 __ret330:
8595         sp = sp-2-stack[sp-2];
8596         push(r_res);
8597         push(1);
8598         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
8599         goto __skipBody100;
8600 __body100:
8601         push(fp);
8602         fp = sp;
8603         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8604
8605         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8606         r_res = ST_ARG(0);
8607         push(r_res);
8608         push(1);
8609         r_res = (int)probeSymbolDefined("make-string",topLevel);
8610         if (r_res==0) goto __else366;
8611         if (! ((SymbolEntry*)r_res)->isDefined) goto __else366;
8612         r_res = (int)((SymbolEntry*)r_res)->sob;
8613         goto __endIf366;
8614 __else366:
8615         fprintf(stderr,"Symbol make-string not defined"); exit(-1);
8616 __endIf366:
8617         if (IS_SOB_CLOSURE(r_res)) goto __app240;
8618         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8619 __app240:
8620         push((int)SOB_CLOSURE_ENV(r_res));
8621         push((int)&&__ret331);
8622         goto *(SOB_CLOSURE_CODE(r_res));
8623 __ret331:
8624         sp = sp-2-stack[sp-2];
8625         push(r_res);
8626         push(1);
8627         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
8628         goto __skipBody101;
8629 __body101:
8630         push(fp);
8631         fp = sp;
8632         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8633         r_res = (int)&sc_false;
8634         push(r_res);
8635         push(1);
8636         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
8637         goto __skipBody102;
8638 __body102:
8639         push(fp);
8640         fp = sp;
8641         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8642
8643         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8644         r_res = ST_ARG(0);
8645         push(r_res);
8646         push(1);
8647         r_res = (int)probeSymbolDefined("box",topLevel);
8648         if (r_res==0) goto __else367;
8649         if (! ((SymbolEntry*)r_res)->isDefined) goto __else367;
8650         r_res = (int)((SymbolEntry*)r_res)->sob;
8651         goto __endIf367;
8652 __else367:
8653         fprintf(stderr,"Symbol box not defined"); exit(-1);
8654 __endIf367:
8655         if (IS_SOB_CLOSURE(r_res)) goto __app241;
8656         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8657 __app241:
8658         push((int)SOB_CLOSURE_ENV(r_res));
8659         push((int)&&__ret332);
8660         goto *(SOB_CLOSURE_CODE(r_res));
8661 __ret332:
8662         sp = sp-2-stack[sp-2];
8663         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8664         ST_ARG(0) = r_res;
8665         r_res = (int)&sc_void;
8666
8667         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
8668         goto __skipBody103;
8669 __body103:
8670         push(fp);
8671         fp = sp;
8672         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8673
8674         r_res = ((int**)ST_ENV())[2][0];
8675         push(r_res);
8676         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8677         r_res = ST_ARG(1);
8678         push(r_res);
8679         push(2);
8680         r_res = (int)probeSymbolDefined("=",topLevel);
8681         if (r_res==0) goto __else369;
8682         if (! ((SymbolEntry*)r_res)->isDefined) goto __else369;
8683         r_res = (int)((SymbolEntry*)r_res)->sob;
8684         goto __endIf369;
8685 __else369:
8686         fprintf(stderr,"Symbol = not defined"); exit(-1);
8687 __endIf369:
8688         if (IS_SOB_CLOSURE(r_res)) goto __app243;
8689         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8690 __app243:
8691         push((int)SOB_CLOSURE_ENV(r_res));
8692         push((int)&&__ret334);
8693         goto *(SOB_CLOSURE_CODE(r_res));
8694 __ret334:
8695         sp = sp-2-stack[sp-2];
8696         if ((SchemeObject*)r_res==&sc_false) goto __else368;
8697         r_res = ((int**)ST_ENV())[1][0];
8698         goto __endIf368;
8699 __else368:
8700
8701
8702         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8703         r_res = ST_ARG(0);
8704         push(r_res);
8705         push(1);
8706         r_res = (int)probeSymbolDefined("car",topLevel);
8707         if (r_res==0) goto __else370;
8708         if (! ((SymbolEntry*)r_res)->isDefined) goto __else370;
8709         r_res = (int)((SymbolEntry*)r_res)->sob;
8710         goto __endIf370;
8711 __else370:
8712         fprintf(stderr,"Symbol car not defined"); exit(-1);
8713 __endIf370:
8714         if (IS_SOB_CLOSURE(r_res)) goto __app245;
8715         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8716 __app245:
8717         push((int)SOB_CLOSURE_ENV(r_res));
8718         push((int)&&__ret336);
8719         goto *(SOB_CLOSURE_CODE(r_res));
8720 __ret336:
8721         sp = sp-2-stack[sp-2];
8722         push(r_res);
8723         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8724         r_res = ST_ARG(1);
8725         push(r_res);
8726         r_res = ((int**)ST_ENV())[1][0];
8727         push(r_res);
8728         push(3);
8729         r_res = (int)probeSymbolDefined("string-set!",topLevel);
8730         if (r_res==0) goto __else371;
8731         if (! ((SymbolEntry*)r_res)->isDefined) goto __else371;
8732         r_res = (int)((SymbolEntry*)r_res)->sob;
8733         goto __endIf371;
8734 __else371:
8735         fprintf(stderr,"Symbol string-set! not defined"); exit(-1);
8736 __endIf371:
8737         if (IS_SOB_CLOSURE(r_res)) goto __app244;
8738         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8739 __app244:
8740         push((int)SOB_CLOSURE_ENV(r_res));
8741         push((int)&&__ret335);
8742         goto *(SOB_CLOSURE_CODE(r_res));
8743 __ret335:
8744         sp = sp-2-stack[sp-2];
8745
8746         r_res = (int)&__sc_number57;
8747         push(r_res);
8748         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8749         r_res = ST_ARG(1);
8750         push(r_res);
8751         push(2);
8752         r_res = (int)probeSymbolDefined("+",topLevel);
8753         if (r_res==0) goto __else372;
8754         if (! ((SymbolEntry*)r_res)->isDefined) goto __else372;
8755         r_res = (int)((SymbolEntry*)r_res)->sob;
8756         goto __endIf372;
8757 __else372:
8758         fprintf(stderr,"Symbol + not defined"); exit(-1);
8759 __endIf372:
8760         if (IS_SOB_CLOSURE(r_res)) goto __app246;
8761         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8762 __app246:
8763         push((int)SOB_CLOSURE_ENV(r_res));
8764         push((int)&&__ret337);
8765         goto *(SOB_CLOSURE_CODE(r_res));
8766 __ret337:
8767         sp = sp-2-stack[sp-2];
8768         push(r_res);
8769
8770         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8771         r_res = ST_ARG(0);
8772         push(r_res);
8773         push(1);
8774         r_res = (int)probeSymbolDefined("cdr",topLevel);
8775         if (r_res==0) goto __else373;
8776         if (! ((SymbolEntry*)r_res)->isDefined) goto __else373;
8777         r_res = (int)((SymbolEntry*)r_res)->sob;
8778         goto __endIf373;
8779 __else373:
8780         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
8781 __endIf373:
8782         if (IS_SOB_CLOSURE(r_res)) goto __app247;
8783         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8784 __app247:
8785         push((int)SOB_CLOSURE_ENV(r_res));
8786         push((int)&&__ret338);
8787         goto *(SOB_CLOSURE_CODE(r_res));
8788 __ret338:
8789         sp = sp-2-stack[sp-2];
8790         push(r_res);
8791         push(2);
8792
8793         r_res = (int)&__sc_number58;
8794         push(r_res);
8795         r_res = ((int**)ST_ENV())[0][0];
8796         push(r_res);
8797         push(2);
8798         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8799         if (r_res==0) goto __else374;
8800         if (! ((SymbolEntry*)r_res)->isDefined) goto __else374;
8801         r_res = (int)((SymbolEntry*)r_res)->sob;
8802         goto __endIf374;
8803 __else374:
8804         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8805 __endIf374:
8806         if (IS_SOB_CLOSURE(r_res)) goto __app248;
8807         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8808 __app248:
8809         push((int)SOB_CLOSURE_ENV(r_res));
8810         push((int)&&__ret339);
8811         goto *(SOB_CLOSURE_CODE(r_res));
8812 __ret339:
8813         sp = sp-2-stack[sp-2];
8814         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8815         push((int)SOB_CLOSURE_ENV(r_res));
8816         push(ST_RET());
8817         shiftActFrmDown();
8818         goto *(SOB_CLOSURE_CODE(r_res));
8819         sp = sp-2-stack[sp-2];
8820 __endIf368:
8821         fp = pop();
8822         RETURN();
8823 __skipBody103:
8824         r_res = (int)makeSchemeClosure((void*)r[0],&&__body103);
8825         push(r_res);
8826         r_res = (int)&__sc_number59;
8827         push(r_res);
8828         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8829         r_res = ST_ARG(0);
8830         push(r_res);
8831         push(3);
8832         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
8833         if (r_res==0) goto __else375;
8834         if (! ((SymbolEntry*)r_res)->isDefined) goto __else375;
8835         r_res = (int)((SymbolEntry*)r_res)->sob;
8836         goto __endIf375;
8837 __else375:
8838         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
8839 __endIf375:
8840         if (IS_SOB_CLOSURE(r_res)) goto __app242;
8841         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8842 __app242:
8843         push((int)SOB_CLOSURE_ENV(r_res));
8844         push((int)&&__ret333);
8845         goto *(SOB_CLOSURE_CODE(r_res));
8846 __ret333:
8847         sp = sp-2-stack[sp-2];
8848         push(0);
8849         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
8850         goto __skipBody104;
8851 __body104:
8852         push(fp);
8853         fp = sp;
8854         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8855         r_res = (int)&__sc_number60;
8856         push(r_res);
8857         r_res = ((int**)ST_ENV())[3][0];
8858         push(r_res);
8859         push(2);
8860
8861         r_res = (int)&__sc_number61;
8862         push(r_res);
8863         r_res = ((int**)ST_ENV())[0][0];
8864         push(r_res);
8865         push(2);
8866         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8867         if (r_res==0) goto __else376;
8868         if (! ((SymbolEntry*)r_res)->isDefined) goto __else376;
8869         r_res = (int)((SymbolEntry*)r_res)->sob;
8870         goto __endIf376;
8871 __else376:
8872         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8873 __endIf376:
8874         if (IS_SOB_CLOSURE(r_res)) goto __app249;
8875         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8876 __app249:
8877         push((int)SOB_CLOSURE_ENV(r_res));
8878         push((int)&&__ret340);
8879         goto *(SOB_CLOSURE_CODE(r_res));
8880 __ret340:
8881         sp = sp-2-stack[sp-2];
8882         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8883         push((int)SOB_CLOSURE_ENV(r_res));
8884         push(ST_RET());
8885         shiftActFrmDown();
8886         goto *(SOB_CLOSURE_CODE(r_res));
8887         sp = sp-2-stack[sp-2];
8888         fp = pop();
8889         RETURN();
8890 __skipBody104:
8891         r_res = (int)makeSchemeClosure((void*)r[0],&&__body104);
8892         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8893         push((int)SOB_CLOSURE_ENV(r_res));
8894         push(ST_RET());
8895         shiftActFrmDown();
8896         goto *(SOB_CLOSURE_CODE(r_res));
8897         sp = sp-2-stack[sp-2];
8898         fp = pop();
8899         RETURN();
8900 __skipBody102:
8901         r_res = (int)makeSchemeClosure((void*)r[0],&&__body102);
8902         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8903         push((int)SOB_CLOSURE_ENV(r_res));
8904         push(ST_RET());
8905         shiftActFrmDown();
8906         goto *(SOB_CLOSURE_CODE(r_res));
8907         sp = sp-2-stack[sp-2];
8908         fp = pop();
8909         RETURN();
8910 __skipBody101:
8911         r_res = (int)makeSchemeClosure((void*)r[0],&&__body101);
8912         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8913         push((int)SOB_CLOSURE_ENV(r_res));
8914         push(ST_RET());
8915         shiftActFrmDown();
8916         goto *(SOB_CLOSURE_CODE(r_res));
8917         sp = sp-2-stack[sp-2];
8918         fp = pop();
8919         RETURN();
8920 __skipBody100:
8921         r_res = (int)makeSchemeClosure((void*)r[0],&&__body100);
8922         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8923         push((int)SOB_CLOSURE_ENV(r_res));
8924         push(ST_RET());
8925         shiftActFrmDown();
8926         goto *(SOB_CLOSURE_CODE(r_res));
8927         sp = sp-2-stack[sp-2];
8928         fp = pop();
8929         RETURN();
8930 __skipBody99:
8931         r_res = (int)makeSchemeClosure((void*)r[0],&&__body99);
8932         r[0] = (int)getSymbol("list->string",topLevel);
8933         ((SymbolEntry*)r[0])->isDefined = 1;
8934         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8935         r_res = (int)&sc_void;
8936 __ret329:
8937         /* set return address */
8938         ST_RET() = (int)&&__ret341;
8939
8940         r[0] = (int)extendEnviroment( (int**)NULL, 0);
8941         goto __skipBody105;
8942 __body105:
8943         push(fp);
8944         fp = sp;
8945         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8946
8947         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8948         r_res = ST_ARG(0);
8949         push(r_res);
8950         push(1);
8951         r_res = (int)probeSymbolDefined("length",topLevel);
8952         if (r_res==0) goto __else377;
8953         if (! ((SymbolEntry*)r_res)->isDefined) goto __else377;
8954         r_res = (int)((SymbolEntry*)r_res)->sob;
8955         goto __endIf377;
8956 __else377:
8957         fprintf(stderr,"Symbol length not defined"); exit(-1);
8958 __endIf377:
8959         if (IS_SOB_CLOSURE(r_res)) goto __app250;
8960         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8961 __app250:
8962         push((int)SOB_CLOSURE_ENV(r_res));
8963         push((int)&&__ret342);
8964         goto *(SOB_CLOSURE_CODE(r_res));
8965 __ret342:
8966         sp = sp-2-stack[sp-2];
8967         push(r_res);
8968         push(1);
8969         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
8970         goto __skipBody106;
8971 __body106:
8972         push(fp);
8973         fp = sp;
8974         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8975
8976         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8977         r_res = ST_ARG(0);
8978         push(r_res);
8979         push(1);
8980         r_res = (int)probeSymbolDefined("make-vector",topLevel);
8981         if (r_res==0) goto __else378;
8982         if (! ((SymbolEntry*)r_res)->isDefined) goto __else378;
8983         r_res = (int)((SymbolEntry*)r_res)->sob;
8984         goto __endIf378;
8985 __else378:
8986         fprintf(stderr,"Symbol make-vector not defined"); exit(-1);
8987 __endIf378:
8988         if (IS_SOB_CLOSURE(r_res)) goto __app251;
8989         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8990 __app251:
8991         push((int)SOB_CLOSURE_ENV(r_res));
8992         push((int)&&__ret343);
8993         goto *(SOB_CLOSURE_CODE(r_res));
8994 __ret343:
8995         sp = sp-2-stack[sp-2];
8996         push(r_res);
8997         push(1);
8998         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
8999         goto __skipBody107;
9000 __body107:
9001         push(fp);
9002         fp = sp;
9003         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9004         r_res = (int)&sc_false;
9005         push(r_res);
9006         push(1);
9007         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
9008         goto __skipBody108;
9009 __body108:
9010         push(fp);
9011         fp = sp;
9012         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9013
9014         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9015         r_res = ST_ARG(0);
9016         push(r_res);
9017         push(1);
9018         r_res = (int)probeSymbolDefined("box",topLevel);
9019         if (r_res==0) goto __else379;
9020         if (! ((SymbolEntry*)r_res)->isDefined) goto __else379;
9021         r_res = (int)((SymbolEntry*)r_res)->sob;
9022         goto __endIf379;
9023 __else379:
9024         fprintf(stderr,"Symbol box not defined"); exit(-1);
9025 __endIf379:
9026         if (IS_SOB_CLOSURE(r_res)) goto __app252;
9027         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9028 __app252:
9029         push((int)SOB_CLOSURE_ENV(r_res));
9030         push((int)&&__ret344);
9031         goto *(SOB_CLOSURE_CODE(r_res));
9032 __ret344:
9033         sp = sp-2-stack[sp-2];
9034         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9035         ST_ARG(0) = r_res;
9036         r_res = (int)&sc_void;
9037
9038         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
9039         goto __skipBody109;
9040 __body109:
9041         push(fp);
9042         fp = sp;
9043         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9044
9045         r_res = ((int**)ST_ENV())[2][0];
9046         push(r_res);
9047         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9048         r_res = ST_ARG(1);
9049         push(r_res);
9050         push(2);
9051         r_res = (int)probeSymbolDefined("=",topLevel);
9052         if (r_res==0) goto __else381;
9053         if (! ((SymbolEntry*)r_res)->isDefined) goto __else381;
9054         r_res = (int)((SymbolEntry*)r_res)->sob;
9055         goto __endIf381;
9056 __else381:
9057         fprintf(stderr,"Symbol = not defined"); exit(-1);
9058 __endIf381:
9059         if (IS_SOB_CLOSURE(r_res)) goto __app254;
9060         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9061 __app254:
9062         push((int)SOB_CLOSURE_ENV(r_res));
9063         push((int)&&__ret346);
9064         goto *(SOB_CLOSURE_CODE(r_res));
9065 __ret346:
9066         sp = sp-2-stack[sp-2];
9067         if ((SchemeObject*)r_res==&sc_false) goto __else380;
9068         r_res = ((int**)ST_ENV())[1][0];
9069         goto __endIf380;
9070 __else380:
9071
9072
9073         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9074         r_res = ST_ARG(0);
9075         push(r_res);
9076         push(1);
9077         r_res = (int)probeSymbolDefined("car",topLevel);
9078         if (r_res==0) goto __else382;
9079         if (! ((SymbolEntry*)r_res)->isDefined) goto __else382;
9080         r_res = (int)((SymbolEntry*)r_res)->sob;
9081         goto __endIf382;
9082 __else382:
9083         fprintf(stderr,"Symbol car not defined"); exit(-1);
9084 __endIf382:
9085         if (IS_SOB_CLOSURE(r_res)) goto __app256;
9086         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9087 __app256:
9088         push((int)SOB_CLOSURE_ENV(r_res));
9089         push((int)&&__ret348);
9090         goto *(SOB_CLOSURE_CODE(r_res));
9091 __ret348:
9092         sp = sp-2-stack[sp-2];
9093         push(r_res);
9094         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9095         r_res = ST_ARG(1);
9096         push(r_res);
9097         r_res = ((int**)ST_ENV())[1][0];
9098         push(r_res);
9099         push(3);
9100         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
9101         if (r_res==0) goto __else383;
9102         if (! ((SymbolEntry*)r_res)->isDefined) goto __else383;
9103         r_res = (int)((SymbolEntry*)r_res)->sob;
9104         goto __endIf383;
9105 __else383:
9106         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
9107 __endIf383:
9108         if (IS_SOB_CLOSURE(r_res)) goto __app255;
9109         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9110 __app255:
9111         push((int)SOB_CLOSURE_ENV(r_res));
9112         push((int)&&__ret347);
9113         goto *(SOB_CLOSURE_CODE(r_res));
9114 __ret347:
9115         sp = sp-2-stack[sp-2];
9116
9117         r_res = (int)&__sc_number62;
9118         push(r_res);
9119         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9120         r_res = ST_ARG(1);
9121         push(r_res);
9122         push(2);
9123         r_res = (int)probeSymbolDefined("+",topLevel);
9124         if (r_res==0) goto __else384;
9125         if (! ((SymbolEntry*)r_res)->isDefined) goto __else384;
9126         r_res = (int)((SymbolEntry*)r_res)->sob;
9127         goto __endIf384;
9128 __else384:
9129         fprintf(stderr,"Symbol + not defined"); exit(-1);
9130 __endIf384:
9131         if (IS_SOB_CLOSURE(r_res)) goto __app257;
9132         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9133 __app257:
9134         push((int)SOB_CLOSURE_ENV(r_res));
9135         push((int)&&__ret349);
9136         goto *(SOB_CLOSURE_CODE(r_res));
9137 __ret349:
9138         sp = sp-2-stack[sp-2];
9139         push(r_res);
9140
9141         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9142         r_res = ST_ARG(0);
9143         push(r_res);
9144         push(1);
9145         r_res = (int)probeSymbolDefined("cdr",topLevel);
9146         if (r_res==0) goto __else385;
9147         if (! ((SymbolEntry*)r_res)->isDefined) goto __else385;
9148         r_res = (int)((SymbolEntry*)r_res)->sob;
9149         goto __endIf385;
9150 __else385:
9151         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
9152 __endIf385:
9153         if (IS_SOB_CLOSURE(r_res)) goto __app258;
9154         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9155 __app258:
9156         push((int)SOB_CLOSURE_ENV(r_res));
9157         push((int)&&__ret350);
9158         goto *(SOB_CLOSURE_CODE(r_res));
9159 __ret350:
9160         sp = sp-2-stack[sp-2];
9161         push(r_res);
9162         push(2);
9163
9164         r_res = (int)&__sc_number63;
9165         push(r_res);
9166         r_res = ((int**)ST_ENV())[0][0];
9167         push(r_res);
9168         push(2);
9169         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
9170         if (r_res==0) goto __else386;
9171         if (! ((SymbolEntry*)r_res)->isDefined) goto __else386;
9172         r_res = (int)((SymbolEntry*)r_res)->sob;
9173         goto __endIf386;
9174 __else386:
9175         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
9176 __endIf386:
9177         if (IS_SOB_CLOSURE(r_res)) goto __app259;
9178         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9179 __app259:
9180         push((int)SOB_CLOSURE_ENV(r_res));
9181         push((int)&&__ret351);
9182         goto *(SOB_CLOSURE_CODE(r_res));
9183 __ret351:
9184         sp = sp-2-stack[sp-2];
9185         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9186         push((int)SOB_CLOSURE_ENV(r_res));
9187         push(ST_RET());
9188         shiftActFrmDown();
9189         goto *(SOB_CLOSURE_CODE(r_res));
9190         sp = sp-2-stack[sp-2];
9191 __endIf380:
9192         fp = pop();
9193         RETURN();
9194 __skipBody109:
9195         r_res = (int)makeSchemeClosure((void*)r[0],&&__body109);
9196         push(r_res);
9197         r_res = (int)&__sc_number64;
9198         push(r_res);
9199         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9200         r_res = ST_ARG(0);
9201         push(r_res);
9202         push(3);
9203         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
9204         if (r_res==0) goto __else387;
9205         if (! ((SymbolEntry*)r_res)->isDefined) goto __else387;
9206         r_res = (int)((SymbolEntry*)r_res)->sob;
9207         goto __endIf387;
9208 __else387:
9209         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
9210 __endIf387:
9211         if (IS_SOB_CLOSURE(r_res)) goto __app253;
9212         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9213 __app253:
9214         push((int)SOB_CLOSURE_ENV(r_res));
9215         push((int)&&__ret345);
9216         goto *(SOB_CLOSURE_CODE(r_res));
9217 __ret345:
9218         sp = sp-2-stack[sp-2];
9219         push(0);
9220         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
9221         goto __skipBody110;
9222 __body110:
9223         push(fp);
9224         fp = sp;
9225         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9226         r_res = (int)&__sc_number65;
9227         push(r_res);
9228         r_res = ((int**)ST_ENV())[3][0];
9229         push(r_res);
9230         push(2);
9231
9232         r_res = (int)&__sc_number66;
9233         push(r_res);
9234         r_res = ((int**)ST_ENV())[0][0];
9235         push(r_res);
9236         push(2);
9237         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
9238         if (r_res==0) goto __else388;
9239         if (! ((SymbolEntry*)r_res)->isDefined) goto __else388;
9240         r_res = (int)((SymbolEntry*)r_res)->sob;
9241         goto __endIf388;
9242 __else388:
9243         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
9244 __endIf388:
9245         if (IS_SOB_CLOSURE(r_res)) goto __app260;
9246         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9247 __app260:
9248         push((int)SOB_CLOSURE_ENV(r_res));
9249         push((int)&&__ret352);
9250         goto *(SOB_CLOSURE_CODE(r_res));
9251 __ret352:
9252         sp = sp-2-stack[sp-2];
9253         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9254         push((int)SOB_CLOSURE_ENV(r_res));
9255         push(ST_RET());
9256         shiftActFrmDown();
9257         goto *(SOB_CLOSURE_CODE(r_res));
9258         sp = sp-2-stack[sp-2];
9259         fp = pop();
9260         RETURN();
9261 __skipBody110:
9262         r_res = (int)makeSchemeClosure((void*)r[0],&&__body110);
9263         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9264         push((int)SOB_CLOSURE_ENV(r_res));
9265         push(ST_RET());
9266         shiftActFrmDown();
9267         goto *(SOB_CLOSURE_CODE(r_res));
9268         sp = sp-2-stack[sp-2];
9269         fp = pop();
9270         RETURN();
9271 __skipBody108:
9272         r_res = (int)makeSchemeClosure((void*)r[0],&&__body108);
9273         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9274         push((int)SOB_CLOSURE_ENV(r_res));
9275         push(ST_RET());
9276         shiftActFrmDown();
9277         goto *(SOB_CLOSURE_CODE(r_res));
9278         sp = sp-2-stack[sp-2];
9279         fp = pop();
9280         RETURN();
9281 __skipBody107:
9282         r_res = (int)makeSchemeClosure((void*)r[0],&&__body107);
9283         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9284         push((int)SOB_CLOSURE_ENV(r_res));
9285         push(ST_RET());
9286         shiftActFrmDown();
9287         goto *(SOB_CLOSURE_CODE(r_res));
9288         sp = sp-2-stack[sp-2];
9289         fp = pop();
9290         RETURN();
9291 __skipBody106:
9292         r_res = (int)makeSchemeClosure((void*)r[0],&&__body106);
9293         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9294         push((int)SOB_CLOSURE_ENV(r_res));
9295         push(ST_RET());
9296         shiftActFrmDown();
9297         goto *(SOB_CLOSURE_CODE(r_res));
9298         sp = sp-2-stack[sp-2];
9299         fp = pop();
9300         RETURN();
9301 __skipBody105:
9302         r_res = (int)makeSchemeClosure((void*)r[0],&&__body105);
9303         r[0] = (int)getSymbol("list->vector",topLevel);
9304         ((SymbolEntry*)r[0])->isDefined = 1;
9305         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
9306         r_res = (int)&sc_void;
9307 __ret341:
9308         /* set return address */
9309         ST_RET() = (int)&&__ret353;
9310
9311         r[0] = (int)extendEnviroment( (int**)NULL, 0);
9312         goto __skipBody111;
9313 __body111:
9314         push(fp);
9315         fp = sp;
9316         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9317
9318         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9319         r_res = ST_ARG(1);
9320         push(r_res);
9321         push(1);
9322         r_res = (int)probeSymbolDefined("null?",topLevel);
9323         if (r_res==0) goto __else390;
9324         if (! ((SymbolEntry*)r_res)->isDefined) goto __else390;
9325         r_res = (int)((SymbolEntry*)r_res)->sob;
9326         goto __endIf390;
9327 __else390:
9328         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
9329 __endIf390:
9330         if (IS_SOB_CLOSURE(r_res)) goto __app261;
9331         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9332 __app261:
9333         push((int)SOB_CLOSURE_ENV(r_res));
9334         push((int)&&__ret354);
9335         goto *(SOB_CLOSURE_CODE(r_res));
9336 __ret354:
9337         sp = sp-2-stack[sp-2];
9338         if ((SchemeObject*)r_res==&sc_false) goto __else389;
9339         r_res = (int)&sc_false;
9340         goto __endIf389;
9341 __else389:
9342
9343         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9344         r_res = ST_ARG(0);
9345         push(r_res);
9346
9347         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9348         r_res = ST_ARG(1);
9349         push(r_res);
9350         push(1);
9351         r_res = (int)probeSymbolDefined("car",topLevel);
9352         if (r_res==0) goto __else392;
9353         if (! ((SymbolEntry*)r_res)->isDefined) goto __else392;
9354         r_res = (int)((SymbolEntry*)r_res)->sob;
9355         goto __endIf392;
9356 __else392:
9357         fprintf(stderr,"Symbol car not defined"); exit(-1);
9358 __endIf392:
9359         if (IS_SOB_CLOSURE(r_res)) goto __app263;
9360         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9361 __app263:
9362         push((int)SOB_CLOSURE_ENV(r_res));
9363         push((int)&&__ret356);
9364         goto *(SOB_CLOSURE_CODE(r_res));
9365 __ret356:
9366         sp = sp-2-stack[sp-2];
9367         push(r_res);
9368         push(2);
9369         r_res = (int)probeSymbolDefined("equal?",topLevel);
9370         if (r_res==0) goto __else393;
9371         if (! ((SymbolEntry*)r_res)->isDefined) goto __else393;
9372         r_res = (int)((SymbolEntry*)r_res)->sob;
9373         goto __endIf393;
9374 __else393:
9375         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
9376 __endIf393:
9377         if (IS_SOB_CLOSURE(r_res)) goto __app262;
9378         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9379 __app262:
9380         push((int)SOB_CLOSURE_ENV(r_res));
9381         push((int)&&__ret355);
9382         goto *(SOB_CLOSURE_CODE(r_res));
9383 __ret355:
9384         sp = sp-2-stack[sp-2];
9385         if ((SchemeObject*)r_res==&sc_false) goto __else391;
9386         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9387         r_res = ST_ARG(1);
9388         goto __endIf391;
9389 __else391:
9390
9391
9392         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9393         r_res = ST_ARG(1);
9394         push(r_res);
9395         push(1);
9396         r_res = (int)probeSymbolDefined("cdr",topLevel);
9397         if (r_res==0) goto __else394;
9398         if (! ((SymbolEntry*)r_res)->isDefined) goto __else394;
9399         r_res = (int)((SymbolEntry*)r_res)->sob;
9400         goto __endIf394;
9401 __else394:
9402         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
9403 __endIf394:
9404         if (IS_SOB_CLOSURE(r_res)) goto __app264;
9405         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9406 __app264:
9407         push((int)SOB_CLOSURE_ENV(r_res));
9408         push((int)&&__ret357);
9409         goto *(SOB_CLOSURE_CODE(r_res));
9410 __ret357:
9411         sp = sp-2-stack[sp-2];
9412         push(r_res);
9413         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9414         r_res = ST_ARG(0);
9415         push(r_res);
9416         push(2);
9417         r_res = (int)probeSymbolDefined("member",topLevel);
9418         if (r_res==0) goto __else395;
9419         if (! ((SymbolEntry*)r_res)->isDefined) goto __else395;
9420         r_res = (int)((SymbolEntry*)r_res)->sob;
9421         goto __endIf395;
9422 __else395:
9423         fprintf(stderr,"Symbol member not defined"); exit(-1);
9424 __endIf395:
9425         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9426         push((int)SOB_CLOSURE_ENV(r_res));
9427         push(ST_RET());
9428         shiftActFrmDown();
9429         goto *(SOB_CLOSURE_CODE(r_res));
9430         sp = sp-2-stack[sp-2];
9431 __endIf391:
9432 __endIf389:
9433         fp = pop();
9434         RETURN();
9435 __skipBody111:
9436         r_res = (int)makeSchemeClosure((void*)r[0],&&__body111);
9437         r[0] = (int)getSymbol("member",topLevel);
9438         ((SymbolEntry*)r[0])->isDefined = 1;
9439         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
9440         r_res = (int)&sc_void;
9441 __ret353:
9442         /* set return address */
9443         ST_RET() = (int)&&__ret358;
9444
9445         r[0] = (int)extendEnviroment( (int**)NULL, 0);
9446         goto __skipBody112;
9447 __body112:
9448         push(fp);
9449         fp = sp;
9450         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9451
9452         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9453         r_res = ST_ARG(1);
9454         push(r_res);
9455         push(1);
9456         r_res = (int)probeSymbolDefined("null?",topLevel);
9457         if (r_res==0) goto __else397;
9458         if (! ((SymbolEntry*)r_res)->isDefined) goto __else397;
9459         r_res = (int)((SymbolEntry*)r_res)->sob;
9460         goto __endIf397;
9461 __else397:
9462         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
9463 __endIf397:
9464         if (IS_SOB_CLOSURE(r_res)) goto __app265;
9465         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9466 __app265:
9467         push((int)SOB_CLOSURE_ENV(r_res));
9468         push((int)&&__ret359);
9469         goto *(SOB_CLOSURE_CODE(r_res));
9470 __ret359:
9471         sp = sp-2-stack[sp-2];
9472         if ((SchemeObject*)r_res==&sc_false) goto __else396;
9473         r_res = (int)&sc_false;
9474         goto __endIf396;
9475 __else396:
9476
9477         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9478         r_res = ST_ARG(0);
9479         push(r_res);
9480
9481         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9482         r_res = ST_ARG(1);
9483         push(r_res);
9484         push(1);
9485         r_res = (int)probeSymbolDefined("caar",topLevel);
9486         if (r_res==0) goto __else399;
9487         if (! ((SymbolEntry*)r_res)->isDefined) goto __else399;
9488         r_res = (int)((SymbolEntry*)r_res)->sob;
9489         goto __endIf399;
9490 __else399:
9491         fprintf(stderr,"Symbol caar not defined"); exit(-1);
9492 __endIf399:
9493         if (IS_SOB_CLOSURE(r_res)) goto __app267;
9494         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9495 __app267:
9496         push((int)SOB_CLOSURE_ENV(r_res));
9497         push((int)&&__ret361);
9498         goto *(SOB_CLOSURE_CODE(r_res));
9499 __ret361:
9500         sp = sp-2-stack[sp-2];
9501         push(r_res);
9502         push(2);
9503         r_res = (int)probeSymbolDefined("eq?",topLevel);
9504         if (r_res==0) goto __else400;
9505         if (! ((SymbolEntry*)r_res)->isDefined) goto __else400;
9506         r_res = (int)((SymbolEntry*)r_res)->sob;
9507         goto __endIf400;
9508 __else400:
9509         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
9510 __endIf400:
9511         if (IS_SOB_CLOSURE(r_res)) goto __app266;
9512         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9513 __app266:
9514         push((int)SOB_CLOSURE_ENV(r_res));
9515         push((int)&&__ret360);
9516         goto *(SOB_CLOSURE_CODE(r_res));
9517 __ret360:
9518         sp = sp-2-stack[sp-2];
9519         if ((SchemeObject*)r_res==&sc_false) goto __else398;
9520
9521         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9522         r_res = ST_ARG(1);
9523         push(r_res);
9524         push(1);
9525         r_res = (int)probeSymbolDefined("car",topLevel);
9526         if (r_res==0) goto __else401;
9527         if (! ((SymbolEntry*)r_res)->isDefined) goto __else401;
9528         r_res = (int)((SymbolEntry*)r_res)->sob;
9529         goto __endIf401;
9530 __else401:
9531         fprintf(stderr,"Symbol car not defined"); exit(-1);
9532 __endIf401:
9533         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9534         push((int)SOB_CLOSURE_ENV(r_res));
9535         push(ST_RET());
9536         shiftActFrmDown();
9537         goto *(SOB_CLOSURE_CODE(r_res));
9538         sp = sp-2-stack[sp-2];
9539         goto __endIf398;
9540 __else398:
9541
9542
9543         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9544         r_res = ST_ARG(1);
9545         push(r_res);
9546         push(1);
9547         r_res = (int)probeSymbolDefined("cdr",topLevel);
9548         if (r_res==0) goto __else402;
9549         if (! ((SymbolEntry*)r_res)->isDefined) goto __else402;
9550         r_res = (int)((SymbolEntry*)r_res)->sob;
9551         goto __endIf402;
9552 __else402:
9553         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
9554 __endIf402:
9555         if (IS_SOB_CLOSURE(r_res)) goto __app268;
9556         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9557 __app268:
9558         push((int)SOB_CLOSURE_ENV(r_res));
9559         push((int)&&__ret362);
9560         goto *(SOB_CLOSURE_CODE(r_res));
9561 __ret362:
9562         sp = sp-2-stack[sp-2];
9563         push(r_res);
9564         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9565         r_res = ST_ARG(0);
9566         push(r_res);
9567         push(2);
9568         r_res = (int)probeSymbolDefined("assoc",topLevel);
9569         if (r_res==0) goto __else403;
9570         if (! ((SymbolEntry*)r_res)->isDefined) goto __else403;
9571         r_res = (int)((SymbolEntry*)r_res)->sob;
9572         goto __endIf403;
9573 __else403:
9574         fprintf(stderr,"Symbol assoc not defined"); exit(-1);
9575 __endIf403:
9576         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9577         push((int)SOB_CLOSURE_ENV(r_res));
9578         push(ST_RET());
9579         shiftActFrmDown();
9580         goto *(SOB_CLOSURE_CODE(r_res));
9581         sp = sp-2-stack[sp-2];
9582 __endIf398:
9583 __endIf396:
9584         fp = pop();
9585         RETURN();
9586 __skipBody112:
9587         r_res = (int)makeSchemeClosure((void*)r[0],&&__body112);
9588         r[0] = (int)getSymbol("assoc",topLevel);
9589         ((SymbolEntry*)r[0])->isDefined = 1;
9590         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
9591         r_res = (int)&sc_void;
9592 __ret358:
9593         /* set return address */
9594         ST_RET() = (int)&&__ret363;
9595
9596         r[0] = (int)extendEnviroment( (int**)NULL, 0);
9597         goto __skipBody113;
9598 __body113:
9599         push(fp);
9600         fp = sp;
9601         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9602
9603         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9604         r_res = ST_ARG(0);
9605         push(r_res);
9606         push(1);
9607         r_res = (int)probeSymbolDefined("pair?",topLevel);
9608         if (r_res==0) goto __else406;
9609         if (! ((SymbolEntry*)r_res)->isDefined) goto __else406;
9610         r_res = (int)((SymbolEntry*)r_res)->sob;
9611         goto __endIf406;
9612 __else406:
9613         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
9614 __endIf406:
9615         if (IS_SOB_CLOSURE(r_res)) goto __app269;
9616         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9617 __app269:
9618         push((int)SOB_CLOSURE_ENV(r_res));
9619         push((int)&&__ret364);
9620         goto *(SOB_CLOSURE_CODE(r_res));
9621 __ret364:
9622         sp = sp-2-stack[sp-2];
9623         if ((SchemeObject*)r_res==&sc_false) goto __else405;
9624
9625         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9626         r_res = ST_ARG(1);
9627         push(r_res);
9628         push(1);
9629         r_res = (int)probeSymbolDefined("pair?",topLevel);
9630         if (r_res==0) goto __else407;
9631         if (! ((SymbolEntry*)r_res)->isDefined) goto __else407;
9632         r_res = (int)((SymbolEntry*)r_res)->sob;
9633         goto __endIf407;
9634 __else407:
9635         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
9636 __endIf407:
9637         if (IS_SOB_CLOSURE(r_res)) goto __app270;
9638         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9639 __app270:
9640         push((int)SOB_CLOSURE_ENV(r_res));
9641         push((int)&&__ret365);
9642         goto *(SOB_CLOSURE_CODE(r_res));
9643 __ret365:
9644         sp = sp-2-stack[sp-2];
9645         goto __endIf405;
9646 __else405:
9647         r_res = (int)&sc_false;
9648 __endIf405:
9649         if ((SchemeObject*)r_res==&sc_false) goto __else404;
9650
9651
9652         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9653         r_res = ST_ARG(1);
9654         push(r_res);
9655         push(1);
9656         r_res = (int)probeSymbolDefined("car",topLevel);
9657         if (r_res==0) goto __else409;
9658         if (! ((SymbolEntry*)r_res)->isDefined) goto __else409;
9659         r_res = (int)((SymbolEntry*)r_res)->sob;
9660         goto __endIf409;
9661 __else409:
9662         fprintf(stderr,"Symbol car not defined"); exit(-1);
9663 __endIf409:
9664         if (IS_SOB_CLOSURE(r_res)) goto __app272;
9665         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9666 __app272:
9667         push((int)SOB_CLOSURE_ENV(r_res));
9668         push((int)&&__ret367);
9669         goto *(SOB_CLOSURE_CODE(r_res));
9670 __ret367:
9671         sp = sp-2-stack[sp-2];
9672         push(r_res);
9673
9674         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9675         r_res = ST_ARG(0);
9676         push(r_res);
9677         push(1);
9678         r_res = (int)probeSymbolDefined("car",topLevel);
9679         if (r_res==0) goto __else410;
9680         if (! ((SymbolEntry*)r_res)->isDefined) goto __else410;
9681         r_res = (int)((SymbolEntry*)r_res)->sob;
9682         goto __endIf410;
9683 __else410:
9684         fprintf(stderr,"Symbol car not defined"); exit(-1);
9685 __endIf410:
9686         if (IS_SOB_CLOSURE(r_res)) goto __app273;
9687         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9688 __app273:
9689         push((int)SOB_CLOSURE_ENV(r_res));
9690         push((int)&&__ret368);
9691         goto *(SOB_CLOSURE_CODE(r_res));
9692 __ret368:
9693         sp = sp-2-stack[sp-2];
9694         push(r_res);
9695         push(2);
9696         r_res = (int)probeSymbolDefined("equal?",topLevel);
9697         if (r_res==0) goto __else411;
9698         if (! ((SymbolEntry*)r_res)->isDefined) goto __else411;
9699         r_res = (int)((SymbolEntry*)r_res)->sob;
9700         goto __endIf411;
9701 __else411:
9702         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
9703 __endIf411:
9704         if (IS_SOB_CLOSURE(r_res)) goto __app271;
9705         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9706 __app271:
9707         push((int)SOB_CLOSURE_ENV(r_res));
9708         push((int)&&__ret366);
9709         goto *(SOB_CLOSURE_CODE(r_res));
9710 __ret366:
9711         sp = sp-2-stack[sp-2];
9712         if ((SchemeObject*)r_res==&sc_false) goto __else408;
9713
9714
9715         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9716         r_res = ST_ARG(1);
9717         push(r_res);
9718         push(1);
9719         r_res = (int)probeSymbolDefined("cdr",topLevel);
9720         if (r_res==0) goto __else412;
9721         if (! ((SymbolEntry*)r_res)->isDefined) goto __else412;
9722         r_res = (int)((SymbolEntry*)r_res)->sob;
9723         goto __endIf412;
9724 __else412:
9725         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
9726 __endIf412:
9727         if (IS_SOB_CLOSURE(r_res)) goto __app274;
9728         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9729 __app274:
9730         push((int)SOB_CLOSURE_ENV(r_res));
9731         push((int)&&__ret369);
9732         goto *(SOB_CLOSURE_CODE(r_res));
9733 __ret369:
9734         sp = sp-2-stack[sp-2];
9735         push(r_res);
9736
9737         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9738         r_res = ST_ARG(0);
9739         push(r_res);
9740         push(1);
9741         r_res = (int)probeSymbolDefined("cdr",topLevel);
9742         if (r_res==0) goto __else413;
9743         if (! ((SymbolEntry*)r_res)->isDefined) goto __else413;
9744         r_res = (int)((SymbolEntry*)r_res)->sob;
9745         goto __endIf413;
9746 __else413:
9747         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
9748 __endIf413:
9749         if (IS_SOB_CLOSURE(r_res)) goto __app275;
9750         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9751 __app275:
9752         push((int)SOB_CLOSURE_ENV(r_res));
9753         push((int)&&__ret370);
9754         goto *(SOB_CLOSURE_CODE(r_res));
9755 __ret370:
9756         sp = sp-2-stack[sp-2];
9757         push(r_res);
9758         push(2);
9759         r_res = (int)probeSymbolDefined("equal?",topLevel);
9760         if (r_res==0) goto __else414;
9761         if (! ((SymbolEntry*)r_res)->isDefined) goto __else414;
9762         r_res = (int)((SymbolEntry*)r_res)->sob;
9763         goto __endIf414;
9764 __else414:
9765         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
9766 __endIf414:
9767         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9768         push((int)SOB_CLOSURE_ENV(r_res));
9769         push(ST_RET());
9770         shiftActFrmDown();
9771         goto *(SOB_CLOSURE_CODE(r_res));
9772         sp = sp-2-stack[sp-2];
9773         goto __endIf408;
9774 __else408:
9775         r_res = (int)&sc_false;
9776 __endIf408:
9777         goto __endIf404;
9778 __else404:
9779
9780         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9781         r_res = ST_ARG(0);
9782         push(r_res);
9783         push(1);
9784         r_res = (int)probeSymbolDefined("vector?",topLevel);
9785         if (r_res==0) goto __else417;
9786         if (! ((SymbolEntry*)r_res)->isDefined) goto __else417;
9787         r_res = (int)((SymbolEntry*)r_res)->sob;
9788         goto __endIf417;
9789 __else417:
9790         fprintf(stderr,"Symbol vector\? not defined"); exit(-1);
9791 __endIf417:
9792         if (IS_SOB_CLOSURE(r_res)) goto __app276;
9793         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9794 __app276:
9795         push((int)SOB_CLOSURE_ENV(r_res));
9796         push((int)&&__ret371);
9797         goto *(SOB_CLOSURE_CODE(r_res));
9798 __ret371:
9799         sp = sp-2-stack[sp-2];
9800         if ((SchemeObject*)r_res==&sc_false) goto __else416;
9801
9802         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9803         r_res = ST_ARG(1);
9804         push(r_res);
9805         push(1);
9806         r_res = (int)probeSymbolDefined("vector?",topLevel);
9807         if (r_res==0) goto __else419;
9808         if (! ((SymbolEntry*)r_res)->isDefined) goto __else419;
9809         r_res = (int)((SymbolEntry*)r_res)->sob;
9810         goto __endIf419;
9811 __else419:
9812         fprintf(stderr,"Symbol vector\? not defined"); exit(-1);
9813 __endIf419:
9814         if (IS_SOB_CLOSURE(r_res)) goto __app277;
9815         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9816 __app277:
9817         push((int)SOB_CLOSURE_ENV(r_res));
9818         push((int)&&__ret372);
9819         goto *(SOB_CLOSURE_CODE(r_res));
9820 __ret372:
9821         sp = sp-2-stack[sp-2];
9822         if ((SchemeObject*)r_res==&sc_false) goto __else418;
9823
9824
9825         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9826         r_res = ST_ARG(1);
9827         push(r_res);
9828         push(1);
9829         r_res = (int)probeSymbolDefined("vector-length",topLevel);
9830         if (r_res==0) goto __else420;
9831         if (! ((SymbolEntry*)r_res)->isDefined) goto __else420;
9832         r_res = (int)((SymbolEntry*)r_res)->sob;
9833         goto __endIf420;
9834 __else420:
9835         fprintf(stderr,"Symbol vector-length not defined"); exit(-1);
9836 __endIf420:
9837         if (IS_SOB_CLOSURE(r_res)) goto __app279;
9838         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9839 __app279:
9840         push((int)SOB_CLOSURE_ENV(r_res));
9841         push((int)&&__ret374);
9842         goto *(SOB_CLOSURE_CODE(r_res));
9843 __ret374:
9844         sp = sp-2-stack[sp-2];
9845         push(r_res);
9846
9847         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9848         r_res = ST_ARG(0);
9849         push(r_res);
9850         push(1);
9851         r_res = (int)probeSymbolDefined("vector-length",topLevel);
9852         if (r_res==0) goto __else421;
9853         if (! ((SymbolEntry*)r_res)->isDefined) goto __else421;
9854         r_res = (int)((SymbolEntry*)r_res)->sob;
9855         goto __endIf421;
9856 __else421:
9857         fprintf(stderr,"Symbol vector-length not defined"); exit(-1);
9858 __endIf421:
9859         if (IS_SOB_CLOSURE(r_res)) goto __app280;
9860         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9861 __app280:
9862         push((int)SOB_CLOSURE_ENV(r_res));
9863         push((int)&&__ret375);
9864         goto *(SOB_CLOSURE_CODE(r_res));
9865 __ret375:
9866         sp = sp-2-stack[sp-2];
9867         push(r_res);
9868         push(2);
9869         r_res = (int)probeSymbolDefined("=",topLevel);
9870         if (r_res==0) goto __else422;
9871         if (! ((SymbolEntry*)r_res)->isDefined) goto __else422;
9872         r_res = (int)((SymbolEntry*)r_res)->sob;
9873         goto __endIf422;
9874 __else422:
9875         fprintf(stderr,"Symbol = not defined"); exit(-1);
9876 __endIf422:
9877         if (IS_SOB_CLOSURE(r_res)) goto __app278;
9878         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9879 __app278:
9880         push((int)SOB_CLOSURE_ENV(r_res));
9881         push((int)&&__ret373);
9882         goto *(SOB_CLOSURE_CODE(r_res));
9883 __ret373:
9884         sp = sp-2-stack[sp-2];
9885         goto __endIf418;
9886 __else418:
9887         r_res = (int)&sc_false;
9888 __endIf418:
9889         goto __endIf416;
9890 __else416:
9891         r_res = (int)&sc_false;
9892 __endIf416:
9893         if ((SchemeObject*)r_res==&sc_false) goto __else415;
9894
9895
9896         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9897         r_res = ST_ARG(1);
9898         push(r_res);
9899         push(1);
9900         r_res = (int)probeSymbolDefined("vector->list",topLevel);
9901         if (r_res==0) goto __else423;
9902         if (! ((SymbolEntry*)r_res)->isDefined) goto __else423;
9903         r_res = (int)((SymbolEntry*)r_res)->sob;
9904         goto __endIf423;
9905 __else423:
9906         fprintf(stderr,"Symbol vector->list not defined"); exit(-1);
9907 __endIf423:
9908         if (IS_SOB_CLOSURE(r_res)) goto __app281;
9909         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9910 __app281:
9911         push((int)SOB_CLOSURE_ENV(r_res));
9912         push((int)&&__ret376);
9913         goto *(SOB_CLOSURE_CODE(r_res));
9914 __ret376:
9915         sp = sp-2-stack[sp-2];
9916         push(r_res);
9917
9918         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9919         r_res = ST_ARG(0);
9920         push(r_res);
9921         push(1);
9922         r_res = (int)probeSymbolDefined("vector->list",topLevel);
9923         if (r_res==0) goto __else424;
9924         if (! ((SymbolEntry*)r_res)->isDefined) goto __else424;
9925         r_res = (int)((SymbolEntry*)r_res)->sob;
9926         goto __endIf424;
9927 __else424:
9928         fprintf(stderr,"Symbol vector->list not defined"); exit(-1);
9929 __endIf424:
9930         if (IS_SOB_CLOSURE(r_res)) goto __app282;
9931         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9932 __app282:
9933         push((int)SOB_CLOSURE_ENV(r_res));
9934         push((int)&&__ret377);
9935         goto *(SOB_CLOSURE_CODE(r_res));
9936 __ret377:
9937         sp = sp-2-stack[sp-2];
9938         push(r_res);
9939         push(2);
9940         r_res = (int)probeSymbolDefined("equal?",topLevel);
9941         if (r_res==0) goto __else425;
9942         if (! ((SymbolEntry*)r_res)->isDefined) goto __else425;
9943         r_res = (int)((SymbolEntry*)r_res)->sob;
9944         goto __endIf425;
9945 __else425:
9946         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
9947 __endIf425:
9948         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9949         push((int)SOB_CLOSURE_ENV(r_res));
9950         push(ST_RET());
9951         shiftActFrmDown();
9952         goto *(SOB_CLOSURE_CODE(r_res));
9953         sp = sp-2-stack[sp-2];
9954         goto __endIf415;
9955 __else415:
9956
9957         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9958         r_res = ST_ARG(0);
9959         push(r_res);
9960         push(1);
9961         r_res = (int)probeSymbolDefined("null?",topLevel);
9962         if (r_res==0) goto __else428;
9963         if (! ((SymbolEntry*)r_res)->isDefined) goto __else428;
9964         r_res = (int)((SymbolEntry*)r_res)->sob;
9965         goto __endIf428;
9966 __else428:
9967         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
9968 __endIf428:
9969         if (IS_SOB_CLOSURE(r_res)) goto __app283;
9970         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9971 __app283:
9972         push((int)SOB_CLOSURE_ENV(r_res));
9973         push((int)&&__ret378);
9974         goto *(SOB_CLOSURE_CODE(r_res));
9975 __ret378:
9976         sp = sp-2-stack[sp-2];
9977         if ((SchemeObject*)r_res==&sc_false) goto __else427;
9978
9979         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9980         r_res = ST_ARG(1);
9981         push(r_res);
9982         push(1);
9983         r_res = (int)probeSymbolDefined("null?",topLevel);
9984         if (r_res==0) goto __else429;
9985         if (! ((SymbolEntry*)r_res)->isDefined) goto __else429;
9986         r_res = (int)((SymbolEntry*)r_res)->sob;
9987         goto __endIf429;
9988 __else429:
9989         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
9990 __endIf429:
9991         if (IS_SOB_CLOSURE(r_res)) goto __app284;
9992         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9993 __app284:
9994         push((int)SOB_CLOSURE_ENV(r_res));
9995         push((int)&&__ret379);
9996         goto *(SOB_CLOSURE_CODE(r_res));
9997 __ret379:
9998         sp = sp-2-stack[sp-2];
9999         goto __endIf427;
10000 __else427:
10001         r_res = (int)&sc_false;
10002 __endIf427:
10003         if ((SchemeObject*)r_res==&sc_false) goto __else426;
10004         r_res = (int)&sc_true;
10005         goto __endIf426;
10006 __else426:
10007
10008         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10009         r_res = ST_ARG(0);
10010         push(r_res);
10011         push(1);
10012         r_res = (int)probeSymbolDefined("boolean?",topLevel);
10013         if (r_res==0) goto __else432;
10014         if (! ((SymbolEntry*)r_res)->isDefined) goto __else432;
10015         r_res = (int)((SymbolEntry*)r_res)->sob;
10016         goto __endIf432;
10017 __else432:
10018         fprintf(stderr,"Symbol boolean\? not defined"); exit(-1);
10019 __endIf432:
10020         if (IS_SOB_CLOSURE(r_res)) goto __app285;
10021         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10022 __app285:
10023         push((int)SOB_CLOSURE_ENV(r_res));
10024         push((int)&&__ret380);
10025         goto *(SOB_CLOSURE_CODE(r_res));
10026 __ret380:
10027         sp = sp-2-stack[sp-2];
10028         if ((SchemeObject*)r_res==&sc_false) goto __else431;
10029
10030         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10031         r_res = ST_ARG(1);
10032         push(r_res);
10033         push(1);
10034         r_res = (int)probeSymbolDefined("boolean?",topLevel);
10035         if (r_res==0) goto __else433;
10036         if (! ((SymbolEntry*)r_res)->isDefined) goto __else433;
10037         r_res = (int)((SymbolEntry*)r_res)->sob;
10038         goto __endIf433;
10039 __else433:
10040         fprintf(stderr,"Symbol boolean\? not defined"); exit(-1);
10041 __endIf433:
10042         if (IS_SOB_CLOSURE(r_res)) goto __app286;
10043         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10044 __app286:
10045         push((int)SOB_CLOSURE_ENV(r_res));
10046         push((int)&&__ret381);
10047         goto *(SOB_CLOSURE_CODE(r_res));
10048 __ret381:
10049         sp = sp-2-stack[sp-2];
10050         goto __endIf431;
10051 __else431:
10052         r_res = (int)&sc_false;
10053 __endIf431:
10054         if ((SchemeObject*)r_res==&sc_false) goto __else430;
10055         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10056         r_res = ST_ARG(0);
10057         if ((SchemeObject*)r_res==&sc_false) goto __else434;
10058         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10059         r_res = ST_ARG(1);
10060         goto __endIf434;
10061 __else434:
10062         r_res = (int)&sc_false;
10063 __endIf434:
10064         goto __endIf430;
10065 __else430:
10066
10067         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10068         r_res = ST_ARG(0);
10069         push(r_res);
10070         push(1);
10071         r_res = (int)probeSymbolDefined("char?",topLevel);
10072         if (r_res==0) goto __else437;
10073         if (! ((SymbolEntry*)r_res)->isDefined) goto __else437;
10074         r_res = (int)((SymbolEntry*)r_res)->sob;
10075         goto __endIf437;
10076 __else437:
10077         fprintf(stderr,"Symbol char\? not defined"); exit(-1);
10078 __endIf437:
10079         if (IS_SOB_CLOSURE(r_res)) goto __app287;
10080         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10081 __app287:
10082         push((int)SOB_CLOSURE_ENV(r_res));
10083         push((int)&&__ret382);
10084         goto *(SOB_CLOSURE_CODE(r_res));
10085 __ret382:
10086         sp = sp-2-stack[sp-2];
10087         if ((SchemeObject*)r_res==&sc_false) goto __else436;
10088
10089         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10090         r_res = ST_ARG(1);
10091         push(r_res);
10092         push(1);
10093         r_res = (int)probeSymbolDefined("char?",topLevel);
10094         if (r_res==0) goto __else438;
10095         if (! ((SymbolEntry*)r_res)->isDefined) goto __else438;
10096         r_res = (int)((SymbolEntry*)r_res)->sob;
10097         goto __endIf438;
10098 __else438:
10099         fprintf(stderr,"Symbol char\? not defined"); exit(-1);
10100 __endIf438:
10101         if (IS_SOB_CLOSURE(r_res)) goto __app288;
10102         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10103 __app288:
10104         push((int)SOB_CLOSURE_ENV(r_res));
10105         push((int)&&__ret383);
10106         goto *(SOB_CLOSURE_CODE(r_res));
10107 __ret383:
10108         sp = sp-2-stack[sp-2];
10109         goto __endIf436;
10110 __else436:
10111         r_res = (int)&sc_false;
10112 __endIf436:
10113         if ((SchemeObject*)r_res==&sc_false) goto __else435;
10114
10115         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10116         r_res = ST_ARG(1);
10117         push(r_res);
10118         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10119         r_res = ST_ARG(0);
10120         push(r_res);
10121         push(2);
10122         r_res = (int)probeSymbolDefined("char=?",topLevel);
10123         if (r_res==0) goto __else439;
10124         if (! ((SymbolEntry*)r_res)->isDefined) goto __else439;
10125         r_res = (int)((SymbolEntry*)r_res)->sob;
10126         goto __endIf439;
10127 __else439:
10128         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
10129 __endIf439:
10130         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10131         push((int)SOB_CLOSURE_ENV(r_res));
10132         push(ST_RET());
10133         shiftActFrmDown();
10134         goto *(SOB_CLOSURE_CODE(r_res));
10135         sp = sp-2-stack[sp-2];
10136         goto __endIf435;
10137 __else435:
10138
10139         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10140         r_res = ST_ARG(0);
10141         push(r_res);
10142         push(1);
10143         r_res = (int)probeSymbolDefined("number?",topLevel);
10144         if (r_res==0) goto __else442;
10145         if (! ((SymbolEntry*)r_res)->isDefined) goto __else442;
10146         r_res = (int)((SymbolEntry*)r_res)->sob;
10147         goto __endIf442;
10148 __else442:
10149         fprintf(stderr,"Symbol number\? not defined"); exit(-1);
10150 __endIf442:
10151         if (IS_SOB_CLOSURE(r_res)) goto __app289;
10152         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10153 __app289:
10154         push((int)SOB_CLOSURE_ENV(r_res));
10155         push((int)&&__ret384);
10156         goto *(SOB_CLOSURE_CODE(r_res));
10157 __ret384:
10158         sp = sp-2-stack[sp-2];
10159         if ((SchemeObject*)r_res==&sc_false) goto __else441;
10160
10161         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10162         r_res = ST_ARG(1);
10163         push(r_res);
10164         push(1);
10165         r_res = (int)probeSymbolDefined("number?",topLevel);
10166         if (r_res==0) goto __else443;
10167         if (! ((SymbolEntry*)r_res)->isDefined) goto __else443;
10168         r_res = (int)((SymbolEntry*)r_res)->sob;
10169         goto __endIf443;
10170 __else443:
10171         fprintf(stderr,"Symbol number\? not defined"); exit(-1);
10172 __endIf443:
10173         if (IS_SOB_CLOSURE(r_res)) goto __app290;
10174         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10175 __app290:
10176         push((int)SOB_CLOSURE_ENV(r_res));
10177         push((int)&&__ret385);
10178         goto *(SOB_CLOSURE_CODE(r_res));
10179 __ret385:
10180         sp = sp-2-stack[sp-2];
10181         goto __endIf441;
10182 __else441:
10183         r_res = (int)&sc_false;
10184 __endIf441:
10185         if ((SchemeObject*)r_res==&sc_false) goto __else440;
10186
10187         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10188         r_res = ST_ARG(1);
10189         push(r_res);
10190         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10191         r_res = ST_ARG(0);
10192         push(r_res);
10193         push(2);
10194         r_res = (int)probeSymbolDefined("=",topLevel);
10195         if (r_res==0) goto __else444;
10196         if (! ((SymbolEntry*)r_res)->isDefined) goto __else444;
10197         r_res = (int)((SymbolEntry*)r_res)->sob;
10198         goto __endIf444;
10199 __else444:
10200         fprintf(stderr,"Symbol = not defined"); exit(-1);
10201 __endIf444:
10202         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10203         push((int)SOB_CLOSURE_ENV(r_res));
10204         push(ST_RET());
10205         shiftActFrmDown();
10206         goto *(SOB_CLOSURE_CODE(r_res));
10207         sp = sp-2-stack[sp-2];
10208         goto __endIf440;
10209 __else440:
10210
10211         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10212         r_res = ST_ARG(0);
10213         push(r_res);
10214         push(1);
10215         r_res = (int)probeSymbolDefined("string?",topLevel);
10216         if (r_res==0) goto __else447;
10217         if (! ((SymbolEntry*)r_res)->isDefined) goto __else447;
10218         r_res = (int)((SymbolEntry*)r_res)->sob;
10219         goto __endIf447;
10220 __else447:
10221         fprintf(stderr,"Symbol string\? not defined"); exit(-1);
10222 __endIf447:
10223         if (IS_SOB_CLOSURE(r_res)) goto __app291;
10224         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10225 __app291:
10226         push((int)SOB_CLOSURE_ENV(r_res));
10227         push((int)&&__ret386);
10228         goto *(SOB_CLOSURE_CODE(r_res));
10229 __ret386:
10230         sp = sp-2-stack[sp-2];
10231         if ((SchemeObject*)r_res==&sc_false) goto __else446;
10232
10233         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10234         r_res = ST_ARG(1);
10235         push(r_res);
10236         push(1);
10237         r_res = (int)probeSymbolDefined("string?",topLevel);
10238         if (r_res==0) goto __else448;
10239         if (! ((SymbolEntry*)r_res)->isDefined) goto __else448;
10240         r_res = (int)((SymbolEntry*)r_res)->sob;
10241         goto __endIf448;
10242 __else448:
10243         fprintf(stderr,"Symbol string\? not defined"); exit(-1);
10244 __endIf448:
10245         if (IS_SOB_CLOSURE(r_res)) goto __app292;
10246         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10247 __app292:
10248         push((int)SOB_CLOSURE_ENV(r_res));
10249         push((int)&&__ret387);
10250         goto *(SOB_CLOSURE_CODE(r_res));
10251 __ret387:
10252         sp = sp-2-stack[sp-2];
10253         goto __endIf446;
10254 __else446:
10255         r_res = (int)&sc_false;
10256 __endIf446:
10257         if ((SchemeObject*)r_res==&sc_false) goto __else445;
10258
10259         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10260         r_res = ST_ARG(1);
10261         push(r_res);
10262         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10263         r_res = ST_ARG(0);
10264         push(r_res);
10265         push(2);
10266         r_res = (int)probeSymbolDefined("string=?",topLevel);
10267         if (r_res==0) goto __else449;
10268         if (! ((SymbolEntry*)r_res)->isDefined) goto __else449;
10269         r_res = (int)((SymbolEntry*)r_res)->sob;
10270         goto __endIf449;
10271 __else449:
10272         fprintf(stderr,"Symbol string=\? not defined"); exit(-1);
10273 __endIf449:
10274         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10275         push((int)SOB_CLOSURE_ENV(r_res));
10276         push(ST_RET());
10277         shiftActFrmDown();
10278         goto *(SOB_CLOSURE_CODE(r_res));
10279         sp = sp-2-stack[sp-2];
10280         goto __endIf445;
10281 __else445:
10282
10283         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10284         r_res = ST_ARG(0);
10285         push(r_res);
10286         push(1);
10287         r_res = (int)probeSymbolDefined("symbol?",topLevel);
10288         if (r_res==0) goto __else452;
10289         if (! ((SymbolEntry*)r_res)->isDefined) goto __else452;
10290         r_res = (int)((SymbolEntry*)r_res)->sob;
10291         goto __endIf452;
10292 __else452:
10293         fprintf(stderr,"Symbol symbol\? not defined"); exit(-1);
10294 __endIf452:
10295         if (IS_SOB_CLOSURE(r_res)) goto __app293;
10296         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10297 __app293:
10298         push((int)SOB_CLOSURE_ENV(r_res));
10299         push((int)&&__ret388);
10300         goto *(SOB_CLOSURE_CODE(r_res));
10301 __ret388:
10302         sp = sp-2-stack[sp-2];
10303         if ((SchemeObject*)r_res==&sc_false) goto __else451;
10304
10305         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10306         r_res = ST_ARG(1);
10307         push(r_res);
10308         push(1);
10309         r_res = (int)probeSymbolDefined("symbol?",topLevel);
10310         if (r_res==0) goto __else453;
10311         if (! ((SymbolEntry*)r_res)->isDefined) goto __else453;
10312         r_res = (int)((SymbolEntry*)r_res)->sob;
10313         goto __endIf453;
10314 __else453:
10315         fprintf(stderr,"Symbol symbol\? not defined"); exit(-1);
10316 __endIf453:
10317         if (IS_SOB_CLOSURE(r_res)) goto __app294;
10318         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10319 __app294:
10320         push((int)SOB_CLOSURE_ENV(r_res));
10321         push((int)&&__ret389);
10322         goto *(SOB_CLOSURE_CODE(r_res));
10323 __ret389:
10324         sp = sp-2-stack[sp-2];
10325         goto __endIf451;
10326 __else451:
10327         r_res = (int)&sc_false;
10328 __endIf451:
10329         if ((SchemeObject*)r_res==&sc_false) goto __else450;
10330
10331         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10332         r_res = ST_ARG(1);
10333         push(r_res);
10334         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10335         r_res = ST_ARG(0);
10336         push(r_res);
10337         push(2);
10338         r_res = (int)probeSymbolDefined("eq?",topLevel);
10339         if (r_res==0) goto __else454;
10340         if (! ((SymbolEntry*)r_res)->isDefined) goto __else454;
10341         r_res = (int)((SymbolEntry*)r_res)->sob;
10342         goto __endIf454;
10343 __else454:
10344         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
10345 __endIf454:
10346         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10347         push((int)SOB_CLOSURE_ENV(r_res));
10348         push(ST_RET());
10349         shiftActFrmDown();
10350         goto *(SOB_CLOSURE_CODE(r_res));
10351         sp = sp-2-stack[sp-2];
10352         goto __endIf450;
10353 __else450:
10354
10355         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10356         r_res = ST_ARG(0);
10357         push(r_res);
10358         push(1);
10359         r_res = (int)probeSymbolDefined("void?",topLevel);
10360         if (r_res==0) goto __else457;
10361         if (! ((SymbolEntry*)r_res)->isDefined) goto __else457;
10362         r_res = (int)((SymbolEntry*)r_res)->sob;
10363         goto __endIf457;
10364 __else457:
10365         fprintf(stderr,"Symbol void\? not defined"); exit(-1);
10366 __endIf457:
10367         if (IS_SOB_CLOSURE(r_res)) goto __app295;
10368         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10369 __app295:
10370         push((int)SOB_CLOSURE_ENV(r_res));
10371         push((int)&&__ret390);
10372         goto *(SOB_CLOSURE_CODE(r_res));
10373 __ret390:
10374         sp = sp-2-stack[sp-2];
10375         if ((SchemeObject*)r_res==&sc_false) goto __else456;
10376
10377         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10378         r_res = ST_ARG(1);
10379         push(r_res);
10380         push(1);
10381         r_res = (int)probeSymbolDefined("void?",topLevel);
10382         if (r_res==0) goto __else458;
10383         if (! ((SymbolEntry*)r_res)->isDefined) goto __else458;
10384         r_res = (int)((SymbolEntry*)r_res)->sob;
10385         goto __endIf458;
10386 __else458:
10387         fprintf(stderr,"Symbol void\? not defined"); exit(-1);
10388 __endIf458:
10389         if (IS_SOB_CLOSURE(r_res)) goto __app296;
10390         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10391 __app296:
10392         push((int)SOB_CLOSURE_ENV(r_res));
10393         push((int)&&__ret391);
10394         goto *(SOB_CLOSURE_CODE(r_res));
10395 __ret391:
10396         sp = sp-2-stack[sp-2];
10397         goto __endIf456;
10398 __else456:
10399         r_res = (int)&sc_false;
10400 __endIf456:
10401         if ((SchemeObject*)r_res==&sc_false) goto __else455;
10402         r_res = (int)&sc_true;
10403         goto __endIf455;
10404 __else455:
10405         r_res = (int)&sc_false;
10406 __endIf455:
10407 __endIf450:
10408 __endIf445:
10409 __endIf440:
10410 __endIf435:
10411 __endIf430:
10412 __endIf426:
10413 __endIf415:
10414 __endIf404:
10415         fp = pop();
10416         RETURN();
10417 __skipBody113:
10418         r_res = (int)makeSchemeClosure((void*)r[0],&&__body113);
10419         r[0] = (int)getSymbol("equal?",topLevel);
10420         ((SymbolEntry*)r[0])->isDefined = 1;
10421         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10422         r_res = (int)&sc_void;
10423 __ret363:
10424         /* set return address */
10425         ST_RET() = (int)&&__ret392;
10426
10427         r_res = (int)&sc_false;
10428         if ((SchemeObject*)r_res==&sc_false) goto __else459;
10429         r_res = (int)&sc_false;
10430         goto __endIf459;
10431 __else459:
10432         r_res = (int)&sc_void;
10433 __endIf459:
10434         push(r_res);
10435         push(1);
10436         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10437         goto __skipBody114;
10438 __body114:
10439         push(fp);
10440         fp = sp;
10441         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10442         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10443         goto __skipBody115;
10444 __body115:
10445         push(fp);
10446         fp = sp;
10447         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10448         r_res = ((int**)ST_ENV())[0][0];
10449         fp = pop();
10450         RETURN();
10451 __skipBody115:
10452         r_res = (int)makeSchemeClosure((void*)r[0],&&__body115);
10453         fp = pop();
10454         RETURN();
10455 __skipBody114:
10456         r_res = (int)makeSchemeClosure((void*)r[0],&&__body114);
10457         if (IS_SOB_CLOSURE(r_res)) goto __app297;
10458         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10459 __app297:
10460         push((int)SOB_CLOSURE_ENV(r_res));
10461         push((int)&&__ret393);
10462         goto *(SOB_CLOSURE_CODE(r_res));
10463 __ret393:
10464         sp = sp-2-stack[sp-2];
10465         r[0] = (int)getSymbol("void",topLevel);
10466         ((SymbolEntry*)r[0])->isDefined = 1;
10467         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10468         r_res = (int)&sc_void;
10469 __ret392:
10470         /* set return address */
10471         ST_RET() = (int)&&__ret394;
10472
10473
10474         push(0);
10475         r_res = (int)probeSymbolDefined("void",topLevel);
10476         if (r_res==0) goto __else460;
10477         if (! ((SymbolEntry*)r_res)->isDefined) goto __else460;
10478         r_res = (int)((SymbolEntry*)r_res)->sob;
10479         goto __endIf460;
10480 __else460:
10481         fprintf(stderr,"Symbol void not defined"); exit(-1);
10482 __endIf460:
10483         if (IS_SOB_CLOSURE(r_res)) goto __app299;
10484         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10485 __app299:
10486         push((int)SOB_CLOSURE_ENV(r_res));
10487         push((int)&&__ret396);
10488         goto *(SOB_CLOSURE_CODE(r_res));
10489 __ret396:
10490         sp = sp-2-stack[sp-2];
10491         push(r_res);
10492         push(1);
10493         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10494         goto __skipBody116;
10495 __body116:
10496         push(fp);
10497         fp = sp;
10498         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10499         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10500         goto __skipBody117;
10501 __body117:
10502         push(fp);
10503         fp = sp;
10504         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10505
10506         r_res = ((int**)ST_ENV())[0][0];
10507         push(r_res);
10508         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10509         r_res = ST_ARG(0);
10510         push(r_res);
10511         push(2);
10512         r_res = (int)probeSymbolDefined("eq?",topLevel);
10513         if (r_res==0) goto __else461;
10514         if (! ((SymbolEntry*)r_res)->isDefined) goto __else461;
10515         r_res = (int)((SymbolEntry*)r_res)->sob;
10516         goto __endIf461;
10517 __else461:
10518         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
10519 __endIf461:
10520         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10521         push((int)SOB_CLOSURE_ENV(r_res));
10522         push(ST_RET());
10523         shiftActFrmDown();
10524         goto *(SOB_CLOSURE_CODE(r_res));
10525         sp = sp-2-stack[sp-2];
10526         fp = pop();
10527         RETURN();
10528 __skipBody117:
10529         r_res = (int)makeSchemeClosure((void*)r[0],&&__body117);
10530         fp = pop();
10531         RETURN();
10532 __skipBody116:
10533         r_res = (int)makeSchemeClosure((void*)r[0],&&__body116);
10534         if (IS_SOB_CLOSURE(r_res)) goto __app298;
10535         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10536 __app298:
10537         push((int)SOB_CLOSURE_ENV(r_res));
10538         push((int)&&__ret395);
10539         goto *(SOB_CLOSURE_CODE(r_res));
10540 __ret395:
10541         sp = sp-2-stack[sp-2];
10542         r[0] = (int)getSymbol("void?",topLevel);
10543         ((SymbolEntry*)r[0])->isDefined = 1;
10544         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10545         r_res = (int)&sc_void;
10546 __ret394:
10547         /* set return address */
10548         ST_RET() = (int)&&__ret397;
10549
10550         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10551         goto __skipBody118;
10552 __body118:
10553         push(fp);
10554         fp = sp;
10555         prepareStackForAbsOpt(1);
10556         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10557
10558
10559
10560         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10561         r_res = ST_ARG(0);
10562         push(r_res);
10563         r_res = (int)probeSymbolDefined("string->list",topLevel);
10564         if (r_res==0) goto __else462;
10565         if (! ((SymbolEntry*)r_res)->isDefined) goto __else462;
10566         r_res = (int)((SymbolEntry*)r_res)->sob;
10567         goto __endIf462;
10568 __else462:
10569         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
10570 __endIf462:
10571         push(r_res);
10572         push(2);
10573         r_res = (int)probeSymbolDefined("map",topLevel);
10574         if (r_res==0) goto __else463;
10575         if (! ((SymbolEntry*)r_res)->isDefined) goto __else463;
10576         r_res = (int)((SymbolEntry*)r_res)->sob;
10577         goto __endIf463;
10578 __else463:
10579         fprintf(stderr,"Symbol map not defined"); exit(-1);
10580 __endIf463:
10581         if (IS_SOB_CLOSURE(r_res)) goto __app301;
10582         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10583 __app301:
10584         push((int)SOB_CLOSURE_ENV(r_res));
10585         push((int)&&__ret399);
10586         goto *(SOB_CLOSURE_CODE(r_res));
10587 __ret399:
10588         sp = sp-2-stack[sp-2];
10589         push(r_res);
10590         r_res = (int)probeSymbolDefined("append",topLevel);
10591         if (r_res==0) goto __else464;
10592         if (! ((SymbolEntry*)r_res)->isDefined) goto __else464;
10593         r_res = (int)((SymbolEntry*)r_res)->sob;
10594         goto __endIf464;
10595 __else464:
10596         fprintf(stderr,"Symbol append not defined"); exit(-1);
10597 __endIf464:
10598         push(r_res);
10599         push(2);
10600         r_res = (int)probeSymbolDefined("apply",topLevel);
10601         if (r_res==0) goto __else465;
10602         if (! ((SymbolEntry*)r_res)->isDefined) goto __else465;
10603         r_res = (int)((SymbolEntry*)r_res)->sob;
10604         goto __endIf465;
10605 __else465:
10606         fprintf(stderr,"Symbol apply not defined"); exit(-1);
10607 __endIf465:
10608         if (IS_SOB_CLOSURE(r_res)) goto __app300;
10609         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10610 __app300:
10611         push((int)SOB_CLOSURE_ENV(r_res));
10612         push((int)&&__ret398);
10613         goto *(SOB_CLOSURE_CODE(r_res));
10614 __ret398:
10615         sp = sp-2-stack[sp-2];
10616         push(r_res);
10617         push(1);
10618         r_res = (int)probeSymbolDefined("list->string",topLevel);
10619         if (r_res==0) goto __else466;
10620         if (! ((SymbolEntry*)r_res)->isDefined) goto __else466;
10621         r_res = (int)((SymbolEntry*)r_res)->sob;
10622         goto __endIf466;
10623 __else466:
10624         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
10625 __endIf466:
10626         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10627         push((int)SOB_CLOSURE_ENV(r_res));
10628         push(ST_RET());
10629         shiftActFrmDown();
10630         goto *(SOB_CLOSURE_CODE(r_res));
10631         sp = sp-2-stack[sp-2];
10632         fp = pop();
10633         RETURN();
10634 __skipBody118:
10635         r_res = (int)makeSchemeClosure((void*)r[0],&&__body118);
10636         r[0] = (int)getSymbol("string-append",topLevel);
10637         ((SymbolEntry*)r[0])->isDefined = 1;
10638         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10639         r_res = (int)&sc_void;
10640 __ret397:
10641         /* set return address */
10642         ST_RET() = (int)&&__ret400;
10643
10644         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10645         goto __skipBody119;
10646 __body119:
10647         push(fp);
10648         fp = sp;
10649         prepareStackForAbsOpt(1);
10650         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10651
10652
10653
10654         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10655         r_res = ST_ARG(0);
10656         push(r_res);
10657         r_res = (int)probeSymbolDefined("vector->list",topLevel);
10658         if (r_res==0) goto __else467;
10659         if (! ((SymbolEntry*)r_res)->isDefined) goto __else467;
10660         r_res = (int)((SymbolEntry*)r_res)->sob;
10661         goto __endIf467;
10662 __else467:
10663         fprintf(stderr,"Symbol vector->list not defined"); exit(-1);
10664 __endIf467:
10665         push(r_res);
10666         push(2);
10667         r_res = (int)probeSymbolDefined("map",topLevel);
10668         if (r_res==0) goto __else468;
10669         if (! ((SymbolEntry*)r_res)->isDefined) goto __else468;
10670         r_res = (int)((SymbolEntry*)r_res)->sob;
10671         goto __endIf468;
10672 __else468:
10673         fprintf(stderr,"Symbol map not defined"); exit(-1);
10674 __endIf468:
10675         if (IS_SOB_CLOSURE(r_res)) goto __app303;
10676         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10677 __app303:
10678         push((int)SOB_CLOSURE_ENV(r_res));
10679         push((int)&&__ret402);
10680         goto *(SOB_CLOSURE_CODE(r_res));
10681 __ret402:
10682         sp = sp-2-stack[sp-2];
10683         push(r_res);
10684         r_res = (int)probeSymbolDefined("append",topLevel);
10685         if (r_res==0) goto __else469;
10686         if (! ((SymbolEntry*)r_res)->isDefined) goto __else469;
10687         r_res = (int)((SymbolEntry*)r_res)->sob;
10688         goto __endIf469;
10689 __else469:
10690         fprintf(stderr,"Symbol append not defined"); exit(-1);
10691 __endIf469:
10692         push(r_res);
10693         push(2);
10694         r_res = (int)probeSymbolDefined("apply",topLevel);
10695         if (r_res==0) goto __else470;
10696         if (! ((SymbolEntry*)r_res)->isDefined) goto __else470;
10697         r_res = (int)((SymbolEntry*)r_res)->sob;
10698         goto __endIf470;
10699 __else470:
10700         fprintf(stderr,"Symbol apply not defined"); exit(-1);
10701 __endIf470:
10702         if (IS_SOB_CLOSURE(r_res)) goto __app302;
10703         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10704 __app302:
10705         push((int)SOB_CLOSURE_ENV(r_res));
10706         push((int)&&__ret401);
10707         goto *(SOB_CLOSURE_CODE(r_res));
10708 __ret401:
10709         sp = sp-2-stack[sp-2];
10710         push(r_res);
10711         push(1);
10712         r_res = (int)probeSymbolDefined("list->vector",topLevel);
10713         if (r_res==0) goto __else471;
10714         if (! ((SymbolEntry*)r_res)->isDefined) goto __else471;
10715         r_res = (int)((SymbolEntry*)r_res)->sob;
10716         goto __endIf471;
10717 __else471:
10718         fprintf(stderr,"Symbol list->vector not defined"); exit(-1);
10719 __endIf471:
10720         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10721         push((int)SOB_CLOSURE_ENV(r_res));
10722         push(ST_RET());
10723         shiftActFrmDown();
10724         goto *(SOB_CLOSURE_CODE(r_res));
10725         sp = sp-2-stack[sp-2];
10726         fp = pop();
10727         RETURN();
10728 __skipBody119:
10729         r_res = (int)makeSchemeClosure((void*)r[0],&&__body119);
10730         r[0] = (int)getSymbol("vector-append",topLevel);
10731         ((SymbolEntry*)r[0])->isDefined = 1;
10732         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10733         r_res = (int)&sc_void;
10734 __ret400:
10735         /* set return address */
10736         ST_RET() = (int)&&__ret403;
10737
10738         r_res = (int)&sc_false;
10739         push(r_res);
10740         push(1);
10741         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10742         goto __skipBody120;
10743 __body120:
10744         push(fp);
10745         fp = sp;
10746         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10747
10748         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10749         r_res = ST_ARG(0);
10750         push(r_res);
10751         push(1);
10752         r_res = (int)probeSymbolDefined("box",topLevel);
10753         if (r_res==0) goto __else472;
10754         if (! ((SymbolEntry*)r_res)->isDefined) goto __else472;
10755         r_res = (int)((SymbolEntry*)r_res)->sob;
10756         goto __endIf472;
10757 __else472:
10758         fprintf(stderr,"Symbol box not defined"); exit(-1);
10759 __endIf472:
10760         if (IS_SOB_CLOSURE(r_res)) goto __app305;
10761         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10762 __app305:
10763         push((int)SOB_CLOSURE_ENV(r_res));
10764         push((int)&&__ret405);
10765         goto *(SOB_CLOSURE_CODE(r_res));
10766 __ret405:
10767         sp = sp-2-stack[sp-2];
10768         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10769         ST_ARG(0) = r_res;
10770         r_res = (int)&sc_void;
10771
10772         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10773         goto __skipBody121;
10774 __body121:
10775         push(fp);
10776         fp = sp;
10777         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10778
10779         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10780         r_res = ST_ARG(0);
10781         push(r_res);
10782         push(1);
10783         r_res = (int)probeSymbolDefined("null?",topLevel);
10784         if (r_res==0) goto __else474;
10785         if (! ((SymbolEntry*)r_res)->isDefined) goto __else474;
10786         r_res = (int)((SymbolEntry*)r_res)->sob;
10787         goto __endIf474;
10788 __else474:
10789         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
10790 __endIf474:
10791         if (IS_SOB_CLOSURE(r_res)) goto __app307;
10792         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10793 __app307:
10794         push((int)SOB_CLOSURE_ENV(r_res));
10795         push((int)&&__ret407);
10796         goto *(SOB_CLOSURE_CODE(r_res));
10797 __ret407:
10798         sp = sp-2-stack[sp-2];
10799         if ((SchemeObject*)r_res==&sc_false) goto __else473;
10800         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10801         r_res = ST_ARG(1);
10802         goto __endIf473;
10803 __else473:
10804
10805         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10806         r_res = ST_ARG(1);
10807         push(r_res);
10808
10809         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10810         r_res = ST_ARG(0);
10811         push(r_res);
10812         push(1);
10813         r_res = (int)probeSymbolDefined("cdr",topLevel);
10814         if (r_res==0) goto __else475;
10815         if (! ((SymbolEntry*)r_res)->isDefined) goto __else475;
10816         r_res = (int)((SymbolEntry*)r_res)->sob;
10817         goto __endIf475;
10818 __else475:
10819         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
10820 __endIf475:
10821         if (IS_SOB_CLOSURE(r_res)) goto __app309;
10822         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10823 __app309:
10824         push((int)SOB_CLOSURE_ENV(r_res));
10825         push((int)&&__ret409);
10826         goto *(SOB_CLOSURE_CODE(r_res));
10827 __ret409:
10828         sp = sp-2-stack[sp-2];
10829         push(r_res);
10830         push(2);
10831
10832         r_res = (int)&__sc_number67;
10833         push(r_res);
10834         r_res = ((int**)ST_ENV())[0][0];
10835         push(r_res);
10836         push(2);
10837         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
10838         if (r_res==0) goto __else476;
10839         if (! ((SymbolEntry*)r_res)->isDefined) goto __else476;
10840         r_res = (int)((SymbolEntry*)r_res)->sob;
10841         goto __endIf476;
10842 __else476:
10843         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
10844 __endIf476:
10845         if (IS_SOB_CLOSURE(r_res)) goto __app310;
10846         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10847 __app310:
10848         push((int)SOB_CLOSURE_ENV(r_res));
10849         push((int)&&__ret410);
10850         goto *(SOB_CLOSURE_CODE(r_res));
10851 __ret410:
10852         sp = sp-2-stack[sp-2];
10853         if (IS_SOB_CLOSURE(r_res)) goto __app308;
10854         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10855 __app308:
10856         push((int)SOB_CLOSURE_ENV(r_res));
10857         push((int)&&__ret408);
10858         goto *(SOB_CLOSURE_CODE(r_res));
10859 __ret408:
10860         sp = sp-2-stack[sp-2];
10861         push(r_res);
10862
10863         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10864         r_res = ST_ARG(0);
10865         push(r_res);
10866         push(1);
10867         r_res = (int)probeSymbolDefined("car",topLevel);
10868         if (r_res==0) goto __else477;
10869         if (! ((SymbolEntry*)r_res)->isDefined) goto __else477;
10870         r_res = (int)((SymbolEntry*)r_res)->sob;
10871         goto __endIf477;
10872 __else477:
10873         fprintf(stderr,"Symbol car not defined"); exit(-1);
10874 __endIf477:
10875         if (IS_SOB_CLOSURE(r_res)) goto __app311;
10876         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10877 __app311:
10878         push((int)SOB_CLOSURE_ENV(r_res));
10879         push((int)&&__ret411);
10880         goto *(SOB_CLOSURE_CODE(r_res));
10881 __ret411:
10882         sp = sp-2-stack[sp-2];
10883         push(r_res);
10884         push(2);
10885         r_res = (int)probeSymbolDefined("cons",topLevel);
10886         if (r_res==0) goto __else478;
10887         if (! ((SymbolEntry*)r_res)->isDefined) goto __else478;
10888         r_res = (int)((SymbolEntry*)r_res)->sob;
10889         goto __endIf478;
10890 __else478:
10891         fprintf(stderr,"Symbol cons not defined"); exit(-1);
10892 __endIf478:
10893         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10894         push((int)SOB_CLOSURE_ENV(r_res));
10895         push(ST_RET());
10896         shiftActFrmDown();
10897         goto *(SOB_CLOSURE_CODE(r_res));
10898         sp = sp-2-stack[sp-2];
10899 __endIf473:
10900         fp = pop();
10901         RETURN();
10902 __skipBody121:
10903         r_res = (int)makeSchemeClosure((void*)r[0],&&__body121);
10904         push(r_res);
10905         r_res = (int)&__sc_number68;
10906         push(r_res);
10907         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10908         r_res = ST_ARG(0);
10909         push(r_res);
10910         push(3);
10911         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
10912         if (r_res==0) goto __else479;
10913         if (! ((SymbolEntry*)r_res)->isDefined) goto __else479;
10914         r_res = (int)((SymbolEntry*)r_res)->sob;
10915         goto __endIf479;
10916 __else479:
10917         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
10918 __endIf479:
10919         if (IS_SOB_CLOSURE(r_res)) goto __app306;
10920         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10921 __app306:
10922         push((int)SOB_CLOSURE_ENV(r_res));
10923         push((int)&&__ret406);
10924         goto *(SOB_CLOSURE_CODE(r_res));
10925 __ret406:
10926         sp = sp-2-stack[sp-2];
10927         push(0);
10928         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10929         goto __skipBody122;
10930 __body122:
10931         push(fp);
10932         fp = sp;
10933         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10934         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
10935         goto __skipBody123;
10936 __body123:
10937         push(fp);
10938         fp = sp;
10939         prepareStackForAbsOpt(1);
10940         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10941
10942         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10943         r_res = ST_ARG(0);
10944         push(r_res);
10945         r_res = (int)&sc_nil;
10946         push(r_res);
10947
10948         r_res = (int)&__sc_number69;
10949         push(r_res);
10950         r_res = ((int**)ST_ENV())[1][0];
10951         push(r_res);
10952         push(2);
10953         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
10954         if (r_res==0) goto __else480;
10955         if (! ((SymbolEntry*)r_res)->isDefined) goto __else480;
10956         r_res = (int)((SymbolEntry*)r_res)->sob;
10957         goto __endIf480;
10958 __else480:
10959         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
10960 __endIf480:
10961         if (IS_SOB_CLOSURE(r_res)) goto __app312;
10962         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10963 __app312:
10964         push((int)SOB_CLOSURE_ENV(r_res));
10965         push((int)&&__ret412);
10966         goto *(SOB_CLOSURE_CODE(r_res));
10967 __ret412:
10968         sp = sp-2-stack[sp-2];
10969         push(r_res);
10970         push(3);
10971         r_res = (int)probeSymbolDefined("foldr",topLevel);
10972         if (r_res==0) goto __else481;
10973         if (! ((SymbolEntry*)r_res)->isDefined) goto __else481;
10974         r_res = (int)((SymbolEntry*)r_res)->sob;
10975         goto __endIf481;
10976 __else481:
10977         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
10978 __endIf481:
10979         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10980         push((int)SOB_CLOSURE_ENV(r_res));
10981         push(ST_RET());
10982         shiftActFrmDown();
10983         goto *(SOB_CLOSURE_CODE(r_res));
10984         sp = sp-2-stack[sp-2];
10985         fp = pop();
10986         RETURN();
10987 __skipBody123:
10988         r_res = (int)makeSchemeClosure((void*)r[0],&&__body123);
10989         fp = pop();
10990         RETURN();
10991 __skipBody122:
10992         r_res = (int)makeSchemeClosure((void*)r[0],&&__body122);
10993         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10994         push((int)SOB_CLOSURE_ENV(r_res));
10995         push(ST_RET());
10996         shiftActFrmDown();
10997         goto *(SOB_CLOSURE_CODE(r_res));
10998         sp = sp-2-stack[sp-2];
10999         fp = pop();
11000         RETURN();
11001 __skipBody120:
11002         r_res = (int)makeSchemeClosure((void*)r[0],&&__body120);
11003         if (IS_SOB_CLOSURE(r_res)) goto __app304;
11004         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11005 __app304:
11006         push((int)SOB_CLOSURE_ENV(r_res));
11007         push((int)&&__ret404);
11008         goto *(SOB_CLOSURE_CODE(r_res));
11009 __ret404:
11010         sp = sp-2-stack[sp-2];
11011         r[0] = (int)getSymbol("append",topLevel);
11012         ((SymbolEntry*)r[0])->isDefined = 1;
11013         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11014         r_res = (int)&sc_void;
11015 __ret403:
11016         /* set return address */
11017         ST_RET() = (int)&&__ret413;
11018
11019         r_res = (int)&sc_false;
11020         push(r_res);
11021         push(1);
11022         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11023         goto __skipBody124;
11024 __body124:
11025         push(fp);
11026         fp = sp;
11027         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11028
11029         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11030         r_res = ST_ARG(0);
11031         push(r_res);
11032         push(1);
11033         r_res = (int)probeSymbolDefined("box",topLevel);
11034         if (r_res==0) goto __else482;
11035         if (! ((SymbolEntry*)r_res)->isDefined) goto __else482;
11036         r_res = (int)((SymbolEntry*)r_res)->sob;
11037         goto __endIf482;
11038 __else482:
11039         fprintf(stderr,"Symbol box not defined"); exit(-1);
11040 __endIf482:
11041         if (IS_SOB_CLOSURE(r_res)) goto __app314;
11042         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11043 __app314:
11044         push((int)SOB_CLOSURE_ENV(r_res));
11045         push((int)&&__ret415);
11046         goto *(SOB_CLOSURE_CODE(r_res));
11047 __ret415:
11048         sp = sp-2-stack[sp-2];
11049         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11050         ST_ARG(0) = r_res;
11051         r_res = (int)&sc_void;
11052
11053         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11054         goto __skipBody125;
11055 __body125:
11056         push(fp);
11057         fp = sp;
11058         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11059
11060         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11061         r_res = ST_ARG(0);
11062         push(r_res);
11063         push(1);
11064         r_res = (int)probeSymbolDefined("null?",topLevel);
11065         if (r_res==0) goto __else484;
11066         if (! ((SymbolEntry*)r_res)->isDefined) goto __else484;
11067         r_res = (int)((SymbolEntry*)r_res)->sob;
11068         goto __endIf484;
11069 __else484:
11070         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
11071 __endIf484:
11072         if (IS_SOB_CLOSURE(r_res)) goto __app316;
11073         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11074 __app316:
11075         push((int)SOB_CLOSURE_ENV(r_res));
11076         push((int)&&__ret417);
11077         goto *(SOB_CLOSURE_CODE(r_res));
11078 __ret417:
11079         sp = sp-2-stack[sp-2];
11080         if ((SchemeObject*)r_res==&sc_false) goto __else483;
11081         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11082         r_res = ST_ARG(1);
11083         goto __endIf483;
11084 __else483:
11085
11086         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11087         r_res = ST_ARG(1);
11088         push(r_res);
11089
11090         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11091         r_res = ST_ARG(0);
11092         push(r_res);
11093         push(1);
11094         r_res = (int)probeSymbolDefined("car",topLevel);
11095         if (r_res==0) goto __else485;
11096         if (! ((SymbolEntry*)r_res)->isDefined) goto __else485;
11097         r_res = (int)((SymbolEntry*)r_res)->sob;
11098         goto __endIf485;
11099 __else485:
11100         fprintf(stderr,"Symbol car not defined"); exit(-1);
11101 __endIf485:
11102         if (IS_SOB_CLOSURE(r_res)) goto __app318;
11103         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11104 __app318:
11105         push((int)SOB_CLOSURE_ENV(r_res));
11106         push((int)&&__ret419);
11107         goto *(SOB_CLOSURE_CODE(r_res));
11108 __ret419:
11109         sp = sp-2-stack[sp-2];
11110         push(r_res);
11111         push(2);
11112         r_res = (int)probeSymbolDefined("cons",topLevel);
11113         if (r_res==0) goto __else486;
11114         if (! ((SymbolEntry*)r_res)->isDefined) goto __else486;
11115         r_res = (int)((SymbolEntry*)r_res)->sob;
11116         goto __endIf486;
11117 __else486:
11118         fprintf(stderr,"Symbol cons not defined"); exit(-1);
11119 __endIf486:
11120         if (IS_SOB_CLOSURE(r_res)) goto __app317;
11121         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11122 __app317:
11123         push((int)SOB_CLOSURE_ENV(r_res));
11124         push((int)&&__ret418);
11125         goto *(SOB_CLOSURE_CODE(r_res));
11126 __ret418:
11127         sp = sp-2-stack[sp-2];
11128         push(r_res);
11129
11130         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11131         r_res = ST_ARG(0);
11132         push(r_res);
11133         push(1);
11134         r_res = (int)probeSymbolDefined("cdr",topLevel);
11135         if (r_res==0) goto __else487;
11136         if (! ((SymbolEntry*)r_res)->isDefined) goto __else487;
11137         r_res = (int)((SymbolEntry*)r_res)->sob;
11138         goto __endIf487;
11139 __else487:
11140         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
11141 __endIf487:
11142         if (IS_SOB_CLOSURE(r_res)) goto __app319;
11143         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11144 __app319:
11145         push((int)SOB_CLOSURE_ENV(r_res));
11146         push((int)&&__ret420);
11147         goto *(SOB_CLOSURE_CODE(r_res));
11148 __ret420:
11149         sp = sp-2-stack[sp-2];
11150         push(r_res);
11151         push(2);
11152
11153         r_res = (int)&__sc_number70;
11154         push(r_res);
11155         r_res = ((int**)ST_ENV())[0][0];
11156         push(r_res);
11157         push(2);
11158         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
11159         if (r_res==0) goto __else488;
11160         if (! ((SymbolEntry*)r_res)->isDefined) goto __else488;
11161         r_res = (int)((SymbolEntry*)r_res)->sob;
11162         goto __endIf488;
11163 __else488:
11164         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
11165 __endIf488:
11166         if (IS_SOB_CLOSURE(r_res)) goto __app320;
11167         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11168 __app320:
11169         push((int)SOB_CLOSURE_ENV(r_res));
11170         push((int)&&__ret421);
11171         goto *(SOB_CLOSURE_CODE(r_res));
11172 __ret421:
11173         sp = sp-2-stack[sp-2];
11174         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11175         push((int)SOB_CLOSURE_ENV(r_res));
11176         push(ST_RET());
11177         shiftActFrmDown();
11178         goto *(SOB_CLOSURE_CODE(r_res));
11179         sp = sp-2-stack[sp-2];
11180 __endIf483:
11181         fp = pop();
11182         RETURN();
11183 __skipBody125:
11184         r_res = (int)makeSchemeClosure((void*)r[0],&&__body125);
11185         push(r_res);
11186         r_res = (int)&__sc_number71;
11187         push(r_res);
11188         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11189         r_res = ST_ARG(0);
11190         push(r_res);
11191         push(3);
11192         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
11193         if (r_res==0) goto __else489;
11194         if (! ((SymbolEntry*)r_res)->isDefined) goto __else489;
11195         r_res = (int)((SymbolEntry*)r_res)->sob;
11196         goto __endIf489;
11197 __else489:
11198         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
11199 __endIf489:
11200         if (IS_SOB_CLOSURE(r_res)) goto __app315;
11201         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11202 __app315:
11203         push((int)SOB_CLOSURE_ENV(r_res));
11204         push((int)&&__ret416);
11205         goto *(SOB_CLOSURE_CODE(r_res));
11206 __ret416:
11207         sp = sp-2-stack[sp-2];
11208         push(0);
11209         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11210         goto __skipBody126;
11211 __body126:
11212         push(fp);
11213         fp = sp;
11214         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11215         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
11216         goto __skipBody127;
11217 __body127:
11218         push(fp);
11219         fp = sp;
11220         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11221         r_res = (int)&sc_nil;
11222         push(r_res);
11223         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11224         r_res = ST_ARG(0);
11225         push(r_res);
11226         push(2);
11227
11228         r_res = (int)&__sc_number72;
11229         push(r_res);
11230         r_res = ((int**)ST_ENV())[1][0];
11231         push(r_res);
11232         push(2);
11233         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
11234         if (r_res==0) goto __else490;
11235         if (! ((SymbolEntry*)r_res)->isDefined) goto __else490;
11236         r_res = (int)((SymbolEntry*)r_res)->sob;
11237         goto __endIf490;
11238 __else490:
11239         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
11240 __endIf490:
11241         if (IS_SOB_CLOSURE(r_res)) goto __app321;
11242         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11243 __app321:
11244         push((int)SOB_CLOSURE_ENV(r_res));
11245         push((int)&&__ret422);
11246         goto *(SOB_CLOSURE_CODE(r_res));
11247 __ret422:
11248         sp = sp-2-stack[sp-2];
11249         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11250         push((int)SOB_CLOSURE_ENV(r_res));
11251         push(ST_RET());
11252         shiftActFrmDown();
11253         goto *(SOB_CLOSURE_CODE(r_res));
11254         sp = sp-2-stack[sp-2];
11255         fp = pop();
11256         RETURN();
11257 __skipBody127:
11258         r_res = (int)makeSchemeClosure((void*)r[0],&&__body127);
11259         fp = pop();
11260         RETURN();
11261 __skipBody126:
11262         r_res = (int)makeSchemeClosure((void*)r[0],&&__body126);
11263         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11264         push((int)SOB_CLOSURE_ENV(r_res));
11265         push(ST_RET());
11266         shiftActFrmDown();
11267         goto *(SOB_CLOSURE_CODE(r_res));
11268         sp = sp-2-stack[sp-2];
11269         fp = pop();
11270         RETURN();
11271 __skipBody124:
11272         r_res = (int)makeSchemeClosure((void*)r[0],&&__body124);
11273         if (IS_SOB_CLOSURE(r_res)) goto __app313;
11274         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11275 __app313:
11276         push((int)SOB_CLOSURE_ENV(r_res));
11277         push((int)&&__ret414);
11278         goto *(SOB_CLOSURE_CODE(r_res));
11279 __ret414:
11280         sp = sp-2-stack[sp-2];
11281         r[0] = (int)getSymbol("reverse",topLevel);
11282         ((SymbolEntry*)r[0])->isDefined = 1;
11283         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11284         r_res = (int)&sc_void;
11285 __ret413:
11286         /* set return address */
11287         ST_RET() = (int)&&__ret423;
11288
11289
11290         r_res = (int)probeSymbolDefined("string->list",topLevel);
11291         if (r_res==0) goto __else491;
11292         if (! ((SymbolEntry*)r_res)->isDefined) goto __else491;
11293         r_res = (int)((SymbolEntry*)r_res)->sob;
11294         goto __endIf491;
11295 __else491:
11296         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
11297 __endIf491:
11298         push(r_res);
11299         r_res = (int)probeSymbolDefined("reverse",topLevel);
11300         if (r_res==0) goto __else492;
11301         if (! ((SymbolEntry*)r_res)->isDefined) goto __else492;
11302         r_res = (int)((SymbolEntry*)r_res)->sob;
11303         goto __endIf492;
11304 __else492:
11305         fprintf(stderr,"Symbol reverse not defined"); exit(-1);
11306 __endIf492:
11307         push(r_res);
11308         r_res = (int)probeSymbolDefined("list->string",topLevel);
11309         if (r_res==0) goto __else493;
11310         if (! ((SymbolEntry*)r_res)->isDefined) goto __else493;
11311         r_res = (int)((SymbolEntry*)r_res)->sob;
11312         goto __endIf493;
11313 __else493:
11314         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
11315 __endIf493:
11316         push(r_res);
11317         push(3);
11318         r_res = (int)probeSymbolDefined("compose",topLevel);
11319         if (r_res==0) goto __else494;
11320         if (! ((SymbolEntry*)r_res)->isDefined) goto __else494;
11321         r_res = (int)((SymbolEntry*)r_res)->sob;
11322         goto __endIf494;
11323 __else494:
11324         fprintf(stderr,"Symbol compose not defined"); exit(-1);
11325 __endIf494:
11326         if (IS_SOB_CLOSURE(r_res)) goto __app322;
11327         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11328 __app322:
11329         push((int)SOB_CLOSURE_ENV(r_res));
11330         push((int)&&__ret424);
11331         goto *(SOB_CLOSURE_CODE(r_res));
11332 __ret424:
11333         sp = sp-2-stack[sp-2];
11334         r[0] = (int)getSymbol("string-reverse",topLevel);
11335         ((SymbolEntry*)r[0])->isDefined = 1;
11336         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11337         r_res = (int)&sc_void;
11338 __ret423:
11339         /* set return address */
11340         ST_RET() = (int)&&__ret425;
11341
11342         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11343         goto __skipBody128;
11344 __body128:
11345         push(fp);
11346         fp = sp;
11347         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11348
11349         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11350         r_res = ST_ARG(1);
11351         push(r_res);
11352         push(1);
11353         r_res = (int)probeSymbolDefined("zero?",topLevel);
11354         if (r_res==0) goto __else496;
11355         if (! ((SymbolEntry*)r_res)->isDefined) goto __else496;
11356         r_res = (int)((SymbolEntry*)r_res)->sob;
11357         goto __endIf496;
11358 __else496:
11359         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
11360 __endIf496:
11361         if (IS_SOB_CLOSURE(r_res)) goto __app323;
11362         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11363 __app323:
11364         push((int)SOB_CLOSURE_ENV(r_res));
11365         push((int)&&__ret426);
11366         goto *(SOB_CLOSURE_CODE(r_res));
11367 __ret426:
11368         sp = sp-2-stack[sp-2];
11369         if ((SchemeObject*)r_res==&sc_false) goto __else495;
11370
11371         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11372         r_res = ST_ARG(0);
11373         push(r_res);
11374         push(1);
11375         r_res = (int)probeSymbolDefined("car",topLevel);
11376         if (r_res==0) goto __else497;
11377         if (! ((SymbolEntry*)r_res)->isDefined) goto __else497;
11378         r_res = (int)((SymbolEntry*)r_res)->sob;
11379         goto __endIf497;
11380 __else497:
11381         fprintf(stderr,"Symbol car not defined"); exit(-1);
11382 __endIf497:
11383         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11384         push((int)SOB_CLOSURE_ENV(r_res));
11385         push(ST_RET());
11386         shiftActFrmDown();
11387         goto *(SOB_CLOSURE_CODE(r_res));
11388         sp = sp-2-stack[sp-2];
11389         goto __endIf495;
11390 __else495:
11391
11392
11393         r_res = (int)&__sc_number73;
11394         push(r_res);
11395         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11396         r_res = ST_ARG(1);
11397         push(r_res);
11398         push(2);
11399         r_res = (int)probeSymbolDefined("-",topLevel);
11400         if (r_res==0) goto __else498;
11401         if (! ((SymbolEntry*)r_res)->isDefined) goto __else498;
11402         r_res = (int)((SymbolEntry*)r_res)->sob;
11403         goto __endIf498;
11404 __else498:
11405         fprintf(stderr,"Symbol - not defined"); exit(-1);
11406 __endIf498:
11407         if (IS_SOB_CLOSURE(r_res)) goto __app324;
11408         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11409 __app324:
11410         push((int)SOB_CLOSURE_ENV(r_res));
11411         push((int)&&__ret427);
11412         goto *(SOB_CLOSURE_CODE(r_res));
11413 __ret427:
11414         sp = sp-2-stack[sp-2];
11415         push(r_res);
11416
11417         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11418         r_res = ST_ARG(0);
11419         push(r_res);
11420         push(1);
11421         r_res = (int)probeSymbolDefined("cdr",topLevel);
11422         if (r_res==0) goto __else499;
11423         if (! ((SymbolEntry*)r_res)->isDefined) goto __else499;
11424         r_res = (int)((SymbolEntry*)r_res)->sob;
11425         goto __endIf499;
11426 __else499:
11427         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
11428 __endIf499:
11429         if (IS_SOB_CLOSURE(r_res)) goto __app325;
11430         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11431 __app325:
11432         push((int)SOB_CLOSURE_ENV(r_res));
11433         push((int)&&__ret428);
11434         goto *(SOB_CLOSURE_CODE(r_res));
11435 __ret428:
11436         sp = sp-2-stack[sp-2];
11437         push(r_res);
11438         push(2);
11439         r_res = (int)probeSymbolDefined("list-ref",topLevel);
11440         if (r_res==0) goto __else500;
11441         if (! ((SymbolEntry*)r_res)->isDefined) goto __else500;
11442         r_res = (int)((SymbolEntry*)r_res)->sob;
11443         goto __endIf500;
11444 __else500:
11445         fprintf(stderr,"Symbol list-ref not defined"); exit(-1);
11446 __endIf500:
11447         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11448         push((int)SOB_CLOSURE_ENV(r_res));
11449         push(ST_RET());
11450         shiftActFrmDown();
11451         goto *(SOB_CLOSURE_CODE(r_res));
11452         sp = sp-2-stack[sp-2];
11453 __endIf495:
11454         fp = pop();
11455         RETURN();
11456 __skipBody128:
11457         r_res = (int)makeSchemeClosure((void*)r[0],&&__body128);
11458         r[0] = (int)getSymbol("list-ref",topLevel);
11459         ((SymbolEntry*)r[0])->isDefined = 1;
11460         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11461         r_res = (int)&sc_void;
11462 __ret425:
11463         /* set return address */
11464         ST_RET() = (int)&&__ret429;
11465
11466         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11467         goto __skipBody129;
11468 __body129:
11469         push(fp);
11470         fp = sp;
11471         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11472
11473         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11474         r_res = ST_ARG(1);
11475         push(r_res);
11476         push(1);
11477         r_res = (int)probeSymbolDefined("zero?",topLevel);
11478         if (r_res==0) goto __else502;
11479         if (! ((SymbolEntry*)r_res)->isDefined) goto __else502;
11480         r_res = (int)((SymbolEntry*)r_res)->sob;
11481         goto __endIf502;
11482 __else502:
11483         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
11484 __endIf502:
11485         if (IS_SOB_CLOSURE(r_res)) goto __app326;
11486         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11487 __app326:
11488         push((int)SOB_CLOSURE_ENV(r_res));
11489         push((int)&&__ret430);
11490         goto *(SOB_CLOSURE_CODE(r_res));
11491 __ret430:
11492         sp = sp-2-stack[sp-2];
11493         if ((SchemeObject*)r_res==&sc_false) goto __else501;
11494
11495         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
11496         r_res = ST_ARG(2);
11497         push(r_res);
11498         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11499         r_res = ST_ARG(0);
11500         push(r_res);
11501         push(2);
11502         r_res = (int)probeSymbolDefined("set-car!",topLevel);
11503         if (r_res==0) goto __else503;
11504         if (! ((SymbolEntry*)r_res)->isDefined) goto __else503;
11505         r_res = (int)((SymbolEntry*)r_res)->sob;
11506         goto __endIf503;
11507 __else503:
11508         fprintf(stderr,"Symbol set-car! not defined"); exit(-1);
11509 __endIf503:
11510         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11511         push((int)SOB_CLOSURE_ENV(r_res));
11512         push(ST_RET());
11513         shiftActFrmDown();
11514         goto *(SOB_CLOSURE_CODE(r_res));
11515         sp = sp-2-stack[sp-2];
11516         goto __endIf501;
11517 __else501:
11518
11519         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
11520         r_res = ST_ARG(2);
11521         push(r_res);
11522
11523         r_res = (int)&__sc_number74;
11524         push(r_res);
11525         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11526         r_res = ST_ARG(1);
11527         push(r_res);
11528         push(2);
11529         r_res = (int)probeSymbolDefined("-",topLevel);
11530         if (r_res==0) goto __else504;
11531         if (! ((SymbolEntry*)r_res)->isDefined) goto __else504;
11532         r_res = (int)((SymbolEntry*)r_res)->sob;
11533         goto __endIf504;
11534 __else504:
11535         fprintf(stderr,"Symbol - not defined"); exit(-1);
11536 __endIf504:
11537         if (IS_SOB_CLOSURE(r_res)) goto __app327;
11538         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11539 __app327:
11540         push((int)SOB_CLOSURE_ENV(r_res));
11541         push((int)&&__ret431);
11542         goto *(SOB_CLOSURE_CODE(r_res));
11543 __ret431:
11544         sp = sp-2-stack[sp-2];
11545         push(r_res);
11546
11547         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11548         r_res = ST_ARG(0);
11549         push(r_res);
11550         push(1);
11551         r_res = (int)probeSymbolDefined("cdr",topLevel);
11552         if (r_res==0) goto __else505;
11553         if (! ((SymbolEntry*)r_res)->isDefined) goto __else505;
11554         r_res = (int)((SymbolEntry*)r_res)->sob;
11555         goto __endIf505;
11556 __else505:
11557         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
11558 __endIf505:
11559         if (IS_SOB_CLOSURE(r_res)) goto __app328;
11560         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11561 __app328:
11562         push((int)SOB_CLOSURE_ENV(r_res));
11563         push((int)&&__ret432);
11564         goto *(SOB_CLOSURE_CODE(r_res));
11565 __ret432:
11566         sp = sp-2-stack[sp-2];
11567         push(r_res);
11568         push(3);
11569         r_res = (int)probeSymbolDefined("list-set!",topLevel);
11570         if (r_res==0) goto __else506;
11571         if (! ((SymbolEntry*)r_res)->isDefined) goto __else506;
11572         r_res = (int)((SymbolEntry*)r_res)->sob;
11573         goto __endIf506;
11574 __else506:
11575         fprintf(stderr,"Symbol list-set! not defined"); exit(-1);
11576 __endIf506:
11577         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11578         push((int)SOB_CLOSURE_ENV(r_res));
11579         push(ST_RET());
11580         shiftActFrmDown();
11581         goto *(SOB_CLOSURE_CODE(r_res));
11582         sp = sp-2-stack[sp-2];
11583 __endIf501:
11584         fp = pop();
11585         RETURN();
11586 __skipBody129:
11587         r_res = (int)makeSchemeClosure((void*)r[0],&&__body129);
11588         r[0] = (int)getSymbol("list-set!",topLevel);
11589         ((SymbolEntry*)r[0])->isDefined = 1;
11590         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11591         r_res = (int)&sc_void;
11592 __ret429:
11593         /* set return address */
11594         ST_RET() = (int)&&__ret433;
11595
11596         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11597         goto __skipBody130;
11598 __body130:
11599         push(fp);
11600         fp = sp;
11601         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11602
11603         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11604         r_res = ST_ARG(1);
11605         push(r_res);
11606         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11607         r_res = ST_ARG(0);
11608         push(r_res);
11609         push(2);
11610         r_res = (int)probeSymbolDefined(">",topLevel);
11611         if (r_res==0) goto __else508;
11612         if (! ((SymbolEntry*)r_res)->isDefined) goto __else508;
11613         r_res = (int)((SymbolEntry*)r_res)->sob;
11614         goto __endIf508;
11615 __else508:
11616         fprintf(stderr,"Symbol > not defined"); exit(-1);
11617 __endIf508:
11618         if (IS_SOB_CLOSURE(r_res)) goto __app330;
11619         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11620 __app330:
11621         push((int)SOB_CLOSURE_ENV(r_res));
11622         push((int)&&__ret435);
11623         goto *(SOB_CLOSURE_CODE(r_res));
11624 __ret435:
11625         sp = sp-2-stack[sp-2];
11626         if ((SchemeObject*)r_res==&sc_false) goto __else507;
11627         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11628         r_res = ST_ARG(0);
11629         goto __endIf507;
11630 __else507:
11631         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11632         r_res = ST_ARG(1);
11633 __endIf507:
11634         fp = pop();
11635         RETURN();
11636 __skipBody130:
11637         r_res = (int)makeSchemeClosure((void*)r[0],&&__body130);
11638         push(r_res);
11639         push(1);
11640         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11641         goto __skipBody131;
11642 __body131:
11643         push(fp);
11644         fp = sp;
11645         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11646         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11647         goto __skipBody132;
11648 __body132:
11649         push(fp);
11650         fp = sp;
11651         prepareStackForAbsOpt(2);
11652         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11653
11654         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11655         r_res = ST_ARG(1);
11656         push(r_res);
11657         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11658         r_res = ST_ARG(0);
11659         push(r_res);
11660         r_res = ((int**)ST_ENV())[0][0];
11661         push(r_res);
11662         push(3);
11663         r_res = (int)probeSymbolDefined("foldr",topLevel);
11664         if (r_res==0) goto __else509;
11665         if (! ((SymbolEntry*)r_res)->isDefined) goto __else509;
11666         r_res = (int)((SymbolEntry*)r_res)->sob;
11667         goto __endIf509;
11668 __else509:
11669         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
11670 __endIf509:
11671         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11672         push((int)SOB_CLOSURE_ENV(r_res));
11673         push(ST_RET());
11674         shiftActFrmDown();
11675         goto *(SOB_CLOSURE_CODE(r_res));
11676         sp = sp-2-stack[sp-2];
11677         fp = pop();
11678         RETURN();
11679 __skipBody132:
11680         r_res = (int)makeSchemeClosure((void*)r[0],&&__body132);
11681         fp = pop();
11682         RETURN();
11683 __skipBody131:
11684         r_res = (int)makeSchemeClosure((void*)r[0],&&__body131);
11685         if (IS_SOB_CLOSURE(r_res)) goto __app329;
11686         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11687 __app329:
11688         push((int)SOB_CLOSURE_ENV(r_res));
11689         push((int)&&__ret434);
11690         goto *(SOB_CLOSURE_CODE(r_res));
11691 __ret434:
11692         sp = sp-2-stack[sp-2];
11693         r[0] = (int)getSymbol("max",topLevel);
11694         ((SymbolEntry*)r[0])->isDefined = 1;
11695         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11696         r_res = (int)&sc_void;
11697 __ret433:
11698         /* set return address */
11699         ST_RET() = (int)&&__ret436;
11700
11701         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11702         goto __skipBody133;
11703 __body133:
11704         push(fp);
11705         fp = sp;
11706         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11707
11708         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11709         r_res = ST_ARG(1);
11710         push(r_res);
11711         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11712         r_res = ST_ARG(0);
11713         push(r_res);
11714         push(2);
11715         r_res = (int)probeSymbolDefined("<",topLevel);
11716         if (r_res==0) goto __else511;
11717         if (! ((SymbolEntry*)r_res)->isDefined) goto __else511;
11718         r_res = (int)((SymbolEntry*)r_res)->sob;
11719         goto __endIf511;
11720 __else511:
11721         fprintf(stderr,"Symbol < not defined"); exit(-1);
11722 __endIf511:
11723         if (IS_SOB_CLOSURE(r_res)) goto __app332;
11724         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11725 __app332:
11726         push((int)SOB_CLOSURE_ENV(r_res));
11727         push((int)&&__ret438);
11728         goto *(SOB_CLOSURE_CODE(r_res));
11729 __ret438:
11730         sp = sp-2-stack[sp-2];
11731         if ((SchemeObject*)r_res==&sc_false) goto __else510;
11732         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11733         r_res = ST_ARG(0);
11734         goto __endIf510;
11735 __else510:
11736         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11737         r_res = ST_ARG(1);
11738 __endIf510:
11739         fp = pop();
11740         RETURN();
11741 __skipBody133:
11742         r_res = (int)makeSchemeClosure((void*)r[0],&&__body133);
11743         push(r_res);
11744         push(1);
11745         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11746         goto __skipBody134;
11747 __body134:
11748         push(fp);
11749         fp = sp;
11750         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11751         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11752         goto __skipBody135;
11753 __body135:
11754         push(fp);
11755         fp = sp;
11756         prepareStackForAbsOpt(2);
11757         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11758
11759         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11760         r_res = ST_ARG(1);
11761         push(r_res);
11762         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11763         r_res = ST_ARG(0);
11764         push(r_res);
11765         r_res = ((int**)ST_ENV())[0][0];
11766         push(r_res);
11767         push(3);
11768         r_res = (int)probeSymbolDefined("foldr",topLevel);
11769         if (r_res==0) goto __else512;
11770         if (! ((SymbolEntry*)r_res)->isDefined) goto __else512;
11771         r_res = (int)((SymbolEntry*)r_res)->sob;
11772         goto __endIf512;
11773 __else512:
11774         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
11775 __endIf512:
11776         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11777         push((int)SOB_CLOSURE_ENV(r_res));
11778         push(ST_RET());
11779         shiftActFrmDown();
11780         goto *(SOB_CLOSURE_CODE(r_res));
11781         sp = sp-2-stack[sp-2];
11782         fp = pop();
11783         RETURN();
11784 __skipBody135:
11785         r_res = (int)makeSchemeClosure((void*)r[0],&&__body135);
11786         fp = pop();
11787         RETURN();
11788 __skipBody134:
11789         r_res = (int)makeSchemeClosure((void*)r[0],&&__body134);
11790         if (IS_SOB_CLOSURE(r_res)) goto __app331;
11791         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11792 __app331:
11793         push((int)SOB_CLOSURE_ENV(r_res));
11794         push((int)&&__ret437);
11795         goto *(SOB_CLOSURE_CODE(r_res));
11796 __ret437:
11797         sp = sp-2-stack[sp-2];
11798         r[0] = (int)getSymbol("min",topLevel);
11799         ((SymbolEntry*)r[0])->isDefined = 1;
11800         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11801         r_res = (int)&sc_void;
11802 __ret436:
11803         /* set return address */
11804         ST_RET() = (int)&&__ret439;
11805
11806         r_res = (int)&sc_false;
11807         push(r_res);
11808         push(1);
11809         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11810         goto __skipBody136;
11811 __body136:
11812         push(fp);
11813         fp = sp;
11814         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11815
11816         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11817         r_res = ST_ARG(0);
11818         push(r_res);
11819         push(1);
11820         r_res = (int)probeSymbolDefined("box",topLevel);
11821         if (r_res==0) goto __else513;
11822         if (! ((SymbolEntry*)r_res)->isDefined) goto __else513;
11823         r_res = (int)((SymbolEntry*)r_res)->sob;
11824         goto __endIf513;
11825 __else513:
11826         fprintf(stderr,"Symbol box not defined"); exit(-1);
11827 __endIf513:
11828         if (IS_SOB_CLOSURE(r_res)) goto __app334;
11829         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11830 __app334:
11831         push((int)SOB_CLOSURE_ENV(r_res));
11832         push((int)&&__ret441);
11833         goto *(SOB_CLOSURE_CODE(r_res));
11834 __ret441:
11835         sp = sp-2-stack[sp-2];
11836         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11837         ST_ARG(0) = r_res;
11838         r_res = (int)&sc_void;
11839
11840         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11841         goto __skipBody137;
11842 __body137:
11843         push(fp);
11844         fp = sp;
11845         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11846
11847         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11848         r_res = ST_ARG(1);
11849         push(r_res);
11850         push(1);
11851         r_res = (int)probeSymbolDefined("zero?",topLevel);
11852         if (r_res==0) goto __else515;
11853         if (! ((SymbolEntry*)r_res)->isDefined) goto __else515;
11854         r_res = (int)((SymbolEntry*)r_res)->sob;
11855         goto __endIf515;
11856 __else515:
11857         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
11858 __endIf515:
11859         if (IS_SOB_CLOSURE(r_res)) goto __app336;
11860         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11861 __app336:
11862         push((int)SOB_CLOSURE_ENV(r_res));
11863         push((int)&&__ret443);
11864         goto *(SOB_CLOSURE_CODE(r_res));
11865 __ret443:
11866         sp = sp-2-stack[sp-2];
11867         if ((SchemeObject*)r_res==&sc_false) goto __else514;
11868         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11869         r_res = ST_ARG(0);
11870         goto __endIf514;
11871 __else514:
11872
11873         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11874         r_res = ST_ARG(1);
11875         push(r_res);
11876         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11877         r_res = ST_ARG(0);
11878         push(r_res);
11879         push(2);
11880         r_res = (int)probeSymbolDefined("remainder",topLevel);
11881         if (r_res==0) goto __else516;
11882         if (! ((SymbolEntry*)r_res)->isDefined) goto __else516;
11883         r_res = (int)((SymbolEntry*)r_res)->sob;
11884         goto __endIf516;
11885 __else516:
11886         fprintf(stderr,"Symbol remainder not defined"); exit(-1);
11887 __endIf516:
11888         if (IS_SOB_CLOSURE(r_res)) goto __app337;
11889         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11890 __app337:
11891         push((int)SOB_CLOSURE_ENV(r_res));
11892         push((int)&&__ret444);
11893         goto *(SOB_CLOSURE_CODE(r_res));
11894 __ret444:
11895         sp = sp-2-stack[sp-2];
11896         push(r_res);
11897         push(1);
11898         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
11899         goto __skipBody138;
11900 __body138:
11901         push(fp);
11902         fp = sp;
11903         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11904
11905         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11906         r_res = ST_ARG(0);
11907         push(r_res);
11908         push(1);
11909         r_res = (int)probeSymbolDefined("zero?",topLevel);
11910         if (r_res==0) goto __else518;
11911         if (! ((SymbolEntry*)r_res)->isDefined) goto __else518;
11912         r_res = (int)((SymbolEntry*)r_res)->sob;
11913         goto __endIf518;
11914 __else518:
11915         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
11916 __endIf518:
11917         if (IS_SOB_CLOSURE(r_res)) goto __app338;
11918         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11919 __app338:
11920         push((int)SOB_CLOSURE_ENV(r_res));
11921         push((int)&&__ret445);
11922         goto *(SOB_CLOSURE_CODE(r_res));
11923 __ret445:
11924         sp = sp-2-stack[sp-2];
11925         if ((SchemeObject*)r_res==&sc_false) goto __else517;
11926         r_res = ((int**)ST_ENV())[0][1];
11927         goto __endIf517;
11928 __else517:
11929         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11930         r_res = ST_ARG(0);
11931         push(r_res);
11932         r_res = ((int**)ST_ENV())[0][1];
11933         push(r_res);
11934         push(2);
11935
11936         r_res = (int)&__sc_number75;
11937         push(r_res);
11938         r_res = ((int**)ST_ENV())[1][0];
11939         push(r_res);
11940         push(2);
11941         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
11942         if (r_res==0) goto __else519;
11943         if (! ((SymbolEntry*)r_res)->isDefined) goto __else519;
11944         r_res = (int)((SymbolEntry*)r_res)->sob;
11945         goto __endIf519;
11946 __else519:
11947         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
11948 __endIf519:
11949         if (IS_SOB_CLOSURE(r_res)) goto __app339;
11950         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11951 __app339:
11952         push((int)SOB_CLOSURE_ENV(r_res));
11953         push((int)&&__ret446);
11954         goto *(SOB_CLOSURE_CODE(r_res));
11955 __ret446:
11956         sp = sp-2-stack[sp-2];
11957         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11958         push((int)SOB_CLOSURE_ENV(r_res));
11959         push(ST_RET());
11960         shiftActFrmDown();
11961         goto *(SOB_CLOSURE_CODE(r_res));
11962         sp = sp-2-stack[sp-2];
11963 __endIf517:
11964         fp = pop();
11965         RETURN();
11966 __skipBody138:
11967         r_res = (int)makeSchemeClosure((void*)r[0],&&__body138);
11968         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11969         push((int)SOB_CLOSURE_ENV(r_res));
11970         push(ST_RET());
11971         shiftActFrmDown();
11972         goto *(SOB_CLOSURE_CODE(r_res));
11973         sp = sp-2-stack[sp-2];
11974 __endIf514:
11975         fp = pop();
11976         RETURN();
11977 __skipBody137:
11978         r_res = (int)makeSchemeClosure((void*)r[0],&&__body137);
11979         push(r_res);
11980         r_res = (int)&__sc_number76;
11981         push(r_res);
11982         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11983         r_res = ST_ARG(0);
11984         push(r_res);
11985         push(3);
11986         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
11987         if (r_res==0) goto __else520;
11988         if (! ((SymbolEntry*)r_res)->isDefined) goto __else520;
11989         r_res = (int)((SymbolEntry*)r_res)->sob;
11990         goto __endIf520;
11991 __else520:
11992         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
11993 __endIf520:
11994         if (IS_SOB_CLOSURE(r_res)) goto __app335;
11995         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11996 __app335:
11997         push((int)SOB_CLOSURE_ENV(r_res));
11998         push((int)&&__ret442);
11999         goto *(SOB_CLOSURE_CODE(r_res));
12000 __ret442:
12001         sp = sp-2-stack[sp-2];
12002         push(0);
12003         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
12004         goto __skipBody139;
12005 __body139:
12006         push(fp);
12007         fp = sp;
12008         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12009         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
12010         goto __skipBody140;
12011 __body140:
12012         push(fp);
12013         fp = sp;
12014         prepareStackForAbsOpt(2);
12015         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12016
12017         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12018         r_res = ST_ARG(1);
12019         push(r_res);
12020         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12021         r_res = ST_ARG(0);
12022         push(r_res);
12023
12024         r_res = (int)&__sc_number77;
12025         push(r_res);
12026         r_res = ((int**)ST_ENV())[1][0];
12027         push(r_res);
12028         push(2);
12029         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
12030         if (r_res==0) goto __else521;
12031         if (! ((SymbolEntry*)r_res)->isDefined) goto __else521;
12032         r_res = (int)((SymbolEntry*)r_res)->sob;
12033         goto __endIf521;
12034 __else521:
12035         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
12036 __endIf521:
12037         if (IS_SOB_CLOSURE(r_res)) goto __app340;
12038         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12039 __app340:
12040         push((int)SOB_CLOSURE_ENV(r_res));
12041         push((int)&&__ret447);
12042         goto *(SOB_CLOSURE_CODE(r_res));
12043 __ret447:
12044         sp = sp-2-stack[sp-2];
12045         push(r_res);
12046         push(3);
12047         r_res = (int)probeSymbolDefined("foldr",topLevel);
12048         if (r_res==0) goto __else522;
12049         if (! ((SymbolEntry*)r_res)->isDefined) goto __else522;
12050         r_res = (int)((SymbolEntry*)r_res)->sob;
12051         goto __endIf522;
12052 __else522:
12053         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
12054 __endIf522:
12055         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12056         push((int)SOB_CLOSURE_ENV(r_res));
12057         push(ST_RET());
12058         shiftActFrmDown();
12059         goto *(SOB_CLOSURE_CODE(r_res));
12060         sp = sp-2-stack[sp-2];
12061         fp = pop();
12062         RETURN();
12063 __skipBody140:
12064         r_res = (int)makeSchemeClosure((void*)r[0],&&__body140);
12065         fp = pop();
12066         RETURN();
12067 __skipBody139:
12068         r_res = (int)makeSchemeClosure((void*)r[0],&&__body139);
12069         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12070         push((int)SOB_CLOSURE_ENV(r_res));
12071         push(ST_RET());
12072         shiftActFrmDown();
12073         goto *(SOB_CLOSURE_CODE(r_res));
12074         sp = sp-2-stack[sp-2];
12075         fp = pop();
12076         RETURN();
12077 __skipBody136:
12078         r_res = (int)makeSchemeClosure((void*)r[0],&&__body136);
12079         if (IS_SOB_CLOSURE(r_res)) goto __app333;
12080         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12081 __app333:
12082         push((int)SOB_CLOSURE_ENV(r_res));
12083         push((int)&&__ret440);
12084         goto *(SOB_CLOSURE_CODE(r_res));
12085 __ret440:
12086         sp = sp-2-stack[sp-2];
12087         r[0] = (int)getSymbol("gcd",topLevel);
12088         ((SymbolEntry*)r[0])->isDefined = 1;
12089         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12090         r_res = (int)&sc_void;
12091 __ret439:
12092         /* set return address */
12093         ST_RET() = (int)&&__ret448;
12094
12095         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12096         goto __skipBody141;
12097 __body141:
12098         push(fp);
12099         fp = sp;
12100         prepareStackForAbsOpt(1);
12101         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12102
12103
12104         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12105         r_res = ST_ARG(0);
12106         push(r_res);
12107         r_res = (int)probeSymbolDefined("gcd",topLevel);
12108         if (r_res==0) goto __else523;
12109         if (! ((SymbolEntry*)r_res)->isDefined) goto __else523;
12110         r_res = (int)((SymbolEntry*)r_res)->sob;
12111         goto __endIf523;
12112 __else523:
12113         fprintf(stderr,"Symbol gcd not defined"); exit(-1);
12114 __endIf523:
12115         push(r_res);
12116         push(2);
12117         r_res = (int)probeSymbolDefined("apply",topLevel);
12118         if (r_res==0) goto __else524;
12119         if (! ((SymbolEntry*)r_res)->isDefined) goto __else524;
12120         r_res = (int)((SymbolEntry*)r_res)->sob;
12121         goto __endIf524;
12122 __else524:
12123         fprintf(stderr,"Symbol apply not defined"); exit(-1);
12124 __endIf524:
12125         if (IS_SOB_CLOSURE(r_res)) goto __app341;
12126         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12127 __app341:
12128         push((int)SOB_CLOSURE_ENV(r_res));
12129         push((int)&&__ret449);
12130         goto *(SOB_CLOSURE_CODE(r_res));
12131 __ret449:
12132         sp = sp-2-stack[sp-2];
12133         push(r_res);
12134
12135         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12136         r_res = ST_ARG(0);
12137         push(r_res);
12138         r_res = (int)probeSymbolDefined("*",topLevel);
12139         if (r_res==0) goto __else525;
12140         if (! ((SymbolEntry*)r_res)->isDefined) goto __else525;
12141         r_res = (int)((SymbolEntry*)r_res)->sob;
12142         goto __endIf525;
12143 __else525:
12144         fprintf(stderr,"Symbol * not defined"); exit(-1);
12145 __endIf525:
12146         push(r_res);
12147         push(2);
12148         r_res = (int)probeSymbolDefined("apply",topLevel);
12149         if (r_res==0) goto __else526;
12150         if (! ((SymbolEntry*)r_res)->isDefined) goto __else526;
12151         r_res = (int)((SymbolEntry*)r_res)->sob;
12152         goto __endIf526;
12153 __else526:
12154         fprintf(stderr,"Symbol apply not defined"); exit(-1);
12155 __endIf526:
12156         if (IS_SOB_CLOSURE(r_res)) goto __app342;
12157         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12158 __app342:
12159         push((int)SOB_CLOSURE_ENV(r_res));
12160         push((int)&&__ret450);
12161         goto *(SOB_CLOSURE_CODE(r_res));
12162 __ret450:
12163         sp = sp-2-stack[sp-2];
12164         push(r_res);
12165         push(2);
12166         r_res = (int)probeSymbolDefined("/",topLevel);
12167         if (r_res==0) goto __else527;
12168         if (! ((SymbolEntry*)r_res)->isDefined) goto __else527;
12169         r_res = (int)((SymbolEntry*)r_res)->sob;
12170         goto __endIf527;
12171 __else527:
12172         fprintf(stderr,"Symbol / not defined"); exit(-1);
12173 __endIf527:
12174         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12175         push((int)SOB_CLOSURE_ENV(r_res));
12176         push(ST_RET());
12177         shiftActFrmDown();
12178         goto *(SOB_CLOSURE_CODE(r_res));
12179         sp = sp-2-stack[sp-2];
12180         fp = pop();
12181         RETURN();
12182 __skipBody141:
12183         r_res = (int)makeSchemeClosure((void*)r[0],&&__body141);
12184         r[0] = (int)getSymbol("lcm",topLevel);
12185         ((SymbolEntry*)r[0])->isDefined = 1;
12186         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12187         r_res = (int)&sc_void;
12188 __ret448:
12189         ;
12190
12191 /* End of Support-Code: Code Segment */