inc/initial.cseg~

   1
   2 /* Support-Code: Code Segment */
   3         /* set return address */
   4         ST_RET() = (int)&&__ret1;
   5
   6         r[0] = (int)extendEnviroment( (int**)NULL, 0);
   7         goto __skipBody1;
   8 __body1:
   9         push(fp);
  10         fp = sp;
  11         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
  12
  13         r_res = (int)&__sc_number;
  14         push(r_res);
  15         push(1);
  16         r_res = (int)probeSymbolDefined("make-vector",topLevel);
  17         if (r_res==0) goto __else1;
  18         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1;
  19         r_res = (int)((SymbolEntry*)r_res)->sob;
  20         goto __endIf1;
  21 __else1:
  22         fprintf(stderr,"Symbol make-vector not defined"); exit(-1);
  23 __endIf1:
  24         if (IS_SOB_CLOSURE(r_res)) goto __app1;
  25         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
  26 __app1:
  27         push((int)SOB_CLOSURE_ENV(r_res));
  28         push((int)&&__ret2);
  29         goto *(SOB_CLOSURE_CODE(r_res));
  30 __ret2:
  31         sp = sp-2-stack[sp-2];
  32         push(r_res);
  33         push(1);
  34         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
  35         goto __skipBody2;
  36 __body2:
  37         push(fp);
  38         fp = sp;
  39         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
  40
  41         r_res = ((int**)ST_ENV())[0][0];
  42         push(r_res);
  43         r_res = (int)&__sc_number0;
  44         push(r_res);
  45         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
  46         r_res = ST_ARG(0);
  47         push(r_res);
  48         push(3);
  49         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
  50         if (r_res==0) goto __else2;
  51         if (! ((SymbolEntry*)r_res)->isDefined) goto __else2;
  52         r_res = (int)((SymbolEntry*)r_res)->sob;
  53         goto __endIf2;
  54 __else2:
  55         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
  56 __endIf2:
  57         if (IS_SOB_CLOSURE(r_res)) goto __app2;
  58         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
  59 __app2:
  60         push((int)SOB_CLOSURE_ENV(r_res));
  61         push((int)&&__ret3);
  62         goto *(SOB_CLOSURE_CODE(r_res));
  63 __ret3:
  64         sp = sp-2-stack[sp-2];
  65         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
  66         r_res = ST_ARG(0);
  67         fp = pop();
  68         RETURN();
  69 __skipBody2:
  70         r_res = (int)makeSchemeClosure((void*)r[0],&&__body2);
  71         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
  72         push((int)SOB_CLOSURE_ENV(r_res));
  73         push(ST_RET());
  74         shiftActFrmDown();
  75         goto *(SOB_CLOSURE_CODE(r_res));
  76         sp = sp-2-stack[sp-2];
  77         fp = pop();
  78         RETURN();
  79 __skipBody1:
  80         r_res = (int)makeSchemeClosure((void*)r[0],&&__body1);
  81         r[0] = (int)getSymbol("box",topLevel);
  82         ((SymbolEntry*)r[0])->isDefined = 1;
  83         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
  84         r_res = (int)&sc_void;
  85 __ret1:
  86         /* set return address */
  87         ST_RET() = (int)&&__ret4;
  88
  89         r[0] = (int)extendEnviroment( (int**)NULL, 0);
  90         goto __skipBody3;
  91 __body3:
  92         push(fp);
  93         fp = sp;
  94         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
  95         r_res = (int)&sc_false;
  96         push(r_res);
  97         push(1);
  98         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
  99         goto __skipBody4;
 100 __body4:
 101         push(fp);
 102         fp = sp;
 103         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 104
 105         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 106         r_res = ST_ARG(0);
 107         push(r_res);
 108         push(1);
 109         r_res = (int)probeSymbolDefined("box",topLevel);
 110         if (r_res==0) goto __else3;
 111         if (! ((SymbolEntry*)r_res)->isDefined) goto __else3;
 112         r_res = (int)((SymbolEntry*)r_res)->sob;
 113         goto __endIf3;
 114 __else3:
 115         fprintf(stderr,"Symbol box not defined"); exit(-1);
 116 __endIf3:
 117         if (IS_SOB_CLOSURE(r_res)) goto __app3;
 118         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 119 __app3:
 120         push((int)SOB_CLOSURE_ENV(r_res));
 121         push((int)&&__ret5);
 122         goto *(SOB_CLOSURE_CODE(r_res));
 123 __ret5:
 124         sp = sp-2-stack[sp-2];
 125         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 126         ST_ARG(0) = r_res;
 127         r_res = (int)&sc_void;
 128
 129         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
 130         goto __skipBody5;
 131 __body5:
 132         push(fp);
 133         fp = sp;
 134         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 135
 136         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 137         r_res = ST_ARG(0);
 138         push(r_res);
 139         push(1);
 140         r_res = (int)probeSymbolDefined("null?",topLevel);
 141         if (r_res==0) goto __else5;
 142         if (! ((SymbolEntry*)r_res)->isDefined) goto __else5;
 143         r_res = (int)((SymbolEntry*)r_res)->sob;
 144         goto __endIf5;
 145 __else5:
 146         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
 147 __endIf5:
 148         if (IS_SOB_CLOSURE(r_res)) goto __app5;
 149         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 150 __app5:
 151         push((int)SOB_CLOSURE_ENV(r_res));
 152         push((int)&&__ret7);
 153         goto *(SOB_CLOSURE_CODE(r_res));
 154 __ret7:
 155         sp = sp-2-stack[sp-2];
 156         if ((SchemeObject*)r_res==&sc_false) goto __else4;
 157         r_res = ((int**)ST_ENV())[1][1];
 158         goto __endIf4;
 159 __else4:
 160
 161
 162         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 163         r_res = ST_ARG(0);
 164         push(r_res);
 165         push(1);
 166         r_res = (int)probeSymbolDefined("cdr",topLevel);
 167         if (r_res==0) goto __else6;
 168         if (! ((SymbolEntry*)r_res)->isDefined) goto __else6;
 169         r_res = (int)((SymbolEntry*)r_res)->sob;
 170         goto __endIf6;
 171 __else6:
 172         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
 173 __endIf6:
 174         if (IS_SOB_CLOSURE(r_res)) goto __app7;
 175         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 176 __app7:
 177         push((int)SOB_CLOSURE_ENV(r_res));
 178         push((int)&&__ret9);
 179         goto *(SOB_CLOSURE_CODE(r_res));
 180 __ret9:
 181         sp = sp-2-stack[sp-2];
 182         push(r_res);
 183         push(1);
 184
 185         r_res = (int)&__sc_number1;
 186         push(r_res);
 187         r_res = ((int**)ST_ENV())[0][0];
 188         push(r_res);
 189         push(2);
 190         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
 191         if (r_res==0) goto __else7;
 192         if (! ((SymbolEntry*)r_res)->isDefined) goto __else7;
 193         r_res = (int)((SymbolEntry*)r_res)->sob;
 194         goto __endIf7;
 195 __else7:
 196         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
 197 __endIf7:
 198         if (IS_SOB_CLOSURE(r_res)) goto __app8;
 199         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 200 __app8:
 201         push((int)SOB_CLOSURE_ENV(r_res));
 202         push((int)&&__ret10);
 203         goto *(SOB_CLOSURE_CODE(r_res));
 204 __ret10:
 205         sp = sp-2-stack[sp-2];
 206         if (IS_SOB_CLOSURE(r_res)) goto __app6;
 207         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 208 __app6:
 209         push((int)SOB_CLOSURE_ENV(r_res));
 210         push((int)&&__ret8);
 211         goto *(SOB_CLOSURE_CODE(r_res));
 212 __ret8:
 213         sp = sp-2-stack[sp-2];
 214         push(r_res);
 215
 216         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 217         r_res = ST_ARG(0);
 218         push(r_res);
 219         push(1);
 220         r_res = (int)probeSymbolDefined("car",topLevel);
 221         if (r_res==0) goto __else8;
 222         if (! ((SymbolEntry*)r_res)->isDefined) goto __else8;
 223         r_res = (int)((SymbolEntry*)r_res)->sob;
 224         goto __endIf8;
 225 __else8:
 226         fprintf(stderr,"Symbol car not defined"); exit(-1);
 227 __endIf8:
 228         if (IS_SOB_CLOSURE(r_res)) goto __app9;
 229         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 230 __app9:
 231         push((int)SOB_CLOSURE_ENV(r_res));
 232         push((int)&&__ret11);
 233         goto *(SOB_CLOSURE_CODE(r_res));
 234 __ret11:
 235         sp = sp-2-stack[sp-2];
 236         push(r_res);
 237         push(2);
 238         r_res = ((int**)ST_ENV())[1][0];
 239         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 240         push((int)SOB_CLOSURE_ENV(r_res));
 241         push(ST_RET());
 242         shiftActFrmDown();
 243         goto *(SOB_CLOSURE_CODE(r_res));
 244         sp = sp-2-stack[sp-2];
 245 __endIf4:
 246         fp = pop();
 247         RETURN();
 248 __skipBody5:
 249         r_res = (int)makeSchemeClosure((void*)r[0],&&__body5);
 250         push(r_res);
 251         r_res = (int)&__sc_number2;
 252         push(r_res);
 253         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 254         r_res = ST_ARG(0);
 255         push(r_res);
 256         push(3);
 257         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
 258         if (r_res==0) goto __else9;
 259         if (! ((SymbolEntry*)r_res)->isDefined) goto __else9;
 260         r_res = (int)((SymbolEntry*)r_res)->sob;
 261         goto __endIf9;
 262 __else9:
 263         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
 264 __endIf9:
 265         if (IS_SOB_CLOSURE(r_res)) goto __app4;
 266         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 267 __app4:
 268         push((int)SOB_CLOSURE_ENV(r_res));
 269         push((int)&&__ret6);
 270         goto *(SOB_CLOSURE_CODE(r_res));
 271 __ret6:
 272         sp = sp-2-stack[sp-2];
 273         push(0);
 274         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
 275         goto __skipBody6;
 276 __body6:
 277         push(fp);
 278         fp = sp;
 279         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 280         r_res = ((int**)ST_ENV())[1][2];
 281         push(r_res);
 282         push(1);
 283
 284         r_res = (int)&__sc_number3;
 285         push(r_res);
 286         r_res = ((int**)ST_ENV())[0][0];
 287         push(r_res);
 288         push(2);
 289         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
 290         if (r_res==0) goto __else10;
 291         if (! ((SymbolEntry*)r_res)->isDefined) goto __else10;
 292         r_res = (int)((SymbolEntry*)r_res)->sob;
 293         goto __endIf10;
 294 __else10:
 295         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
 296 __endIf10:
 297         if (IS_SOB_CLOSURE(r_res)) goto __app10;
 298         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 299 __app10:
 300         push((int)SOB_CLOSURE_ENV(r_res));
 301         push((int)&&__ret12);
 302         goto *(SOB_CLOSURE_CODE(r_res));
 303 __ret12:
 304         sp = sp-2-stack[sp-2];
 305         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 306         push((int)SOB_CLOSURE_ENV(r_res));
 307         push(ST_RET());
 308         shiftActFrmDown();
 309         goto *(SOB_CLOSURE_CODE(r_res));
 310         sp = sp-2-stack[sp-2];
 311         fp = pop();
 312         RETURN();
 313 __skipBody6:
 314         r_res = (int)makeSchemeClosure((void*)r[0],&&__body6);
 315         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 316         push((int)SOB_CLOSURE_ENV(r_res));
 317         push(ST_RET());
 318         shiftActFrmDown();
 319         goto *(SOB_CLOSURE_CODE(r_res));
 320         sp = sp-2-stack[sp-2];
 321         fp = pop();
 322         RETURN();
 323 __skipBody4:
 324         r_res = (int)makeSchemeClosure((void*)r[0],&&__body4);
 325         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 326         push((int)SOB_CLOSURE_ENV(r_res));
 327         push(ST_RET());
 328         shiftActFrmDown();
 329         goto *(SOB_CLOSURE_CODE(r_res));
 330         sp = sp-2-stack[sp-2];
 331         fp = pop();
 332         RETURN();
 333 __skipBody3:
 334         r_res = (int)makeSchemeClosure((void*)r[0],&&__body3);
 335         r[0] = (int)getSymbol("foldr",topLevel);
 336         ((SymbolEntry*)r[0])->isDefined = 1;
 337         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 338         r_res = (int)&sc_void;
 339 __ret4:
 340         /* set return address */
 341         ST_RET() = (int)&&__ret13;
 342
 343         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 344         goto __skipBody7;
 345 __body7:
 346         push(fp);
 347         fp = sp;
 348         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 349
 350         r_res = (int)&__sc_number4;
 351         push(r_res);
 352         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 353         r_res = ST_ARG(0);
 354         push(r_res);
 355         push(2);
 356         r_res = (int)probeSymbolDefined("binary-add",topLevel);
 357         if (r_res==0) goto __else11;
 358         if (! ((SymbolEntry*)r_res)->isDefined) goto __else11;
 359         r_res = (int)((SymbolEntry*)r_res)->sob;
 360         goto __endIf11;
 361 __else11:
 362         fprintf(stderr,"Symbol binary-add not defined"); exit(-1);
 363 __endIf11:
 364         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 365         push((int)SOB_CLOSURE_ENV(r_res));
 366         push(ST_RET());
 367         shiftActFrmDown();
 368         goto *(SOB_CLOSURE_CODE(r_res));
 369         sp = sp-2-stack[sp-2];
 370         fp = pop();
 371         RETURN();
 372 __skipBody7:
 373         r_res = (int)makeSchemeClosure((void*)r[0],&&__body7);
 374         r[0] = (int)getSymbol("add1",topLevel);
 375         ((SymbolEntry*)r[0])->isDefined = 1;
 376         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 377         r_res = (int)&sc_void;
 378 __ret13:
 379         /* set return address */
 380         ST_RET() = (int)&&__ret14;
 381
 382         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 383         goto __skipBody8;
 384 __body8:
 385         push(fp);
 386         fp = sp;
 387         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 388
 389         r_res = (int)&__sc_number5;
 390         push(r_res);
 391         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 392         r_res = ST_ARG(0);
 393         push(r_res);
 394         push(2);
 395         r_res = (int)probeSymbolDefined("binary-sub",topLevel);
 396         if (r_res==0) goto __else12;
 397         if (! ((SymbolEntry*)r_res)->isDefined) goto __else12;
 398         r_res = (int)((SymbolEntry*)r_res)->sob;
 399         goto __endIf12;
 400 __else12:
 401         fprintf(stderr,"Symbol binary-sub not defined"); exit(-1);
 402 __endIf12:
 403         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 404         push((int)SOB_CLOSURE_ENV(r_res));
 405         push(ST_RET());
 406         shiftActFrmDown();
 407         goto *(SOB_CLOSURE_CODE(r_res));
 408         sp = sp-2-stack[sp-2];
 409         fp = pop();
 410         RETURN();
 411 __skipBody8:
 412         r_res = (int)makeSchemeClosure((void*)r[0],&&__body8);
 413         r[0] = (int)getSymbol("sub1",topLevel);
 414         ((SymbolEntry*)r[0])->isDefined = 1;
 415         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 416         r_res = (int)&sc_void;
 417 __ret14:
 418         /* set return address */
 419         ST_RET() = (int)&&__ret15;
 420
 421         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 422         goto __skipBody9;
 423 __body9:
 424         push(fp);
 425         fp = sp;
 426         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 427         r_res = (int)&sc_false;
 428         push(r_res);
 429         push(1);
 430         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
 431         goto __skipBody10;
 432 __body10:
 433         push(fp);
 434         fp = sp;
 435         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 436
 437         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 438         r_res = ST_ARG(0);
 439         push(r_res);
 440         push(1);
 441         r_res = (int)probeSymbolDefined("box",topLevel);
 442         if (r_res==0) goto __else13;
 443         if (! ((SymbolEntry*)r_res)->isDefined) goto __else13;
 444         r_res = (int)((SymbolEntry*)r_res)->sob;
 445         goto __endIf13;
 446 __else13:
 447         fprintf(stderr,"Symbol box not defined"); exit(-1);
 448 __endIf13:
 449         if (IS_SOB_CLOSURE(r_res)) goto __app11;
 450         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 451 __app11:
 452         push((int)SOB_CLOSURE_ENV(r_res));
 453         push((int)&&__ret16);
 454         goto *(SOB_CLOSURE_CODE(r_res));
 455 __ret16:
 456         sp = sp-2-stack[sp-2];
 457         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 458         ST_ARG(0) = r_res;
 459         r_res = (int)&sc_void;
 460
 461         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
 462         goto __skipBody11;
 463 __body11:
 464         push(fp);
 465         fp = sp;
 466         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 467
 468         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 469         r_res = ST_ARG(1);
 470         push(r_res);
 471         push(1);
 472         r_res = (int)probeSymbolDefined("null?",topLevel);
 473         if (r_res==0) goto __else14;
 474         if (! ((SymbolEntry*)r_res)->isDefined) goto __else14;
 475         r_res = (int)((SymbolEntry*)r_res)->sob;
 476         goto __endIf14;
 477 __else14:
 478         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
 479 __endIf14:
 480         if (IS_SOB_CLOSURE(r_res)) goto __app13;
 481         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 482 __app13:
 483         push((int)SOB_CLOSURE_ENV(r_res));
 484         push((int)&&__ret18);
 485         goto *(SOB_CLOSURE_CODE(r_res));
 486 __ret18:
 487         sp = sp-2-stack[sp-2];
 488         if ((SchemeObject*)r_res!=&sc_false) goto __endOr1;
 489
 490
 491         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 492         r_res = ST_ARG(1);
 493         push(r_res);
 494         push(1);
 495         r_res = (int)probeSymbolDefined("car",topLevel);
 496         if (r_res==0) goto __else16;
 497         if (! ((SymbolEntry*)r_res)->isDefined) goto __else16;
 498         r_res = (int)((SymbolEntry*)r_res)->sob;
 499         goto __endIf16;
 500 __else16:
 501         fprintf(stderr,"Symbol car not defined"); exit(-1);
 502 __endIf16:
 503         if (IS_SOB_CLOSURE(r_res)) goto __app15;
 504         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 505 __app15:
 506         push((int)SOB_CLOSURE_ENV(r_res));
 507         push((int)&&__ret20);
 508         goto *(SOB_CLOSURE_CODE(r_res));
 509 __ret20:
 510         sp = sp-2-stack[sp-2];
 511         push(r_res);
 512         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 513         r_res = ST_ARG(0);
 514         push(r_res);
 515         push(2);
 516         r_res = ((int**)ST_ENV())[1][0];
 517         if (IS_SOB_CLOSURE(r_res)) goto __app14;
 518         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 519 __app14:
 520         push((int)SOB_CLOSURE_ENV(r_res));
 521         push((int)&&__ret19);
 522         goto *(SOB_CLOSURE_CODE(r_res));
 523 __ret19:
 524         sp = sp-2-stack[sp-2];
 525         if ((SchemeObject*)r_res==&sc_false) goto __else15;
 526
 527         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 528         r_res = ST_ARG(1);
 529         push(r_res);
 530         push(1);
 531         r_res = (int)probeSymbolDefined("cdr",topLevel);
 532         if (r_res==0) goto __else17;
 533         if (! ((SymbolEntry*)r_res)->isDefined) goto __else17;
 534         r_res = (int)((SymbolEntry*)r_res)->sob;
 535         goto __endIf17;
 536 __else17:
 537         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
 538 __endIf17:
 539         if (IS_SOB_CLOSURE(r_res)) goto __app16;
 540         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 541 __app16:
 542         push((int)SOB_CLOSURE_ENV(r_res));
 543         push((int)&&__ret21);
 544         goto *(SOB_CLOSURE_CODE(r_res));
 545 __ret21:
 546         sp = sp-2-stack[sp-2];
 547         push(r_res);
 548
 549         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 550         r_res = ST_ARG(1);
 551         push(r_res);
 552         push(1);
 553         r_res = (int)probeSymbolDefined("car",topLevel);
 554         if (r_res==0) goto __else18;
 555         if (! ((SymbolEntry*)r_res)->isDefined) goto __else18;
 556         r_res = (int)((SymbolEntry*)r_res)->sob;
 557         goto __endIf18;
 558 __else18:
 559         fprintf(stderr,"Symbol car not defined"); exit(-1);
 560 __endIf18:
 561         if (IS_SOB_CLOSURE(r_res)) goto __app17;
 562         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 563 __app17:
 564         push((int)SOB_CLOSURE_ENV(r_res));
 565         push((int)&&__ret22);
 566         goto *(SOB_CLOSURE_CODE(r_res));
 567 __ret22:
 568         sp = sp-2-stack[sp-2];
 569         push(r_res);
 570         push(2);
 571
 572         r_res = (int)&__sc_number6;
 573         push(r_res);
 574         r_res = ((int**)ST_ENV())[0][0];
 575         push(r_res);
 576         push(2);
 577         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
 578         if (r_res==0) goto __else19;
 579         if (! ((SymbolEntry*)r_res)->isDefined) goto __else19;
 580         r_res = (int)((SymbolEntry*)r_res)->sob;
 581         goto __endIf19;
 582 __else19:
 583         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
 584 __endIf19:
 585         if (IS_SOB_CLOSURE(r_res)) goto __app18;
 586         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 587 __app18:
 588         push((int)SOB_CLOSURE_ENV(r_res));
 589         push((int)&&__ret23);
 590         goto *(SOB_CLOSURE_CODE(r_res));
 591 __ret23:
 592         sp = sp-2-stack[sp-2];
 593         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 594         push((int)SOB_CLOSURE_ENV(r_res));
 595         push(ST_RET());
 596         shiftActFrmDown();
 597         goto *(SOB_CLOSURE_CODE(r_res));
 598         sp = sp-2-stack[sp-2];
 599         goto __endIf15;
 600 __else15:
 601         r_res = (int)&sc_false;
 602 __endIf15:
 603         if ((SchemeObject*)r_res!=&sc_false) goto __endOr1;
 604 __endOr1:
 605         fp = pop();
 606         RETURN();
 607 __skipBody11:
 608         r_res = (int)makeSchemeClosure((void*)r[0],&&__body11);
 609         push(r_res);
 610         r_res = (int)&__sc_number7;
 611         push(r_res);
 612         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 613         r_res = ST_ARG(0);
 614         push(r_res);
 615         push(3);
 616         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
 617         if (r_res==0) goto __else20;
 618         if (! ((SymbolEntry*)r_res)->isDefined) goto __else20;
 619         r_res = (int)((SymbolEntry*)r_res)->sob;
 620         goto __endIf20;
 621 __else20:
 622         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
 623 __endIf20:
 624         if (IS_SOB_CLOSURE(r_res)) goto __app12;
 625         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 626 __app12:
 627         push((int)SOB_CLOSURE_ENV(r_res));
 628         push((int)&&__ret17);
 629         goto *(SOB_CLOSURE_CODE(r_res));
 630 __ret17:
 631         sp = sp-2-stack[sp-2];
 632         push(0);
 633         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
 634         goto __skipBody12;
 635 __body12:
 636         push(fp);
 637         fp = sp;
 638         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 639         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
 640         goto __skipBody13;
 641 __body13:
 642         push(fp);
 643         fp = sp;
 644         prepareStackForAbsOpt(2);
 645         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 646         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 647         r_res = ST_ARG(1);
 648         push(r_res);
 649         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 650         r_res = ST_ARG(0);
 651         push(r_res);
 652         push(2);
 653
 654         r_res = (int)&__sc_number8;
 655         push(r_res);
 656         r_res = ((int**)ST_ENV())[1][0];
 657         push(r_res);
 658         push(2);
 659         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
 660         if (r_res==0) goto __else21;
 661         if (! ((SymbolEntry*)r_res)->isDefined) goto __else21;
 662         r_res = (int)((SymbolEntry*)r_res)->sob;
 663         goto __endIf21;
 664 __else21:
 665         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
 666 __endIf21:
 667         if (IS_SOB_CLOSURE(r_res)) goto __app19;
 668         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 669 __app19:
 670         push((int)SOB_CLOSURE_ENV(r_res));
 671         push((int)&&__ret24);
 672         goto *(SOB_CLOSURE_CODE(r_res));
 673 __ret24:
 674         sp = sp-2-stack[sp-2];
 675         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 676         push((int)SOB_CLOSURE_ENV(r_res));
 677         push(ST_RET());
 678         shiftActFrmDown();
 679         goto *(SOB_CLOSURE_CODE(r_res));
 680         sp = sp-2-stack[sp-2];
 681         fp = pop();
 682         RETURN();
 683 __skipBody13:
 684         r_res = (int)makeSchemeClosure((void*)r[0],&&__body13);
 685         fp = pop();
 686         RETURN();
 687 __skipBody12:
 688         r_res = (int)makeSchemeClosure((void*)r[0],&&__body12);
 689         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 690         push((int)SOB_CLOSURE_ENV(r_res));
 691         push(ST_RET());
 692         shiftActFrmDown();
 693         goto *(SOB_CLOSURE_CODE(r_res));
 694         sp = sp-2-stack[sp-2];
 695         fp = pop();
 696         RETURN();
 697 __skipBody10:
 698         r_res = (int)makeSchemeClosure((void*)r[0],&&__body10);
 699         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 700         push((int)SOB_CLOSURE_ENV(r_res));
 701         push(ST_RET());
 702         shiftActFrmDown();
 703         goto *(SOB_CLOSURE_CODE(r_res));
 704         sp = sp-2-stack[sp-2];
 705         fp = pop();
 706         RETURN();
 707 __skipBody9:
 708         r_res = (int)makeSchemeClosure((void*)r[0],&&__body9);
 709         r[0] = (int)getSymbol("order",topLevel);
 710         ((SymbolEntry*)r[0])->isDefined = 1;
 711         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 712         r_res = (int)&sc_void;
 713 __ret15:
 714         /* set return address */
 715         ST_RET() = (int)&&__ret25;
 716
 717
 718         r_res = (int)probeSymbolDefined("binary<?",topLevel);
 719         if (r_res==0) goto __else22;
 720         if (! ((SymbolEntry*)r_res)->isDefined) goto __else22;
 721         r_res = (int)((SymbolEntry*)r_res)->sob;
 722         goto __endIf22;
 723 __else22:
 724         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
 725 __endIf22:
 726         push(r_res);
 727         push(1);
 728         r_res = (int)probeSymbolDefined("order",topLevel);
 729         if (r_res==0) goto __else23;
 730         if (! ((SymbolEntry*)r_res)->isDefined) goto __else23;
 731         r_res = (int)((SymbolEntry*)r_res)->sob;
 732         goto __endIf23;
 733 __else23:
 734         fprintf(stderr,"Symbol order not defined"); exit(-1);
 735 __endIf23:
 736         if (IS_SOB_CLOSURE(r_res)) goto __app20;
 737         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 738 __app20:
 739         push((int)SOB_CLOSURE_ENV(r_res));
 740         push((int)&&__ret26);
 741         goto *(SOB_CLOSURE_CODE(r_res));
 742 __ret26:
 743         sp = sp-2-stack[sp-2];
 744         r[0] = (int)getSymbol("<",topLevel);
 745         ((SymbolEntry*)r[0])->isDefined = 1;
 746         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 747         r_res = (int)&sc_void;
 748 __ret25:
 749         /* set return address */
 750         ST_RET() = (int)&&__ret27;
 751
 752         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 753         goto __skipBody14;
 754 __body14:
 755         push(fp);
 756         fp = sp;
 757         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 758
 759         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 760         r_res = ST_ARG(1);
 761         push(r_res);
 762         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 763         r_res = ST_ARG(0);
 764         push(r_res);
 765         push(2);
 766         r_res = (int)probeSymbolDefined("binary<?",topLevel);
 767         if (r_res==0) goto __else24;
 768         if (! ((SymbolEntry*)r_res)->isDefined) goto __else24;
 769         r_res = (int)((SymbolEntry*)r_res)->sob;
 770         goto __endIf24;
 771 __else24:
 772         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
 773 __endIf24:
 774         if (IS_SOB_CLOSURE(r_res)) goto __app22;
 775         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 776 __app22:
 777         push((int)SOB_CLOSURE_ENV(r_res));
 778         push((int)&&__ret29);
 779         goto *(SOB_CLOSURE_CODE(r_res));
 780 __ret29:
 781         sp = sp-2-stack[sp-2];
 782         if ((SchemeObject*)r_res!=&sc_false) goto __endOr2;
 783
 784         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 785         r_res = ST_ARG(1);
 786         push(r_res);
 787         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 788         r_res = ST_ARG(0);
 789         push(r_res);
 790         push(2);
 791         r_res = (int)probeSymbolDefined("binary=?",topLevel);
 792         if (r_res==0) goto __else25;
 793         if (! ((SymbolEntry*)r_res)->isDefined) goto __else25;
 794         r_res = (int)((SymbolEntry*)r_res)->sob;
 795         goto __endIf25;
 796 __else25:
 797         fprintf(stderr,"Symbol binary=\? not defined"); exit(-1);
 798 __endIf25:
 799         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 800         push((int)SOB_CLOSURE_ENV(r_res));
 801         push(ST_RET());
 802         shiftActFrmDown();
 803         goto *(SOB_CLOSURE_CODE(r_res));
 804         sp = sp-2-stack[sp-2];
 805         if ((SchemeObject*)r_res!=&sc_false) goto __endOr2;
 806 __endOr2:
 807         fp = pop();
 808         RETURN();
 809 __skipBody14:
 810         r_res = (int)makeSchemeClosure((void*)r[0],&&__body14);
 811         push(r_res);
 812         push(1);
 813         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 814         goto __skipBody15;
 815 __body15:
 816         push(fp);
 817         fp = sp;
 818         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 819
 820         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 821         r_res = ST_ARG(0);
 822         push(r_res);
 823         push(1);
 824         r_res = (int)probeSymbolDefined("order",topLevel);
 825         if (r_res==0) goto __else26;
 826         if (! ((SymbolEntry*)r_res)->isDefined) goto __else26;
 827         r_res = (int)((SymbolEntry*)r_res)->sob;
 828         goto __endIf26;
 829 __else26:
 830         fprintf(stderr,"Symbol order not defined"); exit(-1);
 831 __endIf26:
 832         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 833         push((int)SOB_CLOSURE_ENV(r_res));
 834         push(ST_RET());
 835         shiftActFrmDown();
 836         goto *(SOB_CLOSURE_CODE(r_res));
 837         sp = sp-2-stack[sp-2];
 838         fp = pop();
 839         RETURN();
 840 __skipBody15:
 841         r_res = (int)makeSchemeClosure((void*)r[0],&&__body15);
 842         if (IS_SOB_CLOSURE(r_res)) goto __app21;
 843         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 844 __app21:
 845         push((int)SOB_CLOSURE_ENV(r_res));
 846         push((int)&&__ret28);
 847         goto *(SOB_CLOSURE_CODE(r_res));
 848 __ret28:
 849         sp = sp-2-stack[sp-2];
 850         r[0] = (int)getSymbol("<=",topLevel);
 851         ((SymbolEntry*)r[0])->isDefined = 1;
 852         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 853         r_res = (int)&sc_void;
 854 __ret27:
 855         /* set return address */
 856         ST_RET() = (int)&&__ret30;
 857
 858         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 859         goto __skipBody16;
 860 __body16:
 861         push(fp);
 862         fp = sp;
 863         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 864
 865         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 866         r_res = ST_ARG(0);
 867         push(r_res);
 868         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 869         r_res = ST_ARG(1);
 870         push(r_res);
 871         push(2);
 872         r_res = (int)probeSymbolDefined("binary<?",topLevel);
 873         if (r_res==0) goto __else27;
 874         if (! ((SymbolEntry*)r_res)->isDefined) goto __else27;
 875         r_res = (int)((SymbolEntry*)r_res)->sob;
 876         goto __endIf27;
 877 __else27:
 878         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
 879 __endIf27:
 880         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 881         push((int)SOB_CLOSURE_ENV(r_res));
 882         push(ST_RET());
 883         shiftActFrmDown();
 884         goto *(SOB_CLOSURE_CODE(r_res));
 885         sp = sp-2-stack[sp-2];
 886         fp = pop();
 887         RETURN();
 888 __skipBody16:
 889         r_res = (int)makeSchemeClosure((void*)r[0],&&__body16);
 890         push(r_res);
 891         push(1);
 892         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 893         goto __skipBody17;
 894 __body17:
 895         push(fp);
 896         fp = sp;
 897         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 898
 899         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 900         r_res = ST_ARG(0);
 901         push(r_res);
 902         push(1);
 903         r_res = (int)probeSymbolDefined("order",topLevel);
 904         if (r_res==0) goto __else28;
 905         if (! ((SymbolEntry*)r_res)->isDefined) goto __else28;
 906         r_res = (int)((SymbolEntry*)r_res)->sob;
 907         goto __endIf28;
 908 __else28:
 909         fprintf(stderr,"Symbol order not defined"); exit(-1);
 910 __endIf28:
 911         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 912         push((int)SOB_CLOSURE_ENV(r_res));
 913         push(ST_RET());
 914         shiftActFrmDown();
 915         goto *(SOB_CLOSURE_CODE(r_res));
 916         sp = sp-2-stack[sp-2];
 917         fp = pop();
 918         RETURN();
 919 __skipBody17:
 920         r_res = (int)makeSchemeClosure((void*)r[0],&&__body17);
 921         if (IS_SOB_CLOSURE(r_res)) goto __app23;
 922         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 923 __app23:
 924         push((int)SOB_CLOSURE_ENV(r_res));
 925         push((int)&&__ret31);
 926         goto *(SOB_CLOSURE_CODE(r_res));
 927 __ret31:
 928         sp = sp-2-stack[sp-2];
 929         r[0] = (int)getSymbol(">",topLevel);
 930         ((SymbolEntry*)r[0])->isDefined = 1;
 931         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
 932         r_res = (int)&sc_void;
 933 __ret30:
 934         /* set return address */
 935         ST_RET() = (int)&&__ret32;
 936
 937         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 938         goto __skipBody18;
 939 __body18:
 940         push(fp);
 941         fp = sp;
 942         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 943
 944         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 945         r_res = ST_ARG(1);
 946         push(r_res);
 947         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 948         r_res = ST_ARG(0);
 949         push(r_res);
 950         push(2);
 951         r_res = (int)probeSymbolDefined("binary=?",topLevel);
 952         if (r_res==0) goto __else29;
 953         if (! ((SymbolEntry*)r_res)->isDefined) goto __else29;
 954         r_res = (int)((SymbolEntry*)r_res)->sob;
 955         goto __endIf29;
 956 __else29:
 957         fprintf(stderr,"Symbol binary=\? not defined"); exit(-1);
 958 __endIf29:
 959         if (IS_SOB_CLOSURE(r_res)) goto __app25;
 960         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
 961 __app25:
 962         push((int)SOB_CLOSURE_ENV(r_res));
 963         push((int)&&__ret34);
 964         goto *(SOB_CLOSURE_CODE(r_res));
 965 __ret34:
 966         sp = sp-2-stack[sp-2];
 967         if ((SchemeObject*)r_res!=&sc_false) goto __endOr3;
 968
 969         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
 970         r_res = ST_ARG(0);
 971         push(r_res);
 972         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
 973         r_res = ST_ARG(1);
 974         push(r_res);
 975         push(2);
 976         r_res = (int)probeSymbolDefined("binary<?",topLevel);
 977         if (r_res==0) goto __else30;
 978         if (! ((SymbolEntry*)r_res)->isDefined) goto __else30;
 979         r_res = (int)((SymbolEntry*)r_res)->sob;
 980         goto __endIf30;
 981 __else30:
 982         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
 983 __endIf30:
 984         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
 985         push((int)SOB_CLOSURE_ENV(r_res));
 986         push(ST_RET());
 987         shiftActFrmDown();
 988         goto *(SOB_CLOSURE_CODE(r_res));
 989         sp = sp-2-stack[sp-2];
 990         if ((SchemeObject*)r_res!=&sc_false) goto __endOr3;
 991 __endOr3:
 992         fp = pop();
 993         RETURN();
 994 __skipBody18:
 995         r_res = (int)makeSchemeClosure((void*)r[0],&&__body18);
 996         push(r_res);
 997         push(1);
 998         r[0] = (int)extendEnviroment( (int**)NULL, 0);
 999         goto __skipBody19;
1000 __body19:
1001         push(fp);
1002         fp = sp;
1003         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1004
1005         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1006         r_res = ST_ARG(0);
1007         push(r_res);
1008         push(1);
1009         r_res = (int)probeSymbolDefined("order",topLevel);
1010         if (r_res==0) goto __else31;
1011         if (! ((SymbolEntry*)r_res)->isDefined) goto __else31;
1012         r_res = (int)((SymbolEntry*)r_res)->sob;
1013         goto __endIf31;
1014 __else31:
1015         fprintf(stderr,"Symbol order not defined"); exit(-1);
1016 __endIf31:
1017         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1018         push((int)SOB_CLOSURE_ENV(r_res));
1019         push(ST_RET());
1020         shiftActFrmDown();
1021         goto *(SOB_CLOSURE_CODE(r_res));
1022         sp = sp-2-stack[sp-2];
1023         fp = pop();
1024         RETURN();
1025 __skipBody19:
1026         r_res = (int)makeSchemeClosure((void*)r[0],&&__body19);
1027         if (IS_SOB_CLOSURE(r_res)) goto __app24;
1028         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1029 __app24:
1030         push((int)SOB_CLOSURE_ENV(r_res));
1031         push((int)&&__ret33);
1032         goto *(SOB_CLOSURE_CODE(r_res));
1033 __ret33:
1034         sp = sp-2-stack[sp-2];
1035         r[0] = (int)getSymbol(">=",topLevel);
1036         ((SymbolEntry*)r[0])->isDefined = 1;
1037         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1038         r_res = (int)&sc_void;
1039 __ret32:
1040         /* set return address */
1041         ST_RET() = (int)&&__ret35;
1042
1043
1044         r_res = (int)probeSymbolDefined("binary=?",topLevel);
1045         if (r_res==0) goto __else32;
1046         if (! ((SymbolEntry*)r_res)->isDefined) goto __else32;
1047         r_res = (int)((SymbolEntry*)r_res)->sob;
1048         goto __endIf32;
1049 __else32:
1050         fprintf(stderr,"Symbol binary=\? not defined"); exit(-1);
1051 __endIf32:
1052         push(r_res);
1053         push(1);
1054         r_res = (int)probeSymbolDefined("order",topLevel);
1055         if (r_res==0) goto __else33;
1056         if (! ((SymbolEntry*)r_res)->isDefined) goto __else33;
1057         r_res = (int)((SymbolEntry*)r_res)->sob;
1058         goto __endIf33;
1059 __else33:
1060         fprintf(stderr,"Symbol order not defined"); exit(-1);
1061 __endIf33:
1062         if (IS_SOB_CLOSURE(r_res)) goto __app26;
1063         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1064 __app26:
1065         push((int)SOB_CLOSURE_ENV(r_res));
1066         push((int)&&__ret36);
1067         goto *(SOB_CLOSURE_CODE(r_res));
1068 __ret36:
1069         sp = sp-2-stack[sp-2];
1070         r[0] = (int)getSymbol("=",topLevel);
1071         ((SymbolEntry*)r[0])->isDefined = 1;
1072         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1073         r_res = (int)&sc_void;
1074 __ret35:
1075         /* set return address */
1076         ST_RET() = (int)&&__ret37;
1077
1078         r_res = (int)&sc_false;
1079         push(r_res);
1080         push(1);
1081         r[0] = (int)extendEnviroment( (int**)NULL, 0);
1082         goto __skipBody20;
1083 __body20:
1084         push(fp);
1085         fp = sp;
1086         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1087
1088         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1089         r_res = ST_ARG(0);
1090         push(r_res);
1091         push(1);
1092         r_res = (int)probeSymbolDefined("box",topLevel);
1093         if (r_res==0) goto __else34;
1094         if (! ((SymbolEntry*)r_res)->isDefined) goto __else34;
1095         r_res = (int)((SymbolEntry*)r_res)->sob;
1096         goto __endIf34;
1097 __else34:
1098         fprintf(stderr,"Symbol box not defined"); exit(-1);
1099 __endIf34:
1100         if (IS_SOB_CLOSURE(r_res)) goto __app28;
1101         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1102 __app28:
1103         push((int)SOB_CLOSURE_ENV(r_res));
1104         push((int)&&__ret39);
1105         goto *(SOB_CLOSURE_CODE(r_res));
1106 __ret39:
1107         sp = sp-2-stack[sp-2];
1108         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1109         ST_ARG(0) = r_res;
1110         r_res = (int)&sc_void;
1111
1112         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
1113         goto __skipBody21;
1114 __body21:
1115         push(fp);
1116         fp = sp;
1117         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1118
1119         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
1120         r_res = ST_ARG(1);
1121         push(r_res);
1122         push(1);
1123         r_res = (int)probeSymbolDefined("null?",topLevel);
1124         if (r_res==0) goto __else35;
1125         if (! ((SymbolEntry*)r_res)->isDefined) goto __else35;
1126         r_res = (int)((SymbolEntry*)r_res)->sob;
1127         goto __endIf35;
1128 __else35:
1129         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
1130 __endIf35:
1131         if (IS_SOB_CLOSURE(r_res)) goto __app30;
1132         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1133 __app30:
1134         push((int)SOB_CLOSURE_ENV(r_res));
1135         push((int)&&__ret41);
1136         goto *(SOB_CLOSURE_CODE(r_res));
1137 __ret41:
1138         sp = sp-2-stack[sp-2];
1139         if ((SchemeObject*)r_res!=&sc_false) goto __endOr4;
1140
1141         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
1142         r_res = ST_ARG(1);
1143         push(r_res);
1144         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
1145         goto __skipBody22;
1146 __body22:
1147         push(fp);
1148         fp = sp;
1149         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1150
1151
1152         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1153         r_res = ST_ARG(0);
1154         push(r_res);
1155         r_res = ((int**)ST_ENV())[0][0];
1156         push(r_res);
1157         push(2);
1158         r_res = (int)probeSymbolDefined("=",topLevel);
1159         if (r_res==0) goto __else37;
1160         if (! ((SymbolEntry*)r_res)->isDefined) goto __else37;
1161         r_res = (int)((SymbolEntry*)r_res)->sob;
1162         goto __endIf37;
1163 __else37:
1164         fprintf(stderr,"Symbol = not defined"); exit(-1);
1165 __endIf37:
1166         if (IS_SOB_CLOSURE(r_res)) goto __app32;
1167         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1168 __app32:
1169         push((int)SOB_CLOSURE_ENV(r_res));
1170         push((int)&&__ret43);
1171         goto *(SOB_CLOSURE_CODE(r_res));
1172 __ret43:
1173         sp = sp-2-stack[sp-2];
1174         push(r_res);
1175         push(1);
1176         r_res = (int)probeSymbolDefined("not",topLevel);
1177         if (r_res==0) goto __else38;
1178         if (! ((SymbolEntry*)r_res)->isDefined) goto __else38;
1179         r_res = (int)((SymbolEntry*)r_res)->sob;
1180         goto __endIf38;
1181 __else38:
1182         fprintf(stderr,"Symbol not not defined"); exit(-1);
1183 __endIf38:
1184         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1185         push((int)SOB_CLOSURE_ENV(r_res));
1186         push(ST_RET());
1187         shiftActFrmDown();
1188         goto *(SOB_CLOSURE_CODE(r_res));
1189         sp = sp-2-stack[sp-2];
1190         fp = pop();
1191         RETURN();
1192 __skipBody22:
1193         r_res = (int)makeSchemeClosure((void*)r[0],&&__body22);
1194         push(r_res);
1195         push(2);
1196         r_res = (int)probeSymbolDefined("andmap",topLevel);
1197         if (r_res==0) goto __else39;
1198         if (! ((SymbolEntry*)r_res)->isDefined) goto __else39;
1199         r_res = (int)((SymbolEntry*)r_res)->sob;
1200         goto __endIf39;
1201 __else39:
1202         fprintf(stderr,"Symbol andmap not defined"); exit(-1);
1203 __endIf39:
1204         if (IS_SOB_CLOSURE(r_res)) goto __app31;
1205         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1206 __app31:
1207         push((int)SOB_CLOSURE_ENV(r_res));
1208         push((int)&&__ret42);
1209         goto *(SOB_CLOSURE_CODE(r_res));
1210 __ret42:
1211         sp = sp-2-stack[sp-2];
1212         if ((SchemeObject*)r_res==&sc_false) goto __else36;
1213
1214         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
1215         r_res = ST_ARG(1);
1216         push(r_res);
1217         push(1);
1218         r_res = (int)probeSymbolDefined("cdr",topLevel);
1219         if (r_res==0) goto __else40;
1220         if (! ((SymbolEntry*)r_res)->isDefined) goto __else40;
1221         r_res = (int)((SymbolEntry*)r_res)->sob;
1222         goto __endIf40;
1223 __else40:
1224         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1225 __endIf40:
1226         if (IS_SOB_CLOSURE(r_res)) goto __app33;
1227         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1228 __app33:
1229         push((int)SOB_CLOSURE_ENV(r_res));
1230         push((int)&&__ret44);
1231         goto *(SOB_CLOSURE_CODE(r_res));
1232 __ret44:
1233         sp = sp-2-stack[sp-2];
1234         push(r_res);
1235
1236         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
1237         r_res = ST_ARG(1);
1238         push(r_res);
1239         push(1);
1240         r_res = (int)probeSymbolDefined("car",topLevel);
1241         if (r_res==0) goto __else41;
1242         if (! ((SymbolEntry*)r_res)->isDefined) goto __else41;
1243         r_res = (int)((SymbolEntry*)r_res)->sob;
1244         goto __endIf41;
1245 __else41:
1246         fprintf(stderr,"Symbol car not defined"); exit(-1);
1247 __endIf41:
1248         if (IS_SOB_CLOSURE(r_res)) goto __app34;
1249         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1250 __app34:
1251         push((int)SOB_CLOSURE_ENV(r_res));
1252         push((int)&&__ret45);
1253         goto *(SOB_CLOSURE_CODE(r_res));
1254 __ret45:
1255         sp = sp-2-stack[sp-2];
1256         push(r_res);
1257         push(2);
1258
1259         r_res = (int)&__sc_number9;
1260         push(r_res);
1261         r_res = ((int**)ST_ENV())[0][0];
1262         push(r_res);
1263         push(2);
1264         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
1265         if (r_res==0) goto __else42;
1266         if (! ((SymbolEntry*)r_res)->isDefined) goto __else42;
1267         r_res = (int)((SymbolEntry*)r_res)->sob;
1268         goto __endIf42;
1269 __else42:
1270         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
1271 __endIf42:
1272         if (IS_SOB_CLOSURE(r_res)) goto __app35;
1273         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1274 __app35:
1275         push((int)SOB_CLOSURE_ENV(r_res));
1276         push((int)&&__ret46);
1277         goto *(SOB_CLOSURE_CODE(r_res));
1278 __ret46:
1279         sp = sp-2-stack[sp-2];
1280         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1281         push((int)SOB_CLOSURE_ENV(r_res));
1282         push(ST_RET());
1283         shiftActFrmDown();
1284         goto *(SOB_CLOSURE_CODE(r_res));
1285         sp = sp-2-stack[sp-2];
1286         goto __endIf36;
1287 __else36:
1288         r_res = (int)&sc_false;
1289 __endIf36:
1290         if ((SchemeObject*)r_res!=&sc_false) goto __endOr4;
1291 __endOr4:
1292         fp = pop();
1293         RETURN();
1294 __skipBody21:
1295         r_res = (int)makeSchemeClosure((void*)r[0],&&__body21);
1296         push(r_res);
1297         r_res = (int)&__sc_number10;
1298         push(r_res);
1299         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1300         r_res = ST_ARG(0);
1301         push(r_res);
1302         push(3);
1303         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
1304         if (r_res==0) goto __else43;
1305         if (! ((SymbolEntry*)r_res)->isDefined) goto __else43;
1306         r_res = (int)((SymbolEntry*)r_res)->sob;
1307         goto __endIf43;
1308 __else43:
1309         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
1310 __endIf43:
1311         if (IS_SOB_CLOSURE(r_res)) goto __app29;
1312         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1313 __app29:
1314         push((int)SOB_CLOSURE_ENV(r_res));
1315         push((int)&&__ret40);
1316         goto *(SOB_CLOSURE_CODE(r_res));
1317 __ret40:
1318         sp = sp-2-stack[sp-2];
1319         push(0);
1320         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
1321         goto __skipBody23;
1322 __body23:
1323         push(fp);
1324         fp = sp;
1325         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1326         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
1327         goto __skipBody24;
1328 __body24:
1329         push(fp);
1330         fp = sp;
1331         prepareStackForAbsOpt(1);
1332         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1333
1334         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1335         r_res = ST_ARG(0);
1336         push(r_res);
1337         push(1);
1338         r_res = (int)probeSymbolDefined("cdr",topLevel);
1339         if (r_res==0) goto __else44;
1340         if (! ((SymbolEntry*)r_res)->isDefined) goto __else44;
1341         r_res = (int)((SymbolEntry*)r_res)->sob;
1342         goto __endIf44;
1343 __else44:
1344         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1345 __endIf44:
1346         if (IS_SOB_CLOSURE(r_res)) goto __app36;
1347         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1348 __app36:
1349         push((int)SOB_CLOSURE_ENV(r_res));
1350         push((int)&&__ret47);
1351         goto *(SOB_CLOSURE_CODE(r_res));
1352 __ret47:
1353         sp = sp-2-stack[sp-2];
1354         push(r_res);
1355
1356         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1357         r_res = ST_ARG(0);
1358         push(r_res);
1359         push(1);
1360         r_res = (int)probeSymbolDefined("car",topLevel);
1361         if (r_res==0) goto __else45;
1362         if (! ((SymbolEntry*)r_res)->isDefined) goto __else45;
1363         r_res = (int)((SymbolEntry*)r_res)->sob;
1364         goto __endIf45;
1365 __else45:
1366         fprintf(stderr,"Symbol car not defined"); exit(-1);
1367 __endIf45:
1368         if (IS_SOB_CLOSURE(r_res)) goto __app37;
1369         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1370 __app37:
1371         push((int)SOB_CLOSURE_ENV(r_res));
1372         push((int)&&__ret48);
1373         goto *(SOB_CLOSURE_CODE(r_res));
1374 __ret48:
1375         sp = sp-2-stack[sp-2];
1376         push(r_res);
1377         push(2);
1378
1379         r_res = (int)&__sc_number11;
1380         push(r_res);
1381         r_res = ((int**)ST_ENV())[1][0];
1382         push(r_res);
1383         push(2);
1384         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
1385         if (r_res==0) goto __else46;
1386         if (! ((SymbolEntry*)r_res)->isDefined) goto __else46;
1387         r_res = (int)((SymbolEntry*)r_res)->sob;
1388         goto __endIf46;
1389 __else46:
1390         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
1391 __endIf46:
1392         if (IS_SOB_CLOSURE(r_res)) goto __app38;
1393         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1394 __app38:
1395         push((int)SOB_CLOSURE_ENV(r_res));
1396         push((int)&&__ret49);
1397         goto *(SOB_CLOSURE_CODE(r_res));
1398 __ret49:
1399         sp = sp-2-stack[sp-2];
1400         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1401         push((int)SOB_CLOSURE_ENV(r_res));
1402         push(ST_RET());
1403         shiftActFrmDown();
1404         goto *(SOB_CLOSURE_CODE(r_res));
1405         sp = sp-2-stack[sp-2];
1406         fp = pop();
1407         RETURN();
1408 __skipBody24:
1409         r_res = (int)makeSchemeClosure((void*)r[0],&&__body24);
1410         fp = pop();
1411         RETURN();
1412 __skipBody23:
1413         r_res = (int)makeSchemeClosure((void*)r[0],&&__body23);
1414         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1415         push((int)SOB_CLOSURE_ENV(r_res));
1416         push(ST_RET());
1417         shiftActFrmDown();
1418         goto *(SOB_CLOSURE_CODE(r_res));
1419         sp = sp-2-stack[sp-2];
1420         fp = pop();
1421         RETURN();
1422 __skipBody20:
1423         r_res = (int)makeSchemeClosure((void*)r[0],&&__body20);
1424         if (IS_SOB_CLOSURE(r_res)) goto __app27;
1425         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1426 __app27:
1427         push((int)SOB_CLOSURE_ENV(r_res));
1428         push((int)&&__ret38);
1429         goto *(SOB_CLOSURE_CODE(r_res));
1430 __ret38:
1431         sp = sp-2-stack[sp-2];
1432         r[0] = (int)getSymbol("<>",topLevel);
1433         ((SymbolEntry*)r[0])->isDefined = 1;
1434         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1435         r_res = (int)&sc_void;
1436 __ret37:
1437         /* set return address */
1438         ST_RET() = (int)&&__ret50;
1439
1440         r[0] = (int)extendEnviroment( (int**)NULL, 0);
1441         goto __skipBody25;
1442 __body25:
1443         push(fp);
1444         fp = sp;
1445         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1446         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1447         r_res = ST_ARG(0);
1448         if ((SchemeObject*)r_res==&sc_false) goto __else47;
1449         r_res = (int)&sc_false;
1450         goto __endIf47;
1451 __else47:
1452         r_res = (int)&sc_true;
1453 __endIf47:
1454         fp = pop();
1455         RETURN();
1456 __skipBody25:
1457         r_res = (int)makeSchemeClosure((void*)r[0],&&__body25);
1458         r[0] = (int)getSymbol("not",topLevel);
1459         ((SymbolEntry*)r[0])->isDefined = 1;
1460         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1461         r_res = (int)&sc_void;
1462 __ret50:
1463         /* set return address */
1464         ST_RET() = (int)&&__ret51;
1465
1466         r[0] = (int)extendEnviroment( (int**)NULL, 0);
1467         goto __skipBody26;
1468 __body26:
1469         push(fp);
1470         fp = sp;
1471         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1472         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
1473         goto __skipBody27;
1474 __body27:
1475         push(fp);
1476         fp = sp;
1477         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1478
1479
1480         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1481         r_res = ST_ARG(0);
1482         push(r_res);
1483         push(1);
1484         r_res = ((int**)ST_ENV())[0][1];
1485         if (IS_SOB_CLOSURE(r_res)) goto __app40;
1486         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1487 __app40:
1488         push((int)SOB_CLOSURE_ENV(r_res));
1489         push((int)&&__ret53);
1490         goto *(SOB_CLOSURE_CODE(r_res));
1491 __ret53:
1492         sp = sp-2-stack[sp-2];
1493         push(r_res);
1494         push(1);
1495         r_res = ((int**)ST_ENV())[0][0];
1496         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1497         push((int)SOB_CLOSURE_ENV(r_res));
1498         push(ST_RET());
1499         shiftActFrmDown();
1500         goto *(SOB_CLOSURE_CODE(r_res));
1501         sp = sp-2-stack[sp-2];
1502         fp = pop();
1503         RETURN();
1504 __skipBody27:
1505         r_res = (int)makeSchemeClosure((void*)r[0],&&__body27);
1506         fp = pop();
1507         RETURN();
1508 __skipBody26:
1509         r_res = (int)makeSchemeClosure((void*)r[0],&&__body26);
1510         push(r_res);
1511         push(1);
1512         r[0] = (int)extendEnviroment( (int**)NULL, 0);
1513         goto __skipBody28;
1514 __body28:
1515         push(fp);
1516         fp = sp;
1517         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1518         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
1519         goto __skipBody29;
1520 __body29:
1521         push(fp);
1522         fp = sp;
1523         prepareStackForAbsOpt(1);
1524         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1525
1526         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1527         r_res = ST_ARG(0);
1528         push(r_res);
1529         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
1530         goto __skipBody30;
1531 __body30:
1532         push(fp);
1533         fp = sp;
1534         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1535         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
1536         r_res = ST_ARG(0);
1537         fp = pop();
1538         RETURN();
1539 __skipBody30:
1540         r_res = (int)makeSchemeClosure((void*)r[0],&&__body30);
1541         push(r_res);
1542         r_res = ((int**)ST_ENV())[0][0];
1543         push(r_res);
1544         push(3);
1545         r_res = (int)probeSymbolDefined("foldr",topLevel);
1546         if (r_res==0) goto __else48;
1547         if (! ((SymbolEntry*)r_res)->isDefined) goto __else48;
1548         r_res = (int)((SymbolEntry*)r_res)->sob;
1549         goto __endIf48;
1550 __else48:
1551         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
1552 __endIf48:
1553         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
1554         push((int)SOB_CLOSURE_ENV(r_res));
1555         push(ST_RET());
1556         shiftActFrmDown();
1557         goto *(SOB_CLOSURE_CODE(r_res));
1558         sp = sp-2-stack[sp-2];
1559         fp = pop();
1560         RETURN();
1561 __skipBody29:
1562         r_res = (int)makeSchemeClosure((void*)r[0],&&__body29);
1563         fp = pop();
1564         RETURN();
1565 __skipBody28:
1566         r_res = (int)makeSchemeClosure((void*)r[0],&&__body28);
1567         if (IS_SOB_CLOSURE(r_res)) goto __app39;
1568         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1569 __app39:
1570         push((int)SOB_CLOSURE_ENV(r_res));
1571         push((int)&&__ret52);
1572         goto *(SOB_CLOSURE_CODE(r_res));
1573 __ret52:
1574         sp = sp-2-stack[sp-2];
1575         r[0] = (int)getSymbol("compose",topLevel);
1576         ((SymbolEntry*)r[0])->isDefined = 1;
1577         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1578         r_res = (int)&sc_void;
1579 __ret51:
1580         /* set return address */
1581         ST_RET() = (int)&&__ret54;
1582
1583
1584         r_res = (int)probeSymbolDefined("car",topLevel);
1585         if (r_res==0) goto __else49;
1586         if (! ((SymbolEntry*)r_res)->isDefined) goto __else49;
1587         r_res = (int)((SymbolEntry*)r_res)->sob;
1588         goto __endIf49;
1589 __else49:
1590         fprintf(stderr,"Symbol car not defined"); exit(-1);
1591 __endIf49:
1592         push(r_res);
1593         r_res = (int)probeSymbolDefined("car",topLevel);
1594         if (r_res==0) goto __else50;
1595         if (! ((SymbolEntry*)r_res)->isDefined) goto __else50;
1596         r_res = (int)((SymbolEntry*)r_res)->sob;
1597         goto __endIf50;
1598 __else50:
1599         fprintf(stderr,"Symbol car not defined"); exit(-1);
1600 __endIf50:
1601         push(r_res);
1602         push(2);
1603         r_res = (int)probeSymbolDefined("compose",topLevel);
1604         if (r_res==0) goto __else51;
1605         if (! ((SymbolEntry*)r_res)->isDefined) goto __else51;
1606         r_res = (int)((SymbolEntry*)r_res)->sob;
1607         goto __endIf51;
1608 __else51:
1609         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1610 __endIf51:
1611         if (IS_SOB_CLOSURE(r_res)) goto __app41;
1612         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1613 __app41:
1614         push((int)SOB_CLOSURE_ENV(r_res));
1615         push((int)&&__ret55);
1616         goto *(SOB_CLOSURE_CODE(r_res));
1617 __ret55:
1618         sp = sp-2-stack[sp-2];
1619         r[0] = (int)getSymbol("caar",topLevel);
1620         ((SymbolEntry*)r[0])->isDefined = 1;
1621         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1622         r_res = (int)&sc_void;
1623 __ret54:
1624         /* set return address */
1625         ST_RET() = (int)&&__ret56;
1626
1627
1628         r_res = (int)probeSymbolDefined("cdr",topLevel);
1629         if (r_res==0) goto __else52;
1630         if (! ((SymbolEntry*)r_res)->isDefined) goto __else52;
1631         r_res = (int)((SymbolEntry*)r_res)->sob;
1632         goto __endIf52;
1633 __else52:
1634         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1635 __endIf52:
1636         push(r_res);
1637         r_res = (int)probeSymbolDefined("car",topLevel);
1638         if (r_res==0) goto __else53;
1639         if (! ((SymbolEntry*)r_res)->isDefined) goto __else53;
1640         r_res = (int)((SymbolEntry*)r_res)->sob;
1641         goto __endIf53;
1642 __else53:
1643         fprintf(stderr,"Symbol car not defined"); exit(-1);
1644 __endIf53:
1645         push(r_res);
1646         push(2);
1647         r_res = (int)probeSymbolDefined("compose",topLevel);
1648         if (r_res==0) goto __else54;
1649         if (! ((SymbolEntry*)r_res)->isDefined) goto __else54;
1650         r_res = (int)((SymbolEntry*)r_res)->sob;
1651         goto __endIf54;
1652 __else54:
1653         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1654 __endIf54:
1655         if (IS_SOB_CLOSURE(r_res)) goto __app42;
1656         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1657 __app42:
1658         push((int)SOB_CLOSURE_ENV(r_res));
1659         push((int)&&__ret57);
1660         goto *(SOB_CLOSURE_CODE(r_res));
1661 __ret57:
1662         sp = sp-2-stack[sp-2];
1663         r[0] = (int)getSymbol("cadr",topLevel);
1664         ((SymbolEntry*)r[0])->isDefined = 1;
1665         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1666         r_res = (int)&sc_void;
1667 __ret56:
1668         /* set return address */
1669         ST_RET() = (int)&&__ret58;
1670
1671
1672         r_res = (int)probeSymbolDefined("car",topLevel);
1673         if (r_res==0) goto __else55;
1674         if (! ((SymbolEntry*)r_res)->isDefined) goto __else55;
1675         r_res = (int)((SymbolEntry*)r_res)->sob;
1676         goto __endIf55;
1677 __else55:
1678         fprintf(stderr,"Symbol car not defined"); exit(-1);
1679 __endIf55:
1680         push(r_res);
1681         r_res = (int)probeSymbolDefined("cdr",topLevel);
1682         if (r_res==0) goto __else56;
1683         if (! ((SymbolEntry*)r_res)->isDefined) goto __else56;
1684         r_res = (int)((SymbolEntry*)r_res)->sob;
1685         goto __endIf56;
1686 __else56:
1687         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1688 __endIf56:
1689         push(r_res);
1690         push(2);
1691         r_res = (int)probeSymbolDefined("compose",topLevel);
1692         if (r_res==0) goto __else57;
1693         if (! ((SymbolEntry*)r_res)->isDefined) goto __else57;
1694         r_res = (int)((SymbolEntry*)r_res)->sob;
1695         goto __endIf57;
1696 __else57:
1697         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1698 __endIf57:
1699         if (IS_SOB_CLOSURE(r_res)) goto __app43;
1700         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1701 __app43:
1702         push((int)SOB_CLOSURE_ENV(r_res));
1703         push((int)&&__ret59);
1704         goto *(SOB_CLOSURE_CODE(r_res));
1705 __ret59:
1706         sp = sp-2-stack[sp-2];
1707         r[0] = (int)getSymbol("cdar",topLevel);
1708         ((SymbolEntry*)r[0])->isDefined = 1;
1709         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1710         r_res = (int)&sc_void;
1711 __ret58:
1712         /* set return address */
1713         ST_RET() = (int)&&__ret60;
1714
1715
1716         r_res = (int)probeSymbolDefined("cdr",topLevel);
1717         if (r_res==0) goto __else58;
1718         if (! ((SymbolEntry*)r_res)->isDefined) goto __else58;
1719         r_res = (int)((SymbolEntry*)r_res)->sob;
1720         goto __endIf58;
1721 __else58:
1722         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1723 __endIf58:
1724         push(r_res);
1725         r_res = (int)probeSymbolDefined("cdr",topLevel);
1726         if (r_res==0) goto __else59;
1727         if (! ((SymbolEntry*)r_res)->isDefined) goto __else59;
1728         r_res = (int)((SymbolEntry*)r_res)->sob;
1729         goto __endIf59;
1730 __else59:
1731         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1732 __endIf59:
1733         push(r_res);
1734         push(2);
1735         r_res = (int)probeSymbolDefined("compose",topLevel);
1736         if (r_res==0) goto __else60;
1737         if (! ((SymbolEntry*)r_res)->isDefined) goto __else60;
1738         r_res = (int)((SymbolEntry*)r_res)->sob;
1739         goto __endIf60;
1740 __else60:
1741         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1742 __endIf60:
1743         if (IS_SOB_CLOSURE(r_res)) goto __app44;
1744         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1745 __app44:
1746         push((int)SOB_CLOSURE_ENV(r_res));
1747         push((int)&&__ret61);
1748         goto *(SOB_CLOSURE_CODE(r_res));
1749 __ret61:
1750         sp = sp-2-stack[sp-2];
1751         r[0] = (int)getSymbol("cddr",topLevel);
1752         ((SymbolEntry*)r[0])->isDefined = 1;
1753         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1754         r_res = (int)&sc_void;
1755 __ret60:
1756         /* set return address */
1757         ST_RET() = (int)&&__ret62;
1758
1759
1760         r_res = (int)probeSymbolDefined("caar",topLevel);
1761         if (r_res==0) goto __else61;
1762         if (! ((SymbolEntry*)r_res)->isDefined) goto __else61;
1763         r_res = (int)((SymbolEntry*)r_res)->sob;
1764         goto __endIf61;
1765 __else61:
1766         fprintf(stderr,"Symbol caar not defined"); exit(-1);
1767 __endIf61:
1768         push(r_res);
1769         r_res = (int)probeSymbolDefined("car",topLevel);
1770         if (r_res==0) goto __else62;
1771         if (! ((SymbolEntry*)r_res)->isDefined) goto __else62;
1772         r_res = (int)((SymbolEntry*)r_res)->sob;
1773         goto __endIf62;
1774 __else62:
1775         fprintf(stderr,"Symbol car not defined"); exit(-1);
1776 __endIf62:
1777         push(r_res);
1778         push(2);
1779         r_res = (int)probeSymbolDefined("compose",topLevel);
1780         if (r_res==0) goto __else63;
1781         if (! ((SymbolEntry*)r_res)->isDefined) goto __else63;
1782         r_res = (int)((SymbolEntry*)r_res)->sob;
1783         goto __endIf63;
1784 __else63:
1785         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1786 __endIf63:
1787         if (IS_SOB_CLOSURE(r_res)) goto __app45;
1788         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1789 __app45:
1790         push((int)SOB_CLOSURE_ENV(r_res));
1791         push((int)&&__ret63);
1792         goto *(SOB_CLOSURE_CODE(r_res));
1793 __ret63:
1794         sp = sp-2-stack[sp-2];
1795         r[0] = (int)getSymbol("caaar",topLevel);
1796         ((SymbolEntry*)r[0])->isDefined = 1;
1797         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1798         r_res = (int)&sc_void;
1799 __ret62:
1800         /* set return address */
1801         ST_RET() = (int)&&__ret64;
1802
1803
1804         r_res = (int)probeSymbolDefined("cadr",topLevel);
1805         if (r_res==0) goto __else64;
1806         if (! ((SymbolEntry*)r_res)->isDefined) goto __else64;
1807         r_res = (int)((SymbolEntry*)r_res)->sob;
1808         goto __endIf64;
1809 __else64:
1810         fprintf(stderr,"Symbol cadr not defined"); exit(-1);
1811 __endIf64:
1812         push(r_res);
1813         r_res = (int)probeSymbolDefined("car",topLevel);
1814         if (r_res==0) goto __else65;
1815         if (! ((SymbolEntry*)r_res)->isDefined) goto __else65;
1816         r_res = (int)((SymbolEntry*)r_res)->sob;
1817         goto __endIf65;
1818 __else65:
1819         fprintf(stderr,"Symbol car not defined"); exit(-1);
1820 __endIf65:
1821         push(r_res);
1822         push(2);
1823         r_res = (int)probeSymbolDefined("compose",topLevel);
1824         if (r_res==0) goto __else66;
1825         if (! ((SymbolEntry*)r_res)->isDefined) goto __else66;
1826         r_res = (int)((SymbolEntry*)r_res)->sob;
1827         goto __endIf66;
1828 __else66:
1829         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1830 __endIf66:
1831         if (IS_SOB_CLOSURE(r_res)) goto __app46;
1832         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1833 __app46:
1834         push((int)SOB_CLOSURE_ENV(r_res));
1835         push((int)&&__ret65);
1836         goto *(SOB_CLOSURE_CODE(r_res));
1837 __ret65:
1838         sp = sp-2-stack[sp-2];
1839         r[0] = (int)getSymbol("caadr",topLevel);
1840         ((SymbolEntry*)r[0])->isDefined = 1;
1841         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1842         r_res = (int)&sc_void;
1843 __ret64:
1844         /* set return address */
1845         ST_RET() = (int)&&__ret66;
1846
1847
1848         r_res = (int)probeSymbolDefined("cdar",topLevel);
1849         if (r_res==0) goto __else67;
1850         if (! ((SymbolEntry*)r_res)->isDefined) goto __else67;
1851         r_res = (int)((SymbolEntry*)r_res)->sob;
1852         goto __endIf67;
1853 __else67:
1854         fprintf(stderr,"Symbol cdar not defined"); exit(-1);
1855 __endIf67:
1856         push(r_res);
1857         r_res = (int)probeSymbolDefined("car",topLevel);
1858         if (r_res==0) goto __else68;
1859         if (! ((SymbolEntry*)r_res)->isDefined) goto __else68;
1860         r_res = (int)((SymbolEntry*)r_res)->sob;
1861         goto __endIf68;
1862 __else68:
1863         fprintf(stderr,"Symbol car not defined"); exit(-1);
1864 __endIf68:
1865         push(r_res);
1866         push(2);
1867         r_res = (int)probeSymbolDefined("compose",topLevel);
1868         if (r_res==0) goto __else69;
1869         if (! ((SymbolEntry*)r_res)->isDefined) goto __else69;
1870         r_res = (int)((SymbolEntry*)r_res)->sob;
1871         goto __endIf69;
1872 __else69:
1873         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1874 __endIf69:
1875         if (IS_SOB_CLOSURE(r_res)) goto __app47;
1876         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1877 __app47:
1878         push((int)SOB_CLOSURE_ENV(r_res));
1879         push((int)&&__ret67);
1880         goto *(SOB_CLOSURE_CODE(r_res));
1881 __ret67:
1882         sp = sp-2-stack[sp-2];
1883         r[0] = (int)getSymbol("cadar",topLevel);
1884         ((SymbolEntry*)r[0])->isDefined = 1;
1885         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1886         r_res = (int)&sc_void;
1887 __ret66:
1888         /* set return address */
1889         ST_RET() = (int)&&__ret68;
1890
1891
1892         r_res = (int)probeSymbolDefined("cddr",topLevel);
1893         if (r_res==0) goto __else70;
1894         if (! ((SymbolEntry*)r_res)->isDefined) goto __else70;
1895         r_res = (int)((SymbolEntry*)r_res)->sob;
1896         goto __endIf70;
1897 __else70:
1898         fprintf(stderr,"Symbol cddr not defined"); exit(-1);
1899 __endIf70:
1900         push(r_res);
1901         r_res = (int)probeSymbolDefined("car",topLevel);
1902         if (r_res==0) goto __else71;
1903         if (! ((SymbolEntry*)r_res)->isDefined) goto __else71;
1904         r_res = (int)((SymbolEntry*)r_res)->sob;
1905         goto __endIf71;
1906 __else71:
1907         fprintf(stderr,"Symbol car not defined"); exit(-1);
1908 __endIf71:
1909         push(r_res);
1910         push(2);
1911         r_res = (int)probeSymbolDefined("compose",topLevel);
1912         if (r_res==0) goto __else72;
1913         if (! ((SymbolEntry*)r_res)->isDefined) goto __else72;
1914         r_res = (int)((SymbolEntry*)r_res)->sob;
1915         goto __endIf72;
1916 __else72:
1917         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1918 __endIf72:
1919         if (IS_SOB_CLOSURE(r_res)) goto __app48;
1920         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1921 __app48:
1922         push((int)SOB_CLOSURE_ENV(r_res));
1923         push((int)&&__ret69);
1924         goto *(SOB_CLOSURE_CODE(r_res));
1925 __ret69:
1926         sp = sp-2-stack[sp-2];
1927         r[0] = (int)getSymbol("caddr",topLevel);
1928         ((SymbolEntry*)r[0])->isDefined = 1;
1929         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1930         r_res = (int)&sc_void;
1931 __ret68:
1932         /* set return address */
1933         ST_RET() = (int)&&__ret70;
1934
1935
1936         r_res = (int)probeSymbolDefined("caar",topLevel);
1937         if (r_res==0) goto __else73;
1938         if (! ((SymbolEntry*)r_res)->isDefined) goto __else73;
1939         r_res = (int)((SymbolEntry*)r_res)->sob;
1940         goto __endIf73;
1941 __else73:
1942         fprintf(stderr,"Symbol caar not defined"); exit(-1);
1943 __endIf73:
1944         push(r_res);
1945         r_res = (int)probeSymbolDefined("cdr",topLevel);
1946         if (r_res==0) goto __else74;
1947         if (! ((SymbolEntry*)r_res)->isDefined) goto __else74;
1948         r_res = (int)((SymbolEntry*)r_res)->sob;
1949         goto __endIf74;
1950 __else74:
1951         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1952 __endIf74:
1953         push(r_res);
1954         push(2);
1955         r_res = (int)probeSymbolDefined("compose",topLevel);
1956         if (r_res==0) goto __else75;
1957         if (! ((SymbolEntry*)r_res)->isDefined) goto __else75;
1958         r_res = (int)((SymbolEntry*)r_res)->sob;
1959         goto __endIf75;
1960 __else75:
1961         fprintf(stderr,"Symbol compose not defined"); exit(-1);
1962 __endIf75:
1963         if (IS_SOB_CLOSURE(r_res)) goto __app49;
1964         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
1965 __app49:
1966         push((int)SOB_CLOSURE_ENV(r_res));
1967         push((int)&&__ret71);
1968         goto *(SOB_CLOSURE_CODE(r_res));
1969 __ret71:
1970         sp = sp-2-stack[sp-2];
1971         r[0] = (int)getSymbol("cdaar",topLevel);
1972         ((SymbolEntry*)r[0])->isDefined = 1;
1973         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
1974         r_res = (int)&sc_void;
1975 __ret70:
1976         /* set return address */
1977         ST_RET() = (int)&&__ret72;
1978
1979
1980         r_res = (int)probeSymbolDefined("cadr",topLevel);
1981         if (r_res==0) goto __else76;
1982         if (! ((SymbolEntry*)r_res)->isDefined) goto __else76;
1983         r_res = (int)((SymbolEntry*)r_res)->sob;
1984         goto __endIf76;
1985 __else76:
1986         fprintf(stderr,"Symbol cadr not defined"); exit(-1);
1987 __endIf76:
1988         push(r_res);
1989         r_res = (int)probeSymbolDefined("cdr",topLevel);
1990         if (r_res==0) goto __else77;
1991         if (! ((SymbolEntry*)r_res)->isDefined) goto __else77;
1992         r_res = (int)((SymbolEntry*)r_res)->sob;
1993         goto __endIf77;
1994 __else77:
1995         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
1996 __endIf77:
1997         push(r_res);
1998         push(2);
1999         r_res = (int)probeSymbolDefined("compose",topLevel);
2000         if (r_res==0) goto __else78;
2001         if (! ((SymbolEntry*)r_res)->isDefined) goto __else78;
2002         r_res = (int)((SymbolEntry*)r_res)->sob;
2003         goto __endIf78;
2004 __else78:
2005         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2006 __endIf78:
2007         if (IS_SOB_CLOSURE(r_res)) goto __app50;
2008         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2009 __app50:
2010         push((int)SOB_CLOSURE_ENV(r_res));
2011         push((int)&&__ret73);
2012         goto *(SOB_CLOSURE_CODE(r_res));
2013 __ret73:
2014         sp = sp-2-stack[sp-2];
2015         r[0] = (int)getSymbol("cdadr",topLevel);
2016         ((SymbolEntry*)r[0])->isDefined = 1;
2017         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2018         r_res = (int)&sc_void;
2019 __ret72:
2020         /* set return address */
2021         ST_RET() = (int)&&__ret74;
2022
2023
2024         r_res = (int)probeSymbolDefined("cdar",topLevel);
2025         if (r_res==0) goto __else79;
2026         if (! ((SymbolEntry*)r_res)->isDefined) goto __else79;
2027         r_res = (int)((SymbolEntry*)r_res)->sob;
2028         goto __endIf79;
2029 __else79:
2030         fprintf(stderr,"Symbol cdar not defined"); exit(-1);
2031 __endIf79:
2032         push(r_res);
2033         r_res = (int)probeSymbolDefined("cdr",topLevel);
2034         if (r_res==0) goto __else80;
2035         if (! ((SymbolEntry*)r_res)->isDefined) goto __else80;
2036         r_res = (int)((SymbolEntry*)r_res)->sob;
2037         goto __endIf80;
2038 __else80:
2039         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2040 __endIf80:
2041         push(r_res);
2042         push(2);
2043         r_res = (int)probeSymbolDefined("compose",topLevel);
2044         if (r_res==0) goto __else81;
2045         if (! ((SymbolEntry*)r_res)->isDefined) goto __else81;
2046         r_res = (int)((SymbolEntry*)r_res)->sob;
2047         goto __endIf81;
2048 __else81:
2049         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2050 __endIf81:
2051         if (IS_SOB_CLOSURE(r_res)) goto __app51;
2052         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2053 __app51:
2054         push((int)SOB_CLOSURE_ENV(r_res));
2055         push((int)&&__ret75);
2056         goto *(SOB_CLOSURE_CODE(r_res));
2057 __ret75:
2058         sp = sp-2-stack[sp-2];
2059         r[0] = (int)getSymbol("cddar",topLevel);
2060         ((SymbolEntry*)r[0])->isDefined = 1;
2061         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2062         r_res = (int)&sc_void;
2063 __ret74:
2064         /* set return address */
2065         ST_RET() = (int)&&__ret76;
2066
2067
2068         r_res = (int)probeSymbolDefined("cddr",topLevel);
2069         if (r_res==0) goto __else82;
2070         if (! ((SymbolEntry*)r_res)->isDefined) goto __else82;
2071         r_res = (int)((SymbolEntry*)r_res)->sob;
2072         goto __endIf82;
2073 __else82:
2074         fprintf(stderr,"Symbol cddr not defined"); exit(-1);
2075 __endIf82:
2076         push(r_res);
2077         r_res = (int)probeSymbolDefined("cdr",topLevel);
2078         if (r_res==0) goto __else83;
2079         if (! ((SymbolEntry*)r_res)->isDefined) goto __else83;
2080         r_res = (int)((SymbolEntry*)r_res)->sob;
2081         goto __endIf83;
2082 __else83:
2083         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2084 __endIf83:
2085         push(r_res);
2086         push(2);
2087         r_res = (int)probeSymbolDefined("compose",topLevel);
2088         if (r_res==0) goto __else84;
2089         if (! ((SymbolEntry*)r_res)->isDefined) goto __else84;
2090         r_res = (int)((SymbolEntry*)r_res)->sob;
2091         goto __endIf84;
2092 __else84:
2093         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2094 __endIf84:
2095         if (IS_SOB_CLOSURE(r_res)) goto __app52;
2096         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2097 __app52:
2098         push((int)SOB_CLOSURE_ENV(r_res));
2099         push((int)&&__ret77);
2100         goto *(SOB_CLOSURE_CODE(r_res));
2101 __ret77:
2102         sp = sp-2-stack[sp-2];
2103         r[0] = (int)getSymbol("cdddr",topLevel);
2104         ((SymbolEntry*)r[0])->isDefined = 1;
2105         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2106         r_res = (int)&sc_void;
2107 __ret76:
2108         /* set return address */
2109         ST_RET() = (int)&&__ret78;
2110
2111
2112         r_res = (int)probeSymbolDefined("caaar",topLevel);
2113         if (r_res==0) goto __else85;
2114         if (! ((SymbolEntry*)r_res)->isDefined) goto __else85;
2115         r_res = (int)((SymbolEntry*)r_res)->sob;
2116         goto __endIf85;
2117 __else85:
2118         fprintf(stderr,"Symbol caaar not defined"); exit(-1);
2119 __endIf85:
2120         push(r_res);
2121         r_res = (int)probeSymbolDefined("car",topLevel);
2122         if (r_res==0) goto __else86;
2123         if (! ((SymbolEntry*)r_res)->isDefined) goto __else86;
2124         r_res = (int)((SymbolEntry*)r_res)->sob;
2125         goto __endIf86;
2126 __else86:
2127         fprintf(stderr,"Symbol car not defined"); exit(-1);
2128 __endIf86:
2129         push(r_res);
2130         push(2);
2131         r_res = (int)probeSymbolDefined("compose",topLevel);
2132         if (r_res==0) goto __else87;
2133         if (! ((SymbolEntry*)r_res)->isDefined) goto __else87;
2134         r_res = (int)((SymbolEntry*)r_res)->sob;
2135         goto __endIf87;
2136 __else87:
2137         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2138 __endIf87:
2139         if (IS_SOB_CLOSURE(r_res)) goto __app53;
2140         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2141 __app53:
2142         push((int)SOB_CLOSURE_ENV(r_res));
2143         push((int)&&__ret79);
2144         goto *(SOB_CLOSURE_CODE(r_res));
2145 __ret79:
2146         sp = sp-2-stack[sp-2];
2147         r[0] = (int)getSymbol("caaaar",topLevel);
2148         ((SymbolEntry*)r[0])->isDefined = 1;
2149         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2150         r_res = (int)&sc_void;
2151 __ret78:
2152         /* set return address */
2153         ST_RET() = (int)&&__ret80;
2154
2155
2156         r_res = (int)probeSymbolDefined("caadr",topLevel);
2157         if (r_res==0) goto __else88;
2158         if (! ((SymbolEntry*)r_res)->isDefined) goto __else88;
2159         r_res = (int)((SymbolEntry*)r_res)->sob;
2160         goto __endIf88;
2161 __else88:
2162         fprintf(stderr,"Symbol caadr not defined"); exit(-1);
2163 __endIf88:
2164         push(r_res);
2165         r_res = (int)probeSymbolDefined("car",topLevel);
2166         if (r_res==0) goto __else89;
2167         if (! ((SymbolEntry*)r_res)->isDefined) goto __else89;
2168         r_res = (int)((SymbolEntry*)r_res)->sob;
2169         goto __endIf89;
2170 __else89:
2171         fprintf(stderr,"Symbol car not defined"); exit(-1);
2172 __endIf89:
2173         push(r_res);
2174         push(2);
2175         r_res = (int)probeSymbolDefined("compose",topLevel);
2176         if (r_res==0) goto __else90;
2177         if (! ((SymbolEntry*)r_res)->isDefined) goto __else90;
2178         r_res = (int)((SymbolEntry*)r_res)->sob;
2179         goto __endIf90;
2180 __else90:
2181         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2182 __endIf90:
2183         if (IS_SOB_CLOSURE(r_res)) goto __app54;
2184         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2185 __app54:
2186         push((int)SOB_CLOSURE_ENV(r_res));
2187         push((int)&&__ret81);
2188         goto *(SOB_CLOSURE_CODE(r_res));
2189 __ret81:
2190         sp = sp-2-stack[sp-2];
2191         r[0] = (int)getSymbol("caaadr",topLevel);
2192         ((SymbolEntry*)r[0])->isDefined = 1;
2193         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2194         r_res = (int)&sc_void;
2195 __ret80:
2196         /* set return address */
2197         ST_RET() = (int)&&__ret82;
2198
2199
2200         r_res = (int)probeSymbolDefined("cadar",topLevel);
2201         if (r_res==0) goto __else91;
2202         if (! ((SymbolEntry*)r_res)->isDefined) goto __else91;
2203         r_res = (int)((SymbolEntry*)r_res)->sob;
2204         goto __endIf91;
2205 __else91:
2206         fprintf(stderr,"Symbol cadar not defined"); exit(-1);
2207 __endIf91:
2208         push(r_res);
2209         r_res = (int)probeSymbolDefined("car",topLevel);
2210         if (r_res==0) goto __else92;
2211         if (! ((SymbolEntry*)r_res)->isDefined) goto __else92;
2212         r_res = (int)((SymbolEntry*)r_res)->sob;
2213         goto __endIf92;
2214 __else92:
2215         fprintf(stderr,"Symbol car not defined"); exit(-1);
2216 __endIf92:
2217         push(r_res);
2218         push(2);
2219         r_res = (int)probeSymbolDefined("compose",topLevel);
2220         if (r_res==0) goto __else93;
2221         if (! ((SymbolEntry*)r_res)->isDefined) goto __else93;
2222         r_res = (int)((SymbolEntry*)r_res)->sob;
2223         goto __endIf93;
2224 __else93:
2225         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2226 __endIf93:
2227         if (IS_SOB_CLOSURE(r_res)) goto __app55;
2228         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2229 __app55:
2230         push((int)SOB_CLOSURE_ENV(r_res));
2231         push((int)&&__ret83);
2232         goto *(SOB_CLOSURE_CODE(r_res));
2233 __ret83:
2234         sp = sp-2-stack[sp-2];
2235         r[0] = (int)getSymbol("caadar",topLevel);
2236         ((SymbolEntry*)r[0])->isDefined = 1;
2237         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2238         r_res = (int)&sc_void;
2239 __ret82:
2240         /* set return address */
2241         ST_RET() = (int)&&__ret84;
2242
2243
2244         r_res = (int)probeSymbolDefined("caddr",topLevel);
2245         if (r_res==0) goto __else94;
2246         if (! ((SymbolEntry*)r_res)->isDefined) goto __else94;
2247         r_res = (int)((SymbolEntry*)r_res)->sob;
2248         goto __endIf94;
2249 __else94:
2250         fprintf(stderr,"Symbol caddr not defined"); exit(-1);
2251 __endIf94:
2252         push(r_res);
2253         r_res = (int)probeSymbolDefined("car",topLevel);
2254         if (r_res==0) goto __else95;
2255         if (! ((SymbolEntry*)r_res)->isDefined) goto __else95;
2256         r_res = (int)((SymbolEntry*)r_res)->sob;
2257         goto __endIf95;
2258 __else95:
2259         fprintf(stderr,"Symbol car not defined"); exit(-1);
2260 __endIf95:
2261         push(r_res);
2262         push(2);
2263         r_res = (int)probeSymbolDefined("compose",topLevel);
2264         if (r_res==0) goto __else96;
2265         if (! ((SymbolEntry*)r_res)->isDefined) goto __else96;
2266         r_res = (int)((SymbolEntry*)r_res)->sob;
2267         goto __endIf96;
2268 __else96:
2269         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2270 __endIf96:
2271         if (IS_SOB_CLOSURE(r_res)) goto __app56;
2272         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2273 __app56:
2274         push((int)SOB_CLOSURE_ENV(r_res));
2275         push((int)&&__ret85);
2276         goto *(SOB_CLOSURE_CODE(r_res));
2277 __ret85:
2278         sp = sp-2-stack[sp-2];
2279         r[0] = (int)getSymbol("caaddr",topLevel);
2280         ((SymbolEntry*)r[0])->isDefined = 1;
2281         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2282         r_res = (int)&sc_void;
2283 __ret84:
2284         /* set return address */
2285         ST_RET() = (int)&&__ret86;
2286
2287
2288         r_res = (int)probeSymbolDefined("cdaar",topLevel);
2289         if (r_res==0) goto __else97;
2290         if (! ((SymbolEntry*)r_res)->isDefined) goto __else97;
2291         r_res = (int)((SymbolEntry*)r_res)->sob;
2292         goto __endIf97;
2293 __else97:
2294         fprintf(stderr,"Symbol cdaar not defined"); exit(-1);
2295 __endIf97:
2296         push(r_res);
2297         r_res = (int)probeSymbolDefined("car",topLevel);
2298         if (r_res==0) goto __else98;
2299         if (! ((SymbolEntry*)r_res)->isDefined) goto __else98;
2300         r_res = (int)((SymbolEntry*)r_res)->sob;
2301         goto __endIf98;
2302 __else98:
2303         fprintf(stderr,"Symbol car not defined"); exit(-1);
2304 __endIf98:
2305         push(r_res);
2306         push(2);
2307         r_res = (int)probeSymbolDefined("compose",topLevel);
2308         if (r_res==0) goto __else99;
2309         if (! ((SymbolEntry*)r_res)->isDefined) goto __else99;
2310         r_res = (int)((SymbolEntry*)r_res)->sob;
2311         goto __endIf99;
2312 __else99:
2313         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2314 __endIf99:
2315         if (IS_SOB_CLOSURE(r_res)) goto __app57;
2316         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2317 __app57:
2318         push((int)SOB_CLOSURE_ENV(r_res));
2319         push((int)&&__ret87);
2320         goto *(SOB_CLOSURE_CODE(r_res));
2321 __ret87:
2322         sp = sp-2-stack[sp-2];
2323         r[0] = (int)getSymbol("cadaar",topLevel);
2324         ((SymbolEntry*)r[0])->isDefined = 1;
2325         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2326         r_res = (int)&sc_void;
2327 __ret86:
2328         /* set return address */
2329         ST_RET() = (int)&&__ret88;
2330
2331
2332         r_res = (int)probeSymbolDefined("cdadr",topLevel);
2333         if (r_res==0) goto __else100;
2334         if (! ((SymbolEntry*)r_res)->isDefined) goto __else100;
2335         r_res = (int)((SymbolEntry*)r_res)->sob;
2336         goto __endIf100;
2337 __else100:
2338         fprintf(stderr,"Symbol cdadr not defined"); exit(-1);
2339 __endIf100:
2340         push(r_res);
2341         r_res = (int)probeSymbolDefined("car",topLevel);
2342         if (r_res==0) goto __else101;
2343         if (! ((SymbolEntry*)r_res)->isDefined) goto __else101;
2344         r_res = (int)((SymbolEntry*)r_res)->sob;
2345         goto __endIf101;
2346 __else101:
2347         fprintf(stderr,"Symbol car not defined"); exit(-1);
2348 __endIf101:
2349         push(r_res);
2350         push(2);
2351         r_res = (int)probeSymbolDefined("compose",topLevel);
2352         if (r_res==0) goto __else102;
2353         if (! ((SymbolEntry*)r_res)->isDefined) goto __else102;
2354         r_res = (int)((SymbolEntry*)r_res)->sob;
2355         goto __endIf102;
2356 __else102:
2357         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2358 __endIf102:
2359         if (IS_SOB_CLOSURE(r_res)) goto __app58;
2360         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2361 __app58:
2362         push((int)SOB_CLOSURE_ENV(r_res));
2363         push((int)&&__ret89);
2364         goto *(SOB_CLOSURE_CODE(r_res));
2365 __ret89:
2366         sp = sp-2-stack[sp-2];
2367         r[0] = (int)getSymbol("cadadr",topLevel);
2368         ((SymbolEntry*)r[0])->isDefined = 1;
2369         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2370         r_res = (int)&sc_void;
2371 __ret88:
2372         /* set return address */
2373         ST_RET() = (int)&&__ret90;
2374
2375
2376         r_res = (int)probeSymbolDefined("cddar",topLevel);
2377         if (r_res==0) goto __else103;
2378         if (! ((SymbolEntry*)r_res)->isDefined) goto __else103;
2379         r_res = (int)((SymbolEntry*)r_res)->sob;
2380         goto __endIf103;
2381 __else103:
2382         fprintf(stderr,"Symbol cddar not defined"); exit(-1);
2383 __endIf103:
2384         push(r_res);
2385         r_res = (int)probeSymbolDefined("car",topLevel);
2386         if (r_res==0) goto __else104;
2387         if (! ((SymbolEntry*)r_res)->isDefined) goto __else104;
2388         r_res = (int)((SymbolEntry*)r_res)->sob;
2389         goto __endIf104;
2390 __else104:
2391         fprintf(stderr,"Symbol car not defined"); exit(-1);
2392 __endIf104:
2393         push(r_res);
2394         push(2);
2395         r_res = (int)probeSymbolDefined("compose",topLevel);
2396         if (r_res==0) goto __else105;
2397         if (! ((SymbolEntry*)r_res)->isDefined) goto __else105;
2398         r_res = (int)((SymbolEntry*)r_res)->sob;
2399         goto __endIf105;
2400 __else105:
2401         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2402 __endIf105:
2403         if (IS_SOB_CLOSURE(r_res)) goto __app59;
2404         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2405 __app59:
2406         push((int)SOB_CLOSURE_ENV(r_res));
2407         push((int)&&__ret91);
2408         goto *(SOB_CLOSURE_CODE(r_res));
2409 __ret91:
2410         sp = sp-2-stack[sp-2];
2411         r[0] = (int)getSymbol("caddar",topLevel);
2412         ((SymbolEntry*)r[0])->isDefined = 1;
2413         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2414         r_res = (int)&sc_void;
2415 __ret90:
2416         /* set return address */
2417         ST_RET() = (int)&&__ret92;
2418
2419
2420         r_res = (int)probeSymbolDefined("cdddr",topLevel);
2421         if (r_res==0) goto __else106;
2422         if (! ((SymbolEntry*)r_res)->isDefined) goto __else106;
2423         r_res = (int)((SymbolEntry*)r_res)->sob;
2424         goto __endIf106;
2425 __else106:
2426         fprintf(stderr,"Symbol cdddr not defined"); exit(-1);
2427 __endIf106:
2428         push(r_res);
2429         r_res = (int)probeSymbolDefined("car",topLevel);
2430         if (r_res==0) goto __else107;
2431         if (! ((SymbolEntry*)r_res)->isDefined) goto __else107;
2432         r_res = (int)((SymbolEntry*)r_res)->sob;
2433         goto __endIf107;
2434 __else107:
2435         fprintf(stderr,"Symbol car not defined"); exit(-1);
2436 __endIf107:
2437         push(r_res);
2438         push(2);
2439         r_res = (int)probeSymbolDefined("compose",topLevel);
2440         if (r_res==0) goto __else108;
2441         if (! ((SymbolEntry*)r_res)->isDefined) goto __else108;
2442         r_res = (int)((SymbolEntry*)r_res)->sob;
2443         goto __endIf108;
2444 __else108:
2445         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2446 __endIf108:
2447         if (IS_SOB_CLOSURE(r_res)) goto __app60;
2448         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2449 __app60:
2450         push((int)SOB_CLOSURE_ENV(r_res));
2451         push((int)&&__ret93);
2452         goto *(SOB_CLOSURE_CODE(r_res));
2453 __ret93:
2454         sp = sp-2-stack[sp-2];
2455         r[0] = (int)getSymbol("cadddr",topLevel);
2456         ((SymbolEntry*)r[0])->isDefined = 1;
2457         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2458         r_res = (int)&sc_void;
2459 __ret92:
2460         /* set return address */
2461         ST_RET() = (int)&&__ret94;
2462
2463
2464         r_res = (int)probeSymbolDefined("caaar",topLevel);
2465         if (r_res==0) goto __else109;
2466         if (! ((SymbolEntry*)r_res)->isDefined) goto __else109;
2467         r_res = (int)((SymbolEntry*)r_res)->sob;
2468         goto __endIf109;
2469 __else109:
2470         fprintf(stderr,"Symbol caaar not defined"); exit(-1);
2471 __endIf109:
2472         push(r_res);
2473         r_res = (int)probeSymbolDefined("cdr",topLevel);
2474         if (r_res==0) goto __else110;
2475         if (! ((SymbolEntry*)r_res)->isDefined) goto __else110;
2476         r_res = (int)((SymbolEntry*)r_res)->sob;
2477         goto __endIf110;
2478 __else110:
2479         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2480 __endIf110:
2481         push(r_res);
2482         push(2);
2483         r_res = (int)probeSymbolDefined("compose",topLevel);
2484         if (r_res==0) goto __else111;
2485         if (! ((SymbolEntry*)r_res)->isDefined) goto __else111;
2486         r_res = (int)((SymbolEntry*)r_res)->sob;
2487         goto __endIf111;
2488 __else111:
2489         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2490 __endIf111:
2491         if (IS_SOB_CLOSURE(r_res)) goto __app61;
2492         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2493 __app61:
2494         push((int)SOB_CLOSURE_ENV(r_res));
2495         push((int)&&__ret95);
2496         goto *(SOB_CLOSURE_CODE(r_res));
2497 __ret95:
2498         sp = sp-2-stack[sp-2];
2499         r[0] = (int)getSymbol("cdaaar",topLevel);
2500         ((SymbolEntry*)r[0])->isDefined = 1;
2501         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2502         r_res = (int)&sc_void;
2503 __ret94:
2504         /* set return address */
2505         ST_RET() = (int)&&__ret96;
2506
2507
2508         r_res = (int)probeSymbolDefined("caadr",topLevel);
2509         if (r_res==0) goto __else112;
2510         if (! ((SymbolEntry*)r_res)->isDefined) goto __else112;
2511         r_res = (int)((SymbolEntry*)r_res)->sob;
2512         goto __endIf112;
2513 __else112:
2514         fprintf(stderr,"Symbol caadr not defined"); exit(-1);
2515 __endIf112:
2516         push(r_res);
2517         r_res = (int)probeSymbolDefined("cdr",topLevel);
2518         if (r_res==0) goto __else113;
2519         if (! ((SymbolEntry*)r_res)->isDefined) goto __else113;
2520         r_res = (int)((SymbolEntry*)r_res)->sob;
2521         goto __endIf113;
2522 __else113:
2523         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2524 __endIf113:
2525         push(r_res);
2526         push(2);
2527         r_res = (int)probeSymbolDefined("compose",topLevel);
2528         if (r_res==0) goto __else114;
2529         if (! ((SymbolEntry*)r_res)->isDefined) goto __else114;
2530         r_res = (int)((SymbolEntry*)r_res)->sob;
2531         goto __endIf114;
2532 __else114:
2533         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2534 __endIf114:
2535         if (IS_SOB_CLOSURE(r_res)) goto __app62;
2536         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2537 __app62:
2538         push((int)SOB_CLOSURE_ENV(r_res));
2539         push((int)&&__ret97);
2540         goto *(SOB_CLOSURE_CODE(r_res));
2541 __ret97:
2542         sp = sp-2-stack[sp-2];
2543         r[0] = (int)getSymbol("cdaadr",topLevel);
2544         ((SymbolEntry*)r[0])->isDefined = 1;
2545         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2546         r_res = (int)&sc_void;
2547 __ret96:
2548         /* set return address */
2549         ST_RET() = (int)&&__ret98;
2550
2551
2552         r_res = (int)probeSymbolDefined("cadar",topLevel);
2553         if (r_res==0) goto __else115;
2554         if (! ((SymbolEntry*)r_res)->isDefined) goto __else115;
2555         r_res = (int)((SymbolEntry*)r_res)->sob;
2556         goto __endIf115;
2557 __else115:
2558         fprintf(stderr,"Symbol cadar not defined"); exit(-1);
2559 __endIf115:
2560         push(r_res);
2561         r_res = (int)probeSymbolDefined("cdr",topLevel);
2562         if (r_res==0) goto __else116;
2563         if (! ((SymbolEntry*)r_res)->isDefined) goto __else116;
2564         r_res = (int)((SymbolEntry*)r_res)->sob;
2565         goto __endIf116;
2566 __else116:
2567         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2568 __endIf116:
2569         push(r_res);
2570         push(2);
2571         r_res = (int)probeSymbolDefined("compose",topLevel);
2572         if (r_res==0) goto __else117;
2573         if (! ((SymbolEntry*)r_res)->isDefined) goto __else117;
2574         r_res = (int)((SymbolEntry*)r_res)->sob;
2575         goto __endIf117;
2576 __else117:
2577         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2578 __endIf117:
2579         if (IS_SOB_CLOSURE(r_res)) goto __app63;
2580         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2581 __app63:
2582         push((int)SOB_CLOSURE_ENV(r_res));
2583         push((int)&&__ret99);
2584         goto *(SOB_CLOSURE_CODE(r_res));
2585 __ret99:
2586         sp = sp-2-stack[sp-2];
2587         r[0] = (int)getSymbol("cdadar",topLevel);
2588         ((SymbolEntry*)r[0])->isDefined = 1;
2589         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2590         r_res = (int)&sc_void;
2591 __ret98:
2592         /* set return address */
2593         ST_RET() = (int)&&__ret100;
2594
2595
2596         r_res = (int)probeSymbolDefined("caddr",topLevel);
2597         if (r_res==0) goto __else118;
2598         if (! ((SymbolEntry*)r_res)->isDefined) goto __else118;
2599         r_res = (int)((SymbolEntry*)r_res)->sob;
2600         goto __endIf118;
2601 __else118:
2602         fprintf(stderr,"Symbol caddr not defined"); exit(-1);
2603 __endIf118:
2604         push(r_res);
2605         r_res = (int)probeSymbolDefined("cdr",topLevel);
2606         if (r_res==0) goto __else119;
2607         if (! ((SymbolEntry*)r_res)->isDefined) goto __else119;
2608         r_res = (int)((SymbolEntry*)r_res)->sob;
2609         goto __endIf119;
2610 __else119:
2611         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2612 __endIf119:
2613         push(r_res);
2614         push(2);
2615         r_res = (int)probeSymbolDefined("compose",topLevel);
2616         if (r_res==0) goto __else120;
2617         if (! ((SymbolEntry*)r_res)->isDefined) goto __else120;
2618         r_res = (int)((SymbolEntry*)r_res)->sob;
2619         goto __endIf120;
2620 __else120:
2621         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2622 __endIf120:
2623         if (IS_SOB_CLOSURE(r_res)) goto __app64;
2624         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2625 __app64:
2626         push((int)SOB_CLOSURE_ENV(r_res));
2627         push((int)&&__ret101);
2628         goto *(SOB_CLOSURE_CODE(r_res));
2629 __ret101:
2630         sp = sp-2-stack[sp-2];
2631         r[0] = (int)getSymbol("cdaddr",topLevel);
2632         ((SymbolEntry*)r[0])->isDefined = 1;
2633         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2634         r_res = (int)&sc_void;
2635 __ret100:
2636         /* set return address */
2637         ST_RET() = (int)&&__ret102;
2638
2639
2640         r_res = (int)probeSymbolDefined("cdaar",topLevel);
2641         if (r_res==0) goto __else121;
2642         if (! ((SymbolEntry*)r_res)->isDefined) goto __else121;
2643         r_res = (int)((SymbolEntry*)r_res)->sob;
2644         goto __endIf121;
2645 __else121:
2646         fprintf(stderr,"Symbol cdaar not defined"); exit(-1);
2647 __endIf121:
2648         push(r_res);
2649         r_res = (int)probeSymbolDefined("cdr",topLevel);
2650         if (r_res==0) goto __else122;
2651         if (! ((SymbolEntry*)r_res)->isDefined) goto __else122;
2652         r_res = (int)((SymbolEntry*)r_res)->sob;
2653         goto __endIf122;
2654 __else122:
2655         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2656 __endIf122:
2657         push(r_res);
2658         push(2);
2659         r_res = (int)probeSymbolDefined("compose",topLevel);
2660         if (r_res==0) goto __else123;
2661         if (! ((SymbolEntry*)r_res)->isDefined) goto __else123;
2662         r_res = (int)((SymbolEntry*)r_res)->sob;
2663         goto __endIf123;
2664 __else123:
2665         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2666 __endIf123:
2667         if (IS_SOB_CLOSURE(r_res)) goto __app65;
2668         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2669 __app65:
2670         push((int)SOB_CLOSURE_ENV(r_res));
2671         push((int)&&__ret103);
2672         goto *(SOB_CLOSURE_CODE(r_res));
2673 __ret103:
2674         sp = sp-2-stack[sp-2];
2675         r[0] = (int)getSymbol("cddaar",topLevel);
2676         ((SymbolEntry*)r[0])->isDefined = 1;
2677         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2678         r_res = (int)&sc_void;
2679 __ret102:
2680         /* set return address */
2681         ST_RET() = (int)&&__ret104;
2682
2683
2684         r_res = (int)probeSymbolDefined("cdadr",topLevel);
2685         if (r_res==0) goto __else124;
2686         if (! ((SymbolEntry*)r_res)->isDefined) goto __else124;
2687         r_res = (int)((SymbolEntry*)r_res)->sob;
2688         goto __endIf124;
2689 __else124:
2690         fprintf(stderr,"Symbol cdadr not defined"); exit(-1);
2691 __endIf124:
2692         push(r_res);
2693         r_res = (int)probeSymbolDefined("cdr",topLevel);
2694         if (r_res==0) goto __else125;
2695         if (! ((SymbolEntry*)r_res)->isDefined) goto __else125;
2696         r_res = (int)((SymbolEntry*)r_res)->sob;
2697         goto __endIf125;
2698 __else125:
2699         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2700 __endIf125:
2701         push(r_res);
2702         push(2);
2703         r_res = (int)probeSymbolDefined("compose",topLevel);
2704         if (r_res==0) goto __else126;
2705         if (! ((SymbolEntry*)r_res)->isDefined) goto __else126;
2706         r_res = (int)((SymbolEntry*)r_res)->sob;
2707         goto __endIf126;
2708 __else126:
2709         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2710 __endIf126:
2711         if (IS_SOB_CLOSURE(r_res)) goto __app66;
2712         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2713 __app66:
2714         push((int)SOB_CLOSURE_ENV(r_res));
2715         push((int)&&__ret105);
2716         goto *(SOB_CLOSURE_CODE(r_res));
2717 __ret105:
2718         sp = sp-2-stack[sp-2];
2719         r[0] = (int)getSymbol("cddadr",topLevel);
2720         ((SymbolEntry*)r[0])->isDefined = 1;
2721         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2722         r_res = (int)&sc_void;
2723 __ret104:
2724         /* set return address */
2725         ST_RET() = (int)&&__ret106;
2726
2727
2728         r_res = (int)probeSymbolDefined("cddar",topLevel);
2729         if (r_res==0) goto __else127;
2730         if (! ((SymbolEntry*)r_res)->isDefined) goto __else127;
2731         r_res = (int)((SymbolEntry*)r_res)->sob;
2732         goto __endIf127;
2733 __else127:
2734         fprintf(stderr,"Symbol cddar not defined"); exit(-1);
2735 __endIf127:
2736         push(r_res);
2737         r_res = (int)probeSymbolDefined("cdr",topLevel);
2738         if (r_res==0) goto __else128;
2739         if (! ((SymbolEntry*)r_res)->isDefined) goto __else128;
2740         r_res = (int)((SymbolEntry*)r_res)->sob;
2741         goto __endIf128;
2742 __else128:
2743         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2744 __endIf128:
2745         push(r_res);
2746         push(2);
2747         r_res = (int)probeSymbolDefined("compose",topLevel);
2748         if (r_res==0) goto __else129;
2749         if (! ((SymbolEntry*)r_res)->isDefined) goto __else129;
2750         r_res = (int)((SymbolEntry*)r_res)->sob;
2751         goto __endIf129;
2752 __else129:
2753         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2754 __endIf129:
2755         if (IS_SOB_CLOSURE(r_res)) goto __app67;
2756         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2757 __app67:
2758         push((int)SOB_CLOSURE_ENV(r_res));
2759         push((int)&&__ret107);
2760         goto *(SOB_CLOSURE_CODE(r_res));
2761 __ret107:
2762         sp = sp-2-stack[sp-2];
2763         r[0] = (int)getSymbol("cdddar",topLevel);
2764         ((SymbolEntry*)r[0])->isDefined = 1;
2765         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2766         r_res = (int)&sc_void;
2767 __ret106:
2768         /* set return address */
2769         ST_RET() = (int)&&__ret108;
2770
2771
2772         r_res = (int)probeSymbolDefined("cdddr",topLevel);
2773         if (r_res==0) goto __else130;
2774         if (! ((SymbolEntry*)r_res)->isDefined) goto __else130;
2775         r_res = (int)((SymbolEntry*)r_res)->sob;
2776         goto __endIf130;
2777 __else130:
2778         fprintf(stderr,"Symbol cdddr not defined"); exit(-1);
2779 __endIf130:
2780         push(r_res);
2781         r_res = (int)probeSymbolDefined("cdr",topLevel);
2782         if (r_res==0) goto __else131;
2783         if (! ((SymbolEntry*)r_res)->isDefined) goto __else131;
2784         r_res = (int)((SymbolEntry*)r_res)->sob;
2785         goto __endIf131;
2786 __else131:
2787         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2788 __endIf131:
2789         push(r_res);
2790         push(2);
2791         r_res = (int)probeSymbolDefined("compose",topLevel);
2792         if (r_res==0) goto __else132;
2793         if (! ((SymbolEntry*)r_res)->isDefined) goto __else132;
2794         r_res = (int)((SymbolEntry*)r_res)->sob;
2795         goto __endIf132;
2796 __else132:
2797         fprintf(stderr,"Symbol compose not defined"); exit(-1);
2798 __endIf132:
2799         if (IS_SOB_CLOSURE(r_res)) goto __app68;
2800         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2801 __app68:
2802         push((int)SOB_CLOSURE_ENV(r_res));
2803         push((int)&&__ret109);
2804         goto *(SOB_CLOSURE_CODE(r_res));
2805 __ret109:
2806         sp = sp-2-stack[sp-2];
2807         r[0] = (int)getSymbol("cddddr",topLevel);
2808         ((SymbolEntry*)r[0])->isDefined = 1;
2809         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
2810         r_res = (int)&sc_void;
2811 __ret108:
2812         /* set return address */
2813         ST_RET() = (int)&&__ret110;
2814
2815         r[0] = (int)extendEnviroment( (int**)NULL, 0);
2816         goto __skipBody31;
2817 __body31:
2818         push(fp);
2819         fp = sp;
2820         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
2821         r_res = (int)&sc_false;
2822         push(r_res);
2823         push(1);
2824         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
2825         goto __skipBody32;
2826 __body32:
2827         push(fp);
2828         fp = sp;
2829         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
2830
2831         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2832         r_res = ST_ARG(0);
2833         push(r_res);
2834         push(1);
2835         r_res = (int)probeSymbolDefined("box",topLevel);
2836         if (r_res==0) goto __else133;
2837         if (! ((SymbolEntry*)r_res)->isDefined) goto __else133;
2838         r_res = (int)((SymbolEntry*)r_res)->sob;
2839         goto __endIf133;
2840 __else133:
2841         fprintf(stderr,"Symbol box not defined"); exit(-1);
2842 __endIf133:
2843         if (IS_SOB_CLOSURE(r_res)) goto __app69;
2844         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2845 __app69:
2846         push((int)SOB_CLOSURE_ENV(r_res));
2847         push((int)&&__ret111);
2848         goto *(SOB_CLOSURE_CODE(r_res));
2849 __ret111:
2850         sp = sp-2-stack[sp-2];
2851         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2852         ST_ARG(0) = r_res;
2853         r_res = (int)&sc_void;
2854
2855         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
2856         goto __skipBody33;
2857 __body33:
2858         push(fp);
2859         fp = sp;
2860         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
2861
2862         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2863         r_res = ST_ARG(0);
2864         push(r_res);
2865         push(1);
2866         r_res = (int)probeSymbolDefined("null?",topLevel);
2867         if (r_res==0) goto __else135;
2868         if (! ((SymbolEntry*)r_res)->isDefined) goto __else135;
2869         r_res = (int)((SymbolEntry*)r_res)->sob;
2870         goto __endIf135;
2871 __else135:
2872         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
2873 __endIf135:
2874         if (IS_SOB_CLOSURE(r_res)) goto __app71;
2875         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2876 __app71:
2877         push((int)SOB_CLOSURE_ENV(r_res));
2878         push((int)&&__ret113);
2879         goto *(SOB_CLOSURE_CODE(r_res));
2880 __ret113:
2881         sp = sp-2-stack[sp-2];
2882         if ((SchemeObject*)r_res==&sc_false) goto __else134;
2883         r_res = ((int**)ST_ENV())[1][1];
2884         goto __endIf134;
2885 __else134:
2886
2887
2888         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2889         r_res = ST_ARG(0);
2890         push(r_res);
2891         push(1);
2892         r_res = (int)probeSymbolDefined("cdr",topLevel);
2893         if (r_res==0) goto __else136;
2894         if (! ((SymbolEntry*)r_res)->isDefined) goto __else136;
2895         r_res = (int)((SymbolEntry*)r_res)->sob;
2896         goto __endIf136;
2897 __else136:
2898         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
2899 __endIf136:
2900         if (IS_SOB_CLOSURE(r_res)) goto __app73;
2901         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2902 __app73:
2903         push((int)SOB_CLOSURE_ENV(r_res));
2904         push((int)&&__ret115);
2905         goto *(SOB_CLOSURE_CODE(r_res));
2906 __ret115:
2907         sp = sp-2-stack[sp-2];
2908         push(r_res);
2909         push(1);
2910
2911         r_res = (int)&__sc_number12;
2912         push(r_res);
2913         r_res = ((int**)ST_ENV())[0][0];
2914         push(r_res);
2915         push(2);
2916         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
2917         if (r_res==0) goto __else137;
2918         if (! ((SymbolEntry*)r_res)->isDefined) goto __else137;
2919         r_res = (int)((SymbolEntry*)r_res)->sob;
2920         goto __endIf137;
2921 __else137:
2922         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
2923 __endIf137:
2924         if (IS_SOB_CLOSURE(r_res)) goto __app74;
2925         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2926 __app74:
2927         push((int)SOB_CLOSURE_ENV(r_res));
2928         push((int)&&__ret116);
2929         goto *(SOB_CLOSURE_CODE(r_res));
2930 __ret116:
2931         sp = sp-2-stack[sp-2];
2932         if (IS_SOB_CLOSURE(r_res)) goto __app72;
2933         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2934 __app72:
2935         push((int)SOB_CLOSURE_ENV(r_res));
2936         push((int)&&__ret114);
2937         goto *(SOB_CLOSURE_CODE(r_res));
2938 __ret114:
2939         sp = sp-2-stack[sp-2];
2940         push(r_res);
2941
2942         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2943         r_res = ST_ARG(0);
2944         push(r_res);
2945         push(1);
2946         r_res = (int)probeSymbolDefined("car",topLevel);
2947         if (r_res==0) goto __else138;
2948         if (! ((SymbolEntry*)r_res)->isDefined) goto __else138;
2949         r_res = (int)((SymbolEntry*)r_res)->sob;
2950         goto __endIf138;
2951 __else138:
2952         fprintf(stderr,"Symbol car not defined"); exit(-1);
2953 __endIf138:
2954         if (IS_SOB_CLOSURE(r_res)) goto __app75;
2955         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2956 __app75:
2957         push((int)SOB_CLOSURE_ENV(r_res));
2958         push((int)&&__ret117);
2959         goto *(SOB_CLOSURE_CODE(r_res));
2960 __ret117:
2961         sp = sp-2-stack[sp-2];
2962         push(r_res);
2963         push(2);
2964         r_res = ((int**)ST_ENV())[1][0];
2965         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
2966         push((int)SOB_CLOSURE_ENV(r_res));
2967         push(ST_RET());
2968         shiftActFrmDown();
2969         goto *(SOB_CLOSURE_CODE(r_res));
2970         sp = sp-2-stack[sp-2];
2971 __endIf134:
2972         fp = pop();
2973         RETURN();
2974 __skipBody33:
2975         r_res = (int)makeSchemeClosure((void*)r[0],&&__body33);
2976         push(r_res);
2977         r_res = (int)&__sc_number13;
2978         push(r_res);
2979         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
2980         r_res = ST_ARG(0);
2981         push(r_res);
2982         push(3);
2983         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
2984         if (r_res==0) goto __else139;
2985         if (! ((SymbolEntry*)r_res)->isDefined) goto __else139;
2986         r_res = (int)((SymbolEntry*)r_res)->sob;
2987         goto __endIf139;
2988 __else139:
2989         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
2990 __endIf139:
2991         if (IS_SOB_CLOSURE(r_res)) goto __app70;
2992         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
2993 __app70:
2994         push((int)SOB_CLOSURE_ENV(r_res));
2995         push((int)&&__ret112);
2996         goto *(SOB_CLOSURE_CODE(r_res));
2997 __ret112:
2998         sp = sp-2-stack[sp-2];
2999         push(0);
3000         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
3001         goto __skipBody34;
3002 __body34:
3003         push(fp);
3004         fp = sp;
3005         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3006         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
3007         goto __skipBody35;
3008 __body35:
3009         push(fp);
3010         fp = sp;
3011         prepareStackForAbsOpt(1);
3012         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3013         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3014         r_res = ST_ARG(0);
3015         push(r_res);
3016         push(1);
3017
3018         r_res = (int)&__sc_number14;
3019         push(r_res);
3020         r_res = ((int**)ST_ENV())[1][0];
3021         push(r_res);
3022         push(2);
3023         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
3024         if (r_res==0) goto __else140;
3025         if (! ((SymbolEntry*)r_res)->isDefined) goto __else140;
3026         r_res = (int)((SymbolEntry*)r_res)->sob;
3027         goto __endIf140;
3028 __else140:
3029         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
3030 __endIf140:
3031         if (IS_SOB_CLOSURE(r_res)) goto __app76;
3032         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3033 __app76:
3034         push((int)SOB_CLOSURE_ENV(r_res));
3035         push((int)&&__ret118);
3036         goto *(SOB_CLOSURE_CODE(r_res));
3037 __ret118:
3038         sp = sp-2-stack[sp-2];
3039         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3040         push((int)SOB_CLOSURE_ENV(r_res));
3041         push(ST_RET());
3042         shiftActFrmDown();
3043         goto *(SOB_CLOSURE_CODE(r_res));
3044         sp = sp-2-stack[sp-2];
3045         fp = pop();
3046         RETURN();
3047 __skipBody35:
3048         r_res = (int)makeSchemeClosure((void*)r[0],&&__body35);
3049         fp = pop();
3050         RETURN();
3051 __skipBody34:
3052         r_res = (int)makeSchemeClosure((void*)r[0],&&__body34);
3053         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3054         push((int)SOB_CLOSURE_ENV(r_res));
3055         push(ST_RET());
3056         shiftActFrmDown();
3057         goto *(SOB_CLOSURE_CODE(r_res));
3058         sp = sp-2-stack[sp-2];
3059         fp = pop();
3060         RETURN();
3061 __skipBody32:
3062         r_res = (int)makeSchemeClosure((void*)r[0],&&__body32);
3063         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3064         push((int)SOB_CLOSURE_ENV(r_res));
3065         push(ST_RET());
3066         shiftActFrmDown();
3067         goto *(SOB_CLOSURE_CODE(r_res));
3068         sp = sp-2-stack[sp-2];
3069         fp = pop();
3070         RETURN();
3071 __skipBody31:
3072         r_res = (int)makeSchemeClosure((void*)r[0],&&__body31);
3073         r[0] = (int)getSymbol("^variadic-right-from-binary",topLevel);
3074         ((SymbolEntry*)r[0])->isDefined = 1;
3075         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3076         r_res = (int)&sc_void;
3077 __ret110:
3078         /* set return address */
3079         ST_RET() = (int)&&__ret119;
3080
3081         r[0] = (int)extendEnviroment( (int**)NULL, 0);
3082         goto __skipBody36;
3083 __body36:
3084         push(fp);
3085         fp = sp;
3086         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3087         r_res = (int)&sc_false;
3088         push(r_res);
3089         push(1);
3090         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
3091         goto __skipBody37;
3092 __body37:
3093         push(fp);
3094         fp = sp;
3095         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3096
3097         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3098         r_res = ST_ARG(0);
3099         push(r_res);
3100         push(1);
3101         r_res = (int)probeSymbolDefined("box",topLevel);
3102         if (r_res==0) goto __else141;
3103         if (! ((SymbolEntry*)r_res)->isDefined) goto __else141;
3104         r_res = (int)((SymbolEntry*)r_res)->sob;
3105         goto __endIf141;
3106 __else141:
3107         fprintf(stderr,"Symbol box not defined"); exit(-1);
3108 __endIf141:
3109         if (IS_SOB_CLOSURE(r_res)) goto __app77;
3110         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3111 __app77:
3112         push((int)SOB_CLOSURE_ENV(r_res));
3113         push((int)&&__ret120);
3114         goto *(SOB_CLOSURE_CODE(r_res));
3115 __ret120:
3116         sp = sp-2-stack[sp-2];
3117         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3118         ST_ARG(0) = r_res;
3119         r_res = (int)&sc_void;
3120
3121         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
3122         goto __skipBody38;
3123 __body38:
3124         push(fp);
3125         fp = sp;
3126         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3127
3128         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
3129         r_res = ST_ARG(1);
3130         push(r_res);
3131         push(1);
3132         r_res = (int)probeSymbolDefined("null?",topLevel);
3133         if (r_res==0) goto __else143;
3134         if (! ((SymbolEntry*)r_res)->isDefined) goto __else143;
3135         r_res = (int)((SymbolEntry*)r_res)->sob;
3136         goto __endIf143;
3137 __else143:
3138         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
3139 __endIf143:
3140         if (IS_SOB_CLOSURE(r_res)) goto __app79;
3141         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3142 __app79:
3143         push((int)SOB_CLOSURE_ENV(r_res));
3144         push((int)&&__ret122);
3145         goto *(SOB_CLOSURE_CODE(r_res));
3146 __ret122:
3147         sp = sp-2-stack[sp-2];
3148         if ((SchemeObject*)r_res==&sc_false) goto __else142;
3149         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3150         r_res = ST_ARG(0);
3151         goto __endIf142;
3152 __else142:
3153
3154         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
3155         r_res = ST_ARG(1);
3156         push(r_res);
3157         push(1);
3158         r_res = (int)probeSymbolDefined("cdr",topLevel);
3159         if (r_res==0) goto __else144;
3160         if (! ((SymbolEntry*)r_res)->isDefined) goto __else144;
3161         r_res = (int)((SymbolEntry*)r_res)->sob;
3162         goto __endIf144;
3163 __else144:
3164         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
3165 __endIf144:
3166         if (IS_SOB_CLOSURE(r_res)) goto __app80;
3167         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3168 __app80:
3169         push((int)SOB_CLOSURE_ENV(r_res));
3170         push((int)&&__ret123);
3171         goto *(SOB_CLOSURE_CODE(r_res));
3172 __ret123:
3173         sp = sp-2-stack[sp-2];
3174         push(r_res);
3175
3176
3177         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
3178         r_res = ST_ARG(1);
3179         push(r_res);
3180         push(1);
3181         r_res = (int)probeSymbolDefined("car",topLevel);
3182         if (r_res==0) goto __else145;
3183         if (! ((SymbolEntry*)r_res)->isDefined) goto __else145;
3184         r_res = (int)((SymbolEntry*)r_res)->sob;
3185         goto __endIf145;
3186 __else145:
3187         fprintf(stderr,"Symbol car not defined"); exit(-1);
3188 __endIf145:
3189         if (IS_SOB_CLOSURE(r_res)) goto __app82;
3190         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3191 __app82:
3192         push((int)SOB_CLOSURE_ENV(r_res));
3193         push((int)&&__ret125);
3194         goto *(SOB_CLOSURE_CODE(r_res));
3195 __ret125:
3196         sp = sp-2-stack[sp-2];
3197         push(r_res);
3198         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3199         r_res = ST_ARG(0);
3200         push(r_res);
3201         push(2);
3202         r_res = ((int**)ST_ENV())[1][0];
3203         if (IS_SOB_CLOSURE(r_res)) goto __app81;
3204         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3205 __app81:
3206         push((int)SOB_CLOSURE_ENV(r_res));
3207         push((int)&&__ret124);
3208         goto *(SOB_CLOSURE_CODE(r_res));
3209 __ret124:
3210         sp = sp-2-stack[sp-2];
3211         push(r_res);
3212         push(2);
3213
3214         r_res = (int)&__sc_number15;
3215         push(r_res);
3216         r_res = ((int**)ST_ENV())[0][0];
3217         push(r_res);
3218         push(2);
3219         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
3220         if (r_res==0) goto __else146;
3221         if (! ((SymbolEntry*)r_res)->isDefined) goto __else146;
3222         r_res = (int)((SymbolEntry*)r_res)->sob;
3223         goto __endIf146;
3224 __else146:
3225         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
3226 __endIf146:
3227         if (IS_SOB_CLOSURE(r_res)) goto __app83;
3228         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3229 __app83:
3230         push((int)SOB_CLOSURE_ENV(r_res));
3231         push((int)&&__ret126);
3232         goto *(SOB_CLOSURE_CODE(r_res));
3233 __ret126:
3234         sp = sp-2-stack[sp-2];
3235         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3236         push((int)SOB_CLOSURE_ENV(r_res));
3237         push(ST_RET());
3238         shiftActFrmDown();
3239         goto *(SOB_CLOSURE_CODE(r_res));
3240         sp = sp-2-stack[sp-2];
3241 __endIf142:
3242         fp = pop();
3243         RETURN();
3244 __skipBody38:
3245         r_res = (int)makeSchemeClosure((void*)r[0],&&__body38);
3246         push(r_res);
3247         r_res = (int)&__sc_number16;
3248         push(r_res);
3249         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3250         r_res = ST_ARG(0);
3251         push(r_res);
3252         push(3);
3253         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
3254         if (r_res==0) goto __else147;
3255         if (! ((SymbolEntry*)r_res)->isDefined) goto __else147;
3256         r_res = (int)((SymbolEntry*)r_res)->sob;
3257         goto __endIf147;
3258 __else147:
3259         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
3260 __endIf147:
3261         if (IS_SOB_CLOSURE(r_res)) goto __app78;
3262         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3263 __app78:
3264         push((int)SOB_CLOSURE_ENV(r_res));
3265         push((int)&&__ret121);
3266         goto *(SOB_CLOSURE_CODE(r_res));
3267 __ret121:
3268         sp = sp-2-stack[sp-2];
3269         push(0);
3270         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
3271         goto __skipBody39;
3272 __body39:
3273         push(fp);
3274         fp = sp;
3275         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3276         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
3277         goto __skipBody40;
3278 __body40:
3279         push(fp);
3280         fp = sp;
3281         prepareStackForAbsOpt(1);
3282         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3283
3284         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3285         r_res = ST_ARG(0);
3286         push(r_res);
3287         push(1);
3288         r_res = (int)probeSymbolDefined("null?",topLevel);
3289         if (r_res==0) goto __else149;
3290         if (! ((SymbolEntry*)r_res)->isDefined) goto __else149;
3291         r_res = (int)((SymbolEntry*)r_res)->sob;
3292         goto __endIf149;
3293 __else149:
3294         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
3295 __endIf149:
3296         if (IS_SOB_CLOSURE(r_res)) goto __app84;
3297         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3298 __app84:
3299         push((int)SOB_CLOSURE_ENV(r_res));
3300         push((int)&&__ret127);
3301         goto *(SOB_CLOSURE_CODE(r_res));
3302 __ret127:
3303         sp = sp-2-stack[sp-2];
3304         if ((SchemeObject*)r_res==&sc_false) goto __else148;
3305         r_res = ((int**)ST_ENV())[2][1];
3306         goto __endIf148;
3307 __else148:
3308
3309         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3310         r_res = ST_ARG(0);
3311         push(r_res);
3312         push(1);
3313         r_res = (int)probeSymbolDefined("cdr",topLevel);
3314         if (r_res==0) goto __else150;
3315         if (! ((SymbolEntry*)r_res)->isDefined) goto __else150;
3316         r_res = (int)((SymbolEntry*)r_res)->sob;
3317         goto __endIf150;
3318 __else150:
3319         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
3320 __endIf150:
3321         if (IS_SOB_CLOSURE(r_res)) goto __app85;
3322         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3323 __app85:
3324         push((int)SOB_CLOSURE_ENV(r_res));
3325         push((int)&&__ret128);
3326         goto *(SOB_CLOSURE_CODE(r_res));
3327 __ret128:
3328         sp = sp-2-stack[sp-2];
3329         push(r_res);
3330
3331         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3332         r_res = ST_ARG(0);
3333         push(r_res);
3334         push(1);
3335         r_res = (int)probeSymbolDefined("car",topLevel);
3336         if (r_res==0) goto __else151;
3337         if (! ((SymbolEntry*)r_res)->isDefined) goto __else151;
3338         r_res = (int)((SymbolEntry*)r_res)->sob;
3339         goto __endIf151;
3340 __else151:
3341         fprintf(stderr,"Symbol car not defined"); exit(-1);
3342 __endIf151:
3343         if (IS_SOB_CLOSURE(r_res)) goto __app86;
3344         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3345 __app86:
3346         push((int)SOB_CLOSURE_ENV(r_res));
3347         push((int)&&__ret129);
3348         goto *(SOB_CLOSURE_CODE(r_res));
3349 __ret129:
3350         sp = sp-2-stack[sp-2];
3351         push(r_res);
3352         push(2);
3353
3354         r_res = (int)&__sc_number17;
3355         push(r_res);
3356         r_res = ((int**)ST_ENV())[1][0];
3357         push(r_res);
3358         push(2);
3359         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
3360         if (r_res==0) goto __else152;
3361         if (! ((SymbolEntry*)r_res)->isDefined) goto __else152;
3362         r_res = (int)((SymbolEntry*)r_res)->sob;
3363         goto __endIf152;
3364 __else152:
3365         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
3366 __endIf152:
3367         if (IS_SOB_CLOSURE(r_res)) goto __app87;
3368         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3369 __app87:
3370         push((int)SOB_CLOSURE_ENV(r_res));
3371         push((int)&&__ret130);
3372         goto *(SOB_CLOSURE_CODE(r_res));
3373 __ret130:
3374         sp = sp-2-stack[sp-2];
3375         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3376         push((int)SOB_CLOSURE_ENV(r_res));
3377         push(ST_RET());
3378         shiftActFrmDown();
3379         goto *(SOB_CLOSURE_CODE(r_res));
3380         sp = sp-2-stack[sp-2];
3381 __endIf148:
3382         fp = pop();
3383         RETURN();
3384 __skipBody40:
3385         r_res = (int)makeSchemeClosure((void*)r[0],&&__body40);
3386         fp = pop();
3387         RETURN();
3388 __skipBody39:
3389         r_res = (int)makeSchemeClosure((void*)r[0],&&__body39);
3390         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3391         push((int)SOB_CLOSURE_ENV(r_res));
3392         push(ST_RET());
3393         shiftActFrmDown();
3394         goto *(SOB_CLOSURE_CODE(r_res));
3395         sp = sp-2-stack[sp-2];
3396         fp = pop();
3397         RETURN();
3398 __skipBody37:
3399         r_res = (int)makeSchemeClosure((void*)r[0],&&__body37);
3400         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3401         push((int)SOB_CLOSURE_ENV(r_res));
3402         push(ST_RET());
3403         shiftActFrmDown();
3404         goto *(SOB_CLOSURE_CODE(r_res));
3405         sp = sp-2-stack[sp-2];
3406         fp = pop();
3407         RETURN();
3408 __skipBody36:
3409         r_res = (int)makeSchemeClosure((void*)r[0],&&__body36);
3410         r[0] = (int)getSymbol("^variadic-left-from-binary",topLevel);
3411         ((SymbolEntry*)r[0])->isDefined = 1;
3412         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3413         r_res = (int)&sc_void;
3414 __ret119:
3415         /* set return address */
3416         ST_RET() = (int)&&__ret131;
3417
3418
3419         r_res = (int)&__sc_number18;
3420         push(r_res);
3421         r_res = (int)probeSymbolDefined("binary-add",topLevel);
3422         if (r_res==0) goto __else153;
3423         if (! ((SymbolEntry*)r_res)->isDefined) goto __else153;
3424         r_res = (int)((SymbolEntry*)r_res)->sob;
3425         goto __endIf153;
3426 __else153:
3427         fprintf(stderr,"Symbol binary-add not defined"); exit(-1);
3428 __endIf153:
3429         push(r_res);
3430         push(2);
3431         r_res = (int)probeSymbolDefined("^variadic-right-from-binary",topLevel);
3432         if (r_res==0) goto __else154;
3433         if (! ((SymbolEntry*)r_res)->isDefined) goto __else154;
3434         r_res = (int)((SymbolEntry*)r_res)->sob;
3435         goto __endIf154;
3436 __else154:
3437         fprintf(stderr,"Symbol ^variadic-right-from-binary not defined"); exit(-1);
3438 __endIf154:
3439         if (IS_SOB_CLOSURE(r_res)) goto __app88;
3440         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3441 __app88:
3442         push((int)SOB_CLOSURE_ENV(r_res));
3443         push((int)&&__ret132);
3444         goto *(SOB_CLOSURE_CODE(r_res));
3445 __ret132:
3446         sp = sp-2-stack[sp-2];
3447         r[0] = (int)getSymbol("+",topLevel);
3448         ((SymbolEntry*)r[0])->isDefined = 1;
3449         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3450         r_res = (int)&sc_void;
3451 __ret131:
3452         /* set return address */
3453         ST_RET() = (int)&&__ret133;
3454
3455
3456         r_res = (int)&__sc_number19;
3457         push(r_res);
3458         r_res = (int)probeSymbolDefined("binary-mul",topLevel);
3459         if (r_res==0) goto __else155;
3460         if (! ((SymbolEntry*)r_res)->isDefined) goto __else155;
3461         r_res = (int)((SymbolEntry*)r_res)->sob;
3462         goto __endIf155;
3463 __else155:
3464         fprintf(stderr,"Symbol binary-mul not defined"); exit(-1);
3465 __endIf155:
3466         push(r_res);
3467         push(2);
3468         r_res = (int)probeSymbolDefined("^variadic-right-from-binary",topLevel);
3469         if (r_res==0) goto __else156;
3470         if (! ((SymbolEntry*)r_res)->isDefined) goto __else156;
3471         r_res = (int)((SymbolEntry*)r_res)->sob;
3472         goto __endIf156;
3473 __else156:
3474         fprintf(stderr,"Symbol ^variadic-right-from-binary not defined"); exit(-1);
3475 __endIf156:
3476         if (IS_SOB_CLOSURE(r_res)) goto __app89;
3477         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3478 __app89:
3479         push((int)SOB_CLOSURE_ENV(r_res));
3480         push((int)&&__ret134);
3481         goto *(SOB_CLOSURE_CODE(r_res));
3482 __ret134:
3483         sp = sp-2-stack[sp-2];
3484         r[0] = (int)getSymbol("*",topLevel);
3485         ((SymbolEntry*)r[0])->isDefined = 1;
3486         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3487         r_res = (int)&sc_void;
3488 __ret133:
3489         /* set return address */
3490         ST_RET() = (int)&&__ret135;
3491
3492
3493         r_res = (int)&__sc_number20;
3494         push(r_res);
3495         r_res = (int)probeSymbolDefined("binary-sub",topLevel);
3496         if (r_res==0) goto __else157;
3497         if (! ((SymbolEntry*)r_res)->isDefined) goto __else157;
3498         r_res = (int)((SymbolEntry*)r_res)->sob;
3499         goto __endIf157;
3500 __else157:
3501         fprintf(stderr,"Symbol binary-sub not defined"); exit(-1);
3502 __endIf157:
3503         push(r_res);
3504         push(2);
3505         r_res = (int)probeSymbolDefined("^variadic-left-from-binary",topLevel);
3506         if (r_res==0) goto __else158;
3507         if (! ((SymbolEntry*)r_res)->isDefined) goto __else158;
3508         r_res = (int)((SymbolEntry*)r_res)->sob;
3509         goto __endIf158;
3510 __else158:
3511         fprintf(stderr,"Symbol ^variadic-left-from-binary not defined"); exit(-1);
3512 __endIf158:
3513         if (IS_SOB_CLOSURE(r_res)) goto __app90;
3514         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3515 __app90:
3516         push((int)SOB_CLOSURE_ENV(r_res));
3517         push((int)&&__ret136);
3518         goto *(SOB_CLOSURE_CODE(r_res));
3519 __ret136:
3520         sp = sp-2-stack[sp-2];
3521         r[0] = (int)getSymbol("-",topLevel);
3522         ((SymbolEntry*)r[0])->isDefined = 1;
3523         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3524         r_res = (int)&sc_void;
3525 __ret135:
3526         /* set return address */
3527         ST_RET() = (int)&&__ret137;
3528
3529
3530         r_res = (int)&__sc_number21;
3531         push(r_res);
3532         r_res = (int)probeSymbolDefined("binary-div",topLevel);
3533         if (r_res==0) goto __else159;
3534         if (! ((SymbolEntry*)r_res)->isDefined) goto __else159;
3535         r_res = (int)((SymbolEntry*)r_res)->sob;
3536         goto __endIf159;
3537 __else159:
3538         fprintf(stderr,"Symbol binary-div not defined"); exit(-1);
3539 __endIf159:
3540         push(r_res);
3541         push(2);
3542         r_res = (int)probeSymbolDefined("^variadic-left-from-binary",topLevel);
3543         if (r_res==0) goto __else160;
3544         if (! ((SymbolEntry*)r_res)->isDefined) goto __else160;
3545         r_res = (int)((SymbolEntry*)r_res)->sob;
3546         goto __endIf160;
3547 __else160:
3548         fprintf(stderr,"Symbol ^variadic-left-from-binary not defined"); exit(-1);
3549 __endIf160:
3550         if (IS_SOB_CLOSURE(r_res)) goto __app91;
3551         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3552 __app91:
3553         push((int)SOB_CLOSURE_ENV(r_res));
3554         push((int)&&__ret138);
3555         goto *(SOB_CLOSURE_CODE(r_res));
3556 __ret138:
3557         sp = sp-2-stack[sp-2];
3558         r[0] = (int)getSymbol("/",topLevel);
3559         ((SymbolEntry*)r[0])->isDefined = 1;
3560         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3561         r_res = (int)&sc_void;
3562 __ret137:
3563         /* set return address */
3564         ST_RET() = (int)&&__ret139;
3565
3566         r[0] = (int)extendEnviroment( (int**)NULL, 0);
3567         goto __skipBody41;
3568 __body41:
3569         push(fp);
3570         fp = sp;
3571         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3572         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
3573         goto __skipBody42;
3574 __body42:
3575         push(fp);
3576         fp = sp;
3577         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3578
3579
3580         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
3581         r_res = ST_ARG(1);
3582         push(r_res);
3583         push(1);
3584         r_res = (int)probeSymbolDefined("char->integer",topLevel);
3585         if (r_res==0) goto __else161;
3586         if (! ((SymbolEntry*)r_res)->isDefined) goto __else161;
3587         r_res = (int)((SymbolEntry*)r_res)->sob;
3588         goto __endIf161;
3589 __else161:
3590         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
3591 __endIf161:
3592         if (IS_SOB_CLOSURE(r_res)) goto __app92;
3593         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3594 __app92:
3595         push((int)SOB_CLOSURE_ENV(r_res));
3596         push((int)&&__ret140);
3597         goto *(SOB_CLOSURE_CODE(r_res));
3598 __ret140:
3599         sp = sp-2-stack[sp-2];
3600         push(r_res);
3601
3602         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3603         r_res = ST_ARG(0);
3604         push(r_res);
3605         push(1);
3606         r_res = (int)probeSymbolDefined("char->integer",topLevel);
3607         if (r_res==0) goto __else162;
3608         if (! ((SymbolEntry*)r_res)->isDefined) goto __else162;
3609         r_res = (int)((SymbolEntry*)r_res)->sob;
3610         goto __endIf162;
3611 __else162:
3612         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
3613 __endIf162:
3614         if (IS_SOB_CLOSURE(r_res)) goto __app93;
3615         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3616 __app93:
3617         push((int)SOB_CLOSURE_ENV(r_res));
3618         push((int)&&__ret141);
3619         goto *(SOB_CLOSURE_CODE(r_res));
3620 __ret141:
3621         sp = sp-2-stack[sp-2];
3622         push(r_res);
3623         push(2);
3624         r_res = ((int**)ST_ENV())[0][0];
3625         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3626         push((int)SOB_CLOSURE_ENV(r_res));
3627         push(ST_RET());
3628         shiftActFrmDown();
3629         goto *(SOB_CLOSURE_CODE(r_res));
3630         sp = sp-2-stack[sp-2];
3631         fp = pop();
3632         RETURN();
3633 __skipBody42:
3634         r_res = (int)makeSchemeClosure((void*)r[0],&&__body42);
3635         fp = pop();
3636         RETURN();
3637 __skipBody41:
3638         r_res = (int)makeSchemeClosure((void*)r[0],&&__body41);
3639         r[0] = (int)getSymbol("^char-op",topLevel);
3640         ((SymbolEntry*)r[0])->isDefined = 1;
3641         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3642         r_res = (int)&sc_void;
3643 __ret139:
3644         /* set return address */
3645         ST_RET() = (int)&&__ret142;
3646
3647
3648
3649         r_res = (int)probeSymbolDefined("=",topLevel);
3650         if (r_res==0) goto __else163;
3651         if (! ((SymbolEntry*)r_res)->isDefined) goto __else163;
3652         r_res = (int)((SymbolEntry*)r_res)->sob;
3653         goto __endIf163;
3654 __else163:
3655         fprintf(stderr,"Symbol = not defined"); exit(-1);
3656 __endIf163:
3657         push(r_res);
3658         push(1);
3659         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3660         if (r_res==0) goto __else164;
3661         if (! ((SymbolEntry*)r_res)->isDefined) goto __else164;
3662         r_res = (int)((SymbolEntry*)r_res)->sob;
3663         goto __endIf164;
3664 __else164:
3665         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3666 __endIf164:
3667         if (IS_SOB_CLOSURE(r_res)) goto __app95;
3668         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3669 __app95:
3670         push((int)SOB_CLOSURE_ENV(r_res));
3671         push((int)&&__ret144);
3672         goto *(SOB_CLOSURE_CODE(r_res));
3673 __ret144:
3674         sp = sp-2-stack[sp-2];
3675         push(r_res);
3676         push(1);
3677         r_res = (int)probeSymbolDefined("order",topLevel);
3678         if (r_res==0) goto __else165;
3679         if (! ((SymbolEntry*)r_res)->isDefined) goto __else165;
3680         r_res = (int)((SymbolEntry*)r_res)->sob;
3681         goto __endIf165;
3682 __else165:
3683         fprintf(stderr,"Symbol order not defined"); exit(-1);
3684 __endIf165:
3685         if (IS_SOB_CLOSURE(r_res)) goto __app94;
3686         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3687 __app94:
3688         push((int)SOB_CLOSURE_ENV(r_res));
3689         push((int)&&__ret143);
3690         goto *(SOB_CLOSURE_CODE(r_res));
3691 __ret143:
3692         sp = sp-2-stack[sp-2];
3693         r[0] = (int)getSymbol("char=?",topLevel);
3694         ((SymbolEntry*)r[0])->isDefined = 1;
3695         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3696         r_res = (int)&sc_void;
3697 __ret142:
3698         /* set return address */
3699         ST_RET() = (int)&&__ret145;
3700
3701
3702
3703         r_res = (int)probeSymbolDefined("<=",topLevel);
3704         if (r_res==0) goto __else166;
3705         if (! ((SymbolEntry*)r_res)->isDefined) goto __else166;
3706         r_res = (int)((SymbolEntry*)r_res)->sob;
3707         goto __endIf166;
3708 __else166:
3709         fprintf(stderr,"Symbol <= not defined"); exit(-1);
3710 __endIf166:
3711         push(r_res);
3712         push(1);
3713         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3714         if (r_res==0) goto __else167;
3715         if (! ((SymbolEntry*)r_res)->isDefined) goto __else167;
3716         r_res = (int)((SymbolEntry*)r_res)->sob;
3717         goto __endIf167;
3718 __else167:
3719         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3720 __endIf167:
3721         if (IS_SOB_CLOSURE(r_res)) goto __app97;
3722         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3723 __app97:
3724         push((int)SOB_CLOSURE_ENV(r_res));
3725         push((int)&&__ret147);
3726         goto *(SOB_CLOSURE_CODE(r_res));
3727 __ret147:
3728         sp = sp-2-stack[sp-2];
3729         push(r_res);
3730         push(1);
3731         r_res = (int)probeSymbolDefined("order",topLevel);
3732         if (r_res==0) goto __else168;
3733         if (! ((SymbolEntry*)r_res)->isDefined) goto __else168;
3734         r_res = (int)((SymbolEntry*)r_res)->sob;
3735         goto __endIf168;
3736 __else168:
3737         fprintf(stderr,"Symbol order not defined"); exit(-1);
3738 __endIf168:
3739         if (IS_SOB_CLOSURE(r_res)) goto __app96;
3740         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3741 __app96:
3742         push((int)SOB_CLOSURE_ENV(r_res));
3743         push((int)&&__ret146);
3744         goto *(SOB_CLOSURE_CODE(r_res));
3745 __ret146:
3746         sp = sp-2-stack[sp-2];
3747         r[0] = (int)getSymbol("char<=?",topLevel);
3748         ((SymbolEntry*)r[0])->isDefined = 1;
3749         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3750         r_res = (int)&sc_void;
3751 __ret145:
3752         /* set return address */
3753         ST_RET() = (int)&&__ret148;
3754
3755
3756
3757         r_res = (int)probeSymbolDefined("<",topLevel);
3758         if (r_res==0) goto __else169;
3759         if (! ((SymbolEntry*)r_res)->isDefined) goto __else169;
3760         r_res = (int)((SymbolEntry*)r_res)->sob;
3761         goto __endIf169;
3762 __else169:
3763         fprintf(stderr,"Symbol < not defined"); exit(-1);
3764 __endIf169:
3765         push(r_res);
3766         push(1);
3767         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3768         if (r_res==0) goto __else170;
3769         if (! ((SymbolEntry*)r_res)->isDefined) goto __else170;
3770         r_res = (int)((SymbolEntry*)r_res)->sob;
3771         goto __endIf170;
3772 __else170:
3773         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3774 __endIf170:
3775         if (IS_SOB_CLOSURE(r_res)) goto __app99;
3776         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3777 __app99:
3778         push((int)SOB_CLOSURE_ENV(r_res));
3779         push((int)&&__ret150);
3780         goto *(SOB_CLOSURE_CODE(r_res));
3781 __ret150:
3782         sp = sp-2-stack[sp-2];
3783         push(r_res);
3784         push(1);
3785         r_res = (int)probeSymbolDefined("order",topLevel);
3786         if (r_res==0) goto __else171;
3787         if (! ((SymbolEntry*)r_res)->isDefined) goto __else171;
3788         r_res = (int)((SymbolEntry*)r_res)->sob;
3789         goto __endIf171;
3790 __else171:
3791         fprintf(stderr,"Symbol order not defined"); exit(-1);
3792 __endIf171:
3793         if (IS_SOB_CLOSURE(r_res)) goto __app98;
3794         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3795 __app98:
3796         push((int)SOB_CLOSURE_ENV(r_res));
3797         push((int)&&__ret149);
3798         goto *(SOB_CLOSURE_CODE(r_res));
3799 __ret149:
3800         sp = sp-2-stack[sp-2];
3801         r[0] = (int)getSymbol("char<?",topLevel);
3802         ((SymbolEntry*)r[0])->isDefined = 1;
3803         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3804         r_res = (int)&sc_void;
3805 __ret148:
3806         /* set return address */
3807         ST_RET() = (int)&&__ret151;
3808
3809
3810
3811         r_res = (int)probeSymbolDefined(">=",topLevel);
3812         if (r_res==0) goto __else172;
3813         if (! ((SymbolEntry*)r_res)->isDefined) goto __else172;
3814         r_res = (int)((SymbolEntry*)r_res)->sob;
3815         goto __endIf172;
3816 __else172:
3817         fprintf(stderr,"Symbol >= not defined"); exit(-1);
3818 __endIf172:
3819         push(r_res);
3820         push(1);
3821         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3822         if (r_res==0) goto __else173;
3823         if (! ((SymbolEntry*)r_res)->isDefined) goto __else173;
3824         r_res = (int)((SymbolEntry*)r_res)->sob;
3825         goto __endIf173;
3826 __else173:
3827         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3828 __endIf173:
3829         if (IS_SOB_CLOSURE(r_res)) goto __app101;
3830         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3831 __app101:
3832         push((int)SOB_CLOSURE_ENV(r_res));
3833         push((int)&&__ret153);
3834         goto *(SOB_CLOSURE_CODE(r_res));
3835 __ret153:
3836         sp = sp-2-stack[sp-2];
3837         push(r_res);
3838         push(1);
3839         r_res = (int)probeSymbolDefined("order",topLevel);
3840         if (r_res==0) goto __else174;
3841         if (! ((SymbolEntry*)r_res)->isDefined) goto __else174;
3842         r_res = (int)((SymbolEntry*)r_res)->sob;
3843         goto __endIf174;
3844 __else174:
3845         fprintf(stderr,"Symbol order not defined"); exit(-1);
3846 __endIf174:
3847         if (IS_SOB_CLOSURE(r_res)) goto __app100;
3848         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3849 __app100:
3850         push((int)SOB_CLOSURE_ENV(r_res));
3851         push((int)&&__ret152);
3852         goto *(SOB_CLOSURE_CODE(r_res));
3853 __ret152:
3854         sp = sp-2-stack[sp-2];
3855         r[0] = (int)getSymbol("char>=?",topLevel);
3856         ((SymbolEntry*)r[0])->isDefined = 1;
3857         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3858         r_res = (int)&sc_void;
3859 __ret151:
3860         /* set return address */
3861         ST_RET() = (int)&&__ret154;
3862
3863
3864
3865         r_res = (int)probeSymbolDefined(">",topLevel);
3866         if (r_res==0) goto __else175;
3867         if (! ((SymbolEntry*)r_res)->isDefined) goto __else175;
3868         r_res = (int)((SymbolEntry*)r_res)->sob;
3869         goto __endIf175;
3870 __else175:
3871         fprintf(stderr,"Symbol > not defined"); exit(-1);
3872 __endIf175:
3873         push(r_res);
3874         push(1);
3875         r_res = (int)probeSymbolDefined("^char-op",topLevel);
3876         if (r_res==0) goto __else176;
3877         if (! ((SymbolEntry*)r_res)->isDefined) goto __else176;
3878         r_res = (int)((SymbolEntry*)r_res)->sob;
3879         goto __endIf176;
3880 __else176:
3881         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
3882 __endIf176:
3883         if (IS_SOB_CLOSURE(r_res)) goto __app103;
3884         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3885 __app103:
3886         push((int)SOB_CLOSURE_ENV(r_res));
3887         push((int)&&__ret156);
3888         goto *(SOB_CLOSURE_CODE(r_res));
3889 __ret156:
3890         sp = sp-2-stack[sp-2];
3891         push(r_res);
3892         push(1);
3893         r_res = (int)probeSymbolDefined("order",topLevel);
3894         if (r_res==0) goto __else177;
3895         if (! ((SymbolEntry*)r_res)->isDefined) goto __else177;
3896         r_res = (int)((SymbolEntry*)r_res)->sob;
3897         goto __endIf177;
3898 __else177:
3899         fprintf(stderr,"Symbol order not defined"); exit(-1);
3900 __endIf177:
3901         if (IS_SOB_CLOSURE(r_res)) goto __app102;
3902         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3903 __app102:
3904         push((int)SOB_CLOSURE_ENV(r_res));
3905         push((int)&&__ret155);
3906         goto *(SOB_CLOSURE_CODE(r_res));
3907 __ret155:
3908         sp = sp-2-stack[sp-2];
3909         r[0] = (int)getSymbol("char>?",topLevel);
3910         ((SymbolEntry*)r[0])->isDefined = 1;
3911         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3912         r_res = (int)&sc_void;
3913 __ret154:
3914         /* set return address */
3915         ST_RET() = (int)&&__ret157;
3916
3917         r[0] = (int)extendEnviroment( (int**)NULL, 0);
3918         goto __skipBody43;
3919 __body43:
3920         push(fp);
3921         fp = sp;
3922         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3923
3924         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3925         r_res = ST_ARG(0);
3926         push(r_res);
3927         r_res = (int)&__sc_char;
3928         push(r_res);
3929         push(2);
3930         r_res = (int)probeSymbolDefined("char<=?",topLevel);
3931         if (r_res==0) goto __else179;
3932         if (! ((SymbolEntry*)r_res)->isDefined) goto __else179;
3933         r_res = (int)((SymbolEntry*)r_res)->sob;
3934         goto __endIf179;
3935 __else179:
3936         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
3937 __endIf179:
3938         if (IS_SOB_CLOSURE(r_res)) goto __app104;
3939         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
3940 __app104:
3941         push((int)SOB_CLOSURE_ENV(r_res));
3942         push((int)&&__ret158);
3943         goto *(SOB_CLOSURE_CODE(r_res));
3944 __ret158:
3945         sp = sp-2-stack[sp-2];
3946         if ((SchemeObject*)r_res==&sc_false) goto __else178;
3947
3948         r_res = (int)&__sc_char0;
3949         push(r_res);
3950         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3951         r_res = ST_ARG(0);
3952         push(r_res);
3953         push(2);
3954         r_res = (int)probeSymbolDefined("char<=?",topLevel);
3955         if (r_res==0) goto __else180;
3956         if (! ((SymbolEntry*)r_res)->isDefined) goto __else180;
3957         r_res = (int)((SymbolEntry*)r_res)->sob;
3958         goto __endIf180;
3959 __else180:
3960         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
3961 __endIf180:
3962         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3963         push((int)SOB_CLOSURE_ENV(r_res));
3964         push(ST_RET());
3965         shiftActFrmDown();
3966         goto *(SOB_CLOSURE_CODE(r_res));
3967         sp = sp-2-stack[sp-2];
3968         goto __endIf178;
3969 __else178:
3970         r_res = (int)&sc_false;
3971 __endIf178:
3972         fp = pop();
3973         RETURN();
3974 __skipBody43:
3975         r_res = (int)makeSchemeClosure((void*)r[0],&&__body43);
3976         r[0] = (int)getSymbol("char-uppercase?",topLevel);
3977         ((SymbolEntry*)r[0])->isDefined = 1;
3978         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
3979         r_res = (int)&sc_void;
3980 __ret157:
3981         /* set return address */
3982         ST_RET() = (int)&&__ret159;
3983
3984         r[0] = (int)extendEnviroment( (int**)NULL, 0);
3985         goto __skipBody44;
3986 __body44:
3987         push(fp);
3988         fp = sp;
3989         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
3990
3991         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
3992         r_res = ST_ARG(0);
3993         push(r_res);
3994         r_res = (int)&__sc_char1;
3995         push(r_res);
3996         push(2);
3997         r_res = (int)probeSymbolDefined("char<=?",topLevel);
3998         if (r_res==0) goto __else182;
3999         if (! ((SymbolEntry*)r_res)->isDefined) goto __else182;
4000         r_res = (int)((SymbolEntry*)r_res)->sob;
4001         goto __endIf182;
4002 __else182:
4003         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
4004 __endIf182:
4005         if (IS_SOB_CLOSURE(r_res)) goto __app105;
4006         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4007 __app105:
4008         push((int)SOB_CLOSURE_ENV(r_res));
4009         push((int)&&__ret160);
4010         goto *(SOB_CLOSURE_CODE(r_res));
4011 __ret160:
4012         sp = sp-2-stack[sp-2];
4013         if ((SchemeObject*)r_res==&sc_false) goto __else181;
4014
4015         r_res = (int)&__sc_char2;
4016         push(r_res);
4017         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4018         r_res = ST_ARG(0);
4019         push(r_res);
4020         push(2);
4021         r_res = (int)probeSymbolDefined("char<=?",topLevel);
4022         if (r_res==0) goto __else183;
4023         if (! ((SymbolEntry*)r_res)->isDefined) goto __else183;
4024         r_res = (int)((SymbolEntry*)r_res)->sob;
4025         goto __endIf183;
4026 __else183:
4027         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
4028 __endIf183:
4029         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4030         push((int)SOB_CLOSURE_ENV(r_res));
4031         push(ST_RET());
4032         shiftActFrmDown();
4033         goto *(SOB_CLOSURE_CODE(r_res));
4034         sp = sp-2-stack[sp-2];
4035         goto __endIf181;
4036 __else181:
4037         r_res = (int)&sc_false;
4038 __endIf181:
4039         fp = pop();
4040         RETURN();
4041 __skipBody44:
4042         r_res = (int)makeSchemeClosure((void*)r[0],&&__body44);
4043         r[0] = (int)getSymbol("char-lowercase?",topLevel);
4044         ((SymbolEntry*)r[0])->isDefined = 1;
4045         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4046         r_res = (int)&sc_void;
4047 __ret159:
4048         /* set return address */
4049         ST_RET() = (int)&&__ret161;
4050
4051
4052
4053         r_res = (int)&__sc_char3;
4054         push(r_res);
4055         push(1);
4056         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4057         if (r_res==0) goto __else184;
4058         if (! ((SymbolEntry*)r_res)->isDefined) goto __else184;
4059         r_res = (int)((SymbolEntry*)r_res)->sob;
4060         goto __endIf184;
4061 __else184:
4062         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4063 __endIf184:
4064         if (IS_SOB_CLOSURE(r_res)) goto __app108;
4065         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4066 __app108:
4067         push((int)SOB_CLOSURE_ENV(r_res));
4068         push((int)&&__ret164);
4069         goto *(SOB_CLOSURE_CODE(r_res));
4070 __ret164:
4071         sp = sp-2-stack[sp-2];
4072         push(r_res);
4073
4074         r_res = (int)&__sc_char4;
4075         push(r_res);
4076         push(1);
4077         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4078         if (r_res==0) goto __else185;
4079         if (! ((SymbolEntry*)r_res)->isDefined) goto __else185;
4080         r_res = (int)((SymbolEntry*)r_res)->sob;
4081         goto __endIf185;
4082 __else185:
4083         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4084 __endIf185:
4085         if (IS_SOB_CLOSURE(r_res)) goto __app109;
4086         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4087 __app109:
4088         push((int)SOB_CLOSURE_ENV(r_res));
4089         push((int)&&__ret165);
4090         goto *(SOB_CLOSURE_CODE(r_res));
4091 __ret165:
4092         sp = sp-2-stack[sp-2];
4093         push(r_res);
4094         push(2);
4095         r_res = (int)probeSymbolDefined("-",topLevel);
4096         if (r_res==0) goto __else186;
4097         if (! ((SymbolEntry*)r_res)->isDefined) goto __else186;
4098         r_res = (int)((SymbolEntry*)r_res)->sob;
4099         goto __endIf186;
4100 __else186:
4101         fprintf(stderr,"Symbol - not defined"); exit(-1);
4102 __endIf186:
4103         if (IS_SOB_CLOSURE(r_res)) goto __app107;
4104         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4105 __app107:
4106         push((int)SOB_CLOSURE_ENV(r_res));
4107         push((int)&&__ret163);
4108         goto *(SOB_CLOSURE_CODE(r_res));
4109 __ret163:
4110         sp = sp-2-stack[sp-2];
4111         push(r_res);
4112         push(1);
4113         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4114         goto __skipBody45;
4115 __body45:
4116         push(fp);
4117         fp = sp;
4118         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4119         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
4120         goto __skipBody46;
4121 __body46:
4122         push(fp);
4123         fp = sp;
4124         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4125
4126         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4127         r_res = ST_ARG(0);
4128         push(r_res);
4129         push(1);
4130         r_res = (int)probeSymbolDefined("char-lowercase?",topLevel);
4131         if (r_res==0) goto __else188;
4132         if (! ((SymbolEntry*)r_res)->isDefined) goto __else188;
4133         r_res = (int)((SymbolEntry*)r_res)->sob;
4134         goto __endIf188;
4135 __else188:
4136         fprintf(stderr,"Symbol char-lowercase\? not defined"); exit(-1);
4137 __endIf188:
4138         if (IS_SOB_CLOSURE(r_res)) goto __app110;
4139         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4140 __app110:
4141         push((int)SOB_CLOSURE_ENV(r_res));
4142         push((int)&&__ret166);
4143         goto *(SOB_CLOSURE_CODE(r_res));
4144 __ret166:
4145         sp = sp-2-stack[sp-2];
4146         if ((SchemeObject*)r_res==&sc_false) goto __else187;
4147
4148
4149         r_res = ((int**)ST_ENV())[0][0];
4150         push(r_res);
4151
4152         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4153         r_res = ST_ARG(0);
4154         push(r_res);
4155         push(1);
4156         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4157         if (r_res==0) goto __else189;
4158         if (! ((SymbolEntry*)r_res)->isDefined) goto __else189;
4159         r_res = (int)((SymbolEntry*)r_res)->sob;
4160         goto __endIf189;
4161 __else189:
4162         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4163 __endIf189:
4164         if (IS_SOB_CLOSURE(r_res)) goto __app112;
4165         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4166 __app112:
4167         push((int)SOB_CLOSURE_ENV(r_res));
4168         push((int)&&__ret168);
4169         goto *(SOB_CLOSURE_CODE(r_res));
4170 __ret168:
4171         sp = sp-2-stack[sp-2];
4172         push(r_res);
4173         push(2);
4174         r_res = (int)probeSymbolDefined("-",topLevel);
4175         if (r_res==0) goto __else190;
4176         if (! ((SymbolEntry*)r_res)->isDefined) goto __else190;
4177         r_res = (int)((SymbolEntry*)r_res)->sob;
4178         goto __endIf190;
4179 __else190:
4180         fprintf(stderr,"Symbol - not defined"); exit(-1);
4181 __endIf190:
4182         if (IS_SOB_CLOSURE(r_res)) goto __app111;
4183         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4184 __app111:
4185         push((int)SOB_CLOSURE_ENV(r_res));
4186         push((int)&&__ret167);
4187         goto *(SOB_CLOSURE_CODE(r_res));
4188 __ret167:
4189         sp = sp-2-stack[sp-2];
4190         push(r_res);
4191         push(1);
4192         r_res = (int)probeSymbolDefined("integer->char",topLevel);
4193         if (r_res==0) goto __else191;
4194         if (! ((SymbolEntry*)r_res)->isDefined) goto __else191;
4195         r_res = (int)((SymbolEntry*)r_res)->sob;
4196         goto __endIf191;
4197 __else191:
4198         fprintf(stderr,"Symbol integer->char not defined"); exit(-1);
4199 __endIf191:
4200         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4201         push((int)SOB_CLOSURE_ENV(r_res));
4202         push(ST_RET());
4203         shiftActFrmDown();
4204         goto *(SOB_CLOSURE_CODE(r_res));
4205         sp = sp-2-stack[sp-2];
4206         goto __endIf187;
4207 __else187:
4208         r_res = (int)&sc_void;
4209 __endIf187:
4210         fp = pop();
4211         RETURN();
4212 __skipBody46:
4213         r_res = (int)makeSchemeClosure((void*)r[0],&&__body46);
4214         fp = pop();
4215         RETURN();
4216 __skipBody45:
4217         r_res = (int)makeSchemeClosure((void*)r[0],&&__body45);
4218         if (IS_SOB_CLOSURE(r_res)) goto __app106;
4219         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4220 __app106:
4221         push((int)SOB_CLOSURE_ENV(r_res));
4222         push((int)&&__ret162);
4223         goto *(SOB_CLOSURE_CODE(r_res));
4224 __ret162:
4225         sp = sp-2-stack[sp-2];
4226         r[0] = (int)getSymbol("char-upcase",topLevel);
4227         ((SymbolEntry*)r[0])->isDefined = 1;
4228         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4229         r_res = (int)&sc_void;
4230 __ret161:
4231         /* set return address */
4232         ST_RET() = (int)&&__ret169;
4233
4234
4235
4236         r_res = (int)&__sc_char5;
4237         push(r_res);
4238         push(1);
4239         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4240         if (r_res==0) goto __else192;
4241         if (! ((SymbolEntry*)r_res)->isDefined) goto __else192;
4242         r_res = (int)((SymbolEntry*)r_res)->sob;
4243         goto __endIf192;
4244 __else192:
4245         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4246 __endIf192:
4247         if (IS_SOB_CLOSURE(r_res)) goto __app115;
4248         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4249 __app115:
4250         push((int)SOB_CLOSURE_ENV(r_res));
4251         push((int)&&__ret172);
4252         goto *(SOB_CLOSURE_CODE(r_res));
4253 __ret172:
4254         sp = sp-2-stack[sp-2];
4255         push(r_res);
4256
4257         r_res = (int)&__sc_char6;
4258         push(r_res);
4259         push(1);
4260         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4261         if (r_res==0) goto __else193;
4262         if (! ((SymbolEntry*)r_res)->isDefined) goto __else193;
4263         r_res = (int)((SymbolEntry*)r_res)->sob;
4264         goto __endIf193;
4265 __else193:
4266         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4267 __endIf193:
4268         if (IS_SOB_CLOSURE(r_res)) goto __app116;
4269         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4270 __app116:
4271         push((int)SOB_CLOSURE_ENV(r_res));
4272         push((int)&&__ret173);
4273         goto *(SOB_CLOSURE_CODE(r_res));
4274 __ret173:
4275         sp = sp-2-stack[sp-2];
4276         push(r_res);
4277         push(2);
4278         r_res = (int)probeSymbolDefined("-",topLevel);
4279         if (r_res==0) goto __else194;
4280         if (! ((SymbolEntry*)r_res)->isDefined) goto __else194;
4281         r_res = (int)((SymbolEntry*)r_res)->sob;
4282         goto __endIf194;
4283 __else194:
4284         fprintf(stderr,"Symbol - not defined"); exit(-1);
4285 __endIf194:
4286         if (IS_SOB_CLOSURE(r_res)) goto __app114;
4287         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4288 __app114:
4289         push((int)SOB_CLOSURE_ENV(r_res));
4290         push((int)&&__ret171);
4291         goto *(SOB_CLOSURE_CODE(r_res));
4292 __ret171:
4293         sp = sp-2-stack[sp-2];
4294         push(r_res);
4295         push(1);
4296         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4297         goto __skipBody47;
4298 __body47:
4299         push(fp);
4300         fp = sp;
4301         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4302         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
4303         goto __skipBody48;
4304 __body48:
4305         push(fp);
4306         fp = sp;
4307         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4308
4309         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4310         r_res = ST_ARG(0);
4311         push(r_res);
4312         push(1);
4313         r_res = (int)probeSymbolDefined("char-uppercase?",topLevel);
4314         if (r_res==0) goto __else196;
4315         if (! ((SymbolEntry*)r_res)->isDefined) goto __else196;
4316         r_res = (int)((SymbolEntry*)r_res)->sob;
4317         goto __endIf196;
4318 __else196:
4319         fprintf(stderr,"Symbol char-uppercase\? not defined"); exit(-1);
4320 __endIf196:
4321         if (IS_SOB_CLOSURE(r_res)) goto __app117;
4322         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4323 __app117:
4324         push((int)SOB_CLOSURE_ENV(r_res));
4325         push((int)&&__ret174);
4326         goto *(SOB_CLOSURE_CODE(r_res));
4327 __ret174:
4328         sp = sp-2-stack[sp-2];
4329         if ((SchemeObject*)r_res==&sc_false) goto __else195;
4330
4331
4332         r_res = ((int**)ST_ENV())[0][0];
4333         push(r_res);
4334
4335         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4336         r_res = ST_ARG(0);
4337         push(r_res);
4338         push(1);
4339         r_res = (int)probeSymbolDefined("char->integer",topLevel);
4340         if (r_res==0) goto __else197;
4341         if (! ((SymbolEntry*)r_res)->isDefined) goto __else197;
4342         r_res = (int)((SymbolEntry*)r_res)->sob;
4343         goto __endIf197;
4344 __else197:
4345         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
4346 __endIf197:
4347         if (IS_SOB_CLOSURE(r_res)) goto __app119;
4348         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4349 __app119:
4350         push((int)SOB_CLOSURE_ENV(r_res));
4351         push((int)&&__ret176);
4352         goto *(SOB_CLOSURE_CODE(r_res));
4353 __ret176:
4354         sp = sp-2-stack[sp-2];
4355         push(r_res);
4356         push(2);
4357         r_res = (int)probeSymbolDefined("+",topLevel);
4358         if (r_res==0) goto __else198;
4359         if (! ((SymbolEntry*)r_res)->isDefined) goto __else198;
4360         r_res = (int)((SymbolEntry*)r_res)->sob;
4361         goto __endIf198;
4362 __else198:
4363         fprintf(stderr,"Symbol + not defined"); exit(-1);
4364 __endIf198:
4365         if (IS_SOB_CLOSURE(r_res)) goto __app118;
4366         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4367 __app118:
4368         push((int)SOB_CLOSURE_ENV(r_res));
4369         push((int)&&__ret175);
4370         goto *(SOB_CLOSURE_CODE(r_res));
4371 __ret175:
4372         sp = sp-2-stack[sp-2];
4373         push(r_res);
4374         push(1);
4375         r_res = (int)probeSymbolDefined("integer->char",topLevel);
4376         if (r_res==0) goto __else199;
4377         if (! ((SymbolEntry*)r_res)->isDefined) goto __else199;
4378         r_res = (int)((SymbolEntry*)r_res)->sob;
4379         goto __endIf199;
4380 __else199:
4381         fprintf(stderr,"Symbol integer->char not defined"); exit(-1);
4382 __endIf199:
4383         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4384         push((int)SOB_CLOSURE_ENV(r_res));
4385         push(ST_RET());
4386         shiftActFrmDown();
4387         goto *(SOB_CLOSURE_CODE(r_res));
4388         sp = sp-2-stack[sp-2];
4389         goto __endIf195;
4390 __else195:
4391         r_res = (int)&sc_void;
4392 __endIf195:
4393         fp = pop();
4394         RETURN();
4395 __skipBody48:
4396         r_res = (int)makeSchemeClosure((void*)r[0],&&__body48);
4397         fp = pop();
4398         RETURN();
4399 __skipBody47:
4400         r_res = (int)makeSchemeClosure((void*)r[0],&&__body47);
4401         if (IS_SOB_CLOSURE(r_res)) goto __app113;
4402         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4403 __app113:
4404         push((int)SOB_CLOSURE_ENV(r_res));
4405         push((int)&&__ret170);
4406         goto *(SOB_CLOSURE_CODE(r_res));
4407 __ret170:
4408         sp = sp-2-stack[sp-2];
4409         r[0] = (int)getSymbol("char-downcase",topLevel);
4410         ((SymbolEntry*)r[0])->isDefined = 1;
4411         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4412         r_res = (int)&sc_void;
4413 __ret169:
4414         /* set return address */
4415         ST_RET() = (int)&&__ret177;
4416
4417
4418         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4419         goto __skipBody49;
4420 __body49:
4421         push(fp);
4422         fp = sp;
4423         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4424
4425
4426         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4427         r_res = ST_ARG(1);
4428         push(r_res);
4429         push(1);
4430         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4431         if (r_res==0) goto __else200;
4432         if (! ((SymbolEntry*)r_res)->isDefined) goto __else200;
4433         r_res = (int)((SymbolEntry*)r_res)->sob;
4434         goto __endIf200;
4435 __else200:
4436         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4437 __endIf200:
4438         if (IS_SOB_CLOSURE(r_res)) goto __app121;
4439         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4440 __app121:
4441         push((int)SOB_CLOSURE_ENV(r_res));
4442         push((int)&&__ret179);
4443         goto *(SOB_CLOSURE_CODE(r_res));
4444 __ret179:
4445         sp = sp-2-stack[sp-2];
4446         push(r_res);
4447
4448         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4449         r_res = ST_ARG(0);
4450         push(r_res);
4451         push(1);
4452         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4453         if (r_res==0) goto __else201;
4454         if (! ((SymbolEntry*)r_res)->isDefined) goto __else201;
4455         r_res = (int)((SymbolEntry*)r_res)->sob;
4456         goto __endIf201;
4457 __else201:
4458         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4459 __endIf201:
4460         if (IS_SOB_CLOSURE(r_res)) goto __app122;
4461         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4462 __app122:
4463         push((int)SOB_CLOSURE_ENV(r_res));
4464         push((int)&&__ret180);
4465         goto *(SOB_CLOSURE_CODE(r_res));
4466 __ret180:
4467         sp = sp-2-stack[sp-2];
4468         push(r_res);
4469         push(2);
4470         r_res = (int)probeSymbolDefined("char<=?",topLevel);
4471         if (r_res==0) goto __else202;
4472         if (! ((SymbolEntry*)r_res)->isDefined) goto __else202;
4473         r_res = (int)((SymbolEntry*)r_res)->sob;
4474         goto __endIf202;
4475 __else202:
4476         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
4477 __endIf202:
4478         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4479         push((int)SOB_CLOSURE_ENV(r_res));
4480         push(ST_RET());
4481         shiftActFrmDown();
4482         goto *(SOB_CLOSURE_CODE(r_res));
4483         sp = sp-2-stack[sp-2];
4484         fp = pop();
4485         RETURN();
4486 __skipBody49:
4487         r_res = (int)makeSchemeClosure((void*)r[0],&&__body49);
4488         push(r_res);
4489         push(1);
4490         r_res = (int)probeSymbolDefined("order",topLevel);
4491         if (r_res==0) goto __else203;
4492         if (! ((SymbolEntry*)r_res)->isDefined) goto __else203;
4493         r_res = (int)((SymbolEntry*)r_res)->sob;
4494         goto __endIf203;
4495 __else203:
4496         fprintf(stderr,"Symbol order not defined"); exit(-1);
4497 __endIf203:
4498         if (IS_SOB_CLOSURE(r_res)) goto __app120;
4499         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4500 __app120:
4501         push((int)SOB_CLOSURE_ENV(r_res));
4502         push((int)&&__ret178);
4503         goto *(SOB_CLOSURE_CODE(r_res));
4504 __ret178:
4505         sp = sp-2-stack[sp-2];
4506         r[0] = (int)getSymbol("char-ci<=?",topLevel);
4507         ((SymbolEntry*)r[0])->isDefined = 1;
4508         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4509         r_res = (int)&sc_void;
4510 __ret177:
4511         /* set return address */
4512         ST_RET() = (int)&&__ret181;
4513
4514
4515         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4516         goto __skipBody50;
4517 __body50:
4518         push(fp);
4519         fp = sp;
4520         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4521
4522
4523         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4524         r_res = ST_ARG(1);
4525         push(r_res);
4526         push(1);
4527         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4528         if (r_res==0) goto __else204;
4529         if (! ((SymbolEntry*)r_res)->isDefined) goto __else204;
4530         r_res = (int)((SymbolEntry*)r_res)->sob;
4531         goto __endIf204;
4532 __else204:
4533         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4534 __endIf204:
4535         if (IS_SOB_CLOSURE(r_res)) goto __app124;
4536         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4537 __app124:
4538         push((int)SOB_CLOSURE_ENV(r_res));
4539         push((int)&&__ret183);
4540         goto *(SOB_CLOSURE_CODE(r_res));
4541 __ret183:
4542         sp = sp-2-stack[sp-2];
4543         push(r_res);
4544
4545         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4546         r_res = ST_ARG(0);
4547         push(r_res);
4548         push(1);
4549         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4550         if (r_res==0) goto __else205;
4551         if (! ((SymbolEntry*)r_res)->isDefined) goto __else205;
4552         r_res = (int)((SymbolEntry*)r_res)->sob;
4553         goto __endIf205;
4554 __else205:
4555         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4556 __endIf205:
4557         if (IS_SOB_CLOSURE(r_res)) goto __app125;
4558         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4559 __app125:
4560         push((int)SOB_CLOSURE_ENV(r_res));
4561         push((int)&&__ret184);
4562         goto *(SOB_CLOSURE_CODE(r_res));
4563 __ret184:
4564         sp = sp-2-stack[sp-2];
4565         push(r_res);
4566         push(2);
4567         r_res = (int)probeSymbolDefined("char<?",topLevel);
4568         if (r_res==0) goto __else206;
4569         if (! ((SymbolEntry*)r_res)->isDefined) goto __else206;
4570         r_res = (int)((SymbolEntry*)r_res)->sob;
4571         goto __endIf206;
4572 __else206:
4573         fprintf(stderr,"Symbol char<\? not defined"); exit(-1);
4574 __endIf206:
4575         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4576         push((int)SOB_CLOSURE_ENV(r_res));
4577         push(ST_RET());
4578         shiftActFrmDown();
4579         goto *(SOB_CLOSURE_CODE(r_res));
4580         sp = sp-2-stack[sp-2];
4581         fp = pop();
4582         RETURN();
4583 __skipBody50:
4584         r_res = (int)makeSchemeClosure((void*)r[0],&&__body50);
4585         push(r_res);
4586         push(1);
4587         r_res = (int)probeSymbolDefined("order",topLevel);
4588         if (r_res==0) goto __else207;
4589         if (! ((SymbolEntry*)r_res)->isDefined) goto __else207;
4590         r_res = (int)((SymbolEntry*)r_res)->sob;
4591         goto __endIf207;
4592 __else207:
4593         fprintf(stderr,"Symbol order not defined"); exit(-1);
4594 __endIf207:
4595         if (IS_SOB_CLOSURE(r_res)) goto __app123;
4596         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4597 __app123:
4598         push((int)SOB_CLOSURE_ENV(r_res));
4599         push((int)&&__ret182);
4600         goto *(SOB_CLOSURE_CODE(r_res));
4601 __ret182:
4602         sp = sp-2-stack[sp-2];
4603         r[0] = (int)getSymbol("char-ci<?",topLevel);
4604         ((SymbolEntry*)r[0])->isDefined = 1;
4605         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4606         r_res = (int)&sc_void;
4607 __ret181:
4608         /* set return address */
4609         ST_RET() = (int)&&__ret185;
4610
4611
4612         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4613         goto __skipBody51;
4614 __body51:
4615         push(fp);
4616         fp = sp;
4617         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4618
4619
4620         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4621         r_res = ST_ARG(1);
4622         push(r_res);
4623         push(1);
4624         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4625         if (r_res==0) goto __else208;
4626         if (! ((SymbolEntry*)r_res)->isDefined) goto __else208;
4627         r_res = (int)((SymbolEntry*)r_res)->sob;
4628         goto __endIf208;
4629 __else208:
4630         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4631 __endIf208:
4632         if (IS_SOB_CLOSURE(r_res)) goto __app127;
4633         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4634 __app127:
4635         push((int)SOB_CLOSURE_ENV(r_res));
4636         push((int)&&__ret187);
4637         goto *(SOB_CLOSURE_CODE(r_res));
4638 __ret187:
4639         sp = sp-2-stack[sp-2];
4640         push(r_res);
4641
4642         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4643         r_res = ST_ARG(0);
4644         push(r_res);
4645         push(1);
4646         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4647         if (r_res==0) goto __else209;
4648         if (! ((SymbolEntry*)r_res)->isDefined) goto __else209;
4649         r_res = (int)((SymbolEntry*)r_res)->sob;
4650         goto __endIf209;
4651 __else209:
4652         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4653 __endIf209:
4654         if (IS_SOB_CLOSURE(r_res)) goto __app128;
4655         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4656 __app128:
4657         push((int)SOB_CLOSURE_ENV(r_res));
4658         push((int)&&__ret188);
4659         goto *(SOB_CLOSURE_CODE(r_res));
4660 __ret188:
4661         sp = sp-2-stack[sp-2];
4662         push(r_res);
4663         push(2);
4664         r_res = (int)probeSymbolDefined("char=?",topLevel);
4665         if (r_res==0) goto __else210;
4666         if (! ((SymbolEntry*)r_res)->isDefined) goto __else210;
4667         r_res = (int)((SymbolEntry*)r_res)->sob;
4668         goto __endIf210;
4669 __else210:
4670         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
4671 __endIf210:
4672         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4673         push((int)SOB_CLOSURE_ENV(r_res));
4674         push(ST_RET());
4675         shiftActFrmDown();
4676         goto *(SOB_CLOSURE_CODE(r_res));
4677         sp = sp-2-stack[sp-2];
4678         fp = pop();
4679         RETURN();
4680 __skipBody51:
4681         r_res = (int)makeSchemeClosure((void*)r[0],&&__body51);
4682         push(r_res);
4683         push(1);
4684         r_res = (int)probeSymbolDefined("order",topLevel);
4685         if (r_res==0) goto __else211;
4686         if (! ((SymbolEntry*)r_res)->isDefined) goto __else211;
4687         r_res = (int)((SymbolEntry*)r_res)->sob;
4688         goto __endIf211;
4689 __else211:
4690         fprintf(stderr,"Symbol order not defined"); exit(-1);
4691 __endIf211:
4692         if (IS_SOB_CLOSURE(r_res)) goto __app126;
4693         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4694 __app126:
4695         push((int)SOB_CLOSURE_ENV(r_res));
4696         push((int)&&__ret186);
4697         goto *(SOB_CLOSURE_CODE(r_res));
4698 __ret186:
4699         sp = sp-2-stack[sp-2];
4700         r[0] = (int)getSymbol("char-ci=?",topLevel);
4701         ((SymbolEntry*)r[0])->isDefined = 1;
4702         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4703         r_res = (int)&sc_void;
4704 __ret185:
4705         /* set return address */
4706         ST_RET() = (int)&&__ret189;
4707
4708
4709         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4710         goto __skipBody52;
4711 __body52:
4712         push(fp);
4713         fp = sp;
4714         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4715
4716
4717         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4718         r_res = ST_ARG(1);
4719         push(r_res);
4720         push(1);
4721         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4722         if (r_res==0) goto __else212;
4723         if (! ((SymbolEntry*)r_res)->isDefined) goto __else212;
4724         r_res = (int)((SymbolEntry*)r_res)->sob;
4725         goto __endIf212;
4726 __else212:
4727         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4728 __endIf212:
4729         if (IS_SOB_CLOSURE(r_res)) goto __app130;
4730         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4731 __app130:
4732         push((int)SOB_CLOSURE_ENV(r_res));
4733         push((int)&&__ret191);
4734         goto *(SOB_CLOSURE_CODE(r_res));
4735 __ret191:
4736         sp = sp-2-stack[sp-2];
4737         push(r_res);
4738
4739         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4740         r_res = ST_ARG(0);
4741         push(r_res);
4742         push(1);
4743         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4744         if (r_res==0) goto __else213;
4745         if (! ((SymbolEntry*)r_res)->isDefined) goto __else213;
4746         r_res = (int)((SymbolEntry*)r_res)->sob;
4747         goto __endIf213;
4748 __else213:
4749         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4750 __endIf213:
4751         if (IS_SOB_CLOSURE(r_res)) goto __app131;
4752         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4753 __app131:
4754         push((int)SOB_CLOSURE_ENV(r_res));
4755         push((int)&&__ret192);
4756         goto *(SOB_CLOSURE_CODE(r_res));
4757 __ret192:
4758         sp = sp-2-stack[sp-2];
4759         push(r_res);
4760         push(2);
4761         r_res = (int)probeSymbolDefined("char>?",topLevel);
4762         if (r_res==0) goto __else214;
4763         if (! ((SymbolEntry*)r_res)->isDefined) goto __else214;
4764         r_res = (int)((SymbolEntry*)r_res)->sob;
4765         goto __endIf214;
4766 __else214:
4767         fprintf(stderr,"Symbol char>\? not defined"); exit(-1);
4768 __endIf214:
4769         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4770         push((int)SOB_CLOSURE_ENV(r_res));
4771         push(ST_RET());
4772         shiftActFrmDown();
4773         goto *(SOB_CLOSURE_CODE(r_res));
4774         sp = sp-2-stack[sp-2];
4775         fp = pop();
4776         RETURN();
4777 __skipBody52:
4778         r_res = (int)makeSchemeClosure((void*)r[0],&&__body52);
4779         push(r_res);
4780         push(1);
4781         r_res = (int)probeSymbolDefined("order",topLevel);
4782         if (r_res==0) goto __else215;
4783         if (! ((SymbolEntry*)r_res)->isDefined) goto __else215;
4784         r_res = (int)((SymbolEntry*)r_res)->sob;
4785         goto __endIf215;
4786 __else215:
4787         fprintf(stderr,"Symbol order not defined"); exit(-1);
4788 __endIf215:
4789         if (IS_SOB_CLOSURE(r_res)) goto __app129;
4790         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4791 __app129:
4792         push((int)SOB_CLOSURE_ENV(r_res));
4793         push((int)&&__ret190);
4794         goto *(SOB_CLOSURE_CODE(r_res));
4795 __ret190:
4796         sp = sp-2-stack[sp-2];
4797         r[0] = (int)getSymbol("char-ci>?",topLevel);
4798         ((SymbolEntry*)r[0])->isDefined = 1;
4799         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4800         r_res = (int)&sc_void;
4801 __ret189:
4802         /* set return address */
4803         ST_RET() = (int)&&__ret193;
4804
4805
4806         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4807         goto __skipBody53;
4808 __body53:
4809         push(fp);
4810         fp = sp;
4811         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4812
4813
4814         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
4815         r_res = ST_ARG(1);
4816         push(r_res);
4817         push(1);
4818         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4819         if (r_res==0) goto __else216;
4820         if (! ((SymbolEntry*)r_res)->isDefined) goto __else216;
4821         r_res = (int)((SymbolEntry*)r_res)->sob;
4822         goto __endIf216;
4823 __else216:
4824         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4825 __endIf216:
4826         if (IS_SOB_CLOSURE(r_res)) goto __app133;
4827         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4828 __app133:
4829         push((int)SOB_CLOSURE_ENV(r_res));
4830         push((int)&&__ret195);
4831         goto *(SOB_CLOSURE_CODE(r_res));
4832 __ret195:
4833         sp = sp-2-stack[sp-2];
4834         push(r_res);
4835
4836         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4837         r_res = ST_ARG(0);
4838         push(r_res);
4839         push(1);
4840         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4841         if (r_res==0) goto __else217;
4842         if (! ((SymbolEntry*)r_res)->isDefined) goto __else217;
4843         r_res = (int)((SymbolEntry*)r_res)->sob;
4844         goto __endIf217;
4845 __else217:
4846         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4847 __endIf217:
4848         if (IS_SOB_CLOSURE(r_res)) goto __app134;
4849         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4850 __app134:
4851         push((int)SOB_CLOSURE_ENV(r_res));
4852         push((int)&&__ret196);
4853         goto *(SOB_CLOSURE_CODE(r_res));
4854 __ret196:
4855         sp = sp-2-stack[sp-2];
4856         push(r_res);
4857         push(2);
4858         r_res = (int)probeSymbolDefined("char>=?",topLevel);
4859         if (r_res==0) goto __else218;
4860         if (! ((SymbolEntry*)r_res)->isDefined) goto __else218;
4861         r_res = (int)((SymbolEntry*)r_res)->sob;
4862         goto __endIf218;
4863 __else218:
4864         fprintf(stderr,"Symbol char>=\? not defined"); exit(-1);
4865 __endIf218:
4866         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4867         push((int)SOB_CLOSURE_ENV(r_res));
4868         push(ST_RET());
4869         shiftActFrmDown();
4870         goto *(SOB_CLOSURE_CODE(r_res));
4871         sp = sp-2-stack[sp-2];
4872         fp = pop();
4873         RETURN();
4874 __skipBody53:
4875         r_res = (int)makeSchemeClosure((void*)r[0],&&__body53);
4876         push(r_res);
4877         push(1);
4878         r_res = (int)probeSymbolDefined("order",topLevel);
4879         if (r_res==0) goto __else219;
4880         if (! ((SymbolEntry*)r_res)->isDefined) goto __else219;
4881         r_res = (int)((SymbolEntry*)r_res)->sob;
4882         goto __endIf219;
4883 __else219:
4884         fprintf(stderr,"Symbol order not defined"); exit(-1);
4885 __endIf219:
4886         if (IS_SOB_CLOSURE(r_res)) goto __app132;
4887         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4888 __app132:
4889         push((int)SOB_CLOSURE_ENV(r_res));
4890         push((int)&&__ret194);
4891         goto *(SOB_CLOSURE_CODE(r_res));
4892 __ret194:
4893         sp = sp-2-stack[sp-2];
4894         r[0] = (int)getSymbol("char-ci>=?",topLevel);
4895         ((SymbolEntry*)r[0])->isDefined = 1;
4896         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4897         r_res = (int)&sc_void;
4898 __ret193:
4899         /* set return address */
4900         ST_RET() = (int)&&__ret197;
4901
4902         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4903         goto __skipBody54;
4904 __body54:
4905         push(fp);
4906         fp = sp;
4907         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4908
4909
4910
4911         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4912         r_res = ST_ARG(0);
4913         push(r_res);
4914         push(1);
4915         r_res = (int)probeSymbolDefined("string->list",topLevel);
4916         if (r_res==0) goto __else220;
4917         if (! ((SymbolEntry*)r_res)->isDefined) goto __else220;
4918         r_res = (int)((SymbolEntry*)r_res)->sob;
4919         goto __endIf220;
4920 __else220:
4921         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
4922 __endIf220:
4923         if (IS_SOB_CLOSURE(r_res)) goto __app136;
4924         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4925 __app136:
4926         push((int)SOB_CLOSURE_ENV(r_res));
4927         push((int)&&__ret199);
4928         goto *(SOB_CLOSURE_CODE(r_res));
4929 __ret199:
4930         sp = sp-2-stack[sp-2];
4931         push(r_res);
4932         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
4933         if (r_res==0) goto __else221;
4934         if (! ((SymbolEntry*)r_res)->isDefined) goto __else221;
4935         r_res = (int)((SymbolEntry*)r_res)->sob;
4936         goto __endIf221;
4937 __else221:
4938         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
4939 __endIf221:
4940         push(r_res);
4941         push(2);
4942         r_res = (int)probeSymbolDefined("map",topLevel);
4943         if (r_res==0) goto __else222;
4944         if (! ((SymbolEntry*)r_res)->isDefined) goto __else222;
4945         r_res = (int)((SymbolEntry*)r_res)->sob;
4946         goto __endIf222;
4947 __else222:
4948         fprintf(stderr,"Symbol map not defined"); exit(-1);
4949 __endIf222:
4950         if (IS_SOB_CLOSURE(r_res)) goto __app135;
4951         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
4952 __app135:
4953         push((int)SOB_CLOSURE_ENV(r_res));
4954         push((int)&&__ret198);
4955         goto *(SOB_CLOSURE_CODE(r_res));
4956 __ret198:
4957         sp = sp-2-stack[sp-2];
4958         push(r_res);
4959         push(1);
4960         r_res = (int)probeSymbolDefined("list->string",topLevel);
4961         if (r_res==0) goto __else223;
4962         if (! ((SymbolEntry*)r_res)->isDefined) goto __else223;
4963         r_res = (int)((SymbolEntry*)r_res)->sob;
4964         goto __endIf223;
4965 __else223:
4966         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
4967 __endIf223:
4968         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4969         push((int)SOB_CLOSURE_ENV(r_res));
4970         push(ST_RET());
4971         shiftActFrmDown();
4972         goto *(SOB_CLOSURE_CODE(r_res));
4973         sp = sp-2-stack[sp-2];
4974         fp = pop();
4975         RETURN();
4976 __skipBody54:
4977         r_res = (int)makeSchemeClosure((void*)r[0],&&__body54);
4978         r[0] = (int)getSymbol("string-upcase",topLevel);
4979         ((SymbolEntry*)r[0])->isDefined = 1;
4980         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
4981         r_res = (int)&sc_void;
4982 __ret197:
4983         /* set return address */
4984         ST_RET() = (int)&&__ret200;
4985
4986         r[0] = (int)extendEnviroment( (int**)NULL, 0);
4987         goto __skipBody55;
4988 __body55:
4989         push(fp);
4990         fp = sp;
4991         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
4992
4993
4994
4995         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
4996         r_res = ST_ARG(0);
4997         push(r_res);
4998         push(1);
4999         r_res = (int)probeSymbolDefined("string->list",topLevel);
5000         if (r_res==0) goto __else224;
5001         if (! ((SymbolEntry*)r_res)->isDefined) goto __else224;
5002         r_res = (int)((SymbolEntry*)r_res)->sob;
5003         goto __endIf224;
5004 __else224:
5005         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
5006 __endIf224:
5007         if (IS_SOB_CLOSURE(r_res)) goto __app138;
5008         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5009 __app138:
5010         push((int)SOB_CLOSURE_ENV(r_res));
5011         push((int)&&__ret202);
5012         goto *(SOB_CLOSURE_CODE(r_res));
5013 __ret202:
5014         sp = sp-2-stack[sp-2];
5015         push(r_res);
5016         r_res = (int)probeSymbolDefined("char-downcase",topLevel);
5017         if (r_res==0) goto __else225;
5018         if (! ((SymbolEntry*)r_res)->isDefined) goto __else225;
5019         r_res = (int)((SymbolEntry*)r_res)->sob;
5020         goto __endIf225;
5021 __else225:
5022         fprintf(stderr,"Symbol char-downcase not defined"); exit(-1);
5023 __endIf225:
5024         push(r_res);
5025         push(2);
5026         r_res = (int)probeSymbolDefined("map",topLevel);
5027         if (r_res==0) goto __else226;
5028         if (! ((SymbolEntry*)r_res)->isDefined) goto __else226;
5029         r_res = (int)((SymbolEntry*)r_res)->sob;
5030         goto __endIf226;
5031 __else226:
5032         fprintf(stderr,"Symbol map not defined"); exit(-1);
5033 __endIf226:
5034         if (IS_SOB_CLOSURE(r_res)) goto __app137;
5035         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5036 __app137:
5037         push((int)SOB_CLOSURE_ENV(r_res));
5038         push((int)&&__ret201);
5039         goto *(SOB_CLOSURE_CODE(r_res));
5040 __ret201:
5041         sp = sp-2-stack[sp-2];
5042         push(r_res);
5043         push(1);
5044         r_res = (int)probeSymbolDefined("list->string",topLevel);
5045         if (r_res==0) goto __else227;
5046         if (! ((SymbolEntry*)r_res)->isDefined) goto __else227;
5047         r_res = (int)((SymbolEntry*)r_res)->sob;
5048         goto __endIf227;
5049 __else227:
5050         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
5051 __endIf227:
5052         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5053         push((int)SOB_CLOSURE_ENV(r_res));
5054         push(ST_RET());
5055         shiftActFrmDown();
5056         goto *(SOB_CLOSURE_CODE(r_res));
5057         sp = sp-2-stack[sp-2];
5058         fp = pop();
5059         RETURN();
5060 __skipBody55:
5061         r_res = (int)makeSchemeClosure((void*)r[0],&&__body55);
5062         r[0] = (int)getSymbol("string-downcase",topLevel);
5063         ((SymbolEntry*)r[0])->isDefined = 1;
5064         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5065         r_res = (int)&sc_void;
5066 __ret200:
5067         /* set return address */
5068         ST_RET() = (int)&&__ret203;
5069
5070         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5071         goto __skipBody56;
5072 __body56:
5073         push(fp);
5074         fp = sp;
5075         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5076
5077
5078         r_res = (int)&__sc_number22;
5079         push(r_res);
5080         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5081         r_res = ST_ARG(0);
5082         push(r_res);
5083         push(2);
5084         r_res = (int)probeSymbolDefined("remainder",topLevel);
5085         if (r_res==0) goto __else228;
5086         if (! ((SymbolEntry*)r_res)->isDefined) goto __else228;
5087         r_res = (int)((SymbolEntry*)r_res)->sob;
5088         goto __endIf228;
5089 __else228:
5090         fprintf(stderr,"Symbol remainder not defined"); exit(-1);
5091 __endIf228:
5092         if (IS_SOB_CLOSURE(r_res)) goto __app139;
5093         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5094 __app139:
5095         push((int)SOB_CLOSURE_ENV(r_res));
5096         push((int)&&__ret204);
5097         goto *(SOB_CLOSURE_CODE(r_res));
5098 __ret204:
5099         sp = sp-2-stack[sp-2];
5100         push(r_res);
5101         push(1);
5102         r_res = (int)probeSymbolDefined("zero?",topLevel);
5103         if (r_res==0) goto __else229;
5104         if (! ((SymbolEntry*)r_res)->isDefined) goto __else229;
5105         r_res = (int)((SymbolEntry*)r_res)->sob;
5106         goto __endIf229;
5107 __else229:
5108         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
5109 __endIf229:
5110         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5111         push((int)SOB_CLOSURE_ENV(r_res));
5112         push(ST_RET());
5113         shiftActFrmDown();
5114         goto *(SOB_CLOSURE_CODE(r_res));
5115         sp = sp-2-stack[sp-2];
5116         fp = pop();
5117         RETURN();
5118 __skipBody56:
5119         r_res = (int)makeSchemeClosure((void*)r[0],&&__body56);
5120         r[0] = (int)getSymbol("even?",topLevel);
5121         ((SymbolEntry*)r[0])->isDefined = 1;
5122         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5123         r_res = (int)&sc_void;
5124 __ret203:
5125         /* set return address */
5126         ST_RET() = (int)&&__ret205;
5127
5128         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5129         goto __skipBody57;
5130 __body57:
5131         push(fp);
5132         fp = sp;
5133         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5134
5135
5136
5137         r_res = (int)&__sc_number23;
5138         push(r_res);
5139         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5140         r_res = ST_ARG(0);
5141         push(r_res);
5142         push(2);
5143         r_res = (int)probeSymbolDefined("remainder",topLevel);
5144         if (r_res==0) goto __else230;
5145         if (! ((SymbolEntry*)r_res)->isDefined) goto __else230;
5146         r_res = (int)((SymbolEntry*)r_res)->sob;
5147         goto __endIf230;
5148 __else230:
5149         fprintf(stderr,"Symbol remainder not defined"); exit(-1);
5150 __endIf230:
5151         if (IS_SOB_CLOSURE(r_res)) goto __app141;
5152         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5153 __app141:
5154         push((int)SOB_CLOSURE_ENV(r_res));
5155         push((int)&&__ret207);
5156         goto *(SOB_CLOSURE_CODE(r_res));
5157 __ret207:
5158         sp = sp-2-stack[sp-2];
5159         push(r_res);
5160         push(1);
5161         r_res = (int)probeSymbolDefined("zero?",topLevel);
5162         if (r_res==0) goto __else231;
5163         if (! ((SymbolEntry*)r_res)->isDefined) goto __else231;
5164         r_res = (int)((SymbolEntry*)r_res)->sob;
5165         goto __endIf231;
5166 __else231:
5167         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
5168 __endIf231:
5169         if (IS_SOB_CLOSURE(r_res)) goto __app140;
5170         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5171 __app140:
5172         push((int)SOB_CLOSURE_ENV(r_res));
5173         push((int)&&__ret206);
5174         goto *(SOB_CLOSURE_CODE(r_res));
5175 __ret206:
5176         sp = sp-2-stack[sp-2];
5177         push(r_res);
5178         push(1);
5179         r_res = (int)probeSymbolDefined("not",topLevel);
5180         if (r_res==0) goto __else232;
5181         if (! ((SymbolEntry*)r_res)->isDefined) goto __else232;
5182         r_res = (int)((SymbolEntry*)r_res)->sob;
5183         goto __endIf232;
5184 __else232:
5185         fprintf(stderr,"Symbol not not defined"); exit(-1);
5186 __endIf232:
5187         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5188         push((int)SOB_CLOSURE_ENV(r_res));
5189         push(ST_RET());
5190         shiftActFrmDown();
5191         goto *(SOB_CLOSURE_CODE(r_res));
5192         sp = sp-2-stack[sp-2];
5193         fp = pop();
5194         RETURN();
5195 __skipBody57:
5196         r_res = (int)makeSchemeClosure((void*)r[0],&&__body57);
5197         r[0] = (int)getSymbol("odd?",topLevel);
5198         ((SymbolEntry*)r[0])->isDefined = 1;
5199         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5200         r_res = (int)&sc_void;
5201 __ret205:
5202         /* set return address */
5203         ST_RET() = (int)&&__ret208;
5204
5205         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5206         goto __skipBody58;
5207 __body58:
5208         push(fp);
5209         fp = sp;
5210         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5211
5212         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5213         r_res = ST_ARG(0);
5214         push(r_res);
5215         push(1);
5216         r_res = (int)probeSymbolDefined("null?",topLevel);
5217         if (r_res==0) goto __else234;
5218         if (! ((SymbolEntry*)r_res)->isDefined) goto __else234;
5219         r_res = (int)((SymbolEntry*)r_res)->sob;
5220         goto __endIf234;
5221 __else234:
5222         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
5223 __endIf234:
5224         if (IS_SOB_CLOSURE(r_res)) goto __app142;
5225         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5226 __app142:
5227         push((int)SOB_CLOSURE_ENV(r_res));
5228         push((int)&&__ret209);
5229         goto *(SOB_CLOSURE_CODE(r_res));
5230 __ret209:
5231         sp = sp-2-stack[sp-2];
5232         if ((SchemeObject*)r_res==&sc_false) goto __else233;
5233         r_res = (int)&__sc_number24;
5234         goto __endIf233;
5235 __else233:
5236
5237
5238
5239         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5240         r_res = ST_ARG(0);
5241         push(r_res);
5242         push(1);
5243         r_res = (int)probeSymbolDefined("cdr",topLevel);
5244         if (r_res==0) goto __else235;
5245         if (! ((SymbolEntry*)r_res)->isDefined) goto __else235;
5246         r_res = (int)((SymbolEntry*)r_res)->sob;
5247         goto __endIf235;
5248 __else235:
5249         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5250 __endIf235:
5251         if (IS_SOB_CLOSURE(r_res)) goto __app144;
5252         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5253 __app144:
5254         push((int)SOB_CLOSURE_ENV(r_res));
5255         push((int)&&__ret211);
5256         goto *(SOB_CLOSURE_CODE(r_res));
5257 __ret211:
5258         sp = sp-2-stack[sp-2];
5259         push(r_res);
5260         push(1);
5261         r_res = (int)probeSymbolDefined("length",topLevel);
5262         if (r_res==0) goto __else236;
5263         if (! ((SymbolEntry*)r_res)->isDefined) goto __else236;
5264         r_res = (int)((SymbolEntry*)r_res)->sob;
5265         goto __endIf236;
5266 __else236:
5267         fprintf(stderr,"Symbol length not defined"); exit(-1);
5268 __endIf236:
5269         if (IS_SOB_CLOSURE(r_res)) goto __app143;
5270         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5271 __app143:
5272         push((int)SOB_CLOSURE_ENV(r_res));
5273         push((int)&&__ret210);
5274         goto *(SOB_CLOSURE_CODE(r_res));
5275 __ret210:
5276         sp = sp-2-stack[sp-2];
5277         push(r_res);
5278         push(1);
5279         r_res = (int)probeSymbolDefined("add1",topLevel);
5280         if (r_res==0) goto __else237;
5281         if (! ((SymbolEntry*)r_res)->isDefined) goto __else237;
5282         r_res = (int)((SymbolEntry*)r_res)->sob;
5283         goto __endIf237;
5284 __else237:
5285         fprintf(stderr,"Symbol add1 not defined"); exit(-1);
5286 __endIf237:
5287         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5288         push((int)SOB_CLOSURE_ENV(r_res));
5289         push(ST_RET());
5290         shiftActFrmDown();
5291         goto *(SOB_CLOSURE_CODE(r_res));
5292         sp = sp-2-stack[sp-2];
5293 __endIf233:
5294         fp = pop();
5295         RETURN();
5296 __skipBody58:
5297         r_res = (int)makeSchemeClosure((void*)r[0],&&__body58);
5298         r[0] = (int)getSymbol("length",topLevel);
5299         ((SymbolEntry*)r[0])->isDefined = 1;
5300         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5301         r_res = (int)&sc_void;
5302 __ret208:
5303         /* set return address */
5304         ST_RET() = (int)&&__ret212;
5305
5306         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5307         goto __skipBody59;
5308 __body59:
5309         push(fp);
5310         fp = sp;
5311         prepareStackForAbsOpt(1);
5312         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5313         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5314         r_res = ST_ARG(0);
5315         fp = pop();
5316         RETURN();
5317 __skipBody59:
5318         r_res = (int)makeSchemeClosure((void*)r[0],&&__body59);
5319         r[0] = (int)getSymbol("list",topLevel);
5320         ((SymbolEntry*)r[0])->isDefined = 1;
5321         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5322         r_res = (int)&sc_void;
5323 __ret212:
5324         /* set return address */
5325         ST_RET() = (int)&&__ret213;
5326
5327         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5328         goto __skipBody60;
5329 __body60:
5330         push(fp);
5331         fp = sp;
5332         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5333
5334         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5335         r_res = ST_ARG(1);
5336         push(r_res);
5337         push(1);
5338         r_res = (int)probeSymbolDefined("zero?",topLevel);
5339         if (r_res==0) goto __else239;
5340         if (! ((SymbolEntry*)r_res)->isDefined) goto __else239;
5341         r_res = (int)((SymbolEntry*)r_res)->sob;
5342         goto __endIf239;
5343 __else239:
5344         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
5345 __endIf239:
5346         if (IS_SOB_CLOSURE(r_res)) goto __app145;
5347         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5348 __app145:
5349         push((int)SOB_CLOSURE_ENV(r_res));
5350         push((int)&&__ret214);
5351         goto *(SOB_CLOSURE_CODE(r_res));
5352 __ret214:
5353         sp = sp-2-stack[sp-2];
5354         if ((SchemeObject*)r_res==&sc_false) goto __else238;
5355
5356         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5357         r_res = ST_ARG(0);
5358         push(r_res);
5359         push(1);
5360         r_res = (int)probeSymbolDefined("car",topLevel);
5361         if (r_res==0) goto __else240;
5362         if (! ((SymbolEntry*)r_res)->isDefined) goto __else240;
5363         r_res = (int)((SymbolEntry*)r_res)->sob;
5364         goto __endIf240;
5365 __else240:
5366         fprintf(stderr,"Symbol car not defined"); exit(-1);
5367 __endIf240:
5368         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5369         push((int)SOB_CLOSURE_ENV(r_res));
5370         push(ST_RET());
5371         shiftActFrmDown();
5372         goto *(SOB_CLOSURE_CODE(r_res));
5373         sp = sp-2-stack[sp-2];
5374         goto __endIf238;
5375 __else238:
5376
5377
5378         r_res = (int)&__sc_number25;
5379         push(r_res);
5380         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5381         r_res = ST_ARG(1);
5382         push(r_res);
5383         push(2);
5384         r_res = (int)probeSymbolDefined("-",topLevel);
5385         if (r_res==0) goto __else241;
5386         if (! ((SymbolEntry*)r_res)->isDefined) goto __else241;
5387         r_res = (int)((SymbolEntry*)r_res)->sob;
5388         goto __endIf241;
5389 __else241:
5390         fprintf(stderr,"Symbol - not defined"); exit(-1);
5391 __endIf241:
5392         if (IS_SOB_CLOSURE(r_res)) goto __app146;
5393         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5394 __app146:
5395         push((int)SOB_CLOSURE_ENV(r_res));
5396         push((int)&&__ret215);
5397         goto *(SOB_CLOSURE_CODE(r_res));
5398 __ret215:
5399         sp = sp-2-stack[sp-2];
5400         push(r_res);
5401
5402         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5403         r_res = ST_ARG(0);
5404         push(r_res);
5405         push(1);
5406         r_res = (int)probeSymbolDefined("cdr",topLevel);
5407         if (r_res==0) goto __else242;
5408         if (! ((SymbolEntry*)r_res)->isDefined) goto __else242;
5409         r_res = (int)((SymbolEntry*)r_res)->sob;
5410         goto __endIf242;
5411 __else242:
5412         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5413 __endIf242:
5414         if (IS_SOB_CLOSURE(r_res)) goto __app147;
5415         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5416 __app147:
5417         push((int)SOB_CLOSURE_ENV(r_res));
5418         push((int)&&__ret216);
5419         goto *(SOB_CLOSURE_CODE(r_res));
5420 __ret216:
5421         sp = sp-2-stack[sp-2];
5422         push(r_res);
5423         push(2);
5424         r_res = (int)probeSymbolDefined("list-ref",topLevel);
5425         if (r_res==0) goto __else243;
5426         if (! ((SymbolEntry*)r_res)->isDefined) goto __else243;
5427         r_res = (int)((SymbolEntry*)r_res)->sob;
5428         goto __endIf243;
5429 __else243:
5430         fprintf(stderr,"Symbol list-ref not defined"); exit(-1);
5431 __endIf243:
5432         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5433         push((int)SOB_CLOSURE_ENV(r_res));
5434         push(ST_RET());
5435         shiftActFrmDown();
5436         goto *(SOB_CLOSURE_CODE(r_res));
5437         sp = sp-2-stack[sp-2];
5438 __endIf238:
5439         fp = pop();
5440         RETURN();
5441 __skipBody60:
5442         r_res = (int)makeSchemeClosure((void*)r[0],&&__body60);
5443         r[0] = (int)getSymbol("list-ref",topLevel);
5444         ((SymbolEntry*)r[0])->isDefined = 1;
5445         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5446         r_res = (int)&sc_void;
5447 __ret213:
5448         /* set return address */
5449         ST_RET() = (int)&&__ret217;
5450
5451         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5452         goto __skipBody61;
5453 __body61:
5454         push(fp);
5455         fp = sp;
5456         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5457
5458         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5459         r_res = ST_ARG(0);
5460         push(r_res);
5461         push(1);
5462         r_res = (int)probeSymbolDefined("null?",topLevel);
5463         if (r_res==0) goto __else244;
5464         if (! ((SymbolEntry*)r_res)->isDefined) goto __else244;
5465         r_res = (int)((SymbolEntry*)r_res)->sob;
5466         goto __endIf244;
5467 __else244:
5468         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
5469 __endIf244:
5470         if (IS_SOB_CLOSURE(r_res)) goto __app148;
5471         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5472 __app148:
5473         push((int)SOB_CLOSURE_ENV(r_res));
5474         push((int)&&__ret218);
5475         goto *(SOB_CLOSURE_CODE(r_res));
5476 __ret218:
5477         sp = sp-2-stack[sp-2];
5478         if ((SchemeObject*)r_res!=&sc_false) goto __endOr5;
5479
5480         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5481         r_res = ST_ARG(0);
5482         push(r_res);
5483         push(1);
5484         r_res = (int)probeSymbolDefined("pair?",topLevel);
5485         if (r_res==0) goto __else246;
5486         if (! ((SymbolEntry*)r_res)->isDefined) goto __else246;
5487         r_res = (int)((SymbolEntry*)r_res)->sob;
5488         goto __endIf246;
5489 __else246:
5490         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
5491 __endIf246:
5492         if (IS_SOB_CLOSURE(r_res)) goto __app149;
5493         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5494 __app149:
5495         push((int)SOB_CLOSURE_ENV(r_res));
5496         push((int)&&__ret219);
5497         goto *(SOB_CLOSURE_CODE(r_res));
5498 __ret219:
5499         sp = sp-2-stack[sp-2];
5500         if ((SchemeObject*)r_res==&sc_false) goto __else245;
5501
5502
5503         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5504         r_res = ST_ARG(0);
5505         push(r_res);
5506         push(1);
5507         r_res = (int)probeSymbolDefined("cdr",topLevel);
5508         if (r_res==0) goto __else247;
5509         if (! ((SymbolEntry*)r_res)->isDefined) goto __else247;
5510         r_res = (int)((SymbolEntry*)r_res)->sob;
5511         goto __endIf247;
5512 __else247:
5513         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5514 __endIf247:
5515         if (IS_SOB_CLOSURE(r_res)) goto __app150;
5516         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5517 __app150:
5518         push((int)SOB_CLOSURE_ENV(r_res));
5519         push((int)&&__ret220);
5520         goto *(SOB_CLOSURE_CODE(r_res));
5521 __ret220:
5522         sp = sp-2-stack[sp-2];
5523         push(r_res);
5524         push(1);
5525         r_res = (int)probeSymbolDefined("list?",topLevel);
5526         if (r_res==0) goto __else248;
5527         if (! ((SymbolEntry*)r_res)->isDefined) goto __else248;
5528         r_res = (int)((SymbolEntry*)r_res)->sob;
5529         goto __endIf248;
5530 __else248:
5531         fprintf(stderr,"Symbol list\? not defined"); exit(-1);
5532 __endIf248:
5533         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5534         push((int)SOB_CLOSURE_ENV(r_res));
5535         push(ST_RET());
5536         shiftActFrmDown();
5537         goto *(SOB_CLOSURE_CODE(r_res));
5538         sp = sp-2-stack[sp-2];
5539         goto __endIf245;
5540 __else245:
5541         r_res = (int)&sc_false;
5542 __endIf245:
5543         if ((SchemeObject*)r_res!=&sc_false) goto __endOr5;
5544 __endOr5:
5545         fp = pop();
5546         RETURN();
5547 __skipBody61:
5548         r_res = (int)makeSchemeClosure((void*)r[0],&&__body61);
5549         r[0] = (int)getSymbol("list?",topLevel);
5550         ((SymbolEntry*)r[0])->isDefined = 1;
5551         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
5552         r_res = (int)&sc_void;
5553 __ret217:
5554         /* set return address */
5555         ST_RET() = (int)&&__ret221;
5556
5557         r_res = (int)&sc_false;
5558         push(r_res);
5559         r_res = (int)&sc_false;
5560         push(r_res);
5561         push(2);
5562         r[0] = (int)extendEnviroment( (int**)NULL, 0);
5563         goto __skipBody62;
5564 __body62:
5565         push(fp);
5566         fp = sp;
5567         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5568
5569         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5570         r_res = ST_ARG(0);
5571         push(r_res);
5572         push(1);
5573         r_res = (int)probeSymbolDefined("box",topLevel);
5574         if (r_res==0) goto __else249;
5575         if (! ((SymbolEntry*)r_res)->isDefined) goto __else249;
5576         r_res = (int)((SymbolEntry*)r_res)->sob;
5577         goto __endIf249;
5578 __else249:
5579         fprintf(stderr,"Symbol box not defined"); exit(-1);
5580 __endIf249:
5581         if (IS_SOB_CLOSURE(r_res)) goto __app152;
5582         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5583 __app152:
5584         push((int)SOB_CLOSURE_ENV(r_res));
5585         push((int)&&__ret223);
5586         goto *(SOB_CLOSURE_CODE(r_res));
5587 __ret223:
5588         sp = sp-2-stack[sp-2];
5589         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5590         ST_ARG(0) = r_res;
5591         r_res = (int)&sc_void;
5592
5593         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5594         r_res = ST_ARG(1);
5595         push(r_res);
5596         push(1);
5597         r_res = (int)probeSymbolDefined("box",topLevel);
5598         if (r_res==0) goto __else250;
5599         if (! ((SymbolEntry*)r_res)->isDefined) goto __else250;
5600         r_res = (int)((SymbolEntry*)r_res)->sob;
5601         goto __endIf250;
5602 __else250:
5603         fprintf(stderr,"Symbol box not defined"); exit(-1);
5604 __endIf250:
5605         if (IS_SOB_CLOSURE(r_res)) goto __app153;
5606         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5607 __app153:
5608         push((int)SOB_CLOSURE_ENV(r_res));
5609         push((int)&&__ret224);
5610         goto *(SOB_CLOSURE_CODE(r_res));
5611 __ret224:
5612         sp = sp-2-stack[sp-2];
5613         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5614         ST_ARG(1) = r_res;
5615         r_res = (int)&sc_void;
5616
5617         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
5618         goto __skipBody63;
5619 __body63:
5620         push(fp);
5621         fp = sp;
5622         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5623
5624
5625         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5626         r_res = ST_ARG(1);
5627         push(r_res);
5628         push(1);
5629         r_res = (int)probeSymbolDefined("car",topLevel);
5630         if (r_res==0) goto __else252;
5631         if (! ((SymbolEntry*)r_res)->isDefined) goto __else252;
5632         r_res = (int)((SymbolEntry*)r_res)->sob;
5633         goto __endIf252;
5634 __else252:
5635         fprintf(stderr,"Symbol car not defined"); exit(-1);
5636 __endIf252:
5637         if (IS_SOB_CLOSURE(r_res)) goto __app156;
5638         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5639 __app156:
5640         push((int)SOB_CLOSURE_ENV(r_res));
5641         push((int)&&__ret227);
5642         goto *(SOB_CLOSURE_CODE(r_res));
5643 __ret227:
5644         sp = sp-2-stack[sp-2];
5645         push(r_res);
5646         push(1);
5647         r_res = (int)probeSymbolDefined("null?",topLevel);
5648         if (r_res==0) goto __else253;
5649         if (! ((SymbolEntry*)r_res)->isDefined) goto __else253;
5650         r_res = (int)((SymbolEntry*)r_res)->sob;
5651         goto __endIf253;
5652 __else253:
5653         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
5654 __endIf253:
5655         if (IS_SOB_CLOSURE(r_res)) goto __app155;
5656         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5657 __app155:
5658         push((int)SOB_CLOSURE_ENV(r_res));
5659         push((int)&&__ret226);
5660         goto *(SOB_CLOSURE_CODE(r_res));
5661 __ret226:
5662         sp = sp-2-stack[sp-2];
5663         if ((SchemeObject*)r_res==&sc_false) goto __else251;
5664         r_res = (int)&sc_nil;
5665         goto __endIf251;
5666 __else251:
5667
5668         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5669         r_res = ST_ARG(1);
5670         push(r_res);
5671         r_res = (int)probeSymbolDefined("cdr",topLevel);
5672         if (r_res==0) goto __else254;
5673         if (! ((SymbolEntry*)r_res)->isDefined) goto __else254;
5674         r_res = (int)((SymbolEntry*)r_res)->sob;
5675         goto __endIf254;
5676 __else254:
5677         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5678 __endIf254:
5679         push(r_res);
5680         push(2);
5681
5682         r_res = (int)&__sc_number26;
5683         push(r_res);
5684         r_res = ((int**)ST_ENV())[0][1];
5685         push(r_res);
5686         push(2);
5687         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
5688         if (r_res==0) goto __else255;
5689         if (! ((SymbolEntry*)r_res)->isDefined) goto __else255;
5690         r_res = (int)((SymbolEntry*)r_res)->sob;
5691         goto __endIf255;
5692 __else255:
5693         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
5694 __endIf255:
5695         if (IS_SOB_CLOSURE(r_res)) goto __app159;
5696         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5697 __app159:
5698         push((int)SOB_CLOSURE_ENV(r_res));
5699         push((int)&&__ret230);
5700         goto *(SOB_CLOSURE_CODE(r_res));
5701 __ret230:
5702         sp = sp-2-stack[sp-2];
5703         if (IS_SOB_CLOSURE(r_res)) goto __app158;
5704         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5705 __app158:
5706         push((int)SOB_CLOSURE_ENV(r_res));
5707         push((int)&&__ret229);
5708         goto *(SOB_CLOSURE_CODE(r_res));
5709 __ret229:
5710         sp = sp-2-stack[sp-2];
5711         push(r_res);
5712         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5713         r_res = ST_ARG(0);
5714         push(r_res);
5715         push(2);
5716
5717         r_res = (int)&__sc_number27;
5718         push(r_res);
5719         r_res = ((int**)ST_ENV())[0][0];
5720         push(r_res);
5721         push(2);
5722         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
5723         if (r_res==0) goto __else256;
5724         if (! ((SymbolEntry*)r_res)->isDefined) goto __else256;
5725         r_res = (int)((SymbolEntry*)r_res)->sob;
5726         goto __endIf256;
5727 __else256:
5728         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
5729 __endIf256:
5730         if (IS_SOB_CLOSURE(r_res)) goto __app160;
5731         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5732 __app160:
5733         push((int)SOB_CLOSURE_ENV(r_res));
5734         push((int)&&__ret231);
5735         goto *(SOB_CLOSURE_CODE(r_res));
5736 __ret231:
5737         sp = sp-2-stack[sp-2];
5738         if (IS_SOB_CLOSURE(r_res)) goto __app157;
5739         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5740 __app157:
5741         push((int)SOB_CLOSURE_ENV(r_res));
5742         push((int)&&__ret228);
5743         goto *(SOB_CLOSURE_CODE(r_res));
5744 __ret228:
5745         sp = sp-2-stack[sp-2];
5746         push(r_res);
5747
5748         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5749         r_res = ST_ARG(1);
5750         push(r_res);
5751         r_res = (int)probeSymbolDefined("car",topLevel);
5752         if (r_res==0) goto __else257;
5753         if (! ((SymbolEntry*)r_res)->isDefined) goto __else257;
5754         r_res = (int)((SymbolEntry*)r_res)->sob;
5755         goto __endIf257;
5756 __else257:
5757         fprintf(stderr,"Symbol car not defined"); exit(-1);
5758 __endIf257:
5759         push(r_res);
5760         push(2);
5761
5762         r_res = (int)&__sc_number28;
5763         push(r_res);
5764         r_res = ((int**)ST_ENV())[0][1];
5765         push(r_res);
5766         push(2);
5767         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
5768         if (r_res==0) goto __else258;
5769         if (! ((SymbolEntry*)r_res)->isDefined) goto __else258;
5770         r_res = (int)((SymbolEntry*)r_res)->sob;
5771         goto __endIf258;
5772 __else258:
5773         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
5774 __endIf258:
5775         if (IS_SOB_CLOSURE(r_res)) goto __app163;
5776         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5777 __app163:
5778         push((int)SOB_CLOSURE_ENV(r_res));
5779         push((int)&&__ret234);
5780         goto *(SOB_CLOSURE_CODE(r_res));
5781 __ret234:
5782         sp = sp-2-stack[sp-2];
5783         if (IS_SOB_CLOSURE(r_res)) goto __app162;
5784         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5785 __app162:
5786         push((int)SOB_CLOSURE_ENV(r_res));
5787         push((int)&&__ret233);
5788         goto *(SOB_CLOSURE_CODE(r_res));
5789 __ret233:
5790         sp = sp-2-stack[sp-2];
5791         push(r_res);
5792         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5793         r_res = ST_ARG(0);
5794         push(r_res);
5795         push(2);
5796         r_res = (int)probeSymbolDefined("apply",topLevel);
5797         if (r_res==0) goto __else259;
5798         if (! ((SymbolEntry*)r_res)->isDefined) goto __else259;
5799         r_res = (int)((SymbolEntry*)r_res)->sob;
5800         goto __endIf259;
5801 __else259:
5802         fprintf(stderr,"Symbol apply not defined"); exit(-1);
5803 __endIf259:
5804         if (IS_SOB_CLOSURE(r_res)) goto __app161;
5805         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5806 __app161:
5807         push((int)SOB_CLOSURE_ENV(r_res));
5808         push((int)&&__ret232);
5809         goto *(SOB_CLOSURE_CODE(r_res));
5810 __ret232:
5811         sp = sp-2-stack[sp-2];
5812         push(r_res);
5813         push(2);
5814         r_res = (int)probeSymbolDefined("cons",topLevel);
5815         if (r_res==0) goto __else260;
5816         if (! ((SymbolEntry*)r_res)->isDefined) goto __else260;
5817         r_res = (int)((SymbolEntry*)r_res)->sob;
5818         goto __endIf260;
5819 __else260:
5820         fprintf(stderr,"Symbol cons not defined"); exit(-1);
5821 __endIf260:
5822         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5823         push((int)SOB_CLOSURE_ENV(r_res));
5824         push(ST_RET());
5825         shiftActFrmDown();
5826         goto *(SOB_CLOSURE_CODE(r_res));
5827         sp = sp-2-stack[sp-2];
5828 __endIf251:
5829         fp = pop();
5830         RETURN();
5831 __skipBody63:
5832         r_res = (int)makeSchemeClosure((void*)r[0],&&__body63);
5833         push(r_res);
5834         r_res = (int)&__sc_number29;
5835         push(r_res);
5836         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5837         r_res = ST_ARG(0);
5838         push(r_res);
5839         push(3);
5840         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
5841         if (r_res==0) goto __else261;
5842         if (! ((SymbolEntry*)r_res)->isDefined) goto __else261;
5843         r_res = (int)((SymbolEntry*)r_res)->sob;
5844         goto __endIf261;
5845 __else261:
5846         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
5847 __endIf261:
5848         if (IS_SOB_CLOSURE(r_res)) goto __app154;
5849         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5850 __app154:
5851         push((int)SOB_CLOSURE_ENV(r_res));
5852         push((int)&&__ret225);
5853         goto *(SOB_CLOSURE_CODE(r_res));
5854 __ret225:
5855         sp = sp-2-stack[sp-2];
5856
5857         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
5858         goto __skipBody64;
5859 __body64:
5860         push(fp);
5861         fp = sp;
5862         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5863
5864         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5865         r_res = ST_ARG(1);
5866         push(r_res);
5867         push(1);
5868         r_res = (int)probeSymbolDefined("null?",topLevel);
5869         if (r_res==0) goto __else263;
5870         if (! ((SymbolEntry*)r_res)->isDefined) goto __else263;
5871         r_res = (int)((SymbolEntry*)r_res)->sob;
5872         goto __endIf263;
5873 __else263:
5874         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
5875 __endIf263:
5876         if (IS_SOB_CLOSURE(r_res)) goto __app165;
5877         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5878 __app165:
5879         push((int)SOB_CLOSURE_ENV(r_res));
5880         push((int)&&__ret236);
5881         goto *(SOB_CLOSURE_CODE(r_res));
5882 __ret236:
5883         sp = sp-2-stack[sp-2];
5884         if ((SchemeObject*)r_res==&sc_false) goto __else262;
5885         r_res = (int)&sc_nil;
5886         goto __endIf262;
5887 __else262:
5888
5889
5890         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5891         r_res = ST_ARG(1);
5892         push(r_res);
5893         push(1);
5894         r_res = (int)probeSymbolDefined("cdr",topLevel);
5895         if (r_res==0) goto __else264;
5896         if (! ((SymbolEntry*)r_res)->isDefined) goto __else264;
5897         r_res = (int)((SymbolEntry*)r_res)->sob;
5898         goto __endIf264;
5899 __else264:
5900         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
5901 __endIf264:
5902         if (IS_SOB_CLOSURE(r_res)) goto __app167;
5903         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5904 __app167:
5905         push((int)SOB_CLOSURE_ENV(r_res));
5906         push((int)&&__ret238);
5907         goto *(SOB_CLOSURE_CODE(r_res));
5908 __ret238:
5909         sp = sp-2-stack[sp-2];
5910         push(r_res);
5911         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5912         r_res = ST_ARG(0);
5913         push(r_res);
5914         push(2);
5915
5916         r_res = (int)&__sc_number30;
5917         push(r_res);
5918         r_res = ((int**)ST_ENV())[0][1];
5919         push(r_res);
5920         push(2);
5921         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
5922         if (r_res==0) goto __else265;
5923         if (! ((SymbolEntry*)r_res)->isDefined) goto __else265;
5924         r_res = (int)((SymbolEntry*)r_res)->sob;
5925         goto __endIf265;
5926 __else265:
5927         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
5928 __endIf265:
5929         if (IS_SOB_CLOSURE(r_res)) goto __app168;
5930         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5931 __app168:
5932         push((int)SOB_CLOSURE_ENV(r_res));
5933         push((int)&&__ret239);
5934         goto *(SOB_CLOSURE_CODE(r_res));
5935 __ret239:
5936         sp = sp-2-stack[sp-2];
5937         if (IS_SOB_CLOSURE(r_res)) goto __app166;
5938         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5939 __app166:
5940         push((int)SOB_CLOSURE_ENV(r_res));
5941         push((int)&&__ret237);
5942         goto *(SOB_CLOSURE_CODE(r_res));
5943 __ret237:
5944         sp = sp-2-stack[sp-2];
5945         push(r_res);
5946
5947
5948         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
5949         r_res = ST_ARG(1);
5950         push(r_res);
5951         push(1);
5952         r_res = (int)probeSymbolDefined("car",topLevel);
5953         if (r_res==0) goto __else266;
5954         if (! ((SymbolEntry*)r_res)->isDefined) goto __else266;
5955         r_res = (int)((SymbolEntry*)r_res)->sob;
5956         goto __endIf266;
5957 __else266:
5958         fprintf(stderr,"Symbol car not defined"); exit(-1);
5959 __endIf266:
5960         if (IS_SOB_CLOSURE(r_res)) goto __app170;
5961         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5962 __app170:
5963         push((int)SOB_CLOSURE_ENV(r_res));
5964         push((int)&&__ret241);
5965         goto *(SOB_CLOSURE_CODE(r_res));
5966 __ret241:
5967         sp = sp-2-stack[sp-2];
5968         push(r_res);
5969         push(1);
5970         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
5971         r_res = ST_ARG(0);
5972         if (IS_SOB_CLOSURE(r_res)) goto __app169;
5973         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
5974 __app169:
5975         push((int)SOB_CLOSURE_ENV(r_res));
5976         push((int)&&__ret240);
5977         goto *(SOB_CLOSURE_CODE(r_res));
5978 __ret240:
5979         sp = sp-2-stack[sp-2];
5980         push(r_res);
5981         push(2);
5982         r_res = (int)probeSymbolDefined("cons",topLevel);
5983         if (r_res==0) goto __else267;
5984         if (! ((SymbolEntry*)r_res)->isDefined) goto __else267;
5985         r_res = (int)((SymbolEntry*)r_res)->sob;
5986         goto __endIf267;
5987 __else267:
5988         fprintf(stderr,"Symbol cons not defined"); exit(-1);
5989 __endIf267:
5990         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
5991         push((int)SOB_CLOSURE_ENV(r_res));
5992         push(ST_RET());
5993         shiftActFrmDown();
5994         goto *(SOB_CLOSURE_CODE(r_res));
5995         sp = sp-2-stack[sp-2];
5996 __endIf262:
5997         fp = pop();
5998         RETURN();
5999 __skipBody64:
6000         r_res = (int)makeSchemeClosure((void*)r[0],&&__body64);
6001         push(r_res);
6002         r_res = (int)&__sc_number31;
6003         push(r_res);
6004         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6005         r_res = ST_ARG(1);
6006         push(r_res);
6007         push(3);
6008         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
6009         if (r_res==0) goto __else268;
6010         if (! ((SymbolEntry*)r_res)->isDefined) goto __else268;
6011         r_res = (int)((SymbolEntry*)r_res)->sob;
6012         goto __endIf268;
6013 __else268:
6014         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
6015 __endIf268:
6016         if (IS_SOB_CLOSURE(r_res)) goto __app164;
6017         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6018 __app164:
6019         push((int)SOB_CLOSURE_ENV(r_res));
6020         push((int)&&__ret235);
6021         goto *(SOB_CLOSURE_CODE(r_res));
6022 __ret235:
6023         sp = sp-2-stack[sp-2];
6024         push(0);
6025         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6026         goto __skipBody65;
6027 __body65:
6028         push(fp);
6029         fp = sp;
6030         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6031         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
6032         goto __skipBody66;
6033 __body66:
6034         push(fp);
6035         fp = sp;
6036         prepareStackForAbsOpt(2);
6037         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6038         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6039         r_res = ST_ARG(1);
6040         push(r_res);
6041         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6042         r_res = ST_ARG(0);
6043         push(r_res);
6044         push(2);
6045
6046         r_res = (int)&__sc_number32;
6047         push(r_res);
6048         r_res = ((int**)ST_ENV())[1][0];
6049         push(r_res);
6050         push(2);
6051         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
6052         if (r_res==0) goto __else269;
6053         if (! ((SymbolEntry*)r_res)->isDefined) goto __else269;
6054         r_res = (int)((SymbolEntry*)r_res)->sob;
6055         goto __endIf269;
6056 __else269:
6057         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
6058 __endIf269:
6059         if (IS_SOB_CLOSURE(r_res)) goto __app171;
6060         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6061 __app171:
6062         push((int)SOB_CLOSURE_ENV(r_res));
6063         push((int)&&__ret242);
6064         goto *(SOB_CLOSURE_CODE(r_res));
6065 __ret242:
6066         sp = sp-2-stack[sp-2];
6067         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6068         push((int)SOB_CLOSURE_ENV(r_res));
6069         push(ST_RET());
6070         shiftActFrmDown();
6071         goto *(SOB_CLOSURE_CODE(r_res));
6072         sp = sp-2-stack[sp-2];
6073         fp = pop();
6074         RETURN();
6075 __skipBody66:
6076         r_res = (int)makeSchemeClosure((void*)r[0],&&__body66);
6077         fp = pop();
6078         RETURN();
6079 __skipBody65:
6080         r_res = (int)makeSchemeClosure((void*)r[0],&&__body65);
6081         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6082         push((int)SOB_CLOSURE_ENV(r_res));
6083         push(ST_RET());
6084         shiftActFrmDown();
6085         goto *(SOB_CLOSURE_CODE(r_res));
6086         sp = sp-2-stack[sp-2];
6087         fp = pop();
6088         RETURN();
6089 __skipBody62:
6090         r_res = (int)makeSchemeClosure((void*)r[0],&&__body62);
6091         if (IS_SOB_CLOSURE(r_res)) goto __app151;
6092         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6093 __app151:
6094         push((int)SOB_CLOSURE_ENV(r_res));
6095         push((int)&&__ret222);
6096         goto *(SOB_CLOSURE_CODE(r_res));
6097 __ret222:
6098         sp = sp-2-stack[sp-2];
6099         r[0] = (int)getSymbol("map",topLevel);
6100         ((SymbolEntry*)r[0])->isDefined = 1;
6101         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6102         r_res = (int)&sc_void;
6103 __ret221:
6104         /* set return address */
6105         ST_RET() = (int)&&__ret243;
6106
6107         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6108         goto __skipBody67;
6109 __body67:
6110         push(fp);
6111         fp = sp;
6112         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6113
6114         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6115         r_res = ST_ARG(1);
6116         push(r_res);
6117         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6118         goto __skipBody68;
6119 __body68:
6120         push(fp);
6121         fp = sp;
6122         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6123
6124         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6125         r_res = ST_ARG(0);
6126         push(r_res);
6127         r_res = ((int**)ST_ENV())[0][0];
6128         push(r_res);
6129         push(2);
6130         r_res = (int)probeSymbolDefined("eq?",topLevel);
6131         if (r_res==0) goto __else270;
6132         if (! ((SymbolEntry*)r_res)->isDefined) goto __else270;
6133         r_res = (int)((SymbolEntry*)r_res)->sob;
6134         goto __endIf270;
6135 __else270:
6136         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
6137 __endIf270:
6138         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6139         push((int)SOB_CLOSURE_ENV(r_res));
6140         push(ST_RET());
6141         shiftActFrmDown();
6142         goto *(SOB_CLOSURE_CODE(r_res));
6143         sp = sp-2-stack[sp-2];
6144         fp = pop();
6145         RETURN();
6146 __skipBody68:
6147         r_res = (int)makeSchemeClosure((void*)r[0],&&__body68);
6148         push(r_res);
6149         push(2);
6150         r_res = (int)probeSymbolDefined("ormap",topLevel);
6151         if (r_res==0) goto __else271;
6152         if (! ((SymbolEntry*)r_res)->isDefined) goto __else271;
6153         r_res = (int)((SymbolEntry*)r_res)->sob;
6154         goto __endIf271;
6155 __else271:
6156         fprintf(stderr,"Symbol ormap not defined"); exit(-1);
6157 __endIf271:
6158         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6159         push((int)SOB_CLOSURE_ENV(r_res));
6160         push(ST_RET());
6161         shiftActFrmDown();
6162         goto *(SOB_CLOSURE_CODE(r_res));
6163         sp = sp-2-stack[sp-2];
6164         fp = pop();
6165         RETURN();
6166 __skipBody67:
6167         r_res = (int)makeSchemeClosure((void*)r[0],&&__body67);
6168         r[0] = (int)getSymbol("member?",topLevel);
6169         ((SymbolEntry*)r[0])->isDefined = 1;
6170         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6171         r_res = (int)&sc_void;
6172 __ret243:
6173         /* set return address */
6174         ST_RET() = (int)&&__ret244;
6175
6176         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6177         goto __skipBody69;
6178 __body69:
6179         push(fp);
6180         fp = sp;
6181         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6182
6183         r_res = (int)&__sc_number33;
6184         push(r_res);
6185         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6186         r_res = ST_ARG(0);
6187         push(r_res);
6188         push(2);
6189         r_res = (int)probeSymbolDefined("<",topLevel);
6190         if (r_res==0) goto __else272;
6191         if (! ((SymbolEntry*)r_res)->isDefined) goto __else272;
6192         r_res = (int)((SymbolEntry*)r_res)->sob;
6193         goto __endIf272;
6194 __else272:
6195         fprintf(stderr,"Symbol < not defined"); exit(-1);
6196 __endIf272:
6197         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6198         push((int)SOB_CLOSURE_ENV(r_res));
6199         push(ST_RET());
6200         shiftActFrmDown();
6201         goto *(SOB_CLOSURE_CODE(r_res));
6202         sp = sp-2-stack[sp-2];
6203         fp = pop();
6204         RETURN();
6205 __skipBody69:
6206         r_res = (int)makeSchemeClosure((void*)r[0],&&__body69);
6207         r[0] = (int)getSymbol("negative?",topLevel);
6208         ((SymbolEntry*)r[0])->isDefined = 1;
6209         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6210         r_res = (int)&sc_void;
6211 __ret244:
6212         /* set return address */
6213         ST_RET() = (int)&&__ret245;
6214
6215         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6216         goto __skipBody70;
6217 __body70:
6218         push(fp);
6219         fp = sp;
6220         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6221
6222         r_res = (int)&__sc_number34;
6223         push(r_res);
6224         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6225         r_res = ST_ARG(0);
6226         push(r_res);
6227         push(2);
6228         r_res = (int)probeSymbolDefined(">",topLevel);
6229         if (r_res==0) goto __else273;
6230         if (! ((SymbolEntry*)r_res)->isDefined) goto __else273;
6231         r_res = (int)((SymbolEntry*)r_res)->sob;
6232         goto __endIf273;
6233 __else273:
6234         fprintf(stderr,"Symbol > not defined"); exit(-1);
6235 __endIf273:
6236         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6237         push((int)SOB_CLOSURE_ENV(r_res));
6238         push(ST_RET());
6239         shiftActFrmDown();
6240         goto *(SOB_CLOSURE_CODE(r_res));
6241         sp = sp-2-stack[sp-2];
6242         fp = pop();
6243         RETURN();
6244 __skipBody70:
6245         r_res = (int)makeSchemeClosure((void*)r[0],&&__body70);
6246         r[0] = (int)getSymbol("positive?",topLevel);
6247         ((SymbolEntry*)r[0])->isDefined = 1;
6248         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6249         r_res = (int)&sc_void;
6250 __ret245:
6251         /* set return address */
6252         ST_RET() = (int)&&__ret246;
6253
6254         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6255         goto __skipBody71;
6256 __body71:
6257         push(fp);
6258         fp = sp;
6259         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6260
6261         r_res = (int)&__sc_number35;
6262         push(r_res);
6263         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6264         r_res = ST_ARG(0);
6265         push(r_res);
6266         push(2);
6267         r_res = (int)probeSymbolDefined("=",topLevel);
6268         if (r_res==0) goto __else274;
6269         if (! ((SymbolEntry*)r_res)->isDefined) goto __else274;
6270         r_res = (int)((SymbolEntry*)r_res)->sob;
6271         goto __endIf274;
6272 __else274:
6273         fprintf(stderr,"Symbol = not defined"); exit(-1);
6274 __endIf274:
6275         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6276         push((int)SOB_CLOSURE_ENV(r_res));
6277         push(ST_RET());
6278         shiftActFrmDown();
6279         goto *(SOB_CLOSURE_CODE(r_res));
6280         sp = sp-2-stack[sp-2];
6281         fp = pop();
6282         RETURN();
6283 __skipBody71:
6284         r_res = (int)makeSchemeClosure((void*)r[0],&&__body71);
6285         r[0] = (int)getSymbol("zero?",topLevel);
6286         ((SymbolEntry*)r[0])->isDefined = 1;
6287         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6288         r_res = (int)&sc_void;
6289 __ret246:
6290         /* set return address */
6291         ST_RET() = (int)&&__ret247;
6292
6293         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6294         goto __skipBody72;
6295 __body72:
6296         push(fp);
6297         fp = sp;
6298         prepareStackForAbsOpt(1);
6299         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6300
6301         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6302         r_res = ST_ARG(0);
6303         push(r_res);
6304         push(1);
6305         r_res = (int)probeSymbolDefined("list->vector",topLevel);
6306         if (r_res==0) goto __else275;
6307         if (! ((SymbolEntry*)r_res)->isDefined) goto __else275;
6308         r_res = (int)((SymbolEntry*)r_res)->sob;
6309         goto __endIf275;
6310 __else275:
6311         fprintf(stderr,"Symbol list->vector not defined"); exit(-1);
6312 __endIf275:
6313         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6314         push((int)SOB_CLOSURE_ENV(r_res));
6315         push(ST_RET());
6316         shiftActFrmDown();
6317         goto *(SOB_CLOSURE_CODE(r_res));
6318         sp = sp-2-stack[sp-2];
6319         fp = pop();
6320         RETURN();
6321 __skipBody72:
6322         r_res = (int)makeSchemeClosure((void*)r[0],&&__body72);
6323         r[0] = (int)getSymbol("vector",topLevel);
6324         ((SymbolEntry*)r[0])->isDefined = 1;
6325         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6326         r_res = (int)&sc_void;
6327 __ret247:
6328         /* set return address */
6329         ST_RET() = (int)&&__ret248;
6330
6331         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6332         goto __skipBody73;
6333 __body73:
6334         push(fp);
6335         fp = sp;
6336         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6337
6338         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6339         r_res = ST_ARG(1);
6340         push(r_res);
6341         push(1);
6342         r_res = (int)probeSymbolDefined("pair?",topLevel);
6343         if (r_res==0) goto __else277;
6344         if (! ((SymbolEntry*)r_res)->isDefined) goto __else277;
6345         r_res = (int)((SymbolEntry*)r_res)->sob;
6346         goto __endIf277;
6347 __else277:
6348         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
6349 __endIf277:
6350         if (IS_SOB_CLOSURE(r_res)) goto __app172;
6351         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6352 __app172:
6353         push((int)SOB_CLOSURE_ENV(r_res));
6354         push((int)&&__ret249);
6355         goto *(SOB_CLOSURE_CODE(r_res));
6356 __ret249:
6357         sp = sp-2-stack[sp-2];
6358         if ((SchemeObject*)r_res==&sc_false) goto __else276;
6359
6360
6361         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6362         r_res = ST_ARG(1);
6363         push(r_res);
6364         push(1);
6365         r_res = (int)probeSymbolDefined("car",topLevel);
6366         if (r_res==0) goto __else278;
6367         if (! ((SymbolEntry*)r_res)->isDefined) goto __else278;
6368         r_res = (int)((SymbolEntry*)r_res)->sob;
6369         goto __endIf278;
6370 __else278:
6371         fprintf(stderr,"Symbol car not defined"); exit(-1);
6372 __endIf278:
6373         if (IS_SOB_CLOSURE(r_res)) goto __app174;
6374         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6375 __app174:
6376         push((int)SOB_CLOSURE_ENV(r_res));
6377         push((int)&&__ret251);
6378         goto *(SOB_CLOSURE_CODE(r_res));
6379 __ret251:
6380         sp = sp-2-stack[sp-2];
6381         push(r_res);
6382         push(1);
6383         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6384         r_res = ST_ARG(0);
6385         if (IS_SOB_CLOSURE(r_res)) goto __app173;
6386         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6387 __app173:
6388         push((int)SOB_CLOSURE_ENV(r_res));
6389         push((int)&&__ret250);
6390         goto *(SOB_CLOSURE_CODE(r_res));
6391 __ret250:
6392         sp = sp-2-stack[sp-2];
6393         if ((SchemeObject*)r_res!=&sc_false) goto __endOr6;
6394
6395
6396         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6397         r_res = ST_ARG(1);
6398         push(r_res);
6399         push(1);
6400         r_res = (int)probeSymbolDefined("cdr",topLevel);
6401         if (r_res==0) goto __else279;
6402         if (! ((SymbolEntry*)r_res)->isDefined) goto __else279;
6403         r_res = (int)((SymbolEntry*)r_res)->sob;
6404         goto __endIf279;
6405 __else279:
6406         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
6407 __endIf279:
6408         if (IS_SOB_CLOSURE(r_res)) goto __app175;
6409         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6410 __app175:
6411         push((int)SOB_CLOSURE_ENV(r_res));
6412         push((int)&&__ret252);
6413         goto *(SOB_CLOSURE_CODE(r_res));
6414 __ret252:
6415         sp = sp-2-stack[sp-2];
6416         push(r_res);
6417         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6418         r_res = ST_ARG(0);
6419         push(r_res);
6420         push(2);
6421         r_res = (int)probeSymbolDefined("ormap",topLevel);
6422         if (r_res==0) goto __else280;
6423         if (! ((SymbolEntry*)r_res)->isDefined) goto __else280;
6424         r_res = (int)((SymbolEntry*)r_res)->sob;
6425         goto __endIf280;
6426 __else280:
6427         fprintf(stderr,"Symbol ormap not defined"); exit(-1);
6428 __endIf280:
6429         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6430         push((int)SOB_CLOSURE_ENV(r_res));
6431         push(ST_RET());
6432         shiftActFrmDown();
6433         goto *(SOB_CLOSURE_CODE(r_res));
6434         sp = sp-2-stack[sp-2];
6435         if ((SchemeObject*)r_res!=&sc_false) goto __endOr6;
6436 __endOr6:
6437         goto __endIf276;
6438 __else276:
6439         r_res = (int)&sc_false;
6440 __endIf276:
6441         fp = pop();
6442         RETURN();
6443 __skipBody73:
6444         r_res = (int)makeSchemeClosure((void*)r[0],&&__body73);
6445         r[0] = (int)getSymbol("ormap",topLevel);
6446         ((SymbolEntry*)r[0])->isDefined = 1;
6447         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6448         r_res = (int)&sc_void;
6449 __ret248:
6450         /* set return address */
6451         ST_RET() = (int)&&__ret253;
6452
6453         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6454         goto __skipBody74;
6455 __body74:
6456         push(fp);
6457         fp = sp;
6458         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6459
6460         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6461         r_res = ST_ARG(1);
6462         push(r_res);
6463         push(1);
6464         r_res = (int)probeSymbolDefined("null?",topLevel);
6465         if (r_res==0) goto __else281;
6466         if (! ((SymbolEntry*)r_res)->isDefined) goto __else281;
6467         r_res = (int)((SymbolEntry*)r_res)->sob;
6468         goto __endIf281;
6469 __else281:
6470         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
6471 __endIf281:
6472         if (IS_SOB_CLOSURE(r_res)) goto __app176;
6473         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6474 __app176:
6475         push((int)SOB_CLOSURE_ENV(r_res));
6476         push((int)&&__ret254);
6477         goto *(SOB_CLOSURE_CODE(r_res));
6478 __ret254:
6479         sp = sp-2-stack[sp-2];
6480         if ((SchemeObject*)r_res!=&sc_false) goto __endOr7;
6481
6482
6483         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6484         r_res = ST_ARG(1);
6485         push(r_res);
6486         push(1);
6487         r_res = (int)probeSymbolDefined("car",topLevel);
6488         if (r_res==0) goto __else283;
6489         if (! ((SymbolEntry*)r_res)->isDefined) goto __else283;
6490         r_res = (int)((SymbolEntry*)r_res)->sob;
6491         goto __endIf283;
6492 __else283:
6493         fprintf(stderr,"Symbol car not defined"); exit(-1);
6494 __endIf283:
6495         if (IS_SOB_CLOSURE(r_res)) goto __app178;
6496         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6497 __app178:
6498         push((int)SOB_CLOSURE_ENV(r_res));
6499         push((int)&&__ret256);
6500         goto *(SOB_CLOSURE_CODE(r_res));
6501 __ret256:
6502         sp = sp-2-stack[sp-2];
6503         push(r_res);
6504         push(1);
6505         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6506         r_res = ST_ARG(0);
6507         if (IS_SOB_CLOSURE(r_res)) goto __app177;
6508         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6509 __app177:
6510         push((int)SOB_CLOSURE_ENV(r_res));
6511         push((int)&&__ret255);
6512         goto *(SOB_CLOSURE_CODE(r_res));
6513 __ret255:
6514         sp = sp-2-stack[sp-2];
6515         if ((SchemeObject*)r_res==&sc_false) goto __else282;
6516
6517
6518         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6519         r_res = ST_ARG(1);
6520         push(r_res);
6521         push(1);
6522         r_res = (int)probeSymbolDefined("cdr",topLevel);
6523         if (r_res==0) goto __else284;
6524         if (! ((SymbolEntry*)r_res)->isDefined) goto __else284;
6525         r_res = (int)((SymbolEntry*)r_res)->sob;
6526         goto __endIf284;
6527 __else284:
6528         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
6529 __endIf284:
6530         if (IS_SOB_CLOSURE(r_res)) goto __app179;
6531         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6532 __app179:
6533         push((int)SOB_CLOSURE_ENV(r_res));
6534         push((int)&&__ret257);
6535         goto *(SOB_CLOSURE_CODE(r_res));
6536 __ret257:
6537         sp = sp-2-stack[sp-2];
6538         push(r_res);
6539         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6540         r_res = ST_ARG(0);
6541         push(r_res);
6542         push(2);
6543         r_res = (int)probeSymbolDefined("andmap",topLevel);
6544         if (r_res==0) goto __else285;
6545         if (! ((SymbolEntry*)r_res)->isDefined) goto __else285;
6546         r_res = (int)((SymbolEntry*)r_res)->sob;
6547         goto __endIf285;
6548 __else285:
6549         fprintf(stderr,"Symbol andmap not defined"); exit(-1);
6550 __endIf285:
6551         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6552         push((int)SOB_CLOSURE_ENV(r_res));
6553         push(ST_RET());
6554         shiftActFrmDown();
6555         goto *(SOB_CLOSURE_CODE(r_res));
6556         sp = sp-2-stack[sp-2];
6557         goto __endIf282;
6558 __else282:
6559         r_res = (int)&sc_false;
6560 __endIf282:
6561         if ((SchemeObject*)r_res!=&sc_false) goto __endOr7;
6562 __endOr7:
6563         fp = pop();
6564         RETURN();
6565 __skipBody74:
6566         r_res = (int)makeSchemeClosure((void*)r[0],&&__body74);
6567         r[0] = (int)getSymbol("andmap",topLevel);
6568         ((SymbolEntry*)r[0])->isDefined = 1;
6569         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6570         r_res = (int)&sc_void;
6571 __ret253:
6572         /* set return address */
6573         ST_RET() = (int)&&__ret258;
6574
6575         r_res = (int)&sc_false;
6576         push(r_res);
6577         push(1);
6578         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6579         goto __skipBody75;
6580 __body75:
6581         push(fp);
6582         fp = sp;
6583         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6584
6585         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6586         r_res = ST_ARG(0);
6587         push(r_res);
6588         push(1);
6589         r_res = (int)probeSymbolDefined("box",topLevel);
6590         if (r_res==0) goto __else286;
6591         if (! ((SymbolEntry*)r_res)->isDefined) goto __else286;
6592         r_res = (int)((SymbolEntry*)r_res)->sob;
6593         goto __endIf286;
6594 __else286:
6595         fprintf(stderr,"Symbol box not defined"); exit(-1);
6596 __endIf286:
6597         if (IS_SOB_CLOSURE(r_res)) goto __app181;
6598         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6599 __app181:
6600         push((int)SOB_CLOSURE_ENV(r_res));
6601         push((int)&&__ret260);
6602         goto *(SOB_CLOSURE_CODE(r_res));
6603 __ret260:
6604         sp = sp-2-stack[sp-2];
6605         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6606         ST_ARG(0) = r_res;
6607         r_res = (int)&sc_void;
6608
6609         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6610         goto __skipBody76;
6611 __body76:
6612         push(fp);
6613         fp = sp;
6614         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6615
6616         r_res = (int)&__sc_number36;
6617         push(r_res);
6618         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6619         r_res = ST_ARG(1);
6620         push(r_res);
6621         push(2);
6622         r_res = (int)probeSymbolDefined("=",topLevel);
6623         if (r_res==0) goto __else288;
6624         if (! ((SymbolEntry*)r_res)->isDefined) goto __else288;
6625         r_res = (int)((SymbolEntry*)r_res)->sob;
6626         goto __endIf288;
6627 __else288:
6628         fprintf(stderr,"Symbol = not defined"); exit(-1);
6629 __endIf288:
6630         if (IS_SOB_CLOSURE(r_res)) goto __app183;
6631         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6632 __app183:
6633         push((int)SOB_CLOSURE_ENV(r_res));
6634         push((int)&&__ret262);
6635         goto *(SOB_CLOSURE_CODE(r_res));
6636 __ret262:
6637         sp = sp-2-stack[sp-2];
6638         if ((SchemeObject*)r_res==&sc_false) goto __else287;
6639         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
6640         r_res = ST_ARG(2);
6641         goto __endIf287;
6642 __else287:
6643
6644         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
6645         r_res = ST_ARG(2);
6646         push(r_res);
6647
6648         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6649         r_res = ST_ARG(1);
6650         push(r_res);
6651         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6652         r_res = ST_ARG(0);
6653         push(r_res);
6654         push(2);
6655         r_res = (int)probeSymbolDefined("string-ref",topLevel);
6656         if (r_res==0) goto __else289;
6657         if (! ((SymbolEntry*)r_res)->isDefined) goto __else289;
6658         r_res = (int)((SymbolEntry*)r_res)->sob;
6659         goto __endIf289;
6660 __else289:
6661         fprintf(stderr,"Symbol string-ref not defined"); exit(-1);
6662 __endIf289:
6663         if (IS_SOB_CLOSURE(r_res)) goto __app185;
6664         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6665 __app185:
6666         push((int)SOB_CLOSURE_ENV(r_res));
6667         push((int)&&__ret264);
6668         goto *(SOB_CLOSURE_CODE(r_res));
6669 __ret264:
6670         sp = sp-2-stack[sp-2];
6671         push(r_res);
6672         push(2);
6673         r_res = (int)probeSymbolDefined("cons",topLevel);
6674         if (r_res==0) goto __else290;
6675         if (! ((SymbolEntry*)r_res)->isDefined) goto __else290;
6676         r_res = (int)((SymbolEntry*)r_res)->sob;
6677         goto __endIf290;
6678 __else290:
6679         fprintf(stderr,"Symbol cons not defined"); exit(-1);
6680 __endIf290:
6681         if (IS_SOB_CLOSURE(r_res)) goto __app184;
6682         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6683 __app184:
6684         push((int)SOB_CLOSURE_ENV(r_res));
6685         push((int)&&__ret263);
6686         goto *(SOB_CLOSURE_CODE(r_res));
6687 __ret263:
6688         sp = sp-2-stack[sp-2];
6689         push(r_res);
6690
6691         r_res = (int)&__sc_number37;
6692         push(r_res);
6693         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6694         r_res = ST_ARG(1);
6695         push(r_res);
6696         push(2);
6697         r_res = (int)probeSymbolDefined("-",topLevel);
6698         if (r_res==0) goto __else291;
6699         if (! ((SymbolEntry*)r_res)->isDefined) goto __else291;
6700         r_res = (int)((SymbolEntry*)r_res)->sob;
6701         goto __endIf291;
6702 __else291:
6703         fprintf(stderr,"Symbol - not defined"); exit(-1);
6704 __endIf291:
6705         if (IS_SOB_CLOSURE(r_res)) goto __app186;
6706         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6707 __app186:
6708         push((int)SOB_CLOSURE_ENV(r_res));
6709         push((int)&&__ret265);
6710         goto *(SOB_CLOSURE_CODE(r_res));
6711 __ret265:
6712         sp = sp-2-stack[sp-2];
6713         push(r_res);
6714         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6715         r_res = ST_ARG(0);
6716         push(r_res);
6717         push(3);
6718
6719         r_res = (int)&__sc_number38;
6720         push(r_res);
6721         r_res = ((int**)ST_ENV())[0][0];
6722         push(r_res);
6723         push(2);
6724         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
6725         if (r_res==0) goto __else292;
6726         if (! ((SymbolEntry*)r_res)->isDefined) goto __else292;
6727         r_res = (int)((SymbolEntry*)r_res)->sob;
6728         goto __endIf292;
6729 __else292:
6730         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
6731 __endIf292:
6732         if (IS_SOB_CLOSURE(r_res)) goto __app187;
6733         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6734 __app187:
6735         push((int)SOB_CLOSURE_ENV(r_res));
6736         push((int)&&__ret266);
6737         goto *(SOB_CLOSURE_CODE(r_res));
6738 __ret266:
6739         sp = sp-2-stack[sp-2];
6740         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6741         push((int)SOB_CLOSURE_ENV(r_res));
6742         push(ST_RET());
6743         shiftActFrmDown();
6744         goto *(SOB_CLOSURE_CODE(r_res));
6745         sp = sp-2-stack[sp-2];
6746 __endIf287:
6747         fp = pop();
6748         RETURN();
6749 __skipBody76:
6750         r_res = (int)makeSchemeClosure((void*)r[0],&&__body76);
6751         push(r_res);
6752         r_res = (int)&__sc_number39;
6753         push(r_res);
6754         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6755         r_res = ST_ARG(0);
6756         push(r_res);
6757         push(3);
6758         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
6759         if (r_res==0) goto __else293;
6760         if (! ((SymbolEntry*)r_res)->isDefined) goto __else293;
6761         r_res = (int)((SymbolEntry*)r_res)->sob;
6762         goto __endIf293;
6763 __else293:
6764         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
6765 __endIf293:
6766         if (IS_SOB_CLOSURE(r_res)) goto __app182;
6767         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6768 __app182:
6769         push((int)SOB_CLOSURE_ENV(r_res));
6770         push((int)&&__ret261);
6771         goto *(SOB_CLOSURE_CODE(r_res));
6772 __ret261:
6773         sp = sp-2-stack[sp-2];
6774         push(0);
6775         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6776         goto __skipBody77;
6777 __body77:
6778         push(fp);
6779         fp = sp;
6780         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6781         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
6782         goto __skipBody78;
6783 __body78:
6784         push(fp);
6785         fp = sp;
6786         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6787         r_res = (int)&sc_nil;
6788         push(r_res);
6789
6790         r_res = (int)&__sc_number40;
6791         push(r_res);
6792
6793         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6794         r_res = ST_ARG(0);
6795         push(r_res);
6796         push(1);
6797         r_res = (int)probeSymbolDefined("string-length",topLevel);
6798         if (r_res==0) goto __else294;
6799         if (! ((SymbolEntry*)r_res)->isDefined) goto __else294;
6800         r_res = (int)((SymbolEntry*)r_res)->sob;
6801         goto __endIf294;
6802 __else294:
6803         fprintf(stderr,"Symbol string-length not defined"); exit(-1);
6804 __endIf294:
6805         if (IS_SOB_CLOSURE(r_res)) goto __app189;
6806         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6807 __app189:
6808         push((int)SOB_CLOSURE_ENV(r_res));
6809         push((int)&&__ret268);
6810         goto *(SOB_CLOSURE_CODE(r_res));
6811 __ret268:
6812         sp = sp-2-stack[sp-2];
6813         push(r_res);
6814         push(2);
6815         r_res = (int)probeSymbolDefined("-",topLevel);
6816         if (r_res==0) goto __else295;
6817         if (! ((SymbolEntry*)r_res)->isDefined) goto __else295;
6818         r_res = (int)((SymbolEntry*)r_res)->sob;
6819         goto __endIf295;
6820 __else295:
6821         fprintf(stderr,"Symbol - not defined"); exit(-1);
6822 __endIf295:
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)&&__ret267);
6828         goto *(SOB_CLOSURE_CODE(r_res));
6829 __ret267:
6830         sp = sp-2-stack[sp-2];
6831         push(r_res);
6832         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6833         r_res = ST_ARG(0);
6834         push(r_res);
6835         push(3);
6836
6837         r_res = (int)&__sc_number41;
6838         push(r_res);
6839         r_res = ((int**)ST_ENV())[1][0];
6840         push(r_res);
6841         push(2);
6842         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
6843         if (r_res==0) goto __else296;
6844         if (! ((SymbolEntry*)r_res)->isDefined) goto __else296;
6845         r_res = (int)((SymbolEntry*)r_res)->sob;
6846         goto __endIf296;
6847 __else296:
6848         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
6849 __endIf296:
6850         if (IS_SOB_CLOSURE(r_res)) goto __app190;
6851         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6852 __app190:
6853         push((int)SOB_CLOSURE_ENV(r_res));
6854         push((int)&&__ret269);
6855         goto *(SOB_CLOSURE_CODE(r_res));
6856 __ret269:
6857         sp = sp-2-stack[sp-2];
6858         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6859         push((int)SOB_CLOSURE_ENV(r_res));
6860         push(ST_RET());
6861         shiftActFrmDown();
6862         goto *(SOB_CLOSURE_CODE(r_res));
6863         sp = sp-2-stack[sp-2];
6864         fp = pop();
6865         RETURN();
6866 __skipBody78:
6867         r_res = (int)makeSchemeClosure((void*)r[0],&&__body78);
6868         fp = pop();
6869         RETURN();
6870 __skipBody77:
6871         r_res = (int)makeSchemeClosure((void*)r[0],&&__body77);
6872         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6873         push((int)SOB_CLOSURE_ENV(r_res));
6874         push(ST_RET());
6875         shiftActFrmDown();
6876         goto *(SOB_CLOSURE_CODE(r_res));
6877         sp = sp-2-stack[sp-2];
6878         fp = pop();
6879         RETURN();
6880 __skipBody75:
6881         r_res = (int)makeSchemeClosure((void*)r[0],&&__body75);
6882         if (IS_SOB_CLOSURE(r_res)) goto __app180;
6883         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6884 __app180:
6885         push((int)SOB_CLOSURE_ENV(r_res));
6886         push((int)&&__ret259);
6887         goto *(SOB_CLOSURE_CODE(r_res));
6888 __ret259:
6889         sp = sp-2-stack[sp-2];
6890         r[0] = (int)getSymbol("string->list",topLevel);
6891         ((SymbolEntry*)r[0])->isDefined = 1;
6892         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
6893         r_res = (int)&sc_void;
6894 __ret258:
6895         /* set return address */
6896         ST_RET() = (int)&&__ret270;
6897
6898         r[0] = (int)extendEnviroment( (int**)NULL, 0);
6899         goto __skipBody79;
6900 __body79:
6901         push(fp);
6902         fp = sp;
6903         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6904
6905         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6906         r_res = ST_ARG(1);
6907         push(r_res);
6908         push(1);
6909         r_res = (int)probeSymbolDefined("string-length",topLevel);
6910         if (r_res==0) goto __else297;
6911         if (! ((SymbolEntry*)r_res)->isDefined) goto __else297;
6912         r_res = (int)((SymbolEntry*)r_res)->sob;
6913         goto __endIf297;
6914 __else297:
6915         fprintf(stderr,"Symbol string-length not defined"); exit(-1);
6916 __endIf297:
6917         if (IS_SOB_CLOSURE(r_res)) goto __app191;
6918         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6919 __app191:
6920         push((int)SOB_CLOSURE_ENV(r_res));
6921         push((int)&&__ret271);
6922         goto *(SOB_CLOSURE_CODE(r_res));
6923 __ret271:
6924         sp = sp-2-stack[sp-2];
6925         push(r_res);
6926
6927         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6928         r_res = ST_ARG(0);
6929         push(r_res);
6930         push(1);
6931         r_res = (int)probeSymbolDefined("string-length",topLevel);
6932         if (r_res==0) goto __else298;
6933         if (! ((SymbolEntry*)r_res)->isDefined) goto __else298;
6934         r_res = (int)((SymbolEntry*)r_res)->sob;
6935         goto __endIf298;
6936 __else298:
6937         fprintf(stderr,"Symbol string-length not defined"); exit(-1);
6938 __endIf298:
6939         if (IS_SOB_CLOSURE(r_res)) goto __app192;
6940         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6941 __app192:
6942         push((int)SOB_CLOSURE_ENV(r_res));
6943         push((int)&&__ret272);
6944         goto *(SOB_CLOSURE_CODE(r_res));
6945 __ret272:
6946         sp = sp-2-stack[sp-2];
6947         push(r_res);
6948         push(2);
6949         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
6950         goto __skipBody80;
6951 __body80:
6952         push(fp);
6953         fp = sp;
6954         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
6955
6956         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
6957         r_res = ST_ARG(1);
6958         push(r_res);
6959         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
6960         r_res = ST_ARG(0);
6961         push(r_res);
6962         push(2);
6963         r_res = (int)probeSymbolDefined("=",topLevel);
6964         if (r_res==0) goto __else300;
6965         if (! ((SymbolEntry*)r_res)->isDefined) goto __else300;
6966         r_res = (int)((SymbolEntry*)r_res)->sob;
6967         goto __endIf300;
6968 __else300:
6969         fprintf(stderr,"Symbol = not defined"); exit(-1);
6970 __endIf300:
6971         if (IS_SOB_CLOSURE(r_res)) goto __app193;
6972         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6973 __app193:
6974         push((int)SOB_CLOSURE_ENV(r_res));
6975         push((int)&&__ret273);
6976         goto *(SOB_CLOSURE_CODE(r_res));
6977 __ret273:
6978         sp = sp-2-stack[sp-2];
6979         if ((SchemeObject*)r_res==&sc_false) goto __else299;
6980
6981         r_res = ((int**)ST_ENV())[0][1];
6982         push(r_res);
6983         push(1);
6984         r_res = (int)probeSymbolDefined("string->list",topLevel);
6985         if (r_res==0) goto __else301;
6986         if (! ((SymbolEntry*)r_res)->isDefined) goto __else301;
6987         r_res = (int)((SymbolEntry*)r_res)->sob;
6988         goto __endIf301;
6989 __else301:
6990         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
6991 __endIf301:
6992         if (IS_SOB_CLOSURE(r_res)) goto __app194;
6993         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
6994 __app194:
6995         push((int)SOB_CLOSURE_ENV(r_res));
6996         push((int)&&__ret274);
6997         goto *(SOB_CLOSURE_CODE(r_res));
6998 __ret274:
6999         sp = sp-2-stack[sp-2];
7000         push(r_res);
7001
7002         r_res = ((int**)ST_ENV())[0][0];
7003         push(r_res);
7004         push(1);
7005         r_res = (int)probeSymbolDefined("string->list",topLevel);
7006         if (r_res==0) goto __else302;
7007         if (! ((SymbolEntry*)r_res)->isDefined) goto __else302;
7008         r_res = (int)((SymbolEntry*)r_res)->sob;
7009         goto __endIf302;
7010 __else302:
7011         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
7012 __endIf302:
7013         if (IS_SOB_CLOSURE(r_res)) goto __app195;
7014         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7015 __app195:
7016         push((int)SOB_CLOSURE_ENV(r_res));
7017         push((int)&&__ret275);
7018         goto *(SOB_CLOSURE_CODE(r_res));
7019 __ret275:
7020         sp = sp-2-stack[sp-2];
7021         push(r_res);
7022         push(2);
7023         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
7024         goto __skipBody81;
7025 __body81:
7026         push(fp);
7027         fp = sp;
7028         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7029
7030         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7031         r_res = ST_ARG(1);
7032         push(r_res);
7033         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7034         r_res = ST_ARG(0);
7035         push(r_res);
7036         r_res = (int)probeSymbolDefined("char=?",topLevel);
7037         if (r_res==0) goto __else303;
7038         if (! ((SymbolEntry*)r_res)->isDefined) goto __else303;
7039         r_res = (int)((SymbolEntry*)r_res)->sob;
7040         goto __endIf303;
7041 __else303:
7042         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
7043 __endIf303:
7044         push(r_res);
7045         push(3);
7046         r_res = (int)probeSymbolDefined("andmap",topLevel);
7047         if (r_res==0) goto __else304;
7048         if (! ((SymbolEntry*)r_res)->isDefined) goto __else304;
7049         r_res = (int)((SymbolEntry*)r_res)->sob;
7050         goto __endIf304;
7051 __else304:
7052         fprintf(stderr,"Symbol andmap not defined"); exit(-1);
7053 __endIf304:
7054         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7055         push((int)SOB_CLOSURE_ENV(r_res));
7056         push(ST_RET());
7057         shiftActFrmDown();
7058         goto *(SOB_CLOSURE_CODE(r_res));
7059         sp = sp-2-stack[sp-2];
7060         fp = pop();
7061         RETURN();
7062 __skipBody81:
7063         r_res = (int)makeSchemeClosure((void*)r[0],&&__body81);
7064         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7065         push((int)SOB_CLOSURE_ENV(r_res));
7066         push(ST_RET());
7067         shiftActFrmDown();
7068         goto *(SOB_CLOSURE_CODE(r_res));
7069         sp = sp-2-stack[sp-2];
7070         goto __endIf299;
7071 __else299:
7072         r_res = (int)&sc_false;
7073 __endIf299:
7074         fp = pop();
7075         RETURN();
7076 __skipBody80:
7077         r_res = (int)makeSchemeClosure((void*)r[0],&&__body80);
7078         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7079         push((int)SOB_CLOSURE_ENV(r_res));
7080         push(ST_RET());
7081         shiftActFrmDown();
7082         goto *(SOB_CLOSURE_CODE(r_res));
7083         sp = sp-2-stack[sp-2];
7084         fp = pop();
7085         RETURN();
7086 __skipBody79:
7087         r_res = (int)makeSchemeClosure((void*)r[0],&&__body79);
7088         r[0] = (int)getSymbol("binary-string=?",topLevel);
7089         ((SymbolEntry*)r[0])->isDefined = 1;
7090         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7091         r_res = (int)&sc_void;
7092 __ret270:
7093         /* set return address */
7094         ST_RET() = (int)&&__ret276;
7095
7096         r[0] = (int)extendEnviroment( (int**)NULL, 0);
7097         goto __skipBody82;
7098 __body82:
7099         push(fp);
7100         fp = sp;
7101         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7102         r_res = (int)&sc_false;
7103         push(r_res);
7104         push(1);
7105         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
7106         goto __skipBody83;
7107 __body83:
7108         push(fp);
7109         fp = sp;
7110         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7111
7112         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7113         r_res = ST_ARG(0);
7114         push(r_res);
7115         push(1);
7116         r_res = (int)probeSymbolDefined("box",topLevel);
7117         if (r_res==0) goto __else305;
7118         if (! ((SymbolEntry*)r_res)->isDefined) goto __else305;
7119         r_res = (int)((SymbolEntry*)r_res)->sob;
7120         goto __endIf305;
7121 __else305:
7122         fprintf(stderr,"Symbol box not defined"); exit(-1);
7123 __endIf305:
7124         if (IS_SOB_CLOSURE(r_res)) goto __app196;
7125         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7126 __app196:
7127         push((int)SOB_CLOSURE_ENV(r_res));
7128         push((int)&&__ret277);
7129         goto *(SOB_CLOSURE_CODE(r_res));
7130 __ret277:
7131         sp = sp-2-stack[sp-2];
7132         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7133         ST_ARG(0) = r_res;
7134         r_res = (int)&sc_void;
7135
7136         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
7137         goto __skipBody84;
7138 __body84:
7139         push(fp);
7140         fp = sp;
7141         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7142
7143         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7144         r_res = ST_ARG(0);
7145         push(r_res);
7146         push(1);
7147         r_res = (int)probeSymbolDefined("null?",topLevel);
7148         if (r_res==0) goto __else307;
7149         if (! ((SymbolEntry*)r_res)->isDefined) goto __else307;
7150         r_res = (int)((SymbolEntry*)r_res)->sob;
7151         goto __endIf307;
7152 __else307:
7153         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
7154 __endIf307:
7155         if (IS_SOB_CLOSURE(r_res)) goto __app198;
7156         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7157 __app198:
7158         push((int)SOB_CLOSURE_ENV(r_res));
7159         push((int)&&__ret279);
7160         goto *(SOB_CLOSURE_CODE(r_res));
7161 __ret279:
7162         sp = sp-2-stack[sp-2];
7163         if ((SchemeObject*)r_res==&sc_false) goto __else306;
7164
7165         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7166         r_res = ST_ARG(1);
7167         push(r_res);
7168         push(1);
7169         r_res = (int)probeSymbolDefined("pair?",topLevel);
7170         if (r_res==0) goto __else308;
7171         if (! ((SymbolEntry*)r_res)->isDefined) goto __else308;
7172         r_res = (int)((SymbolEntry*)r_res)->sob;
7173         goto __endIf308;
7174 __else308:
7175         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
7176 __endIf308:
7177         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7178         push((int)SOB_CLOSURE_ENV(r_res));
7179         push(ST_RET());
7180         shiftActFrmDown();
7181         goto *(SOB_CLOSURE_CODE(r_res));
7182         sp = sp-2-stack[sp-2];
7183         goto __endIf306;
7184 __else306:
7185
7186         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7187         r_res = ST_ARG(1);
7188         push(r_res);
7189         push(1);
7190         r_res = (int)probeSymbolDefined("null?",topLevel);
7191         if (r_res==0) goto __else310;
7192         if (! ((SymbolEntry*)r_res)->isDefined) goto __else310;
7193         r_res = (int)((SymbolEntry*)r_res)->sob;
7194         goto __endIf310;
7195 __else310:
7196         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
7197 __endIf310:
7198         if (IS_SOB_CLOSURE(r_res)) goto __app199;
7199         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7200 __app199:
7201         push((int)SOB_CLOSURE_ENV(r_res));
7202         push((int)&&__ret280);
7203         goto *(SOB_CLOSURE_CODE(r_res));
7204 __ret280:
7205         sp = sp-2-stack[sp-2];
7206         if ((SchemeObject*)r_res==&sc_false) goto __else309;
7207         r_res = (int)&sc_false;
7208         goto __endIf309;
7209 __else309:
7210
7211
7212         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7213         r_res = ST_ARG(1);
7214         push(r_res);
7215         push(1);
7216         r_res = (int)probeSymbolDefined("car",topLevel);
7217         if (r_res==0) goto __else312;
7218         if (! ((SymbolEntry*)r_res)->isDefined) goto __else312;
7219         r_res = (int)((SymbolEntry*)r_res)->sob;
7220         goto __endIf312;
7221 __else312:
7222         fprintf(stderr,"Symbol car not defined"); exit(-1);
7223 __endIf312:
7224         if (IS_SOB_CLOSURE(r_res)) goto __app201;
7225         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7226 __app201:
7227         push((int)SOB_CLOSURE_ENV(r_res));
7228         push((int)&&__ret282);
7229         goto *(SOB_CLOSURE_CODE(r_res));
7230 __ret282:
7231         sp = sp-2-stack[sp-2];
7232         push(r_res);
7233
7234         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7235         r_res = ST_ARG(0);
7236         push(r_res);
7237         push(1);
7238         r_res = (int)probeSymbolDefined("car",topLevel);
7239         if (r_res==0) goto __else313;
7240         if (! ((SymbolEntry*)r_res)->isDefined) goto __else313;
7241         r_res = (int)((SymbolEntry*)r_res)->sob;
7242         goto __endIf313;
7243 __else313:
7244         fprintf(stderr,"Symbol car not defined"); exit(-1);
7245 __endIf313:
7246         if (IS_SOB_CLOSURE(r_res)) goto __app202;
7247         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7248 __app202:
7249         push((int)SOB_CLOSURE_ENV(r_res));
7250         push((int)&&__ret283);
7251         goto *(SOB_CLOSURE_CODE(r_res));
7252 __ret283:
7253         sp = sp-2-stack[sp-2];
7254         push(r_res);
7255         push(2);
7256         r_res = (int)probeSymbolDefined("char=?",topLevel);
7257         if (r_res==0) goto __else314;
7258         if (! ((SymbolEntry*)r_res)->isDefined) goto __else314;
7259         r_res = (int)((SymbolEntry*)r_res)->sob;
7260         goto __endIf314;
7261 __else314:
7262         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
7263 __endIf314:
7264         if (IS_SOB_CLOSURE(r_res)) goto __app200;
7265         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7266 __app200:
7267         push((int)SOB_CLOSURE_ENV(r_res));
7268         push((int)&&__ret281);
7269         goto *(SOB_CLOSURE_CODE(r_res));
7270 __ret281:
7271         sp = sp-2-stack[sp-2];
7272         if ((SchemeObject*)r_res==&sc_false) goto __else311;
7273
7274         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7275         r_res = ST_ARG(1);
7276         push(r_res);
7277         push(1);
7278         r_res = (int)probeSymbolDefined("cdr",topLevel);
7279         if (r_res==0) goto __else315;
7280         if (! ((SymbolEntry*)r_res)->isDefined) goto __else315;
7281         r_res = (int)((SymbolEntry*)r_res)->sob;
7282         goto __endIf315;
7283 __else315:
7284         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
7285 __endIf315:
7286         if (IS_SOB_CLOSURE(r_res)) goto __app203;
7287         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7288 __app203:
7289         push((int)SOB_CLOSURE_ENV(r_res));
7290         push((int)&&__ret284);
7291         goto *(SOB_CLOSURE_CODE(r_res));
7292 __ret284:
7293         sp = sp-2-stack[sp-2];
7294         push(r_res);
7295
7296         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7297         r_res = ST_ARG(0);
7298         push(r_res);
7299         push(1);
7300         r_res = (int)probeSymbolDefined("cdr",topLevel);
7301         if (r_res==0) goto __else316;
7302         if (! ((SymbolEntry*)r_res)->isDefined) goto __else316;
7303         r_res = (int)((SymbolEntry*)r_res)->sob;
7304         goto __endIf316;
7305 __else316:
7306         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
7307 __endIf316:
7308         if (IS_SOB_CLOSURE(r_res)) goto __app204;
7309         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7310 __app204:
7311         push((int)SOB_CLOSURE_ENV(r_res));
7312         push((int)&&__ret285);
7313         goto *(SOB_CLOSURE_CODE(r_res));
7314 __ret285:
7315         sp = sp-2-stack[sp-2];
7316         push(r_res);
7317         push(2);
7318
7319         r_res = (int)&__sc_number42;
7320         push(r_res);
7321         r_res = ((int**)ST_ENV())[0][0];
7322         push(r_res);
7323         push(2);
7324         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
7325         if (r_res==0) goto __else317;
7326         if (! ((SymbolEntry*)r_res)->isDefined) goto __else317;
7327         r_res = (int)((SymbolEntry*)r_res)->sob;
7328         goto __endIf317;
7329 __else317:
7330         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
7331 __endIf317:
7332         if (IS_SOB_CLOSURE(r_res)) goto __app205;
7333         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7334 __app205:
7335         push((int)SOB_CLOSURE_ENV(r_res));
7336         push((int)&&__ret286);
7337         goto *(SOB_CLOSURE_CODE(r_res));
7338 __ret286:
7339         sp = sp-2-stack[sp-2];
7340         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7341         push((int)SOB_CLOSURE_ENV(r_res));
7342         push(ST_RET());
7343         shiftActFrmDown();
7344         goto *(SOB_CLOSURE_CODE(r_res));
7345         sp = sp-2-stack[sp-2];
7346         goto __endIf311;
7347 __else311:
7348
7349
7350         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7351         r_res = ST_ARG(1);
7352         push(r_res);
7353         push(1);
7354         r_res = (int)probeSymbolDefined("car",topLevel);
7355         if (r_res==0) goto __else318;
7356         if (! ((SymbolEntry*)r_res)->isDefined) goto __else318;
7357         r_res = (int)((SymbolEntry*)r_res)->sob;
7358         goto __endIf318;
7359 __else318:
7360         fprintf(stderr,"Symbol car not defined"); exit(-1);
7361 __endIf318:
7362         if (IS_SOB_CLOSURE(r_res)) goto __app206;
7363         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7364 __app206:
7365         push((int)SOB_CLOSURE_ENV(r_res));
7366         push((int)&&__ret287);
7367         goto *(SOB_CLOSURE_CODE(r_res));
7368 __ret287:
7369         sp = sp-2-stack[sp-2];
7370         push(r_res);
7371
7372         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7373         r_res = ST_ARG(0);
7374         push(r_res);
7375         push(1);
7376         r_res = (int)probeSymbolDefined("car",topLevel);
7377         if (r_res==0) goto __else319;
7378         if (! ((SymbolEntry*)r_res)->isDefined) goto __else319;
7379         r_res = (int)((SymbolEntry*)r_res)->sob;
7380         goto __endIf319;
7381 __else319:
7382         fprintf(stderr,"Symbol car not defined"); exit(-1);
7383 __endIf319:
7384         if (IS_SOB_CLOSURE(r_res)) goto __app207;
7385         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7386 __app207:
7387         push((int)SOB_CLOSURE_ENV(r_res));
7388         push((int)&&__ret288);
7389         goto *(SOB_CLOSURE_CODE(r_res));
7390 __ret288:
7391         sp = sp-2-stack[sp-2];
7392         push(r_res);
7393         push(2);
7394         r_res = (int)probeSymbolDefined("char<?",topLevel);
7395         if (r_res==0) goto __else320;
7396         if (! ((SymbolEntry*)r_res)->isDefined) goto __else320;
7397         r_res = (int)((SymbolEntry*)r_res)->sob;
7398         goto __endIf320;
7399 __else320:
7400         fprintf(stderr,"Symbol char<\? not defined"); exit(-1);
7401 __endIf320:
7402         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7403         push((int)SOB_CLOSURE_ENV(r_res));
7404         push(ST_RET());
7405         shiftActFrmDown();
7406         goto *(SOB_CLOSURE_CODE(r_res));
7407         sp = sp-2-stack[sp-2];
7408 __endIf311:
7409 __endIf309:
7410 __endIf306:
7411         fp = pop();
7412         RETURN();
7413 __skipBody84:
7414         r_res = (int)makeSchemeClosure((void*)r[0],&&__body84);
7415         push(r_res);
7416         r_res = (int)&__sc_number43;
7417         push(r_res);
7418         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7419         r_res = ST_ARG(0);
7420         push(r_res);
7421         push(3);
7422         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
7423         if (r_res==0) goto __else321;
7424         if (! ((SymbolEntry*)r_res)->isDefined) goto __else321;
7425         r_res = (int)((SymbolEntry*)r_res)->sob;
7426         goto __endIf321;
7427 __else321:
7428         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
7429 __endIf321:
7430         if (IS_SOB_CLOSURE(r_res)) goto __app197;
7431         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7432 __app197:
7433         push((int)SOB_CLOSURE_ENV(r_res));
7434         push((int)&&__ret278);
7435         goto *(SOB_CLOSURE_CODE(r_res));
7436 __ret278:
7437         sp = sp-2-stack[sp-2];
7438         push(0);
7439         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
7440         goto __skipBody85;
7441 __body85:
7442         push(fp);
7443         fp = sp;
7444         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7445
7446         r_res = ((int**)ST_ENV())[1][1];
7447         push(r_res);
7448         push(1);
7449         r_res = (int)probeSymbolDefined("string->list",topLevel);
7450         if (r_res==0) goto __else322;
7451         if (! ((SymbolEntry*)r_res)->isDefined) goto __else322;
7452         r_res = (int)((SymbolEntry*)r_res)->sob;
7453         goto __endIf322;
7454 __else322:
7455         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
7456 __endIf322:
7457         if (IS_SOB_CLOSURE(r_res)) goto __app208;
7458         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7459 __app208:
7460         push((int)SOB_CLOSURE_ENV(r_res));
7461         push((int)&&__ret289);
7462         goto *(SOB_CLOSURE_CODE(r_res));
7463 __ret289:
7464         sp = sp-2-stack[sp-2];
7465         push(r_res);
7466
7467         r_res = ((int**)ST_ENV())[1][0];
7468         push(r_res);
7469         push(1);
7470         r_res = (int)probeSymbolDefined("string->list",topLevel);
7471         if (r_res==0) goto __else323;
7472         if (! ((SymbolEntry*)r_res)->isDefined) goto __else323;
7473         r_res = (int)((SymbolEntry*)r_res)->sob;
7474         goto __endIf323;
7475 __else323:
7476         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
7477 __endIf323:
7478         if (IS_SOB_CLOSURE(r_res)) goto __app209;
7479         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7480 __app209:
7481         push((int)SOB_CLOSURE_ENV(r_res));
7482         push((int)&&__ret290);
7483         goto *(SOB_CLOSURE_CODE(r_res));
7484 __ret290:
7485         sp = sp-2-stack[sp-2];
7486         push(r_res);
7487         push(2);
7488
7489         r_res = (int)&__sc_number44;
7490         push(r_res);
7491         r_res = ((int**)ST_ENV())[0][0];
7492         push(r_res);
7493         push(2);
7494         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
7495         if (r_res==0) goto __else324;
7496         if (! ((SymbolEntry*)r_res)->isDefined) goto __else324;
7497         r_res = (int)((SymbolEntry*)r_res)->sob;
7498         goto __endIf324;
7499 __else324:
7500         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
7501 __endIf324:
7502         if (IS_SOB_CLOSURE(r_res)) goto __app210;
7503         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7504 __app210:
7505         push((int)SOB_CLOSURE_ENV(r_res));
7506         push((int)&&__ret291);
7507         goto *(SOB_CLOSURE_CODE(r_res));
7508 __ret291:
7509         sp = sp-2-stack[sp-2];
7510         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7511         push((int)SOB_CLOSURE_ENV(r_res));
7512         push(ST_RET());
7513         shiftActFrmDown();
7514         goto *(SOB_CLOSURE_CODE(r_res));
7515         sp = sp-2-stack[sp-2];
7516         fp = pop();
7517         RETURN();
7518 __skipBody85:
7519         r_res = (int)makeSchemeClosure((void*)r[0],&&__body85);
7520         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7521         push((int)SOB_CLOSURE_ENV(r_res));
7522         push(ST_RET());
7523         shiftActFrmDown();
7524         goto *(SOB_CLOSURE_CODE(r_res));
7525         sp = sp-2-stack[sp-2];
7526         fp = pop();
7527         RETURN();
7528 __skipBody83:
7529         r_res = (int)makeSchemeClosure((void*)r[0],&&__body83);
7530         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7531         push((int)SOB_CLOSURE_ENV(r_res));
7532         push(ST_RET());
7533         shiftActFrmDown();
7534         goto *(SOB_CLOSURE_CODE(r_res));
7535         sp = sp-2-stack[sp-2];
7536         fp = pop();
7537         RETURN();
7538 __skipBody82:
7539         r_res = (int)makeSchemeClosure((void*)r[0],&&__body82);
7540         r[0] = (int)getSymbol("binary-string<?",topLevel);
7541         ((SymbolEntry*)r[0])->isDefined = 1;
7542         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7543         r_res = (int)&sc_void;
7544 __ret276:
7545         /* set return address */
7546         ST_RET() = (int)&&__ret292;
7547
7548         r[0] = (int)extendEnviroment( (int**)NULL, 0);
7549         goto __skipBody86;
7550 __body86:
7551         push(fp);
7552         fp = sp;
7553         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7554
7555         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7556         r_res = ST_ARG(0);
7557         push(r_res);
7558         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7559         r_res = ST_ARG(1);
7560         push(r_res);
7561         push(2);
7562         r_res = (int)probeSymbolDefined("binary-string<?",topLevel);
7563         if (r_res==0) goto __else325;
7564         if (! ((SymbolEntry*)r_res)->isDefined) goto __else325;
7565         r_res = (int)((SymbolEntry*)r_res)->sob;
7566         goto __endIf325;
7567 __else325:
7568         fprintf(stderr,"Symbol binary-string<\? not defined"); exit(-1);
7569 __endIf325:
7570         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7571         push((int)SOB_CLOSURE_ENV(r_res));
7572         push(ST_RET());
7573         shiftActFrmDown();
7574         goto *(SOB_CLOSURE_CODE(r_res));
7575         sp = sp-2-stack[sp-2];
7576         fp = pop();
7577         RETURN();
7578 __skipBody86:
7579         r_res = (int)makeSchemeClosure((void*)r[0],&&__body86);
7580         r[0] = (int)getSymbol("binary-string>?",topLevel);
7581         ((SymbolEntry*)r[0])->isDefined = 1;
7582         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7583         r_res = (int)&sc_void;
7584 __ret292:
7585         /* set return address */
7586         ST_RET() = (int)&&__ret293;
7587
7588         r[0] = (int)extendEnviroment( (int**)NULL, 0);
7589         goto __skipBody87;
7590 __body87:
7591         push(fp);
7592         fp = sp;
7593         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7594
7595
7596         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7597         r_res = ST_ARG(1);
7598         push(r_res);
7599         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7600         r_res = ST_ARG(0);
7601         push(r_res);
7602         push(2);
7603         r_res = (int)probeSymbolDefined("binary-string>?",topLevel);
7604         if (r_res==0) goto __else326;
7605         if (! ((SymbolEntry*)r_res)->isDefined) goto __else326;
7606         r_res = (int)((SymbolEntry*)r_res)->sob;
7607         goto __endIf326;
7608 __else326:
7609         fprintf(stderr,"Symbol binary-string>\? not defined"); exit(-1);
7610 __endIf326:
7611         if (IS_SOB_CLOSURE(r_res)) goto __app211;
7612         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7613 __app211:
7614         push((int)SOB_CLOSURE_ENV(r_res));
7615         push((int)&&__ret294);
7616         goto *(SOB_CLOSURE_CODE(r_res));
7617 __ret294:
7618         sp = sp-2-stack[sp-2];
7619         push(r_res);
7620         push(1);
7621         r_res = (int)probeSymbolDefined("not",topLevel);
7622         if (r_res==0) goto __else327;
7623         if (! ((SymbolEntry*)r_res)->isDefined) goto __else327;
7624         r_res = (int)((SymbolEntry*)r_res)->sob;
7625         goto __endIf327;
7626 __else327:
7627         fprintf(stderr,"Symbol not not defined"); exit(-1);
7628 __endIf327:
7629         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7630         push((int)SOB_CLOSURE_ENV(r_res));
7631         push(ST_RET());
7632         shiftActFrmDown();
7633         goto *(SOB_CLOSURE_CODE(r_res));
7634         sp = sp-2-stack[sp-2];
7635         fp = pop();
7636         RETURN();
7637 __skipBody87:
7638         r_res = (int)makeSchemeClosure((void*)r[0],&&__body87);
7639         r[0] = (int)getSymbol("binary-string<=?",topLevel);
7640         ((SymbolEntry*)r[0])->isDefined = 1;
7641         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7642         r_res = (int)&sc_void;
7643 __ret293:
7644         /* set return address */
7645         ST_RET() = (int)&&__ret295;
7646
7647         r[0] = (int)extendEnviroment( (int**)NULL, 0);
7648         goto __skipBody88;
7649 __body88:
7650         push(fp);
7651         fp = sp;
7652         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7653
7654
7655         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7656         r_res = ST_ARG(1);
7657         push(r_res);
7658         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7659         r_res = ST_ARG(0);
7660         push(r_res);
7661         push(2);
7662         r_res = (int)probeSymbolDefined("binary-string<?",topLevel);
7663         if (r_res==0) goto __else328;
7664         if (! ((SymbolEntry*)r_res)->isDefined) goto __else328;
7665         r_res = (int)((SymbolEntry*)r_res)->sob;
7666         goto __endIf328;
7667 __else328:
7668         fprintf(stderr,"Symbol binary-string<\? not defined"); exit(-1);
7669 __endIf328:
7670         if (IS_SOB_CLOSURE(r_res)) goto __app212;
7671         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7672 __app212:
7673         push((int)SOB_CLOSURE_ENV(r_res));
7674         push((int)&&__ret296);
7675         goto *(SOB_CLOSURE_CODE(r_res));
7676 __ret296:
7677         sp = sp-2-stack[sp-2];
7678         push(r_res);
7679         push(1);
7680         r_res = (int)probeSymbolDefined("not",topLevel);
7681         if (r_res==0) goto __else329;
7682         if (! ((SymbolEntry*)r_res)->isDefined) goto __else329;
7683         r_res = (int)((SymbolEntry*)r_res)->sob;
7684         goto __endIf329;
7685 __else329:
7686         fprintf(stderr,"Symbol not not defined"); exit(-1);
7687 __endIf329:
7688         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7689         push((int)SOB_CLOSURE_ENV(r_res));
7690         push(ST_RET());
7691         shiftActFrmDown();
7692         goto *(SOB_CLOSURE_CODE(r_res));
7693         sp = sp-2-stack[sp-2];
7694         fp = pop();
7695         RETURN();
7696 __skipBody88:
7697         r_res = (int)makeSchemeClosure((void*)r[0],&&__body88);
7698         r[0] = (int)getSymbol("binary-string>=?",topLevel);
7699         ((SymbolEntry*)r[0])->isDefined = 1;
7700         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7701         r_res = (int)&sc_void;
7702 __ret295:
7703         /* set return address */
7704         ST_RET() = (int)&&__ret297;
7705
7706
7707         r_res = (int)probeSymbolDefined("binary-string=?",topLevel);
7708         if (r_res==0) goto __else330;
7709         if (! ((SymbolEntry*)r_res)->isDefined) goto __else330;
7710         r_res = (int)((SymbolEntry*)r_res)->sob;
7711         goto __endIf330;
7712 __else330:
7713         fprintf(stderr,"Symbol binary-string=\? not defined"); exit(-1);
7714 __endIf330:
7715         push(r_res);
7716         push(1);
7717         r_res = (int)probeSymbolDefined("order",topLevel);
7718         if (r_res==0) goto __else331;
7719         if (! ((SymbolEntry*)r_res)->isDefined) goto __else331;
7720         r_res = (int)((SymbolEntry*)r_res)->sob;
7721         goto __endIf331;
7722 __else331:
7723         fprintf(stderr,"Symbol order not defined"); exit(-1);
7724 __endIf331:
7725         if (IS_SOB_CLOSURE(r_res)) goto __app213;
7726         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7727 __app213:
7728         push((int)SOB_CLOSURE_ENV(r_res));
7729         push((int)&&__ret298);
7730         goto *(SOB_CLOSURE_CODE(r_res));
7731 __ret298:
7732         sp = sp-2-stack[sp-2];
7733         r[0] = (int)getSymbol("string=?",topLevel);
7734         ((SymbolEntry*)r[0])->isDefined = 1;
7735         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7736         r_res = (int)&sc_void;
7737 __ret297:
7738         /* set return address */
7739         ST_RET() = (int)&&__ret299;
7740
7741
7742         r_res = (int)probeSymbolDefined("binary-string<?",topLevel);
7743         if (r_res==0) goto __else332;
7744         if (! ((SymbolEntry*)r_res)->isDefined) goto __else332;
7745         r_res = (int)((SymbolEntry*)r_res)->sob;
7746         goto __endIf332;
7747 __else332:
7748         fprintf(stderr,"Symbol binary-string<\? not defined"); exit(-1);
7749 __endIf332:
7750         push(r_res);
7751         push(1);
7752         r_res = (int)probeSymbolDefined("order",topLevel);
7753         if (r_res==0) goto __else333;
7754         if (! ((SymbolEntry*)r_res)->isDefined) goto __else333;
7755         r_res = (int)((SymbolEntry*)r_res)->sob;
7756         goto __endIf333;
7757 __else333:
7758         fprintf(stderr,"Symbol order not defined"); exit(-1);
7759 __endIf333:
7760         if (IS_SOB_CLOSURE(r_res)) goto __app214;
7761         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7762 __app214:
7763         push((int)SOB_CLOSURE_ENV(r_res));
7764         push((int)&&__ret300);
7765         goto *(SOB_CLOSURE_CODE(r_res));
7766 __ret300:
7767         sp = sp-2-stack[sp-2];
7768         r[0] = (int)getSymbol("string<?",topLevel);
7769         ((SymbolEntry*)r[0])->isDefined = 1;
7770         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7771         r_res = (int)&sc_void;
7772 __ret299:
7773         /* set return address */
7774         ST_RET() = (int)&&__ret301;
7775
7776
7777         r_res = (int)probeSymbolDefined("binary-string>?",topLevel);
7778         if (r_res==0) goto __else334;
7779         if (! ((SymbolEntry*)r_res)->isDefined) goto __else334;
7780         r_res = (int)((SymbolEntry*)r_res)->sob;
7781         goto __endIf334;
7782 __else334:
7783         fprintf(stderr,"Symbol binary-string>\? not defined"); exit(-1);
7784 __endIf334:
7785         push(r_res);
7786         push(1);
7787         r_res = (int)probeSymbolDefined("order",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 order not defined"); exit(-1);
7794 __endIf335:
7795         if (IS_SOB_CLOSURE(r_res)) goto __app215;
7796         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7797 __app215:
7798         push((int)SOB_CLOSURE_ENV(r_res));
7799         push((int)&&__ret302);
7800         goto *(SOB_CLOSURE_CODE(r_res));
7801 __ret302:
7802         sp = sp-2-stack[sp-2];
7803         r[0] = (int)getSymbol("string>?",topLevel);
7804         ((SymbolEntry*)r[0])->isDefined = 1;
7805         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7806         r_res = (int)&sc_void;
7807 __ret301:
7808         /* set return address */
7809         ST_RET() = (int)&&__ret303;
7810
7811
7812         r_res = (int)probeSymbolDefined("binary-string<=?",topLevel);
7813         if (r_res==0) goto __else336;
7814         if (! ((SymbolEntry*)r_res)->isDefined) goto __else336;
7815         r_res = (int)((SymbolEntry*)r_res)->sob;
7816         goto __endIf336;
7817 __else336:
7818         fprintf(stderr,"Symbol binary-string<=\? not defined"); exit(-1);
7819 __endIf336:
7820         push(r_res);
7821         push(1);
7822         r_res = (int)probeSymbolDefined("order",topLevel);
7823         if (r_res==0) goto __else337;
7824         if (! ((SymbolEntry*)r_res)->isDefined) goto __else337;
7825         r_res = (int)((SymbolEntry*)r_res)->sob;
7826         goto __endIf337;
7827 __else337:
7828         fprintf(stderr,"Symbol order not defined"); exit(-1);
7829 __endIf337:
7830         if (IS_SOB_CLOSURE(r_res)) goto __app216;
7831         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7832 __app216:
7833         push((int)SOB_CLOSURE_ENV(r_res));
7834         push((int)&&__ret304);
7835         goto *(SOB_CLOSURE_CODE(r_res));
7836 __ret304:
7837         sp = sp-2-stack[sp-2];
7838         r[0] = (int)getSymbol("string<=?",topLevel);
7839         ((SymbolEntry*)r[0])->isDefined = 1;
7840         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7841         r_res = (int)&sc_void;
7842 __ret303:
7843         /* set return address */
7844         ST_RET() = (int)&&__ret305;
7845
7846
7847         r_res = (int)probeSymbolDefined("binary-string>=?",topLevel);
7848         if (r_res==0) goto __else338;
7849         if (! ((SymbolEntry*)r_res)->isDefined) goto __else338;
7850         r_res = (int)((SymbolEntry*)r_res)->sob;
7851         goto __endIf338;
7852 __else338:
7853         fprintf(stderr,"Symbol binary-string>=\? not defined"); exit(-1);
7854 __endIf338:
7855         push(r_res);
7856         push(1);
7857         r_res = (int)probeSymbolDefined("order",topLevel);
7858         if (r_res==0) goto __else339;
7859         if (! ((SymbolEntry*)r_res)->isDefined) goto __else339;
7860         r_res = (int)((SymbolEntry*)r_res)->sob;
7861         goto __endIf339;
7862 __else339:
7863         fprintf(stderr,"Symbol order not defined"); exit(-1);
7864 __endIf339:
7865         if (IS_SOB_CLOSURE(r_res)) goto __app217;
7866         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7867 __app217:
7868         push((int)SOB_CLOSURE_ENV(r_res));
7869         push((int)&&__ret306);
7870         goto *(SOB_CLOSURE_CODE(r_res));
7871 __ret306:
7872         sp = sp-2-stack[sp-2];
7873         r[0] = (int)getSymbol("string>=?",topLevel);
7874         ((SymbolEntry*)r[0])->isDefined = 1;
7875         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
7876         r_res = (int)&sc_void;
7877 __ret305:
7878         /* set return address */
7879         ST_RET() = (int)&&__ret307;
7880
7881         r_res = (int)&sc_false;
7882         push(r_res);
7883         push(1);
7884         r[0] = (int)extendEnviroment( (int**)NULL, 0);
7885         goto __skipBody89;
7886 __body89:
7887         push(fp);
7888         fp = sp;
7889         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7890
7891         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7892         r_res = ST_ARG(0);
7893         push(r_res);
7894         push(1);
7895         r_res = (int)probeSymbolDefined("box",topLevel);
7896         if (r_res==0) goto __else340;
7897         if (! ((SymbolEntry*)r_res)->isDefined) goto __else340;
7898         r_res = (int)((SymbolEntry*)r_res)->sob;
7899         goto __endIf340;
7900 __else340:
7901         fprintf(stderr,"Symbol box not defined"); exit(-1);
7902 __endIf340:
7903         if (IS_SOB_CLOSURE(r_res)) goto __app219;
7904         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7905 __app219:
7906         push((int)SOB_CLOSURE_ENV(r_res));
7907         push((int)&&__ret309);
7908         goto *(SOB_CLOSURE_CODE(r_res));
7909 __ret309:
7910         sp = sp-2-stack[sp-2];
7911         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7912         ST_ARG(0) = r_res;
7913         r_res = (int)&sc_void;
7914
7915         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
7916         goto __skipBody90;
7917 __body90:
7918         push(fp);
7919         fp = sp;
7920         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
7921
7922         r_res = (int)&__sc_number45;
7923         push(r_res);
7924         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7925         r_res = ST_ARG(1);
7926         push(r_res);
7927         push(2);
7928         r_res = (int)probeSymbolDefined("=",topLevel);
7929         if (r_res==0) goto __else342;
7930         if (! ((SymbolEntry*)r_res)->isDefined) goto __else342;
7931         r_res = (int)((SymbolEntry*)r_res)->sob;
7932         goto __endIf342;
7933 __else342:
7934         fprintf(stderr,"Symbol = not defined"); exit(-1);
7935 __endIf342:
7936         if (IS_SOB_CLOSURE(r_res)) goto __app221;
7937         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7938 __app221:
7939         push((int)SOB_CLOSURE_ENV(r_res));
7940         push((int)&&__ret311);
7941         goto *(SOB_CLOSURE_CODE(r_res));
7942 __ret311:
7943         sp = sp-2-stack[sp-2];
7944         if ((SchemeObject*)r_res==&sc_false) goto __else341;
7945         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
7946         r_res = ST_ARG(2);
7947         goto __endIf341;
7948 __else341:
7949
7950         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
7951         r_res = ST_ARG(2);
7952         push(r_res);
7953
7954         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
7955         r_res = ST_ARG(1);
7956         push(r_res);
7957         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
7958         r_res = ST_ARG(0);
7959         push(r_res);
7960         push(2);
7961         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
7962         if (r_res==0) goto __else343;
7963         if (! ((SymbolEntry*)r_res)->isDefined) goto __else343;
7964         r_res = (int)((SymbolEntry*)r_res)->sob;
7965         goto __endIf343;
7966 __else343:
7967         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
7968 __endIf343:
7969         if (IS_SOB_CLOSURE(r_res)) goto __app223;
7970         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7971 __app223:
7972         push((int)SOB_CLOSURE_ENV(r_res));
7973         push((int)&&__ret313);
7974         goto *(SOB_CLOSURE_CODE(r_res));
7975 __ret313:
7976         sp = sp-2-stack[sp-2];
7977         push(r_res);
7978         push(2);
7979         r_res = (int)probeSymbolDefined("cons",topLevel);
7980         if (r_res==0) goto __else344;
7981         if (! ((SymbolEntry*)r_res)->isDefined) goto __else344;
7982         r_res = (int)((SymbolEntry*)r_res)->sob;
7983         goto __endIf344;
7984 __else344:
7985         fprintf(stderr,"Symbol cons not defined"); exit(-1);
7986 __endIf344:
7987         if (IS_SOB_CLOSURE(r_res)) goto __app222;
7988         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
7989 __app222:
7990         push((int)SOB_CLOSURE_ENV(r_res));
7991         push((int)&&__ret312);
7992         goto *(SOB_CLOSURE_CODE(r_res));
7993 __ret312:
7994         sp = sp-2-stack[sp-2];
7995         push(r_res);
7996
7997         r_res = (int)&__sc_number46;
7998         push(r_res);
7999         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8000         r_res = ST_ARG(1);
8001         push(r_res);
8002         push(2);
8003         r_res = (int)probeSymbolDefined("-",topLevel);
8004         if (r_res==0) goto __else345;
8005         if (! ((SymbolEntry*)r_res)->isDefined) goto __else345;
8006         r_res = (int)((SymbolEntry*)r_res)->sob;
8007         goto __endIf345;
8008 __else345:
8009         fprintf(stderr,"Symbol - not defined"); exit(-1);
8010 __endIf345:
8011         if (IS_SOB_CLOSURE(r_res)) goto __app224;
8012         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8013 __app224:
8014         push((int)SOB_CLOSURE_ENV(r_res));
8015         push((int)&&__ret314);
8016         goto *(SOB_CLOSURE_CODE(r_res));
8017 __ret314:
8018         sp = sp-2-stack[sp-2];
8019         push(r_res);
8020         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8021         r_res = ST_ARG(0);
8022         push(r_res);
8023         push(3);
8024
8025         r_res = (int)&__sc_number47;
8026         push(r_res);
8027         r_res = ((int**)ST_ENV())[0][0];
8028         push(r_res);
8029         push(2);
8030         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8031         if (r_res==0) goto __else346;
8032         if (! ((SymbolEntry*)r_res)->isDefined) goto __else346;
8033         r_res = (int)((SymbolEntry*)r_res)->sob;
8034         goto __endIf346;
8035 __else346:
8036         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8037 __endIf346:
8038         if (IS_SOB_CLOSURE(r_res)) goto __app225;
8039         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8040 __app225:
8041         push((int)SOB_CLOSURE_ENV(r_res));
8042         push((int)&&__ret315);
8043         goto *(SOB_CLOSURE_CODE(r_res));
8044 __ret315:
8045         sp = sp-2-stack[sp-2];
8046         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8047         push((int)SOB_CLOSURE_ENV(r_res));
8048         push(ST_RET());
8049         shiftActFrmDown();
8050         goto *(SOB_CLOSURE_CODE(r_res));
8051         sp = sp-2-stack[sp-2];
8052 __endIf341:
8053         fp = pop();
8054         RETURN();
8055 __skipBody90:
8056         r_res = (int)makeSchemeClosure((void*)r[0],&&__body90);
8057         push(r_res);
8058         r_res = (int)&__sc_number48;
8059         push(r_res);
8060         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8061         r_res = ST_ARG(0);
8062         push(r_res);
8063         push(3);
8064         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
8065         if (r_res==0) goto __else347;
8066         if (! ((SymbolEntry*)r_res)->isDefined) goto __else347;
8067         r_res = (int)((SymbolEntry*)r_res)->sob;
8068         goto __endIf347;
8069 __else347:
8070         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
8071 __endIf347:
8072         if (IS_SOB_CLOSURE(r_res)) goto __app220;
8073         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8074 __app220:
8075         push((int)SOB_CLOSURE_ENV(r_res));
8076         push((int)&&__ret310);
8077         goto *(SOB_CLOSURE_CODE(r_res));
8078 __ret310:
8079         sp = sp-2-stack[sp-2];
8080         push(0);
8081         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
8082         goto __skipBody91;
8083 __body91:
8084         push(fp);
8085         fp = sp;
8086         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8087         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
8088         goto __skipBody92;
8089 __body92:
8090         push(fp);
8091         fp = sp;
8092         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8093         r_res = (int)&sc_nil;
8094         push(r_res);
8095
8096         r_res = (int)&__sc_number49;
8097         push(r_res);
8098
8099         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8100         r_res = ST_ARG(0);
8101         push(r_res);
8102         push(1);
8103         r_res = (int)probeSymbolDefined("vector-length",topLevel);
8104         if (r_res==0) goto __else348;
8105         if (! ((SymbolEntry*)r_res)->isDefined) goto __else348;
8106         r_res = (int)((SymbolEntry*)r_res)->sob;
8107         goto __endIf348;
8108 __else348:
8109         fprintf(stderr,"Symbol vector-length not defined"); exit(-1);
8110 __endIf348:
8111         if (IS_SOB_CLOSURE(r_res)) goto __app227;
8112         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8113 __app227:
8114         push((int)SOB_CLOSURE_ENV(r_res));
8115         push((int)&&__ret317);
8116         goto *(SOB_CLOSURE_CODE(r_res));
8117 __ret317:
8118         sp = sp-2-stack[sp-2];
8119         push(r_res);
8120         push(2);
8121         r_res = (int)probeSymbolDefined("-",topLevel);
8122         if (r_res==0) goto __else349;
8123         if (! ((SymbolEntry*)r_res)->isDefined) goto __else349;
8124         r_res = (int)((SymbolEntry*)r_res)->sob;
8125         goto __endIf349;
8126 __else349:
8127         fprintf(stderr,"Symbol - not defined"); exit(-1);
8128 __endIf349:
8129         if (IS_SOB_CLOSURE(r_res)) goto __app226;
8130         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8131 __app226:
8132         push((int)SOB_CLOSURE_ENV(r_res));
8133         push((int)&&__ret316);
8134         goto *(SOB_CLOSURE_CODE(r_res));
8135 __ret316:
8136         sp = sp-2-stack[sp-2];
8137         push(r_res);
8138         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8139         r_res = ST_ARG(0);
8140         push(r_res);
8141         push(3);
8142
8143         r_res = (int)&__sc_number50;
8144         push(r_res);
8145         r_res = ((int**)ST_ENV())[1][0];
8146         push(r_res);
8147         push(2);
8148         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8149         if (r_res==0) goto __else350;
8150         if (! ((SymbolEntry*)r_res)->isDefined) goto __else350;
8151         r_res = (int)((SymbolEntry*)r_res)->sob;
8152         goto __endIf350;
8153 __else350:
8154         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8155 __endIf350:
8156         if (IS_SOB_CLOSURE(r_res)) goto __app228;
8157         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8158 __app228:
8159         push((int)SOB_CLOSURE_ENV(r_res));
8160         push((int)&&__ret318);
8161         goto *(SOB_CLOSURE_CODE(r_res));
8162 __ret318:
8163         sp = sp-2-stack[sp-2];
8164         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8165         push((int)SOB_CLOSURE_ENV(r_res));
8166         push(ST_RET());
8167         shiftActFrmDown();
8168         goto *(SOB_CLOSURE_CODE(r_res));
8169         sp = sp-2-stack[sp-2];
8170         fp = pop();
8171         RETURN();
8172 __skipBody92:
8173         r_res = (int)makeSchemeClosure((void*)r[0],&&__body92);
8174         fp = pop();
8175         RETURN();
8176 __skipBody91:
8177         r_res = (int)makeSchemeClosure((void*)r[0],&&__body91);
8178         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8179         push((int)SOB_CLOSURE_ENV(r_res));
8180         push(ST_RET());
8181         shiftActFrmDown();
8182         goto *(SOB_CLOSURE_CODE(r_res));
8183         sp = sp-2-stack[sp-2];
8184         fp = pop();
8185         RETURN();
8186 __skipBody89:
8187         r_res = (int)makeSchemeClosure((void*)r[0],&&__body89);
8188         if (IS_SOB_CLOSURE(r_res)) goto __app218;
8189         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8190 __app218:
8191         push((int)SOB_CLOSURE_ENV(r_res));
8192         push((int)&&__ret308);
8193         goto *(SOB_CLOSURE_CODE(r_res));
8194 __ret308:
8195         sp = sp-2-stack[sp-2];
8196         r[0] = (int)getSymbol("vector->list",topLevel);
8197         ((SymbolEntry*)r[0])->isDefined = 1;
8198         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8199         r_res = (int)&sc_void;
8200 __ret307:
8201         /* set return address */
8202         ST_RET() = (int)&&__ret319;
8203
8204         r[0] = (int)extendEnviroment( (int**)NULL, 0);
8205         goto __skipBody93;
8206 __body93:
8207         push(fp);
8208         fp = sp;
8209         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8210
8211         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8212         r_res = ST_ARG(0);
8213         push(r_res);
8214         push(1);
8215         r_res = (int)probeSymbolDefined("length",topLevel);
8216         if (r_res==0) goto __else351;
8217         if (! ((SymbolEntry*)r_res)->isDefined) goto __else351;
8218         r_res = (int)((SymbolEntry*)r_res)->sob;
8219         goto __endIf351;
8220 __else351:
8221         fprintf(stderr,"Symbol length not defined"); exit(-1);
8222 __endIf351:
8223         if (IS_SOB_CLOSURE(r_res)) goto __app229;
8224         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8225 __app229:
8226         push((int)SOB_CLOSURE_ENV(r_res));
8227         push((int)&&__ret320);
8228         goto *(SOB_CLOSURE_CODE(r_res));
8229 __ret320:
8230         sp = sp-2-stack[sp-2];
8231         push(r_res);
8232         push(1);
8233         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
8234         goto __skipBody94;
8235 __body94:
8236         push(fp);
8237         fp = sp;
8238         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8239
8240         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8241         r_res = ST_ARG(0);
8242         push(r_res);
8243         push(1);
8244         r_res = (int)probeSymbolDefined("make-string",topLevel);
8245         if (r_res==0) goto __else352;
8246         if (! ((SymbolEntry*)r_res)->isDefined) goto __else352;
8247         r_res = (int)((SymbolEntry*)r_res)->sob;
8248         goto __endIf352;
8249 __else352:
8250         fprintf(stderr,"Symbol make-string not defined"); exit(-1);
8251 __endIf352:
8252         if (IS_SOB_CLOSURE(r_res)) goto __app230;
8253         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8254 __app230:
8255         push((int)SOB_CLOSURE_ENV(r_res));
8256         push((int)&&__ret321);
8257         goto *(SOB_CLOSURE_CODE(r_res));
8258 __ret321:
8259         sp = sp-2-stack[sp-2];
8260         push(r_res);
8261         push(1);
8262         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
8263         goto __skipBody95;
8264 __body95:
8265         push(fp);
8266         fp = sp;
8267         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8268         r_res = (int)&sc_false;
8269         push(r_res);
8270         push(1);
8271         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
8272         goto __skipBody96;
8273 __body96:
8274         push(fp);
8275         fp = sp;
8276         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8277
8278         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8279         r_res = ST_ARG(0);
8280         push(r_res);
8281         push(1);
8282         r_res = (int)probeSymbolDefined("box",topLevel);
8283         if (r_res==0) goto __else353;
8284         if (! ((SymbolEntry*)r_res)->isDefined) goto __else353;
8285         r_res = (int)((SymbolEntry*)r_res)->sob;
8286         goto __endIf353;
8287 __else353:
8288         fprintf(stderr,"Symbol box not defined"); exit(-1);
8289 __endIf353:
8290         if (IS_SOB_CLOSURE(r_res)) goto __app231;
8291         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8292 __app231:
8293         push((int)SOB_CLOSURE_ENV(r_res));
8294         push((int)&&__ret322);
8295         goto *(SOB_CLOSURE_CODE(r_res));
8296 __ret322:
8297         sp = sp-2-stack[sp-2];
8298         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8299         ST_ARG(0) = r_res;
8300         r_res = (int)&sc_void;
8301
8302         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
8303         goto __skipBody97;
8304 __body97:
8305         push(fp);
8306         fp = sp;
8307         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8308
8309         r_res = ((int**)ST_ENV())[2][0];
8310         push(r_res);
8311         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8312         r_res = ST_ARG(1);
8313         push(r_res);
8314         push(2);
8315         r_res = (int)probeSymbolDefined("=",topLevel);
8316         if (r_res==0) goto __else355;
8317         if (! ((SymbolEntry*)r_res)->isDefined) goto __else355;
8318         r_res = (int)((SymbolEntry*)r_res)->sob;
8319         goto __endIf355;
8320 __else355:
8321         fprintf(stderr,"Symbol = not defined"); exit(-1);
8322 __endIf355:
8323         if (IS_SOB_CLOSURE(r_res)) goto __app233;
8324         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8325 __app233:
8326         push((int)SOB_CLOSURE_ENV(r_res));
8327         push((int)&&__ret324);
8328         goto *(SOB_CLOSURE_CODE(r_res));
8329 __ret324:
8330         sp = sp-2-stack[sp-2];
8331         if ((SchemeObject*)r_res==&sc_false) goto __else354;
8332         r_res = ((int**)ST_ENV())[1][0];
8333         goto __endIf354;
8334 __else354:
8335
8336
8337         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8338         r_res = ST_ARG(0);
8339         push(r_res);
8340         push(1);
8341         r_res = (int)probeSymbolDefined("car",topLevel);
8342         if (r_res==0) goto __else356;
8343         if (! ((SymbolEntry*)r_res)->isDefined) goto __else356;
8344         r_res = (int)((SymbolEntry*)r_res)->sob;
8345         goto __endIf356;
8346 __else356:
8347         fprintf(stderr,"Symbol car not defined"); exit(-1);
8348 __endIf356:
8349         if (IS_SOB_CLOSURE(r_res)) goto __app235;
8350         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8351 __app235:
8352         push((int)SOB_CLOSURE_ENV(r_res));
8353         push((int)&&__ret326);
8354         goto *(SOB_CLOSURE_CODE(r_res));
8355 __ret326:
8356         sp = sp-2-stack[sp-2];
8357         push(r_res);
8358         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8359         r_res = ST_ARG(1);
8360         push(r_res);
8361         r_res = ((int**)ST_ENV())[1][0];
8362         push(r_res);
8363         push(3);
8364         r_res = (int)probeSymbolDefined("string-set!",topLevel);
8365         if (r_res==0) goto __else357;
8366         if (! ((SymbolEntry*)r_res)->isDefined) goto __else357;
8367         r_res = (int)((SymbolEntry*)r_res)->sob;
8368         goto __endIf357;
8369 __else357:
8370         fprintf(stderr,"Symbol string-set! not defined"); exit(-1);
8371 __endIf357:
8372         if (IS_SOB_CLOSURE(r_res)) goto __app234;
8373         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8374 __app234:
8375         push((int)SOB_CLOSURE_ENV(r_res));
8376         push((int)&&__ret325);
8377         goto *(SOB_CLOSURE_CODE(r_res));
8378 __ret325:
8379         sp = sp-2-stack[sp-2];
8380
8381         r_res = (int)&__sc_number51;
8382         push(r_res);
8383         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8384         r_res = ST_ARG(1);
8385         push(r_res);
8386         push(2);
8387         r_res = (int)probeSymbolDefined("+",topLevel);
8388         if (r_res==0) goto __else358;
8389         if (! ((SymbolEntry*)r_res)->isDefined) goto __else358;
8390         r_res = (int)((SymbolEntry*)r_res)->sob;
8391         goto __endIf358;
8392 __else358:
8393         fprintf(stderr,"Symbol + not defined"); exit(-1);
8394 __endIf358:
8395         if (IS_SOB_CLOSURE(r_res)) goto __app236;
8396         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8397 __app236:
8398         push((int)SOB_CLOSURE_ENV(r_res));
8399         push((int)&&__ret327);
8400         goto *(SOB_CLOSURE_CODE(r_res));
8401 __ret327:
8402         sp = sp-2-stack[sp-2];
8403         push(r_res);
8404
8405         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8406         r_res = ST_ARG(0);
8407         push(r_res);
8408         push(1);
8409         r_res = (int)probeSymbolDefined("cdr",topLevel);
8410         if (r_res==0) goto __else359;
8411         if (! ((SymbolEntry*)r_res)->isDefined) goto __else359;
8412         r_res = (int)((SymbolEntry*)r_res)->sob;
8413         goto __endIf359;
8414 __else359:
8415         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
8416 __endIf359:
8417         if (IS_SOB_CLOSURE(r_res)) goto __app237;
8418         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8419 __app237:
8420         push((int)SOB_CLOSURE_ENV(r_res));
8421         push((int)&&__ret328);
8422         goto *(SOB_CLOSURE_CODE(r_res));
8423 __ret328:
8424         sp = sp-2-stack[sp-2];
8425         push(r_res);
8426         push(2);
8427
8428         r_res = (int)&__sc_number52;
8429         push(r_res);
8430         r_res = ((int**)ST_ENV())[0][0];
8431         push(r_res);
8432         push(2);
8433         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8434         if (r_res==0) goto __else360;
8435         if (! ((SymbolEntry*)r_res)->isDefined) goto __else360;
8436         r_res = (int)((SymbolEntry*)r_res)->sob;
8437         goto __endIf360;
8438 __else360:
8439         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8440 __endIf360:
8441         if (IS_SOB_CLOSURE(r_res)) goto __app238;
8442         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8443 __app238:
8444         push((int)SOB_CLOSURE_ENV(r_res));
8445         push((int)&&__ret329);
8446         goto *(SOB_CLOSURE_CODE(r_res));
8447 __ret329:
8448         sp = sp-2-stack[sp-2];
8449         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8450         push((int)SOB_CLOSURE_ENV(r_res));
8451         push(ST_RET());
8452         shiftActFrmDown();
8453         goto *(SOB_CLOSURE_CODE(r_res));
8454         sp = sp-2-stack[sp-2];
8455 __endIf354:
8456         fp = pop();
8457         RETURN();
8458 __skipBody97:
8459         r_res = (int)makeSchemeClosure((void*)r[0],&&__body97);
8460         push(r_res);
8461         r_res = (int)&__sc_number53;
8462         push(r_res);
8463         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8464         r_res = ST_ARG(0);
8465         push(r_res);
8466         push(3);
8467         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
8468         if (r_res==0) goto __else361;
8469         if (! ((SymbolEntry*)r_res)->isDefined) goto __else361;
8470         r_res = (int)((SymbolEntry*)r_res)->sob;
8471         goto __endIf361;
8472 __else361:
8473         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
8474 __endIf361:
8475         if (IS_SOB_CLOSURE(r_res)) goto __app232;
8476         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8477 __app232:
8478         push((int)SOB_CLOSURE_ENV(r_res));
8479         push((int)&&__ret323);
8480         goto *(SOB_CLOSURE_CODE(r_res));
8481 __ret323:
8482         sp = sp-2-stack[sp-2];
8483         push(0);
8484         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
8485         goto __skipBody98;
8486 __body98:
8487         push(fp);
8488         fp = sp;
8489         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8490         r_res = (int)&__sc_number54;
8491         push(r_res);
8492         r_res = ((int**)ST_ENV())[3][0];
8493         push(r_res);
8494         push(2);
8495
8496         r_res = (int)&__sc_number55;
8497         push(r_res);
8498         r_res = ((int**)ST_ENV())[0][0];
8499         push(r_res);
8500         push(2);
8501         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8502         if (r_res==0) goto __else362;
8503         if (! ((SymbolEntry*)r_res)->isDefined) goto __else362;
8504         r_res = (int)((SymbolEntry*)r_res)->sob;
8505         goto __endIf362;
8506 __else362:
8507         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8508 __endIf362:
8509         if (IS_SOB_CLOSURE(r_res)) goto __app239;
8510         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8511 __app239:
8512         push((int)SOB_CLOSURE_ENV(r_res));
8513         push((int)&&__ret330);
8514         goto *(SOB_CLOSURE_CODE(r_res));
8515 __ret330:
8516         sp = sp-2-stack[sp-2];
8517         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8518         push((int)SOB_CLOSURE_ENV(r_res));
8519         push(ST_RET());
8520         shiftActFrmDown();
8521         goto *(SOB_CLOSURE_CODE(r_res));
8522         sp = sp-2-stack[sp-2];
8523         fp = pop();
8524         RETURN();
8525 __skipBody98:
8526         r_res = (int)makeSchemeClosure((void*)r[0],&&__body98);
8527         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8528         push((int)SOB_CLOSURE_ENV(r_res));
8529         push(ST_RET());
8530         shiftActFrmDown();
8531         goto *(SOB_CLOSURE_CODE(r_res));
8532         sp = sp-2-stack[sp-2];
8533         fp = pop();
8534         RETURN();
8535 __skipBody96:
8536         r_res = (int)makeSchemeClosure((void*)r[0],&&__body96);
8537         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8538         push((int)SOB_CLOSURE_ENV(r_res));
8539         push(ST_RET());
8540         shiftActFrmDown();
8541         goto *(SOB_CLOSURE_CODE(r_res));
8542         sp = sp-2-stack[sp-2];
8543         fp = pop();
8544         RETURN();
8545 __skipBody95:
8546         r_res = (int)makeSchemeClosure((void*)r[0],&&__body95);
8547         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8548         push((int)SOB_CLOSURE_ENV(r_res));
8549         push(ST_RET());
8550         shiftActFrmDown();
8551         goto *(SOB_CLOSURE_CODE(r_res));
8552         sp = sp-2-stack[sp-2];
8553         fp = pop();
8554         RETURN();
8555 __skipBody94:
8556         r_res = (int)makeSchemeClosure((void*)r[0],&&__body94);
8557         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8558         push((int)SOB_CLOSURE_ENV(r_res));
8559         push(ST_RET());
8560         shiftActFrmDown();
8561         goto *(SOB_CLOSURE_CODE(r_res));
8562         sp = sp-2-stack[sp-2];
8563         fp = pop();
8564         RETURN();
8565 __skipBody93:
8566         r_res = (int)makeSchemeClosure((void*)r[0],&&__body93);
8567         r[0] = (int)getSymbol("list->string",topLevel);
8568         ((SymbolEntry*)r[0])->isDefined = 1;
8569         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8570         r_res = (int)&sc_void;
8571 __ret319:
8572         /* set return address */
8573         ST_RET() = (int)&&__ret331;
8574
8575         r[0] = (int)extendEnviroment( (int**)NULL, 0);
8576         goto __skipBody99;
8577 __body99:
8578         push(fp);
8579         fp = sp;
8580         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8581
8582         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8583         r_res = ST_ARG(0);
8584         push(r_res);
8585         push(1);
8586         r_res = (int)probeSymbolDefined("length",topLevel);
8587         if (r_res==0) goto __else363;
8588         if (! ((SymbolEntry*)r_res)->isDefined) goto __else363;
8589         r_res = (int)((SymbolEntry*)r_res)->sob;
8590         goto __endIf363;
8591 __else363:
8592         fprintf(stderr,"Symbol length not defined"); exit(-1);
8593 __endIf363:
8594         if (IS_SOB_CLOSURE(r_res)) goto __app240;
8595         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8596 __app240:
8597         push((int)SOB_CLOSURE_ENV(r_res));
8598         push((int)&&__ret332);
8599         goto *(SOB_CLOSURE_CODE(r_res));
8600 __ret332:
8601         sp = sp-2-stack[sp-2];
8602         push(r_res);
8603         push(1);
8604         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
8605         goto __skipBody100;
8606 __body100:
8607         push(fp);
8608         fp = sp;
8609         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8610
8611         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8612         r_res = ST_ARG(0);
8613         push(r_res);
8614         push(1);
8615         r_res = (int)probeSymbolDefined("make-vector",topLevel);
8616         if (r_res==0) goto __else364;
8617         if (! ((SymbolEntry*)r_res)->isDefined) goto __else364;
8618         r_res = (int)((SymbolEntry*)r_res)->sob;
8619         goto __endIf364;
8620 __else364:
8621         fprintf(stderr,"Symbol make-vector not defined"); exit(-1);
8622 __endIf364:
8623         if (IS_SOB_CLOSURE(r_res)) goto __app241;
8624         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8625 __app241:
8626         push((int)SOB_CLOSURE_ENV(r_res));
8627         push((int)&&__ret333);
8628         goto *(SOB_CLOSURE_CODE(r_res));
8629 __ret333:
8630         sp = sp-2-stack[sp-2];
8631         push(r_res);
8632         push(1);
8633         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
8634         goto __skipBody101;
8635 __body101:
8636         push(fp);
8637         fp = sp;
8638         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8639         r_res = (int)&sc_false;
8640         push(r_res);
8641         push(1);
8642         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
8643         goto __skipBody102;
8644 __body102:
8645         push(fp);
8646         fp = sp;
8647         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8648
8649         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8650         r_res = ST_ARG(0);
8651         push(r_res);
8652         push(1);
8653         r_res = (int)probeSymbolDefined("box",topLevel);
8654         if (r_res==0) goto __else365;
8655         if (! ((SymbolEntry*)r_res)->isDefined) goto __else365;
8656         r_res = (int)((SymbolEntry*)r_res)->sob;
8657         goto __endIf365;
8658 __else365:
8659         fprintf(stderr,"Symbol box not defined"); exit(-1);
8660 __endIf365:
8661         if (IS_SOB_CLOSURE(r_res)) goto __app242;
8662         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8663 __app242:
8664         push((int)SOB_CLOSURE_ENV(r_res));
8665         push((int)&&__ret334);
8666         goto *(SOB_CLOSURE_CODE(r_res));
8667 __ret334:
8668         sp = sp-2-stack[sp-2];
8669         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8670         ST_ARG(0) = r_res;
8671         r_res = (int)&sc_void;
8672
8673         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
8674         goto __skipBody103;
8675 __body103:
8676         push(fp);
8677         fp = sp;
8678         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8679
8680         r_res = ((int**)ST_ENV())[2][0];
8681         push(r_res);
8682         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8683         r_res = ST_ARG(1);
8684         push(r_res);
8685         push(2);
8686         r_res = (int)probeSymbolDefined("=",topLevel);
8687         if (r_res==0) goto __else367;
8688         if (! ((SymbolEntry*)r_res)->isDefined) goto __else367;
8689         r_res = (int)((SymbolEntry*)r_res)->sob;
8690         goto __endIf367;
8691 __else367:
8692         fprintf(stderr,"Symbol = not defined"); exit(-1);
8693 __endIf367:
8694         if (IS_SOB_CLOSURE(r_res)) goto __app244;
8695         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8696 __app244:
8697         push((int)SOB_CLOSURE_ENV(r_res));
8698         push((int)&&__ret336);
8699         goto *(SOB_CLOSURE_CODE(r_res));
8700 __ret336:
8701         sp = sp-2-stack[sp-2];
8702         if ((SchemeObject*)r_res==&sc_false) goto __else366;
8703         r_res = ((int**)ST_ENV())[1][0];
8704         goto __endIf366;
8705 __else366:
8706
8707
8708         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8709         r_res = ST_ARG(0);
8710         push(r_res);
8711         push(1);
8712         r_res = (int)probeSymbolDefined("car",topLevel);
8713         if (r_res==0) goto __else368;
8714         if (! ((SymbolEntry*)r_res)->isDefined) goto __else368;
8715         r_res = (int)((SymbolEntry*)r_res)->sob;
8716         goto __endIf368;
8717 __else368:
8718         fprintf(stderr,"Symbol car not defined"); exit(-1);
8719 __endIf368:
8720         if (IS_SOB_CLOSURE(r_res)) goto __app246;
8721         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8722 __app246:
8723         push((int)SOB_CLOSURE_ENV(r_res));
8724         push((int)&&__ret338);
8725         goto *(SOB_CLOSURE_CODE(r_res));
8726 __ret338:
8727         sp = sp-2-stack[sp-2];
8728         push(r_res);
8729         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8730         r_res = ST_ARG(1);
8731         push(r_res);
8732         r_res = ((int**)ST_ENV())[1][0];
8733         push(r_res);
8734         push(3);
8735         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
8736         if (r_res==0) goto __else369;
8737         if (! ((SymbolEntry*)r_res)->isDefined) goto __else369;
8738         r_res = (int)((SymbolEntry*)r_res)->sob;
8739         goto __endIf369;
8740 __else369:
8741         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
8742 __endIf369:
8743         if (IS_SOB_CLOSURE(r_res)) goto __app245;
8744         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8745 __app245:
8746         push((int)SOB_CLOSURE_ENV(r_res));
8747         push((int)&&__ret337);
8748         goto *(SOB_CLOSURE_CODE(r_res));
8749 __ret337:
8750         sp = sp-2-stack[sp-2];
8751
8752         r_res = (int)&__sc_number56;
8753         push(r_res);
8754         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8755         r_res = ST_ARG(1);
8756         push(r_res);
8757         push(2);
8758         r_res = (int)probeSymbolDefined("+",topLevel);
8759         if (r_res==0) goto __else370;
8760         if (! ((SymbolEntry*)r_res)->isDefined) goto __else370;
8761         r_res = (int)((SymbolEntry*)r_res)->sob;
8762         goto __endIf370;
8763 __else370:
8764         fprintf(stderr,"Symbol + not defined"); exit(-1);
8765 __endIf370:
8766         if (IS_SOB_CLOSURE(r_res)) goto __app247;
8767         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8768 __app247:
8769         push((int)SOB_CLOSURE_ENV(r_res));
8770         push((int)&&__ret339);
8771         goto *(SOB_CLOSURE_CODE(r_res));
8772 __ret339:
8773         sp = sp-2-stack[sp-2];
8774         push(r_res);
8775
8776         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8777         r_res = ST_ARG(0);
8778         push(r_res);
8779         push(1);
8780         r_res = (int)probeSymbolDefined("cdr",topLevel);
8781         if (r_res==0) goto __else371;
8782         if (! ((SymbolEntry*)r_res)->isDefined) goto __else371;
8783         r_res = (int)((SymbolEntry*)r_res)->sob;
8784         goto __endIf371;
8785 __else371:
8786         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
8787 __endIf371:
8788         if (IS_SOB_CLOSURE(r_res)) goto __app248;
8789         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8790 __app248:
8791         push((int)SOB_CLOSURE_ENV(r_res));
8792         push((int)&&__ret340);
8793         goto *(SOB_CLOSURE_CODE(r_res));
8794 __ret340:
8795         sp = sp-2-stack[sp-2];
8796         push(r_res);
8797         push(2);
8798
8799         r_res = (int)&__sc_number57;
8800         push(r_res);
8801         r_res = ((int**)ST_ENV())[0][0];
8802         push(r_res);
8803         push(2);
8804         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8805         if (r_res==0) goto __else372;
8806         if (! ((SymbolEntry*)r_res)->isDefined) goto __else372;
8807         r_res = (int)((SymbolEntry*)r_res)->sob;
8808         goto __endIf372;
8809 __else372:
8810         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8811 __endIf372:
8812         if (IS_SOB_CLOSURE(r_res)) goto __app249;
8813         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8814 __app249:
8815         push((int)SOB_CLOSURE_ENV(r_res));
8816         push((int)&&__ret341);
8817         goto *(SOB_CLOSURE_CODE(r_res));
8818 __ret341:
8819         sp = sp-2-stack[sp-2];
8820         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8821         push((int)SOB_CLOSURE_ENV(r_res));
8822         push(ST_RET());
8823         shiftActFrmDown();
8824         goto *(SOB_CLOSURE_CODE(r_res));
8825         sp = sp-2-stack[sp-2];
8826 __endIf366:
8827         fp = pop();
8828         RETURN();
8829 __skipBody103:
8830         r_res = (int)makeSchemeClosure((void*)r[0],&&__body103);
8831         push(r_res);
8832         r_res = (int)&__sc_number58;
8833         push(r_res);
8834         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8835         r_res = ST_ARG(0);
8836         push(r_res);
8837         push(3);
8838         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
8839         if (r_res==0) goto __else373;
8840         if (! ((SymbolEntry*)r_res)->isDefined) goto __else373;
8841         r_res = (int)((SymbolEntry*)r_res)->sob;
8842         goto __endIf373;
8843 __else373:
8844         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
8845 __endIf373:
8846         if (IS_SOB_CLOSURE(r_res)) goto __app243;
8847         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8848 __app243:
8849         push((int)SOB_CLOSURE_ENV(r_res));
8850         push((int)&&__ret335);
8851         goto *(SOB_CLOSURE_CODE(r_res));
8852 __ret335:
8853         sp = sp-2-stack[sp-2];
8854         push(0);
8855         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
8856         goto __skipBody104;
8857 __body104:
8858         push(fp);
8859         fp = sp;
8860         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8861         r_res = (int)&__sc_number59;
8862         push(r_res);
8863         r_res = ((int**)ST_ENV())[3][0];
8864         push(r_res);
8865         push(2);
8866
8867         r_res = (int)&__sc_number60;
8868         push(r_res);
8869         r_res = ((int**)ST_ENV())[0][0];
8870         push(r_res);
8871         push(2);
8872         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
8873         if (r_res==0) goto __else374;
8874         if (! ((SymbolEntry*)r_res)->isDefined) goto __else374;
8875         r_res = (int)((SymbolEntry*)r_res)->sob;
8876         goto __endIf374;
8877 __else374:
8878         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
8879 __endIf374:
8880         if (IS_SOB_CLOSURE(r_res)) goto __app250;
8881         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8882 __app250:
8883         push((int)SOB_CLOSURE_ENV(r_res));
8884         push((int)&&__ret342);
8885         goto *(SOB_CLOSURE_CODE(r_res));
8886 __ret342:
8887         sp = sp-2-stack[sp-2];
8888         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8889         push((int)SOB_CLOSURE_ENV(r_res));
8890         push(ST_RET());
8891         shiftActFrmDown();
8892         goto *(SOB_CLOSURE_CODE(r_res));
8893         sp = sp-2-stack[sp-2];
8894         fp = pop();
8895         RETURN();
8896 __skipBody104:
8897         r_res = (int)makeSchemeClosure((void*)r[0],&&__body104);
8898         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8899         push((int)SOB_CLOSURE_ENV(r_res));
8900         push(ST_RET());
8901         shiftActFrmDown();
8902         goto *(SOB_CLOSURE_CODE(r_res));
8903         sp = sp-2-stack[sp-2];
8904         fp = pop();
8905         RETURN();
8906 __skipBody102:
8907         r_res = (int)makeSchemeClosure((void*)r[0],&&__body102);
8908         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8909         push((int)SOB_CLOSURE_ENV(r_res));
8910         push(ST_RET());
8911         shiftActFrmDown();
8912         goto *(SOB_CLOSURE_CODE(r_res));
8913         sp = sp-2-stack[sp-2];
8914         fp = pop();
8915         RETURN();
8916 __skipBody101:
8917         r_res = (int)makeSchemeClosure((void*)r[0],&&__body101);
8918         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8919         push((int)SOB_CLOSURE_ENV(r_res));
8920         push(ST_RET());
8921         shiftActFrmDown();
8922         goto *(SOB_CLOSURE_CODE(r_res));
8923         sp = sp-2-stack[sp-2];
8924         fp = pop();
8925         RETURN();
8926 __skipBody100:
8927         r_res = (int)makeSchemeClosure((void*)r[0],&&__body100);
8928         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8929         push((int)SOB_CLOSURE_ENV(r_res));
8930         push(ST_RET());
8931         shiftActFrmDown();
8932         goto *(SOB_CLOSURE_CODE(r_res));
8933         sp = sp-2-stack[sp-2];
8934         fp = pop();
8935         RETURN();
8936 __skipBody99:
8937         r_res = (int)makeSchemeClosure((void*)r[0],&&__body99);
8938         r[0] = (int)getSymbol("list->vector",topLevel);
8939         ((SymbolEntry*)r[0])->isDefined = 1;
8940         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
8941         r_res = (int)&sc_void;
8942 __ret331:
8943         /* set return address */
8944         ST_RET() = (int)&&__ret343;
8945
8946         r[0] = (int)extendEnviroment( (int**)NULL, 0);
8947         goto __skipBody105;
8948 __body105:
8949         push(fp);
8950         fp = sp;
8951         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
8952
8953         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8954         r_res = ST_ARG(1);
8955         push(r_res);
8956         push(1);
8957         r_res = (int)probeSymbolDefined("null?",topLevel);
8958         if (r_res==0) goto __else376;
8959         if (! ((SymbolEntry*)r_res)->isDefined) goto __else376;
8960         r_res = (int)((SymbolEntry*)r_res)->sob;
8961         goto __endIf376;
8962 __else376:
8963         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
8964 __endIf376:
8965         if (IS_SOB_CLOSURE(r_res)) goto __app251;
8966         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8967 __app251:
8968         push((int)SOB_CLOSURE_ENV(r_res));
8969         push((int)&&__ret344);
8970         goto *(SOB_CLOSURE_CODE(r_res));
8971 __ret344:
8972         sp = sp-2-stack[sp-2];
8973         if ((SchemeObject*)r_res==&sc_false) goto __else375;
8974         r_res = (int)&sc_false;
8975         goto __endIf375;
8976 __else375:
8977
8978         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
8979         r_res = ST_ARG(0);
8980         push(r_res);
8981
8982         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
8983         r_res = ST_ARG(1);
8984         push(r_res);
8985         push(1);
8986         r_res = (int)probeSymbolDefined("car",topLevel);
8987         if (r_res==0) goto __else378;
8988         if (! ((SymbolEntry*)r_res)->isDefined) goto __else378;
8989         r_res = (int)((SymbolEntry*)r_res)->sob;
8990         goto __endIf378;
8991 __else378:
8992         fprintf(stderr,"Symbol car not defined"); exit(-1);
8993 __endIf378:
8994         if (IS_SOB_CLOSURE(r_res)) goto __app253;
8995         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
8996 __app253:
8997         push((int)SOB_CLOSURE_ENV(r_res));
8998         push((int)&&__ret346);
8999         goto *(SOB_CLOSURE_CODE(r_res));
9000 __ret346:
9001         sp = sp-2-stack[sp-2];
9002         push(r_res);
9003         push(2);
9004         r_res = (int)probeSymbolDefined("equal?",topLevel);
9005         if (r_res==0) goto __else379;
9006         if (! ((SymbolEntry*)r_res)->isDefined) goto __else379;
9007         r_res = (int)((SymbolEntry*)r_res)->sob;
9008         goto __endIf379;
9009 __else379:
9010         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
9011 __endIf379:
9012         if (IS_SOB_CLOSURE(r_res)) goto __app252;
9013         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9014 __app252:
9015         push((int)SOB_CLOSURE_ENV(r_res));
9016         push((int)&&__ret345);
9017         goto *(SOB_CLOSURE_CODE(r_res));
9018 __ret345:
9019         sp = sp-2-stack[sp-2];
9020         if ((SchemeObject*)r_res==&sc_false) goto __else377;
9021         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9022         r_res = ST_ARG(1);
9023         goto __endIf377;
9024 __else377:
9025
9026
9027         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9028         r_res = ST_ARG(1);
9029         push(r_res);
9030         push(1);
9031         r_res = (int)probeSymbolDefined("cdr",topLevel);
9032         if (r_res==0) goto __else380;
9033         if (! ((SymbolEntry*)r_res)->isDefined) goto __else380;
9034         r_res = (int)((SymbolEntry*)r_res)->sob;
9035         goto __endIf380;
9036 __else380:
9037         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
9038 __endIf380:
9039         if (IS_SOB_CLOSURE(r_res)) goto __app254;
9040         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9041 __app254:
9042         push((int)SOB_CLOSURE_ENV(r_res));
9043         push((int)&&__ret347);
9044         goto *(SOB_CLOSURE_CODE(r_res));
9045 __ret347:
9046         sp = sp-2-stack[sp-2];
9047         push(r_res);
9048         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9049         r_res = ST_ARG(0);
9050         push(r_res);
9051         push(2);
9052         r_res = (int)probeSymbolDefined("member",topLevel);
9053         if (r_res==0) goto __else381;
9054         if (! ((SymbolEntry*)r_res)->isDefined) goto __else381;
9055         r_res = (int)((SymbolEntry*)r_res)->sob;
9056         goto __endIf381;
9057 __else381:
9058         fprintf(stderr,"Symbol member not defined"); exit(-1);
9059 __endIf381:
9060         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9061         push((int)SOB_CLOSURE_ENV(r_res));
9062         push(ST_RET());
9063         shiftActFrmDown();
9064         goto *(SOB_CLOSURE_CODE(r_res));
9065         sp = sp-2-stack[sp-2];
9066 __endIf377:
9067 __endIf375:
9068         fp = pop();
9069         RETURN();
9070 __skipBody105:
9071         r_res = (int)makeSchemeClosure((void*)r[0],&&__body105);
9072         r[0] = (int)getSymbol("member",topLevel);
9073         ((SymbolEntry*)r[0])->isDefined = 1;
9074         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
9075         r_res = (int)&sc_void;
9076 __ret343:
9077         /* set return address */
9078         ST_RET() = (int)&&__ret348;
9079
9080         r[0] = (int)extendEnviroment( (int**)NULL, 0);
9081         goto __skipBody106;
9082 __body106:
9083         push(fp);
9084         fp = sp;
9085         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9086
9087         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9088         r_res = ST_ARG(1);
9089         push(r_res);
9090         push(1);
9091         r_res = (int)probeSymbolDefined("null?",topLevel);
9092         if (r_res==0) goto __else383;
9093         if (! ((SymbolEntry*)r_res)->isDefined) goto __else383;
9094         r_res = (int)((SymbolEntry*)r_res)->sob;
9095         goto __endIf383;
9096 __else383:
9097         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
9098 __endIf383:
9099         if (IS_SOB_CLOSURE(r_res)) goto __app255;
9100         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9101 __app255:
9102         push((int)SOB_CLOSURE_ENV(r_res));
9103         push((int)&&__ret349);
9104         goto *(SOB_CLOSURE_CODE(r_res));
9105 __ret349:
9106         sp = sp-2-stack[sp-2];
9107         if ((SchemeObject*)r_res==&sc_false) goto __else382;
9108         r_res = (int)&sc_false;
9109         goto __endIf382;
9110 __else382:
9111
9112         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9113         r_res = ST_ARG(0);
9114         push(r_res);
9115
9116         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9117         r_res = ST_ARG(1);
9118         push(r_res);
9119         push(1);
9120         r_res = (int)probeSymbolDefined("caar",topLevel);
9121         if (r_res==0) goto __else385;
9122         if (! ((SymbolEntry*)r_res)->isDefined) goto __else385;
9123         r_res = (int)((SymbolEntry*)r_res)->sob;
9124         goto __endIf385;
9125 __else385:
9126         fprintf(stderr,"Symbol caar not defined"); exit(-1);
9127 __endIf385:
9128         if (IS_SOB_CLOSURE(r_res)) goto __app257;
9129         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9130 __app257:
9131         push((int)SOB_CLOSURE_ENV(r_res));
9132         push((int)&&__ret351);
9133         goto *(SOB_CLOSURE_CODE(r_res));
9134 __ret351:
9135         sp = sp-2-stack[sp-2];
9136         push(r_res);
9137         push(2);
9138         r_res = (int)probeSymbolDefined("eq?",topLevel);
9139         if (r_res==0) goto __else386;
9140         if (! ((SymbolEntry*)r_res)->isDefined) goto __else386;
9141         r_res = (int)((SymbolEntry*)r_res)->sob;
9142         goto __endIf386;
9143 __else386:
9144         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
9145 __endIf386:
9146         if (IS_SOB_CLOSURE(r_res)) goto __app256;
9147         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9148 __app256:
9149         push((int)SOB_CLOSURE_ENV(r_res));
9150         push((int)&&__ret350);
9151         goto *(SOB_CLOSURE_CODE(r_res));
9152 __ret350:
9153         sp = sp-2-stack[sp-2];
9154         if ((SchemeObject*)r_res==&sc_false) goto __else384;
9155
9156         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9157         r_res = ST_ARG(1);
9158         push(r_res);
9159         push(1);
9160         r_res = (int)probeSymbolDefined("car",topLevel);
9161         if (r_res==0) goto __else387;
9162         if (! ((SymbolEntry*)r_res)->isDefined) goto __else387;
9163         r_res = (int)((SymbolEntry*)r_res)->sob;
9164         goto __endIf387;
9165 __else387:
9166         fprintf(stderr,"Symbol car not defined"); exit(-1);
9167 __endIf387:
9168         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9169         push((int)SOB_CLOSURE_ENV(r_res));
9170         push(ST_RET());
9171         shiftActFrmDown();
9172         goto *(SOB_CLOSURE_CODE(r_res));
9173         sp = sp-2-stack[sp-2];
9174         goto __endIf384;
9175 __else384:
9176
9177
9178         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9179         r_res = ST_ARG(1);
9180         push(r_res);
9181         push(1);
9182         r_res = (int)probeSymbolDefined("cdr",topLevel);
9183         if (r_res==0) goto __else388;
9184         if (! ((SymbolEntry*)r_res)->isDefined) goto __else388;
9185         r_res = (int)((SymbolEntry*)r_res)->sob;
9186         goto __endIf388;
9187 __else388:
9188         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
9189 __endIf388:
9190         if (IS_SOB_CLOSURE(r_res)) goto __app258;
9191         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9192 __app258:
9193         push((int)SOB_CLOSURE_ENV(r_res));
9194         push((int)&&__ret352);
9195         goto *(SOB_CLOSURE_CODE(r_res));
9196 __ret352:
9197         sp = sp-2-stack[sp-2];
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(2);
9203         r_res = (int)probeSymbolDefined("assoc",topLevel);
9204         if (r_res==0) goto __else389;
9205         if (! ((SymbolEntry*)r_res)->isDefined) goto __else389;
9206         r_res = (int)((SymbolEntry*)r_res)->sob;
9207         goto __endIf389;
9208 __else389:
9209         fprintf(stderr,"Symbol assoc not defined"); exit(-1);
9210 __endIf389:
9211         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9212         push((int)SOB_CLOSURE_ENV(r_res));
9213         push(ST_RET());
9214         shiftActFrmDown();
9215         goto *(SOB_CLOSURE_CODE(r_res));
9216         sp = sp-2-stack[sp-2];
9217 __endIf384:
9218 __endIf382:
9219         fp = pop();
9220         RETURN();
9221 __skipBody106:
9222         r_res = (int)makeSchemeClosure((void*)r[0],&&__body106);
9223         r[0] = (int)getSymbol("assoc",topLevel);
9224         ((SymbolEntry*)r[0])->isDefined = 1;
9225         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
9226         r_res = (int)&sc_void;
9227 __ret348:
9228         /* set return address */
9229         ST_RET() = (int)&&__ret353;
9230
9231         r[0] = (int)extendEnviroment( (int**)NULL, 0);
9232         goto __skipBody107;
9233 __body107:
9234         push(fp);
9235         fp = sp;
9236         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9237
9238         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9239         r_res = ST_ARG(0);
9240         push(r_res);
9241         push(1);
9242         r_res = (int)probeSymbolDefined("pair?",topLevel);
9243         if (r_res==0) goto __else392;
9244         if (! ((SymbolEntry*)r_res)->isDefined) goto __else392;
9245         r_res = (int)((SymbolEntry*)r_res)->sob;
9246         goto __endIf392;
9247 __else392:
9248         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
9249 __endIf392:
9250         if (IS_SOB_CLOSURE(r_res)) goto __app259;
9251         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9252 __app259:
9253         push((int)SOB_CLOSURE_ENV(r_res));
9254         push((int)&&__ret354);
9255         goto *(SOB_CLOSURE_CODE(r_res));
9256 __ret354:
9257         sp = sp-2-stack[sp-2];
9258         if ((SchemeObject*)r_res==&sc_false) goto __else391;
9259
9260         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9261         r_res = ST_ARG(1);
9262         push(r_res);
9263         push(1);
9264         r_res = (int)probeSymbolDefined("pair?",topLevel);
9265         if (r_res==0) goto __else393;
9266         if (! ((SymbolEntry*)r_res)->isDefined) goto __else393;
9267         r_res = (int)((SymbolEntry*)r_res)->sob;
9268         goto __endIf393;
9269 __else393:
9270         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
9271 __endIf393:
9272         if (IS_SOB_CLOSURE(r_res)) goto __app260;
9273         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9274 __app260:
9275         push((int)SOB_CLOSURE_ENV(r_res));
9276         push((int)&&__ret355);
9277         goto *(SOB_CLOSURE_CODE(r_res));
9278 __ret355:
9279         sp = sp-2-stack[sp-2];
9280         goto __endIf391;
9281 __else391:
9282         r_res = (int)&sc_false;
9283 __endIf391:
9284         if ((SchemeObject*)r_res==&sc_false) goto __else390;
9285
9286
9287         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9288         r_res = ST_ARG(1);
9289         push(r_res);
9290         push(1);
9291         r_res = (int)probeSymbolDefined("car",topLevel);
9292         if (r_res==0) goto __else395;
9293         if (! ((SymbolEntry*)r_res)->isDefined) goto __else395;
9294         r_res = (int)((SymbolEntry*)r_res)->sob;
9295         goto __endIf395;
9296 __else395:
9297         fprintf(stderr,"Symbol car not defined"); exit(-1);
9298 __endIf395:
9299         if (IS_SOB_CLOSURE(r_res)) goto __app262;
9300         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9301 __app262:
9302         push((int)SOB_CLOSURE_ENV(r_res));
9303         push((int)&&__ret357);
9304         goto *(SOB_CLOSURE_CODE(r_res));
9305 __ret357:
9306         sp = sp-2-stack[sp-2];
9307         push(r_res);
9308
9309         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9310         r_res = ST_ARG(0);
9311         push(r_res);
9312         push(1);
9313         r_res = (int)probeSymbolDefined("car",topLevel);
9314         if (r_res==0) goto __else396;
9315         if (! ((SymbolEntry*)r_res)->isDefined) goto __else396;
9316         r_res = (int)((SymbolEntry*)r_res)->sob;
9317         goto __endIf396;
9318 __else396:
9319         fprintf(stderr,"Symbol car not defined"); exit(-1);
9320 __endIf396:
9321         if (IS_SOB_CLOSURE(r_res)) goto __app263;
9322         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9323 __app263:
9324         push((int)SOB_CLOSURE_ENV(r_res));
9325         push((int)&&__ret358);
9326         goto *(SOB_CLOSURE_CODE(r_res));
9327 __ret358:
9328         sp = sp-2-stack[sp-2];
9329         push(r_res);
9330         push(2);
9331         r_res = (int)probeSymbolDefined("equal?",topLevel);
9332         if (r_res==0) goto __else397;
9333         if (! ((SymbolEntry*)r_res)->isDefined) goto __else397;
9334         r_res = (int)((SymbolEntry*)r_res)->sob;
9335         goto __endIf397;
9336 __else397:
9337         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
9338 __endIf397:
9339         if (IS_SOB_CLOSURE(r_res)) goto __app261;
9340         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9341 __app261:
9342         push((int)SOB_CLOSURE_ENV(r_res));
9343         push((int)&&__ret356);
9344         goto *(SOB_CLOSURE_CODE(r_res));
9345 __ret356:
9346         sp = sp-2-stack[sp-2];
9347         if ((SchemeObject*)r_res==&sc_false) goto __else394;
9348
9349
9350         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9351         r_res = ST_ARG(1);
9352         push(r_res);
9353         push(1);
9354         r_res = (int)probeSymbolDefined("cdr",topLevel);
9355         if (r_res==0) goto __else398;
9356         if (! ((SymbolEntry*)r_res)->isDefined) goto __else398;
9357         r_res = (int)((SymbolEntry*)r_res)->sob;
9358         goto __endIf398;
9359 __else398:
9360         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
9361 __endIf398:
9362         if (IS_SOB_CLOSURE(r_res)) goto __app264;
9363         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9364 __app264:
9365         push((int)SOB_CLOSURE_ENV(r_res));
9366         push((int)&&__ret359);
9367         goto *(SOB_CLOSURE_CODE(r_res));
9368 __ret359:
9369         sp = sp-2-stack[sp-2];
9370         push(r_res);
9371
9372         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9373         r_res = ST_ARG(0);
9374         push(r_res);
9375         push(1);
9376         r_res = (int)probeSymbolDefined("cdr",topLevel);
9377         if (r_res==0) goto __else399;
9378         if (! ((SymbolEntry*)r_res)->isDefined) goto __else399;
9379         r_res = (int)((SymbolEntry*)r_res)->sob;
9380         goto __endIf399;
9381 __else399:
9382         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
9383 __endIf399:
9384         if (IS_SOB_CLOSURE(r_res)) goto __app265;
9385         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9386 __app265:
9387         push((int)SOB_CLOSURE_ENV(r_res));
9388         push((int)&&__ret360);
9389         goto *(SOB_CLOSURE_CODE(r_res));
9390 __ret360:
9391         sp = sp-2-stack[sp-2];
9392         push(r_res);
9393         push(2);
9394         r_res = (int)probeSymbolDefined("equal?",topLevel);
9395         if (r_res==0) goto __else400;
9396         if (! ((SymbolEntry*)r_res)->isDefined) goto __else400;
9397         r_res = (int)((SymbolEntry*)r_res)->sob;
9398         goto __endIf400;
9399 __else400:
9400         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
9401 __endIf400:
9402         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9403         push((int)SOB_CLOSURE_ENV(r_res));
9404         push(ST_RET());
9405         shiftActFrmDown();
9406         goto *(SOB_CLOSURE_CODE(r_res));
9407         sp = sp-2-stack[sp-2];
9408         goto __endIf394;
9409 __else394:
9410         r_res = (int)&sc_false;
9411 __endIf394:
9412         goto __endIf390;
9413 __else390:
9414
9415         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9416         r_res = ST_ARG(0);
9417         push(r_res);
9418         push(1);
9419         r_res = (int)probeSymbolDefined("vector?",topLevel);
9420         if (r_res==0) goto __else403;
9421         if (! ((SymbolEntry*)r_res)->isDefined) goto __else403;
9422         r_res = (int)((SymbolEntry*)r_res)->sob;
9423         goto __endIf403;
9424 __else403:
9425         fprintf(stderr,"Symbol vector\? not defined"); exit(-1);
9426 __endIf403:
9427         if (IS_SOB_CLOSURE(r_res)) goto __app266;
9428         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9429 __app266:
9430         push((int)SOB_CLOSURE_ENV(r_res));
9431         push((int)&&__ret361);
9432         goto *(SOB_CLOSURE_CODE(r_res));
9433 __ret361:
9434         sp = sp-2-stack[sp-2];
9435         if ((SchemeObject*)r_res==&sc_false) goto __else402;
9436
9437         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9438         r_res = ST_ARG(1);
9439         push(r_res);
9440         push(1);
9441         r_res = (int)probeSymbolDefined("vector?",topLevel);
9442         if (r_res==0) goto __else405;
9443         if (! ((SymbolEntry*)r_res)->isDefined) goto __else405;
9444         r_res = (int)((SymbolEntry*)r_res)->sob;
9445         goto __endIf405;
9446 __else405:
9447         fprintf(stderr,"Symbol vector\? not defined"); exit(-1);
9448 __endIf405:
9449         if (IS_SOB_CLOSURE(r_res)) goto __app267;
9450         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9451 __app267:
9452         push((int)SOB_CLOSURE_ENV(r_res));
9453         push((int)&&__ret362);
9454         goto *(SOB_CLOSURE_CODE(r_res));
9455 __ret362:
9456         sp = sp-2-stack[sp-2];
9457         if ((SchemeObject*)r_res==&sc_false) goto __else404;
9458
9459
9460         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9461         r_res = ST_ARG(1);
9462         push(r_res);
9463         push(1);
9464         r_res = (int)probeSymbolDefined("vector-length",topLevel);
9465         if (r_res==0) goto __else406;
9466         if (! ((SymbolEntry*)r_res)->isDefined) goto __else406;
9467         r_res = (int)((SymbolEntry*)r_res)->sob;
9468         goto __endIf406;
9469 __else406:
9470         fprintf(stderr,"Symbol vector-length not defined"); exit(-1);
9471 __endIf406:
9472         if (IS_SOB_CLOSURE(r_res)) goto __app269;
9473         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9474 __app269:
9475         push((int)SOB_CLOSURE_ENV(r_res));
9476         push((int)&&__ret364);
9477         goto *(SOB_CLOSURE_CODE(r_res));
9478 __ret364:
9479         sp = sp-2-stack[sp-2];
9480         push(r_res);
9481
9482         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9483         r_res = ST_ARG(0);
9484         push(r_res);
9485         push(1);
9486         r_res = (int)probeSymbolDefined("vector-length",topLevel);
9487         if (r_res==0) goto __else407;
9488         if (! ((SymbolEntry*)r_res)->isDefined) goto __else407;
9489         r_res = (int)((SymbolEntry*)r_res)->sob;
9490         goto __endIf407;
9491 __else407:
9492         fprintf(stderr,"Symbol vector-length not defined"); exit(-1);
9493 __endIf407:
9494         if (IS_SOB_CLOSURE(r_res)) goto __app270;
9495         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9496 __app270:
9497         push((int)SOB_CLOSURE_ENV(r_res));
9498         push((int)&&__ret365);
9499         goto *(SOB_CLOSURE_CODE(r_res));
9500 __ret365:
9501         sp = sp-2-stack[sp-2];
9502         push(r_res);
9503         push(2);
9504         r_res = (int)probeSymbolDefined("=",topLevel);
9505         if (r_res==0) goto __else408;
9506         if (! ((SymbolEntry*)r_res)->isDefined) goto __else408;
9507         r_res = (int)((SymbolEntry*)r_res)->sob;
9508         goto __endIf408;
9509 __else408:
9510         fprintf(stderr,"Symbol = not defined"); exit(-1);
9511 __endIf408:
9512         if (IS_SOB_CLOSURE(r_res)) goto __app268;
9513         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9514 __app268:
9515         push((int)SOB_CLOSURE_ENV(r_res));
9516         push((int)&&__ret363);
9517         goto *(SOB_CLOSURE_CODE(r_res));
9518 __ret363:
9519         sp = sp-2-stack[sp-2];
9520         goto __endIf404;
9521 __else404:
9522         r_res = (int)&sc_false;
9523 __endIf404:
9524         goto __endIf402;
9525 __else402:
9526         r_res = (int)&sc_false;
9527 __endIf402:
9528         if ((SchemeObject*)r_res==&sc_false) goto __else401;
9529
9530
9531         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9532         r_res = ST_ARG(1);
9533         push(r_res);
9534         push(1);
9535         r_res = (int)probeSymbolDefined("vector->list",topLevel);
9536         if (r_res==0) goto __else409;
9537         if (! ((SymbolEntry*)r_res)->isDefined) goto __else409;
9538         r_res = (int)((SymbolEntry*)r_res)->sob;
9539         goto __endIf409;
9540 __else409:
9541         fprintf(stderr,"Symbol vector->list not defined"); exit(-1);
9542 __endIf409:
9543         if (IS_SOB_CLOSURE(r_res)) goto __app271;
9544         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9545 __app271:
9546         push((int)SOB_CLOSURE_ENV(r_res));
9547         push((int)&&__ret366);
9548         goto *(SOB_CLOSURE_CODE(r_res));
9549 __ret366:
9550         sp = sp-2-stack[sp-2];
9551         push(r_res);
9552
9553         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9554         r_res = ST_ARG(0);
9555         push(r_res);
9556         push(1);
9557         r_res = (int)probeSymbolDefined("vector->list",topLevel);
9558         if (r_res==0) goto __else410;
9559         if (! ((SymbolEntry*)r_res)->isDefined) goto __else410;
9560         r_res = (int)((SymbolEntry*)r_res)->sob;
9561         goto __endIf410;
9562 __else410:
9563         fprintf(stderr,"Symbol vector->list not defined"); exit(-1);
9564 __endIf410:
9565         if (IS_SOB_CLOSURE(r_res)) goto __app272;
9566         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9567 __app272:
9568         push((int)SOB_CLOSURE_ENV(r_res));
9569         push((int)&&__ret367);
9570         goto *(SOB_CLOSURE_CODE(r_res));
9571 __ret367:
9572         sp = sp-2-stack[sp-2];
9573         push(r_res);
9574         push(2);
9575         r_res = (int)probeSymbolDefined("equal?",topLevel);
9576         if (r_res==0) goto __else411;
9577         if (! ((SymbolEntry*)r_res)->isDefined) goto __else411;
9578         r_res = (int)((SymbolEntry*)r_res)->sob;
9579         goto __endIf411;
9580 __else411:
9581         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
9582 __endIf411:
9583         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9584         push((int)SOB_CLOSURE_ENV(r_res));
9585         push(ST_RET());
9586         shiftActFrmDown();
9587         goto *(SOB_CLOSURE_CODE(r_res));
9588         sp = sp-2-stack[sp-2];
9589         goto __endIf401;
9590 __else401:
9591
9592         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9593         r_res = ST_ARG(0);
9594         push(r_res);
9595         push(1);
9596         r_res = (int)probeSymbolDefined("null?",topLevel);
9597         if (r_res==0) goto __else414;
9598         if (! ((SymbolEntry*)r_res)->isDefined) goto __else414;
9599         r_res = (int)((SymbolEntry*)r_res)->sob;
9600         goto __endIf414;
9601 __else414:
9602         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
9603 __endIf414:
9604         if (IS_SOB_CLOSURE(r_res)) goto __app273;
9605         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9606 __app273:
9607         push((int)SOB_CLOSURE_ENV(r_res));
9608         push((int)&&__ret368);
9609         goto *(SOB_CLOSURE_CODE(r_res));
9610 __ret368:
9611         sp = sp-2-stack[sp-2];
9612         if ((SchemeObject*)r_res==&sc_false) goto __else413;
9613
9614         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9615         r_res = ST_ARG(1);
9616         push(r_res);
9617         push(1);
9618         r_res = (int)probeSymbolDefined("null?",topLevel);
9619         if (r_res==0) goto __else415;
9620         if (! ((SymbolEntry*)r_res)->isDefined) goto __else415;
9621         r_res = (int)((SymbolEntry*)r_res)->sob;
9622         goto __endIf415;
9623 __else415:
9624         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
9625 __endIf415:
9626         if (IS_SOB_CLOSURE(r_res)) goto __app274;
9627         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9628 __app274:
9629         push((int)SOB_CLOSURE_ENV(r_res));
9630         push((int)&&__ret369);
9631         goto *(SOB_CLOSURE_CODE(r_res));
9632 __ret369:
9633         sp = sp-2-stack[sp-2];
9634         goto __endIf413;
9635 __else413:
9636         r_res = (int)&sc_false;
9637 __endIf413:
9638         if ((SchemeObject*)r_res==&sc_false) goto __else412;
9639         r_res = (int)&sc_true;
9640         goto __endIf412;
9641 __else412:
9642
9643         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9644         r_res = ST_ARG(0);
9645         push(r_res);
9646         push(1);
9647         r_res = (int)probeSymbolDefined("boolean?",topLevel);
9648         if (r_res==0) goto __else418;
9649         if (! ((SymbolEntry*)r_res)->isDefined) goto __else418;
9650         r_res = (int)((SymbolEntry*)r_res)->sob;
9651         goto __endIf418;
9652 __else418:
9653         fprintf(stderr,"Symbol boolean\? not defined"); exit(-1);
9654 __endIf418:
9655         if (IS_SOB_CLOSURE(r_res)) goto __app275;
9656         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9657 __app275:
9658         push((int)SOB_CLOSURE_ENV(r_res));
9659         push((int)&&__ret370);
9660         goto *(SOB_CLOSURE_CODE(r_res));
9661 __ret370:
9662         sp = sp-2-stack[sp-2];
9663         if ((SchemeObject*)r_res==&sc_false) goto __else417;
9664
9665         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9666         r_res = ST_ARG(1);
9667         push(r_res);
9668         push(1);
9669         r_res = (int)probeSymbolDefined("boolean?",topLevel);
9670         if (r_res==0) goto __else419;
9671         if (! ((SymbolEntry*)r_res)->isDefined) goto __else419;
9672         r_res = (int)((SymbolEntry*)r_res)->sob;
9673         goto __endIf419;
9674 __else419:
9675         fprintf(stderr,"Symbol boolean\? not defined"); exit(-1);
9676 __endIf419:
9677         if (IS_SOB_CLOSURE(r_res)) goto __app276;
9678         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9679 __app276:
9680         push((int)SOB_CLOSURE_ENV(r_res));
9681         push((int)&&__ret371);
9682         goto *(SOB_CLOSURE_CODE(r_res));
9683 __ret371:
9684         sp = sp-2-stack[sp-2];
9685         goto __endIf417;
9686 __else417:
9687         r_res = (int)&sc_false;
9688 __endIf417:
9689         if ((SchemeObject*)r_res==&sc_false) goto __else416;
9690         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9691         r_res = ST_ARG(0);
9692         if ((SchemeObject*)r_res==&sc_false) goto __else420;
9693         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9694         r_res = ST_ARG(1);
9695         goto __endIf420;
9696 __else420:
9697         r_res = (int)&sc_false;
9698 __endIf420:
9699         goto __endIf416;
9700 __else416:
9701
9702         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9703         r_res = ST_ARG(0);
9704         push(r_res);
9705         push(1);
9706         r_res = (int)probeSymbolDefined("char?",topLevel);
9707         if (r_res==0) goto __else423;
9708         if (! ((SymbolEntry*)r_res)->isDefined) goto __else423;
9709         r_res = (int)((SymbolEntry*)r_res)->sob;
9710         goto __endIf423;
9711 __else423:
9712         fprintf(stderr,"Symbol char\? not defined"); exit(-1);
9713 __endIf423:
9714         if (IS_SOB_CLOSURE(r_res)) goto __app277;
9715         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9716 __app277:
9717         push((int)SOB_CLOSURE_ENV(r_res));
9718         push((int)&&__ret372);
9719         goto *(SOB_CLOSURE_CODE(r_res));
9720 __ret372:
9721         sp = sp-2-stack[sp-2];
9722         if ((SchemeObject*)r_res==&sc_false) goto __else422;
9723
9724         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9725         r_res = ST_ARG(1);
9726         push(r_res);
9727         push(1);
9728         r_res = (int)probeSymbolDefined("char?",topLevel);
9729         if (r_res==0) goto __else424;
9730         if (! ((SymbolEntry*)r_res)->isDefined) goto __else424;
9731         r_res = (int)((SymbolEntry*)r_res)->sob;
9732         goto __endIf424;
9733 __else424:
9734         fprintf(stderr,"Symbol char\? not defined"); exit(-1);
9735 __endIf424:
9736         if (IS_SOB_CLOSURE(r_res)) goto __app278;
9737         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9738 __app278:
9739         push((int)SOB_CLOSURE_ENV(r_res));
9740         push((int)&&__ret373);
9741         goto *(SOB_CLOSURE_CODE(r_res));
9742 __ret373:
9743         sp = sp-2-stack[sp-2];
9744         goto __endIf422;
9745 __else422:
9746         r_res = (int)&sc_false;
9747 __endIf422:
9748         if ((SchemeObject*)r_res==&sc_false) goto __else421;
9749
9750         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9751         r_res = ST_ARG(1);
9752         push(r_res);
9753         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9754         r_res = ST_ARG(0);
9755         push(r_res);
9756         push(2);
9757         r_res = (int)probeSymbolDefined("char=?",topLevel);
9758         if (r_res==0) goto __else425;
9759         if (! ((SymbolEntry*)r_res)->isDefined) goto __else425;
9760         r_res = (int)((SymbolEntry*)r_res)->sob;
9761         goto __endIf425;
9762 __else425:
9763         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
9764 __endIf425:
9765         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9766         push((int)SOB_CLOSURE_ENV(r_res));
9767         push(ST_RET());
9768         shiftActFrmDown();
9769         goto *(SOB_CLOSURE_CODE(r_res));
9770         sp = sp-2-stack[sp-2];
9771         goto __endIf421;
9772 __else421:
9773
9774         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9775         r_res = ST_ARG(0);
9776         push(r_res);
9777         push(1);
9778         r_res = (int)probeSymbolDefined("number?",topLevel);
9779         if (r_res==0) goto __else428;
9780         if (! ((SymbolEntry*)r_res)->isDefined) goto __else428;
9781         r_res = (int)((SymbolEntry*)r_res)->sob;
9782         goto __endIf428;
9783 __else428:
9784         fprintf(stderr,"Symbol number\? not defined"); exit(-1);
9785 __endIf428:
9786         if (IS_SOB_CLOSURE(r_res)) goto __app279;
9787         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9788 __app279:
9789         push((int)SOB_CLOSURE_ENV(r_res));
9790         push((int)&&__ret374);
9791         goto *(SOB_CLOSURE_CODE(r_res));
9792 __ret374:
9793         sp = sp-2-stack[sp-2];
9794         if ((SchemeObject*)r_res==&sc_false) goto __else427;
9795
9796         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9797         r_res = ST_ARG(1);
9798         push(r_res);
9799         push(1);
9800         r_res = (int)probeSymbolDefined("number?",topLevel);
9801         if (r_res==0) goto __else429;
9802         if (! ((SymbolEntry*)r_res)->isDefined) goto __else429;
9803         r_res = (int)((SymbolEntry*)r_res)->sob;
9804         goto __endIf429;
9805 __else429:
9806         fprintf(stderr,"Symbol number\? not defined"); exit(-1);
9807 __endIf429:
9808         if (IS_SOB_CLOSURE(r_res)) goto __app280;
9809         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9810 __app280:
9811         push((int)SOB_CLOSURE_ENV(r_res));
9812         push((int)&&__ret375);
9813         goto *(SOB_CLOSURE_CODE(r_res));
9814 __ret375:
9815         sp = sp-2-stack[sp-2];
9816         goto __endIf427;
9817 __else427:
9818         r_res = (int)&sc_false;
9819 __endIf427:
9820         if ((SchemeObject*)r_res==&sc_false) goto __else426;
9821
9822         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9823         r_res = ST_ARG(1);
9824         push(r_res);
9825         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9826         r_res = ST_ARG(0);
9827         push(r_res);
9828         push(2);
9829         r_res = (int)probeSymbolDefined("=",topLevel);
9830         if (r_res==0) goto __else430;
9831         if (! ((SymbolEntry*)r_res)->isDefined) goto __else430;
9832         r_res = (int)((SymbolEntry*)r_res)->sob;
9833         goto __endIf430;
9834 __else430:
9835         fprintf(stderr,"Symbol = not defined"); exit(-1);
9836 __endIf430:
9837         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9838         push((int)SOB_CLOSURE_ENV(r_res));
9839         push(ST_RET());
9840         shiftActFrmDown();
9841         goto *(SOB_CLOSURE_CODE(r_res));
9842         sp = sp-2-stack[sp-2];
9843         goto __endIf426;
9844 __else426:
9845
9846         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9847         r_res = ST_ARG(0);
9848         push(r_res);
9849         push(1);
9850         r_res = (int)probeSymbolDefined("string?",topLevel);
9851         if (r_res==0) goto __else433;
9852         if (! ((SymbolEntry*)r_res)->isDefined) goto __else433;
9853         r_res = (int)((SymbolEntry*)r_res)->sob;
9854         goto __endIf433;
9855 __else433:
9856         fprintf(stderr,"Symbol string\? not defined"); exit(-1);
9857 __endIf433:
9858         if (IS_SOB_CLOSURE(r_res)) goto __app281;
9859         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9860 __app281:
9861         push((int)SOB_CLOSURE_ENV(r_res));
9862         push((int)&&__ret376);
9863         goto *(SOB_CLOSURE_CODE(r_res));
9864 __ret376:
9865         sp = sp-2-stack[sp-2];
9866         if ((SchemeObject*)r_res==&sc_false) goto __else432;
9867
9868         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9869         r_res = ST_ARG(1);
9870         push(r_res);
9871         push(1);
9872         r_res = (int)probeSymbolDefined("string?",topLevel);
9873         if (r_res==0) goto __else434;
9874         if (! ((SymbolEntry*)r_res)->isDefined) goto __else434;
9875         r_res = (int)((SymbolEntry*)r_res)->sob;
9876         goto __endIf434;
9877 __else434:
9878         fprintf(stderr,"Symbol string\? not defined"); exit(-1);
9879 __endIf434:
9880         if (IS_SOB_CLOSURE(r_res)) goto __app282;
9881         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9882 __app282:
9883         push((int)SOB_CLOSURE_ENV(r_res));
9884         push((int)&&__ret377);
9885         goto *(SOB_CLOSURE_CODE(r_res));
9886 __ret377:
9887         sp = sp-2-stack[sp-2];
9888         goto __endIf432;
9889 __else432:
9890         r_res = (int)&sc_false;
9891 __endIf432:
9892         if ((SchemeObject*)r_res==&sc_false) goto __else431;
9893
9894         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9895         r_res = ST_ARG(1);
9896         push(r_res);
9897         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9898         r_res = ST_ARG(0);
9899         push(r_res);
9900         push(2);
9901         r_res = (int)probeSymbolDefined("string=?",topLevel);
9902         if (r_res==0) goto __else435;
9903         if (! ((SymbolEntry*)r_res)->isDefined) goto __else435;
9904         r_res = (int)((SymbolEntry*)r_res)->sob;
9905         goto __endIf435;
9906 __else435:
9907         fprintf(stderr,"Symbol string=\? not defined"); exit(-1);
9908 __endIf435:
9909         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9910         push((int)SOB_CLOSURE_ENV(r_res));
9911         push(ST_RET());
9912         shiftActFrmDown();
9913         goto *(SOB_CLOSURE_CODE(r_res));
9914         sp = sp-2-stack[sp-2];
9915         goto __endIf431;
9916 __else431:
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("symbol?",topLevel);
9923         if (r_res==0) goto __else438;
9924         if (! ((SymbolEntry*)r_res)->isDefined) goto __else438;
9925         r_res = (int)((SymbolEntry*)r_res)->sob;
9926         goto __endIf438;
9927 __else438:
9928         fprintf(stderr,"Symbol symbol\? not defined"); exit(-1);
9929 __endIf438:
9930         if (IS_SOB_CLOSURE(r_res)) goto __app283;
9931         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9932 __app283:
9933         push((int)SOB_CLOSURE_ENV(r_res));
9934         push((int)&&__ret378);
9935         goto *(SOB_CLOSURE_CODE(r_res));
9936 __ret378:
9937         sp = sp-2-stack[sp-2];
9938         if ((SchemeObject*)r_res==&sc_false) goto __else437;
9939
9940         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9941         r_res = ST_ARG(1);
9942         push(r_res);
9943         push(1);
9944         r_res = (int)probeSymbolDefined("symbol?",topLevel);
9945         if (r_res==0) goto __else439;
9946         if (! ((SymbolEntry*)r_res)->isDefined) goto __else439;
9947         r_res = (int)((SymbolEntry*)r_res)->sob;
9948         goto __endIf439;
9949 __else439:
9950         fprintf(stderr,"Symbol symbol\? not defined"); exit(-1);
9951 __endIf439:
9952         if (IS_SOB_CLOSURE(r_res)) goto __app284;
9953         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
9954 __app284:
9955         push((int)SOB_CLOSURE_ENV(r_res));
9956         push((int)&&__ret379);
9957         goto *(SOB_CLOSURE_CODE(r_res));
9958 __ret379:
9959         sp = sp-2-stack[sp-2];
9960         goto __endIf437;
9961 __else437:
9962         r_res = (int)&sc_false;
9963 __endIf437:
9964         if ((SchemeObject*)r_res==&sc_false) goto __else436;
9965
9966         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
9967         r_res = ST_ARG(1);
9968         push(r_res);
9969         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9970         r_res = ST_ARG(0);
9971         push(r_res);
9972         push(2);
9973         r_res = (int)probeSymbolDefined("eq?",topLevel);
9974         if (r_res==0) goto __else440;
9975         if (! ((SymbolEntry*)r_res)->isDefined) goto __else440;
9976         r_res = (int)((SymbolEntry*)r_res)->sob;
9977         goto __endIf440;
9978 __else440:
9979         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
9980 __endIf440:
9981         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
9982         push((int)SOB_CLOSURE_ENV(r_res));
9983         push(ST_RET());
9984         shiftActFrmDown();
9985         goto *(SOB_CLOSURE_CODE(r_res));
9986         sp = sp-2-stack[sp-2];
9987         goto __endIf436;
9988 __else436:
9989
9990         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
9991         r_res = ST_ARG(0);
9992         push(r_res);
9993         push(1);
9994         r_res = (int)probeSymbolDefined("void?",topLevel);
9995         if (r_res==0) goto __else443;
9996         if (! ((SymbolEntry*)r_res)->isDefined) goto __else443;
9997         r_res = (int)((SymbolEntry*)r_res)->sob;
9998         goto __endIf443;
9999 __else443:
10000         fprintf(stderr,"Symbol void\? not defined"); exit(-1);
10001 __endIf443:
10002         if (IS_SOB_CLOSURE(r_res)) goto __app285;
10003         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10004 __app285:
10005         push((int)SOB_CLOSURE_ENV(r_res));
10006         push((int)&&__ret380);
10007         goto *(SOB_CLOSURE_CODE(r_res));
10008 __ret380:
10009         sp = sp-2-stack[sp-2];
10010         if ((SchemeObject*)r_res==&sc_false) goto __else442;
10011
10012         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10013         r_res = ST_ARG(1);
10014         push(r_res);
10015         push(1);
10016         r_res = (int)probeSymbolDefined("void?",topLevel);
10017         if (r_res==0) goto __else444;
10018         if (! ((SymbolEntry*)r_res)->isDefined) goto __else444;
10019         r_res = (int)((SymbolEntry*)r_res)->sob;
10020         goto __endIf444;
10021 __else444:
10022         fprintf(stderr,"Symbol void\? not defined"); exit(-1);
10023 __endIf444:
10024         if (IS_SOB_CLOSURE(r_res)) goto __app286;
10025         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10026 __app286:
10027         push((int)SOB_CLOSURE_ENV(r_res));
10028         push((int)&&__ret381);
10029         goto *(SOB_CLOSURE_CODE(r_res));
10030 __ret381:
10031         sp = sp-2-stack[sp-2];
10032         goto __endIf442;
10033 __else442:
10034         r_res = (int)&sc_false;
10035 __endIf442:
10036         if ((SchemeObject*)r_res==&sc_false) goto __else441;
10037         r_res = (int)&sc_true;
10038         goto __endIf441;
10039 __else441:
10040         r_res = (int)&sc_false;
10041 __endIf441:
10042 __endIf436:
10043 __endIf431:
10044 __endIf426:
10045 __endIf421:
10046 __endIf416:
10047 __endIf412:
10048 __endIf401:
10049 __endIf390:
10050         fp = pop();
10051         RETURN();
10052 __skipBody107:
10053         r_res = (int)makeSchemeClosure((void*)r[0],&&__body107);
10054         r[0] = (int)getSymbol("equal?",topLevel);
10055         ((SymbolEntry*)r[0])->isDefined = 1;
10056         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10057         r_res = (int)&sc_void;
10058 __ret353:
10059         /* set return address */
10060         ST_RET() = (int)&&__ret382;
10061
10062         r_res = (int)&sc_false;
10063         if ((SchemeObject*)r_res==&sc_false) goto __else445;
10064         r_res = (int)&sc_false;
10065         goto __endIf445;
10066 __else445:
10067         r_res = (int)&sc_void;
10068 __endIf445:
10069         push(r_res);
10070         push(1);
10071         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10072         goto __skipBody108;
10073 __body108:
10074         push(fp);
10075         fp = sp;
10076         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10077         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10078         goto __skipBody109;
10079 __body109:
10080         push(fp);
10081         fp = sp;
10082         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10083         r_res = ((int**)ST_ENV())[0][0];
10084         fp = pop();
10085         RETURN();
10086 __skipBody109:
10087         r_res = (int)makeSchemeClosure((void*)r[0],&&__body109);
10088         fp = pop();
10089         RETURN();
10090 __skipBody108:
10091         r_res = (int)makeSchemeClosure((void*)r[0],&&__body108);
10092         if (IS_SOB_CLOSURE(r_res)) goto __app287;
10093         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10094 __app287:
10095         push((int)SOB_CLOSURE_ENV(r_res));
10096         push((int)&&__ret383);
10097         goto *(SOB_CLOSURE_CODE(r_res));
10098 __ret383:
10099         sp = sp-2-stack[sp-2];
10100         r[0] = (int)getSymbol("void",topLevel);
10101         ((SymbolEntry*)r[0])->isDefined = 1;
10102         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10103         r_res = (int)&sc_void;
10104 __ret382:
10105         /* set return address */
10106         ST_RET() = (int)&&__ret384;
10107
10108
10109         push(0);
10110         r_res = (int)probeSymbolDefined("void",topLevel);
10111         if (r_res==0) goto __else446;
10112         if (! ((SymbolEntry*)r_res)->isDefined) goto __else446;
10113         r_res = (int)((SymbolEntry*)r_res)->sob;
10114         goto __endIf446;
10115 __else446:
10116         fprintf(stderr,"Symbol void not defined"); exit(-1);
10117 __endIf446:
10118         if (IS_SOB_CLOSURE(r_res)) goto __app289;
10119         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10120 __app289:
10121         push((int)SOB_CLOSURE_ENV(r_res));
10122         push((int)&&__ret386);
10123         goto *(SOB_CLOSURE_CODE(r_res));
10124 __ret386:
10125         sp = sp-2-stack[sp-2];
10126         push(r_res);
10127         push(1);
10128         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10129         goto __skipBody110;
10130 __body110:
10131         push(fp);
10132         fp = sp;
10133         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10134         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10135         goto __skipBody111;
10136 __body111:
10137         push(fp);
10138         fp = sp;
10139         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10140
10141         r_res = ((int**)ST_ENV())[0][0];
10142         push(r_res);
10143         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10144         r_res = ST_ARG(0);
10145         push(r_res);
10146         push(2);
10147         r_res = (int)probeSymbolDefined("eq?",topLevel);
10148         if (r_res==0) goto __else447;
10149         if (! ((SymbolEntry*)r_res)->isDefined) goto __else447;
10150         r_res = (int)((SymbolEntry*)r_res)->sob;
10151         goto __endIf447;
10152 __else447:
10153         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
10154 __endIf447:
10155         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10156         push((int)SOB_CLOSURE_ENV(r_res));
10157         push(ST_RET());
10158         shiftActFrmDown();
10159         goto *(SOB_CLOSURE_CODE(r_res));
10160         sp = sp-2-stack[sp-2];
10161         fp = pop();
10162         RETURN();
10163 __skipBody111:
10164         r_res = (int)makeSchemeClosure((void*)r[0],&&__body111);
10165         fp = pop();
10166         RETURN();
10167 __skipBody110:
10168         r_res = (int)makeSchemeClosure((void*)r[0],&&__body110);
10169         if (IS_SOB_CLOSURE(r_res)) goto __app288;
10170         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10171 __app288:
10172         push((int)SOB_CLOSURE_ENV(r_res));
10173         push((int)&&__ret385);
10174         goto *(SOB_CLOSURE_CODE(r_res));
10175 __ret385:
10176         sp = sp-2-stack[sp-2];
10177         r[0] = (int)getSymbol("void?",topLevel);
10178         ((SymbolEntry*)r[0])->isDefined = 1;
10179         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10180         r_res = (int)&sc_void;
10181 __ret384:
10182         /* set return address */
10183         ST_RET() = (int)&&__ret387;
10184
10185         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10186         goto __skipBody112;
10187 __body112:
10188         push(fp);
10189         fp = sp;
10190         prepareStackForAbsOpt(1);
10191         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10192
10193
10194
10195         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10196         r_res = ST_ARG(0);
10197         push(r_res);
10198         r_res = (int)probeSymbolDefined("string->list",topLevel);
10199         if (r_res==0) goto __else448;
10200         if (! ((SymbolEntry*)r_res)->isDefined) goto __else448;
10201         r_res = (int)((SymbolEntry*)r_res)->sob;
10202         goto __endIf448;
10203 __else448:
10204         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
10205 __endIf448:
10206         push(r_res);
10207         push(2);
10208         r_res = (int)probeSymbolDefined("map",topLevel);
10209         if (r_res==0) goto __else449;
10210         if (! ((SymbolEntry*)r_res)->isDefined) goto __else449;
10211         r_res = (int)((SymbolEntry*)r_res)->sob;
10212         goto __endIf449;
10213 __else449:
10214         fprintf(stderr,"Symbol map not defined"); exit(-1);
10215 __endIf449:
10216         if (IS_SOB_CLOSURE(r_res)) goto __app291;
10217         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10218 __app291:
10219         push((int)SOB_CLOSURE_ENV(r_res));
10220         push((int)&&__ret389);
10221         goto *(SOB_CLOSURE_CODE(r_res));
10222 __ret389:
10223         sp = sp-2-stack[sp-2];
10224         push(r_res);
10225         r_res = (int)probeSymbolDefined("append",topLevel);
10226         if (r_res==0) goto __else450;
10227         if (! ((SymbolEntry*)r_res)->isDefined) goto __else450;
10228         r_res = (int)((SymbolEntry*)r_res)->sob;
10229         goto __endIf450;
10230 __else450:
10231         fprintf(stderr,"Symbol append not defined"); exit(-1);
10232 __endIf450:
10233         push(r_res);
10234         push(2);
10235         r_res = (int)probeSymbolDefined("apply",topLevel);
10236         if (r_res==0) goto __else451;
10237         if (! ((SymbolEntry*)r_res)->isDefined) goto __else451;
10238         r_res = (int)((SymbolEntry*)r_res)->sob;
10239         goto __endIf451;
10240 __else451:
10241         fprintf(stderr,"Symbol apply not defined"); exit(-1);
10242 __endIf451:
10243         if (IS_SOB_CLOSURE(r_res)) goto __app290;
10244         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10245 __app290:
10246         push((int)SOB_CLOSURE_ENV(r_res));
10247         push((int)&&__ret388);
10248         goto *(SOB_CLOSURE_CODE(r_res));
10249 __ret388:
10250         sp = sp-2-stack[sp-2];
10251         push(r_res);
10252         push(1);
10253         r_res = (int)probeSymbolDefined("list->string",topLevel);
10254         if (r_res==0) goto __else452;
10255         if (! ((SymbolEntry*)r_res)->isDefined) goto __else452;
10256         r_res = (int)((SymbolEntry*)r_res)->sob;
10257         goto __endIf452;
10258 __else452:
10259         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
10260 __endIf452:
10261         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10262         push((int)SOB_CLOSURE_ENV(r_res));
10263         push(ST_RET());
10264         shiftActFrmDown();
10265         goto *(SOB_CLOSURE_CODE(r_res));
10266         sp = sp-2-stack[sp-2];
10267         fp = pop();
10268         RETURN();
10269 __skipBody112:
10270         r_res = (int)makeSchemeClosure((void*)r[0],&&__body112);
10271         r[0] = (int)getSymbol("string-append",topLevel);
10272         ((SymbolEntry*)r[0])->isDefined = 1;
10273         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10274         r_res = (int)&sc_void;
10275 __ret387:
10276         /* set return address */
10277         ST_RET() = (int)&&__ret390;
10278
10279         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10280         goto __skipBody113;
10281 __body113:
10282         push(fp);
10283         fp = sp;
10284         prepareStackForAbsOpt(1);
10285         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10286
10287
10288
10289         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10290         r_res = ST_ARG(0);
10291         push(r_res);
10292         r_res = (int)probeSymbolDefined("vector->list",topLevel);
10293         if (r_res==0) goto __else453;
10294         if (! ((SymbolEntry*)r_res)->isDefined) goto __else453;
10295         r_res = (int)((SymbolEntry*)r_res)->sob;
10296         goto __endIf453;
10297 __else453:
10298         fprintf(stderr,"Symbol vector->list not defined"); exit(-1);
10299 __endIf453:
10300         push(r_res);
10301         push(2);
10302         r_res = (int)probeSymbolDefined("map",topLevel);
10303         if (r_res==0) goto __else454;
10304         if (! ((SymbolEntry*)r_res)->isDefined) goto __else454;
10305         r_res = (int)((SymbolEntry*)r_res)->sob;
10306         goto __endIf454;
10307 __else454:
10308         fprintf(stderr,"Symbol map not defined"); exit(-1);
10309 __endIf454:
10310         if (IS_SOB_CLOSURE(r_res)) goto __app293;
10311         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10312 __app293:
10313         push((int)SOB_CLOSURE_ENV(r_res));
10314         push((int)&&__ret392);
10315         goto *(SOB_CLOSURE_CODE(r_res));
10316 __ret392:
10317         sp = sp-2-stack[sp-2];
10318         push(r_res);
10319         r_res = (int)probeSymbolDefined("append",topLevel);
10320         if (r_res==0) goto __else455;
10321         if (! ((SymbolEntry*)r_res)->isDefined) goto __else455;
10322         r_res = (int)((SymbolEntry*)r_res)->sob;
10323         goto __endIf455;
10324 __else455:
10325         fprintf(stderr,"Symbol append not defined"); exit(-1);
10326 __endIf455:
10327         push(r_res);
10328         push(2);
10329         r_res = (int)probeSymbolDefined("apply",topLevel);
10330         if (r_res==0) goto __else456;
10331         if (! ((SymbolEntry*)r_res)->isDefined) goto __else456;
10332         r_res = (int)((SymbolEntry*)r_res)->sob;
10333         goto __endIf456;
10334 __else456:
10335         fprintf(stderr,"Symbol apply not defined"); exit(-1);
10336 __endIf456:
10337         if (IS_SOB_CLOSURE(r_res)) goto __app292;
10338         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10339 __app292:
10340         push((int)SOB_CLOSURE_ENV(r_res));
10341         push((int)&&__ret391);
10342         goto *(SOB_CLOSURE_CODE(r_res));
10343 __ret391:
10344         sp = sp-2-stack[sp-2];
10345         push(r_res);
10346         push(1);
10347         r_res = (int)probeSymbolDefined("list->vector",topLevel);
10348         if (r_res==0) goto __else457;
10349         if (! ((SymbolEntry*)r_res)->isDefined) goto __else457;
10350         r_res = (int)((SymbolEntry*)r_res)->sob;
10351         goto __endIf457;
10352 __else457:
10353         fprintf(stderr,"Symbol list->vector not defined"); exit(-1);
10354 __endIf457:
10355         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10356         push((int)SOB_CLOSURE_ENV(r_res));
10357         push(ST_RET());
10358         shiftActFrmDown();
10359         goto *(SOB_CLOSURE_CODE(r_res));
10360         sp = sp-2-stack[sp-2];
10361         fp = pop();
10362         RETURN();
10363 __skipBody113:
10364         r_res = (int)makeSchemeClosure((void*)r[0],&&__body113);
10365         r[0] = (int)getSymbol("vector-append",topLevel);
10366         ((SymbolEntry*)r[0])->isDefined = 1;
10367         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10368         r_res = (int)&sc_void;
10369 __ret390:
10370         /* set return address */
10371         ST_RET() = (int)&&__ret393;
10372
10373         r_res = (int)&sc_false;
10374         push(r_res);
10375         push(1);
10376         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10377         goto __skipBody114;
10378 __body114:
10379         push(fp);
10380         fp = sp;
10381         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10382
10383         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10384         r_res = ST_ARG(0);
10385         push(r_res);
10386         push(1);
10387         r_res = (int)probeSymbolDefined("box",topLevel);
10388         if (r_res==0) goto __else458;
10389         if (! ((SymbolEntry*)r_res)->isDefined) goto __else458;
10390         r_res = (int)((SymbolEntry*)r_res)->sob;
10391         goto __endIf458;
10392 __else458:
10393         fprintf(stderr,"Symbol box not defined"); exit(-1);
10394 __endIf458:
10395         if (IS_SOB_CLOSURE(r_res)) goto __app295;
10396         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10397 __app295:
10398         push((int)SOB_CLOSURE_ENV(r_res));
10399         push((int)&&__ret395);
10400         goto *(SOB_CLOSURE_CODE(r_res));
10401 __ret395:
10402         sp = sp-2-stack[sp-2];
10403         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10404         ST_ARG(0) = r_res;
10405         r_res = (int)&sc_void;
10406
10407         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10408         goto __skipBody115;
10409 __body115:
10410         push(fp);
10411         fp = sp;
10412         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10413
10414         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10415         r_res = ST_ARG(0);
10416         push(r_res);
10417         push(1);
10418         r_res = (int)probeSymbolDefined("null?",topLevel);
10419         if (r_res==0) goto __else460;
10420         if (! ((SymbolEntry*)r_res)->isDefined) goto __else460;
10421         r_res = (int)((SymbolEntry*)r_res)->sob;
10422         goto __endIf460;
10423 __else460:
10424         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
10425 __endIf460:
10426         if (IS_SOB_CLOSURE(r_res)) goto __app297;
10427         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10428 __app297:
10429         push((int)SOB_CLOSURE_ENV(r_res));
10430         push((int)&&__ret397);
10431         goto *(SOB_CLOSURE_CODE(r_res));
10432 __ret397:
10433         sp = sp-2-stack[sp-2];
10434         if ((SchemeObject*)r_res==&sc_false) goto __else459;
10435         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10436         r_res = ST_ARG(1);
10437         goto __endIf459;
10438 __else459:
10439
10440         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10441         r_res = ST_ARG(1);
10442         push(r_res);
10443
10444         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10445         r_res = ST_ARG(0);
10446         push(r_res);
10447         push(1);
10448         r_res = (int)probeSymbolDefined("cdr",topLevel);
10449         if (r_res==0) goto __else461;
10450         if (! ((SymbolEntry*)r_res)->isDefined) goto __else461;
10451         r_res = (int)((SymbolEntry*)r_res)->sob;
10452         goto __endIf461;
10453 __else461:
10454         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
10455 __endIf461:
10456         if (IS_SOB_CLOSURE(r_res)) goto __app299;
10457         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10458 __app299:
10459         push((int)SOB_CLOSURE_ENV(r_res));
10460         push((int)&&__ret399);
10461         goto *(SOB_CLOSURE_CODE(r_res));
10462 __ret399:
10463         sp = sp-2-stack[sp-2];
10464         push(r_res);
10465         push(2);
10466
10467         r_res = (int)&__sc_number61;
10468         push(r_res);
10469         r_res = ((int**)ST_ENV())[0][0];
10470         push(r_res);
10471         push(2);
10472         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
10473         if (r_res==0) goto __else462;
10474         if (! ((SymbolEntry*)r_res)->isDefined) goto __else462;
10475         r_res = (int)((SymbolEntry*)r_res)->sob;
10476         goto __endIf462;
10477 __else462:
10478         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
10479 __endIf462:
10480         if (IS_SOB_CLOSURE(r_res)) goto __app300;
10481         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10482 __app300:
10483         push((int)SOB_CLOSURE_ENV(r_res));
10484         push((int)&&__ret400);
10485         goto *(SOB_CLOSURE_CODE(r_res));
10486 __ret400:
10487         sp = sp-2-stack[sp-2];
10488         if (IS_SOB_CLOSURE(r_res)) goto __app298;
10489         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10490 __app298:
10491         push((int)SOB_CLOSURE_ENV(r_res));
10492         push((int)&&__ret398);
10493         goto *(SOB_CLOSURE_CODE(r_res));
10494 __ret398:
10495         sp = sp-2-stack[sp-2];
10496         push(r_res);
10497
10498         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10499         r_res = ST_ARG(0);
10500         push(r_res);
10501         push(1);
10502         r_res = (int)probeSymbolDefined("car",topLevel);
10503         if (r_res==0) goto __else463;
10504         if (! ((SymbolEntry*)r_res)->isDefined) goto __else463;
10505         r_res = (int)((SymbolEntry*)r_res)->sob;
10506         goto __endIf463;
10507 __else463:
10508         fprintf(stderr,"Symbol car not defined"); exit(-1);
10509 __endIf463:
10510         if (IS_SOB_CLOSURE(r_res)) goto __app301;
10511         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10512 __app301:
10513         push((int)SOB_CLOSURE_ENV(r_res));
10514         push((int)&&__ret401);
10515         goto *(SOB_CLOSURE_CODE(r_res));
10516 __ret401:
10517         sp = sp-2-stack[sp-2];
10518         push(r_res);
10519         push(2);
10520         r_res = (int)probeSymbolDefined("cons",topLevel);
10521         if (r_res==0) goto __else464;
10522         if (! ((SymbolEntry*)r_res)->isDefined) goto __else464;
10523         r_res = (int)((SymbolEntry*)r_res)->sob;
10524         goto __endIf464;
10525 __else464:
10526         fprintf(stderr,"Symbol cons not defined"); exit(-1);
10527 __endIf464:
10528         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10529         push((int)SOB_CLOSURE_ENV(r_res));
10530         push(ST_RET());
10531         shiftActFrmDown();
10532         goto *(SOB_CLOSURE_CODE(r_res));
10533         sp = sp-2-stack[sp-2];
10534 __endIf459:
10535         fp = pop();
10536         RETURN();
10537 __skipBody115:
10538         r_res = (int)makeSchemeClosure((void*)r[0],&&__body115);
10539         push(r_res);
10540         r_res = (int)&__sc_number62;
10541         push(r_res);
10542         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10543         r_res = ST_ARG(0);
10544         push(r_res);
10545         push(3);
10546         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
10547         if (r_res==0) goto __else465;
10548         if (! ((SymbolEntry*)r_res)->isDefined) goto __else465;
10549         r_res = (int)((SymbolEntry*)r_res)->sob;
10550         goto __endIf465;
10551 __else465:
10552         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
10553 __endIf465:
10554         if (IS_SOB_CLOSURE(r_res)) goto __app296;
10555         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10556 __app296:
10557         push((int)SOB_CLOSURE_ENV(r_res));
10558         push((int)&&__ret396);
10559         goto *(SOB_CLOSURE_CODE(r_res));
10560 __ret396:
10561         sp = sp-2-stack[sp-2];
10562         push(0);
10563         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10564         goto __skipBody116;
10565 __body116:
10566         push(fp);
10567         fp = sp;
10568         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10569         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
10570         goto __skipBody117;
10571 __body117:
10572         push(fp);
10573         fp = sp;
10574         prepareStackForAbsOpt(1);
10575         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10576
10577         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10578         r_res = ST_ARG(0);
10579         push(r_res);
10580         r_res = (int)&sc_nil;
10581         push(r_res);
10582
10583         r_res = (int)&__sc_number63;
10584         push(r_res);
10585         r_res = ((int**)ST_ENV())[1][0];
10586         push(r_res);
10587         push(2);
10588         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
10589         if (r_res==0) goto __else466;
10590         if (! ((SymbolEntry*)r_res)->isDefined) goto __else466;
10591         r_res = (int)((SymbolEntry*)r_res)->sob;
10592         goto __endIf466;
10593 __else466:
10594         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
10595 __endIf466:
10596         if (IS_SOB_CLOSURE(r_res)) goto __app302;
10597         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10598 __app302:
10599         push((int)SOB_CLOSURE_ENV(r_res));
10600         push((int)&&__ret402);
10601         goto *(SOB_CLOSURE_CODE(r_res));
10602 __ret402:
10603         sp = sp-2-stack[sp-2];
10604         push(r_res);
10605         push(3);
10606         r_res = (int)probeSymbolDefined("foldr",topLevel);
10607         if (r_res==0) goto __else467;
10608         if (! ((SymbolEntry*)r_res)->isDefined) goto __else467;
10609         r_res = (int)((SymbolEntry*)r_res)->sob;
10610         goto __endIf467;
10611 __else467:
10612         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
10613 __endIf467:
10614         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10615         push((int)SOB_CLOSURE_ENV(r_res));
10616         push(ST_RET());
10617         shiftActFrmDown();
10618         goto *(SOB_CLOSURE_CODE(r_res));
10619         sp = sp-2-stack[sp-2];
10620         fp = pop();
10621         RETURN();
10622 __skipBody117:
10623         r_res = (int)makeSchemeClosure((void*)r[0],&&__body117);
10624         fp = pop();
10625         RETURN();
10626 __skipBody116:
10627         r_res = (int)makeSchemeClosure((void*)r[0],&&__body116);
10628         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10629         push((int)SOB_CLOSURE_ENV(r_res));
10630         push(ST_RET());
10631         shiftActFrmDown();
10632         goto *(SOB_CLOSURE_CODE(r_res));
10633         sp = sp-2-stack[sp-2];
10634         fp = pop();
10635         RETURN();
10636 __skipBody114:
10637         r_res = (int)makeSchemeClosure((void*)r[0],&&__body114);
10638         if (IS_SOB_CLOSURE(r_res)) goto __app294;
10639         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10640 __app294:
10641         push((int)SOB_CLOSURE_ENV(r_res));
10642         push((int)&&__ret394);
10643         goto *(SOB_CLOSURE_CODE(r_res));
10644 __ret394:
10645         sp = sp-2-stack[sp-2];
10646         r[0] = (int)getSymbol("append",topLevel);
10647         ((SymbolEntry*)r[0])->isDefined = 1;
10648         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10649         r_res = (int)&sc_void;
10650 __ret393:
10651         /* set return address */
10652         ST_RET() = (int)&&__ret403;
10653
10654         r_res = (int)&sc_false;
10655         push(r_res);
10656         push(1);
10657         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10658         goto __skipBody118;
10659 __body118:
10660         push(fp);
10661         fp = sp;
10662         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10663
10664         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10665         r_res = ST_ARG(0);
10666         push(r_res);
10667         push(1);
10668         r_res = (int)probeSymbolDefined("box",topLevel);
10669         if (r_res==0) goto __else468;
10670         if (! ((SymbolEntry*)r_res)->isDefined) goto __else468;
10671         r_res = (int)((SymbolEntry*)r_res)->sob;
10672         goto __endIf468;
10673 __else468:
10674         fprintf(stderr,"Symbol box not defined"); exit(-1);
10675 __endIf468:
10676         if (IS_SOB_CLOSURE(r_res)) goto __app304;
10677         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10678 __app304:
10679         push((int)SOB_CLOSURE_ENV(r_res));
10680         push((int)&&__ret405);
10681         goto *(SOB_CLOSURE_CODE(r_res));
10682 __ret405:
10683         sp = sp-2-stack[sp-2];
10684         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10685         ST_ARG(0) = r_res;
10686         r_res = (int)&sc_void;
10687
10688         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10689         goto __skipBody119;
10690 __body119:
10691         push(fp);
10692         fp = sp;
10693         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10694
10695         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10696         r_res = ST_ARG(0);
10697         push(r_res);
10698         push(1);
10699         r_res = (int)probeSymbolDefined("null?",topLevel);
10700         if (r_res==0) goto __else470;
10701         if (! ((SymbolEntry*)r_res)->isDefined) goto __else470;
10702         r_res = (int)((SymbolEntry*)r_res)->sob;
10703         goto __endIf470;
10704 __else470:
10705         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
10706 __endIf470:
10707         if (IS_SOB_CLOSURE(r_res)) goto __app306;
10708         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10709 __app306:
10710         push((int)SOB_CLOSURE_ENV(r_res));
10711         push((int)&&__ret407);
10712         goto *(SOB_CLOSURE_CODE(r_res));
10713 __ret407:
10714         sp = sp-2-stack[sp-2];
10715         if ((SchemeObject*)r_res==&sc_false) goto __else469;
10716         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10717         r_res = ST_ARG(1);
10718         goto __endIf469;
10719 __else469:
10720
10721         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10722         r_res = ST_ARG(1);
10723         push(r_res);
10724
10725         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10726         r_res = ST_ARG(0);
10727         push(r_res);
10728         push(1);
10729         r_res = (int)probeSymbolDefined("car",topLevel);
10730         if (r_res==0) goto __else471;
10731         if (! ((SymbolEntry*)r_res)->isDefined) goto __else471;
10732         r_res = (int)((SymbolEntry*)r_res)->sob;
10733         goto __endIf471;
10734 __else471:
10735         fprintf(stderr,"Symbol car not defined"); exit(-1);
10736 __endIf471:
10737         if (IS_SOB_CLOSURE(r_res)) goto __app308;
10738         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10739 __app308:
10740         push((int)SOB_CLOSURE_ENV(r_res));
10741         push((int)&&__ret409);
10742         goto *(SOB_CLOSURE_CODE(r_res));
10743 __ret409:
10744         sp = sp-2-stack[sp-2];
10745         push(r_res);
10746         push(2);
10747         r_res = (int)probeSymbolDefined("cons",topLevel);
10748         if (r_res==0) goto __else472;
10749         if (! ((SymbolEntry*)r_res)->isDefined) goto __else472;
10750         r_res = (int)((SymbolEntry*)r_res)->sob;
10751         goto __endIf472;
10752 __else472:
10753         fprintf(stderr,"Symbol cons not defined"); exit(-1);
10754 __endIf472:
10755         if (IS_SOB_CLOSURE(r_res)) goto __app307;
10756         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10757 __app307:
10758         push((int)SOB_CLOSURE_ENV(r_res));
10759         push((int)&&__ret408);
10760         goto *(SOB_CLOSURE_CODE(r_res));
10761 __ret408:
10762         sp = sp-2-stack[sp-2];
10763         push(r_res);
10764
10765         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10766         r_res = ST_ARG(0);
10767         push(r_res);
10768         push(1);
10769         r_res = (int)probeSymbolDefined("cdr",topLevel);
10770         if (r_res==0) goto __else473;
10771         if (! ((SymbolEntry*)r_res)->isDefined) goto __else473;
10772         r_res = (int)((SymbolEntry*)r_res)->sob;
10773         goto __endIf473;
10774 __else473:
10775         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
10776 __endIf473:
10777         if (IS_SOB_CLOSURE(r_res)) goto __app309;
10778         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10779 __app309:
10780         push((int)SOB_CLOSURE_ENV(r_res));
10781         push((int)&&__ret410);
10782         goto *(SOB_CLOSURE_CODE(r_res));
10783 __ret410:
10784         sp = sp-2-stack[sp-2];
10785         push(r_res);
10786         push(2);
10787
10788         r_res = (int)&__sc_number64;
10789         push(r_res);
10790         r_res = ((int**)ST_ENV())[0][0];
10791         push(r_res);
10792         push(2);
10793         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
10794         if (r_res==0) goto __else474;
10795         if (! ((SymbolEntry*)r_res)->isDefined) goto __else474;
10796         r_res = (int)((SymbolEntry*)r_res)->sob;
10797         goto __endIf474;
10798 __else474:
10799         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
10800 __endIf474:
10801         if (IS_SOB_CLOSURE(r_res)) goto __app310;
10802         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10803 __app310:
10804         push((int)SOB_CLOSURE_ENV(r_res));
10805         push((int)&&__ret411);
10806         goto *(SOB_CLOSURE_CODE(r_res));
10807 __ret411:
10808         sp = sp-2-stack[sp-2];
10809         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10810         push((int)SOB_CLOSURE_ENV(r_res));
10811         push(ST_RET());
10812         shiftActFrmDown();
10813         goto *(SOB_CLOSURE_CODE(r_res));
10814         sp = sp-2-stack[sp-2];
10815 __endIf469:
10816         fp = pop();
10817         RETURN();
10818 __skipBody119:
10819         r_res = (int)makeSchemeClosure((void*)r[0],&&__body119);
10820         push(r_res);
10821         r_res = (int)&__sc_number65;
10822         push(r_res);
10823         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10824         r_res = ST_ARG(0);
10825         push(r_res);
10826         push(3);
10827         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
10828         if (r_res==0) goto __else475;
10829         if (! ((SymbolEntry*)r_res)->isDefined) goto __else475;
10830         r_res = (int)((SymbolEntry*)r_res)->sob;
10831         goto __endIf475;
10832 __else475:
10833         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
10834 __endIf475:
10835         if (IS_SOB_CLOSURE(r_res)) goto __app305;
10836         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10837 __app305:
10838         push((int)SOB_CLOSURE_ENV(r_res));
10839         push((int)&&__ret406);
10840         goto *(SOB_CLOSURE_CODE(r_res));
10841 __ret406:
10842         sp = sp-2-stack[sp-2];
10843         push(0);
10844         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
10845         goto __skipBody120;
10846 __body120:
10847         push(fp);
10848         fp = sp;
10849         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10850         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
10851         goto __skipBody121;
10852 __body121:
10853         push(fp);
10854         fp = sp;
10855         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10856         r_res = (int)&sc_nil;
10857         push(r_res);
10858         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
10859         r_res = ST_ARG(0);
10860         push(r_res);
10861         push(2);
10862
10863         r_res = (int)&__sc_number66;
10864         push(r_res);
10865         r_res = ((int**)ST_ENV())[1][0];
10866         push(r_res);
10867         push(2);
10868         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
10869         if (r_res==0) goto __else476;
10870         if (! ((SymbolEntry*)r_res)->isDefined) goto __else476;
10871         r_res = (int)((SymbolEntry*)r_res)->sob;
10872         goto __endIf476;
10873 __else476:
10874         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
10875 __endIf476:
10876         if (IS_SOB_CLOSURE(r_res)) goto __app311;
10877         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10878 __app311:
10879         push((int)SOB_CLOSURE_ENV(r_res));
10880         push((int)&&__ret412);
10881         goto *(SOB_CLOSURE_CODE(r_res));
10882 __ret412:
10883         sp = sp-2-stack[sp-2];
10884         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10885         push((int)SOB_CLOSURE_ENV(r_res));
10886         push(ST_RET());
10887         shiftActFrmDown();
10888         goto *(SOB_CLOSURE_CODE(r_res));
10889         sp = sp-2-stack[sp-2];
10890         fp = pop();
10891         RETURN();
10892 __skipBody121:
10893         r_res = (int)makeSchemeClosure((void*)r[0],&&__body121);
10894         fp = pop();
10895         RETURN();
10896 __skipBody120:
10897         r_res = (int)makeSchemeClosure((void*)r[0],&&__body120);
10898         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10899         push((int)SOB_CLOSURE_ENV(r_res));
10900         push(ST_RET());
10901         shiftActFrmDown();
10902         goto *(SOB_CLOSURE_CODE(r_res));
10903         sp = sp-2-stack[sp-2];
10904         fp = pop();
10905         RETURN();
10906 __skipBody118:
10907         r_res = (int)makeSchemeClosure((void*)r[0],&&__body118);
10908         if (IS_SOB_CLOSURE(r_res)) goto __app303;
10909         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10910 __app303:
10911         push((int)SOB_CLOSURE_ENV(r_res));
10912         push((int)&&__ret404);
10913         goto *(SOB_CLOSURE_CODE(r_res));
10914 __ret404:
10915         sp = sp-2-stack[sp-2];
10916         r[0] = (int)getSymbol("reverse",topLevel);
10917         ((SymbolEntry*)r[0])->isDefined = 1;
10918         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10919         r_res = (int)&sc_void;
10920 __ret403:
10921         /* set return address */
10922         ST_RET() = (int)&&__ret413;
10923
10924
10925         r_res = (int)probeSymbolDefined("string->list",topLevel);
10926         if (r_res==0) goto __else477;
10927         if (! ((SymbolEntry*)r_res)->isDefined) goto __else477;
10928         r_res = (int)((SymbolEntry*)r_res)->sob;
10929         goto __endIf477;
10930 __else477:
10931         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
10932 __endIf477:
10933         push(r_res);
10934         r_res = (int)probeSymbolDefined("reverse",topLevel);
10935         if (r_res==0) goto __else478;
10936         if (! ((SymbolEntry*)r_res)->isDefined) goto __else478;
10937         r_res = (int)((SymbolEntry*)r_res)->sob;
10938         goto __endIf478;
10939 __else478:
10940         fprintf(stderr,"Symbol reverse not defined"); exit(-1);
10941 __endIf478:
10942         push(r_res);
10943         r_res = (int)probeSymbolDefined("list->string",topLevel);
10944         if (r_res==0) goto __else479;
10945         if (! ((SymbolEntry*)r_res)->isDefined) goto __else479;
10946         r_res = (int)((SymbolEntry*)r_res)->sob;
10947         goto __endIf479;
10948 __else479:
10949         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
10950 __endIf479:
10951         push(r_res);
10952         push(3);
10953         r_res = (int)probeSymbolDefined("compose",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 compose 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)&&__ret414);
10966         goto *(SOB_CLOSURE_CODE(r_res));
10967 __ret414:
10968         sp = sp-2-stack[sp-2];
10969         r[0] = (int)getSymbol("string-reverse",topLevel);
10970         ((SymbolEntry*)r[0])->isDefined = 1;
10971         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
10972         r_res = (int)&sc_void;
10973 __ret413:
10974         /* set return address */
10975         ST_RET() = (int)&&__ret415;
10976
10977         r[0] = (int)extendEnviroment( (int**)NULL, 0);
10978         goto __skipBody122;
10979 __body122:
10980         push(fp);
10981         fp = sp;
10982         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
10983
10984         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
10985         r_res = ST_ARG(1);
10986         push(r_res);
10987         push(1);
10988         r_res = (int)probeSymbolDefined("zero?",topLevel);
10989         if (r_res==0) goto __else482;
10990         if (! ((SymbolEntry*)r_res)->isDefined) goto __else482;
10991         r_res = (int)((SymbolEntry*)r_res)->sob;
10992         goto __endIf482;
10993 __else482:
10994         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
10995 __endIf482:
10996         if (IS_SOB_CLOSURE(r_res)) goto __app313;
10997         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
10998 __app313:
10999         push((int)SOB_CLOSURE_ENV(r_res));
11000         push((int)&&__ret416);
11001         goto *(SOB_CLOSURE_CODE(r_res));
11002 __ret416:
11003         sp = sp-2-stack[sp-2];
11004         if ((SchemeObject*)r_res==&sc_false) goto __else481;
11005
11006         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11007         r_res = ST_ARG(0);
11008         push(r_res);
11009         push(1);
11010         r_res = (int)probeSymbolDefined("car",topLevel);
11011         if (r_res==0) goto __else483;
11012         if (! ((SymbolEntry*)r_res)->isDefined) goto __else483;
11013         r_res = (int)((SymbolEntry*)r_res)->sob;
11014         goto __endIf483;
11015 __else483:
11016         fprintf(stderr,"Symbol car not defined"); exit(-1);
11017 __endIf483:
11018         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11019         push((int)SOB_CLOSURE_ENV(r_res));
11020         push(ST_RET());
11021         shiftActFrmDown();
11022         goto *(SOB_CLOSURE_CODE(r_res));
11023         sp = sp-2-stack[sp-2];
11024         goto __endIf481;
11025 __else481:
11026
11027
11028         r_res = (int)&__sc_number67;
11029         push(r_res);
11030         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11031         r_res = ST_ARG(1);
11032         push(r_res);
11033         push(2);
11034         r_res = (int)probeSymbolDefined("-",topLevel);
11035         if (r_res==0) goto __else484;
11036         if (! ((SymbolEntry*)r_res)->isDefined) goto __else484;
11037         r_res = (int)((SymbolEntry*)r_res)->sob;
11038         goto __endIf484;
11039 __else484:
11040         fprintf(stderr,"Symbol - not defined"); exit(-1);
11041 __endIf484:
11042         if (IS_SOB_CLOSURE(r_res)) goto __app314;
11043         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11044 __app314:
11045         push((int)SOB_CLOSURE_ENV(r_res));
11046         push((int)&&__ret417);
11047         goto *(SOB_CLOSURE_CODE(r_res));
11048 __ret417:
11049         sp = sp-2-stack[sp-2];
11050         push(r_res);
11051
11052         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11053         r_res = ST_ARG(0);
11054         push(r_res);
11055         push(1);
11056         r_res = (int)probeSymbolDefined("cdr",topLevel);
11057         if (r_res==0) goto __else485;
11058         if (! ((SymbolEntry*)r_res)->isDefined) goto __else485;
11059         r_res = (int)((SymbolEntry*)r_res)->sob;
11060         goto __endIf485;
11061 __else485:
11062         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
11063 __endIf485:
11064         if (IS_SOB_CLOSURE(r_res)) goto __app315;
11065         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11066 __app315:
11067         push((int)SOB_CLOSURE_ENV(r_res));
11068         push((int)&&__ret418);
11069         goto *(SOB_CLOSURE_CODE(r_res));
11070 __ret418:
11071         sp = sp-2-stack[sp-2];
11072         push(r_res);
11073         push(2);
11074         r_res = (int)probeSymbolDefined("list-ref",topLevel);
11075         if (r_res==0) goto __else486;
11076         if (! ((SymbolEntry*)r_res)->isDefined) goto __else486;
11077         r_res = (int)((SymbolEntry*)r_res)->sob;
11078         goto __endIf486;
11079 __else486:
11080         fprintf(stderr,"Symbol list-ref not defined"); exit(-1);
11081 __endIf486:
11082         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11083         push((int)SOB_CLOSURE_ENV(r_res));
11084         push(ST_RET());
11085         shiftActFrmDown();
11086         goto *(SOB_CLOSURE_CODE(r_res));
11087         sp = sp-2-stack[sp-2];
11088 __endIf481:
11089         fp = pop();
11090         RETURN();
11091 __skipBody122:
11092         r_res = (int)makeSchemeClosure((void*)r[0],&&__body122);
11093         r[0] = (int)getSymbol("list-ref",topLevel);
11094         ((SymbolEntry*)r[0])->isDefined = 1;
11095         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11096         r_res = (int)&sc_void;
11097 __ret415:
11098         /* set return address */
11099         ST_RET() = (int)&&__ret419;
11100
11101         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11102         goto __skipBody123;
11103 __body123:
11104         push(fp);
11105         fp = sp;
11106         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11107
11108         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11109         r_res = ST_ARG(1);
11110         push(r_res);
11111         push(1);
11112         r_res = (int)probeSymbolDefined("zero?",topLevel);
11113         if (r_res==0) goto __else488;
11114         if (! ((SymbolEntry*)r_res)->isDefined) goto __else488;
11115         r_res = (int)((SymbolEntry*)r_res)->sob;
11116         goto __endIf488;
11117 __else488:
11118         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
11119 __endIf488:
11120         if (IS_SOB_CLOSURE(r_res)) goto __app316;
11121         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11122 __app316:
11123         push((int)SOB_CLOSURE_ENV(r_res));
11124         push((int)&&__ret420);
11125         goto *(SOB_CLOSURE_CODE(r_res));
11126 __ret420:
11127         sp = sp-2-stack[sp-2];
11128         if ((SchemeObject*)r_res==&sc_false) goto __else487;
11129
11130         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
11131         r_res = ST_ARG(2);
11132         push(r_res);
11133         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11134         r_res = ST_ARG(0);
11135         push(r_res);
11136         push(2);
11137         r_res = (int)probeSymbolDefined("set-car!",topLevel);
11138         if (r_res==0) goto __else489;
11139         if (! ((SymbolEntry*)r_res)->isDefined) goto __else489;
11140         r_res = (int)((SymbolEntry*)r_res)->sob;
11141         goto __endIf489;
11142 __else489:
11143         fprintf(stderr,"Symbol set-car! not defined"); exit(-1);
11144 __endIf489:
11145         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11146         push((int)SOB_CLOSURE_ENV(r_res));
11147         push(ST_RET());
11148         shiftActFrmDown();
11149         goto *(SOB_CLOSURE_CODE(r_res));
11150         sp = sp-2-stack[sp-2];
11151         goto __endIf487;
11152 __else487:
11153
11154         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
11155         r_res = ST_ARG(2);
11156         push(r_res);
11157
11158         r_res = (int)&__sc_number68;
11159         push(r_res);
11160         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11161         r_res = ST_ARG(1);
11162         push(r_res);
11163         push(2);
11164         r_res = (int)probeSymbolDefined("-",topLevel);
11165         if (r_res==0) goto __else490;
11166         if (! ((SymbolEntry*)r_res)->isDefined) goto __else490;
11167         r_res = (int)((SymbolEntry*)r_res)->sob;
11168         goto __endIf490;
11169 __else490:
11170         fprintf(stderr,"Symbol - not defined"); exit(-1);
11171 __endIf490:
11172         if (IS_SOB_CLOSURE(r_res)) goto __app317;
11173         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11174 __app317:
11175         push((int)SOB_CLOSURE_ENV(r_res));
11176         push((int)&&__ret421);
11177         goto *(SOB_CLOSURE_CODE(r_res));
11178 __ret421:
11179         sp = sp-2-stack[sp-2];
11180         push(r_res);
11181
11182         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11183         r_res = ST_ARG(0);
11184         push(r_res);
11185         push(1);
11186         r_res = (int)probeSymbolDefined("cdr",topLevel);
11187         if (r_res==0) goto __else491;
11188         if (! ((SymbolEntry*)r_res)->isDefined) goto __else491;
11189         r_res = (int)((SymbolEntry*)r_res)->sob;
11190         goto __endIf491;
11191 __else491:
11192         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
11193 __endIf491:
11194         if (IS_SOB_CLOSURE(r_res)) goto __app318;
11195         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11196 __app318:
11197         push((int)SOB_CLOSURE_ENV(r_res));
11198         push((int)&&__ret422);
11199         goto *(SOB_CLOSURE_CODE(r_res));
11200 __ret422:
11201         sp = sp-2-stack[sp-2];
11202         push(r_res);
11203         push(3);
11204         r_res = (int)probeSymbolDefined("list-set!",topLevel);
11205         if (r_res==0) goto __else492;
11206         if (! ((SymbolEntry*)r_res)->isDefined) goto __else492;
11207         r_res = (int)((SymbolEntry*)r_res)->sob;
11208         goto __endIf492;
11209 __else492:
11210         fprintf(stderr,"Symbol list-set! not defined"); exit(-1);
11211 __endIf492:
11212         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11213         push((int)SOB_CLOSURE_ENV(r_res));
11214         push(ST_RET());
11215         shiftActFrmDown();
11216         goto *(SOB_CLOSURE_CODE(r_res));
11217         sp = sp-2-stack[sp-2];
11218 __endIf487:
11219         fp = pop();
11220         RETURN();
11221 __skipBody123:
11222         r_res = (int)makeSchemeClosure((void*)r[0],&&__body123);
11223         r[0] = (int)getSymbol("list-set!",topLevel);
11224         ((SymbolEntry*)r[0])->isDefined = 1;
11225         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11226         r_res = (int)&sc_void;
11227 __ret419:
11228         /* set return address */
11229         ST_RET() = (int)&&__ret423;
11230
11231         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11232         goto __skipBody124;
11233 __body124:
11234         push(fp);
11235         fp = sp;
11236         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11237
11238         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11239         r_res = ST_ARG(1);
11240         push(r_res);
11241         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11242         r_res = ST_ARG(0);
11243         push(r_res);
11244         push(2);
11245         r_res = (int)probeSymbolDefined(">",topLevel);
11246         if (r_res==0) goto __else494;
11247         if (! ((SymbolEntry*)r_res)->isDefined) goto __else494;
11248         r_res = (int)((SymbolEntry*)r_res)->sob;
11249         goto __endIf494;
11250 __else494:
11251         fprintf(stderr,"Symbol > not defined"); exit(-1);
11252 __endIf494:
11253         if (IS_SOB_CLOSURE(r_res)) goto __app320;
11254         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11255 __app320:
11256         push((int)SOB_CLOSURE_ENV(r_res));
11257         push((int)&&__ret425);
11258         goto *(SOB_CLOSURE_CODE(r_res));
11259 __ret425:
11260         sp = sp-2-stack[sp-2];
11261         if ((SchemeObject*)r_res==&sc_false) goto __else493;
11262         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11263         r_res = ST_ARG(0);
11264         goto __endIf493;
11265 __else493:
11266         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11267         r_res = ST_ARG(1);
11268 __endIf493:
11269         fp = pop();
11270         RETURN();
11271 __skipBody124:
11272         r_res = (int)makeSchemeClosure((void*)r[0],&&__body124);
11273         push(r_res);
11274         push(1);
11275         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11276         goto __skipBody125;
11277 __body125:
11278         push(fp);
11279         fp = sp;
11280         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11281         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11282         goto __skipBody126;
11283 __body126:
11284         push(fp);
11285         fp = sp;
11286         prepareStackForAbsOpt(2);
11287         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11288
11289         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11290         r_res = ST_ARG(1);
11291         push(r_res);
11292         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11293         r_res = ST_ARG(0);
11294         push(r_res);
11295         r_res = ((int**)ST_ENV())[0][0];
11296         push(r_res);
11297         push(3);
11298         r_res = (int)probeSymbolDefined("foldr",topLevel);
11299         if (r_res==0) goto __else495;
11300         if (! ((SymbolEntry*)r_res)->isDefined) goto __else495;
11301         r_res = (int)((SymbolEntry*)r_res)->sob;
11302         goto __endIf495;
11303 __else495:
11304         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
11305 __endIf495:
11306         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11307         push((int)SOB_CLOSURE_ENV(r_res));
11308         push(ST_RET());
11309         shiftActFrmDown();
11310         goto *(SOB_CLOSURE_CODE(r_res));
11311         sp = sp-2-stack[sp-2];
11312         fp = pop();
11313         RETURN();
11314 __skipBody126:
11315         r_res = (int)makeSchemeClosure((void*)r[0],&&__body126);
11316         fp = pop();
11317         RETURN();
11318 __skipBody125:
11319         r_res = (int)makeSchemeClosure((void*)r[0],&&__body125);
11320         if (IS_SOB_CLOSURE(r_res)) goto __app319;
11321         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11322 __app319:
11323         push((int)SOB_CLOSURE_ENV(r_res));
11324         push((int)&&__ret424);
11325         goto *(SOB_CLOSURE_CODE(r_res));
11326 __ret424:
11327         sp = sp-2-stack[sp-2];
11328         r[0] = (int)getSymbol("max",topLevel);
11329         ((SymbolEntry*)r[0])->isDefined = 1;
11330         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11331         r_res = (int)&sc_void;
11332 __ret423:
11333         /* set return address */
11334         ST_RET() = (int)&&__ret426;
11335
11336         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11337         goto __skipBody127;
11338 __body127:
11339         push(fp);
11340         fp = sp;
11341         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11342
11343         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11344         r_res = ST_ARG(1);
11345         push(r_res);
11346         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11347         r_res = ST_ARG(0);
11348         push(r_res);
11349         push(2);
11350         r_res = (int)probeSymbolDefined("<",topLevel);
11351         if (r_res==0) goto __else497;
11352         if (! ((SymbolEntry*)r_res)->isDefined) goto __else497;
11353         r_res = (int)((SymbolEntry*)r_res)->sob;
11354         goto __endIf497;
11355 __else497:
11356         fprintf(stderr,"Symbol < not defined"); exit(-1);
11357 __endIf497:
11358         if (IS_SOB_CLOSURE(r_res)) goto __app322;
11359         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11360 __app322:
11361         push((int)SOB_CLOSURE_ENV(r_res));
11362         push((int)&&__ret428);
11363         goto *(SOB_CLOSURE_CODE(r_res));
11364 __ret428:
11365         sp = sp-2-stack[sp-2];
11366         if ((SchemeObject*)r_res==&sc_false) goto __else496;
11367         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11368         r_res = ST_ARG(0);
11369         goto __endIf496;
11370 __else496:
11371         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11372         r_res = ST_ARG(1);
11373 __endIf496:
11374         fp = pop();
11375         RETURN();
11376 __skipBody127:
11377         r_res = (int)makeSchemeClosure((void*)r[0],&&__body127);
11378         push(r_res);
11379         push(1);
11380         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11381         goto __skipBody128;
11382 __body128:
11383         push(fp);
11384         fp = sp;
11385         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11386         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11387         goto __skipBody129;
11388 __body129:
11389         push(fp);
11390         fp = sp;
11391         prepareStackForAbsOpt(2);
11392         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11393
11394         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11395         r_res = ST_ARG(1);
11396         push(r_res);
11397         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11398         r_res = ST_ARG(0);
11399         push(r_res);
11400         r_res = ((int**)ST_ENV())[0][0];
11401         push(r_res);
11402         push(3);
11403         r_res = (int)probeSymbolDefined("foldr",topLevel);
11404         if (r_res==0) goto __else498;
11405         if (! ((SymbolEntry*)r_res)->isDefined) goto __else498;
11406         r_res = (int)((SymbolEntry*)r_res)->sob;
11407         goto __endIf498;
11408 __else498:
11409         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
11410 __endIf498:
11411         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11412         push((int)SOB_CLOSURE_ENV(r_res));
11413         push(ST_RET());
11414         shiftActFrmDown();
11415         goto *(SOB_CLOSURE_CODE(r_res));
11416         sp = sp-2-stack[sp-2];
11417         fp = pop();
11418         RETURN();
11419 __skipBody129:
11420         r_res = (int)makeSchemeClosure((void*)r[0],&&__body129);
11421         fp = pop();
11422         RETURN();
11423 __skipBody128:
11424         r_res = (int)makeSchemeClosure((void*)r[0],&&__body128);
11425         if (IS_SOB_CLOSURE(r_res)) goto __app321;
11426         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11427 __app321:
11428         push((int)SOB_CLOSURE_ENV(r_res));
11429         push((int)&&__ret427);
11430         goto *(SOB_CLOSURE_CODE(r_res));
11431 __ret427:
11432         sp = sp-2-stack[sp-2];
11433         r[0] = (int)getSymbol("min",topLevel);
11434         ((SymbolEntry*)r[0])->isDefined = 1;
11435         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11436         r_res = (int)&sc_void;
11437 __ret426:
11438         /* set return address */
11439         ST_RET() = (int)&&__ret429;
11440
11441         r_res = (int)&sc_false;
11442         push(r_res);
11443         push(1);
11444         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11445         goto __skipBody130;
11446 __body130:
11447         push(fp);
11448         fp = sp;
11449         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11450
11451         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11452         r_res = ST_ARG(0);
11453         push(r_res);
11454         push(1);
11455         r_res = (int)probeSymbolDefined("box",topLevel);
11456         if (r_res==0) goto __else499;
11457         if (! ((SymbolEntry*)r_res)->isDefined) goto __else499;
11458         r_res = (int)((SymbolEntry*)r_res)->sob;
11459         goto __endIf499;
11460 __else499:
11461         fprintf(stderr,"Symbol box not defined"); exit(-1);
11462 __endIf499:
11463         if (IS_SOB_CLOSURE(r_res)) goto __app324;
11464         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11465 __app324:
11466         push((int)SOB_CLOSURE_ENV(r_res));
11467         push((int)&&__ret431);
11468         goto *(SOB_CLOSURE_CODE(r_res));
11469 __ret431:
11470         sp = sp-2-stack[sp-2];
11471         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11472         ST_ARG(0) = r_res;
11473         r_res = (int)&sc_void;
11474
11475         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11476         goto __skipBody131;
11477 __body131:
11478         push(fp);
11479         fp = sp;
11480         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11481
11482         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11483         r_res = ST_ARG(1);
11484         push(r_res);
11485         push(1);
11486         r_res = (int)probeSymbolDefined("zero?",topLevel);
11487         if (r_res==0) goto __else501;
11488         if (! ((SymbolEntry*)r_res)->isDefined) goto __else501;
11489         r_res = (int)((SymbolEntry*)r_res)->sob;
11490         goto __endIf501;
11491 __else501:
11492         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
11493 __endIf501:
11494         if (IS_SOB_CLOSURE(r_res)) goto __app326;
11495         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11496 __app326:
11497         push((int)SOB_CLOSURE_ENV(r_res));
11498         push((int)&&__ret433);
11499         goto *(SOB_CLOSURE_CODE(r_res));
11500 __ret433:
11501         sp = sp-2-stack[sp-2];
11502         if ((SchemeObject*)r_res==&sc_false) goto __else500;
11503         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11504         r_res = ST_ARG(0);
11505         goto __endIf500;
11506 __else500:
11507
11508         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11509         r_res = ST_ARG(1);
11510         push(r_res);
11511         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11512         r_res = ST_ARG(0);
11513         push(r_res);
11514         push(2);
11515         r_res = (int)probeSymbolDefined("remainder",topLevel);
11516         if (r_res==0) goto __else502;
11517         if (! ((SymbolEntry*)r_res)->isDefined) goto __else502;
11518         r_res = (int)((SymbolEntry*)r_res)->sob;
11519         goto __endIf502;
11520 __else502:
11521         fprintf(stderr,"Symbol remainder not defined"); exit(-1);
11522 __endIf502:
11523         if (IS_SOB_CLOSURE(r_res)) goto __app327;
11524         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11525 __app327:
11526         push((int)SOB_CLOSURE_ENV(r_res));
11527         push((int)&&__ret434);
11528         goto *(SOB_CLOSURE_CODE(r_res));
11529 __ret434:
11530         sp = sp-2-stack[sp-2];
11531         push(r_res);
11532         push(1);
11533         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
11534         goto __skipBody132;
11535 __body132:
11536         push(fp);
11537         fp = sp;
11538         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11539
11540         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11541         r_res = ST_ARG(0);
11542         push(r_res);
11543         push(1);
11544         r_res = (int)probeSymbolDefined("zero?",topLevel);
11545         if (r_res==0) goto __else504;
11546         if (! ((SymbolEntry*)r_res)->isDefined) goto __else504;
11547         r_res = (int)((SymbolEntry*)r_res)->sob;
11548         goto __endIf504;
11549 __else504:
11550         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
11551 __endIf504:
11552         if (IS_SOB_CLOSURE(r_res)) goto __app328;
11553         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11554 __app328:
11555         push((int)SOB_CLOSURE_ENV(r_res));
11556         push((int)&&__ret435);
11557         goto *(SOB_CLOSURE_CODE(r_res));
11558 __ret435:
11559         sp = sp-2-stack[sp-2];
11560         if ((SchemeObject*)r_res==&sc_false) goto __else503;
11561         r_res = ((int**)ST_ENV())[0][1];
11562         goto __endIf503;
11563 __else503:
11564         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11565         r_res = ST_ARG(0);
11566         push(r_res);
11567         r_res = ((int**)ST_ENV())[0][1];
11568         push(r_res);
11569         push(2);
11570
11571         r_res = (int)&__sc_number69;
11572         push(r_res);
11573         r_res = ((int**)ST_ENV())[1][0];
11574         push(r_res);
11575         push(2);
11576         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
11577         if (r_res==0) goto __else505;
11578         if (! ((SymbolEntry*)r_res)->isDefined) goto __else505;
11579         r_res = (int)((SymbolEntry*)r_res)->sob;
11580         goto __endIf505;
11581 __else505:
11582         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
11583 __endIf505:
11584         if (IS_SOB_CLOSURE(r_res)) goto __app329;
11585         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11586 __app329:
11587         push((int)SOB_CLOSURE_ENV(r_res));
11588         push((int)&&__ret436);
11589         goto *(SOB_CLOSURE_CODE(r_res));
11590 __ret436:
11591         sp = sp-2-stack[sp-2];
11592         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11593         push((int)SOB_CLOSURE_ENV(r_res));
11594         push(ST_RET());
11595         shiftActFrmDown();
11596         goto *(SOB_CLOSURE_CODE(r_res));
11597         sp = sp-2-stack[sp-2];
11598 __endIf503:
11599         fp = pop();
11600         RETURN();
11601 __skipBody132:
11602         r_res = (int)makeSchemeClosure((void*)r[0],&&__body132);
11603         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11604         push((int)SOB_CLOSURE_ENV(r_res));
11605         push(ST_RET());
11606         shiftActFrmDown();
11607         goto *(SOB_CLOSURE_CODE(r_res));
11608         sp = sp-2-stack[sp-2];
11609 __endIf500:
11610         fp = pop();
11611         RETURN();
11612 __skipBody131:
11613         r_res = (int)makeSchemeClosure((void*)r[0],&&__body131);
11614         push(r_res);
11615         r_res = (int)&__sc_number70;
11616         push(r_res);
11617         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11618         r_res = ST_ARG(0);
11619         push(r_res);
11620         push(3);
11621         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
11622         if (r_res==0) goto __else506;
11623         if (! ((SymbolEntry*)r_res)->isDefined) goto __else506;
11624         r_res = (int)((SymbolEntry*)r_res)->sob;
11625         goto __endIf506;
11626 __else506:
11627         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
11628 __endIf506:
11629         if (IS_SOB_CLOSURE(r_res)) goto __app325;
11630         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11631 __app325:
11632         push((int)SOB_CLOSURE_ENV(r_res));
11633         push((int)&&__ret432);
11634         goto *(SOB_CLOSURE_CODE(r_res));
11635 __ret432:
11636         sp = sp-2-stack[sp-2];
11637         push(0);
11638         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11639         goto __skipBody133;
11640 __body133:
11641         push(fp);
11642         fp = sp;
11643         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11644         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
11645         goto __skipBody134;
11646 __body134:
11647         push(fp);
11648         fp = sp;
11649         prepareStackForAbsOpt(2);
11650         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11651
11652         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
11653         r_res = ST_ARG(1);
11654         push(r_res);
11655         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11656         r_res = ST_ARG(0);
11657         push(r_res);
11658
11659         r_res = (int)&__sc_number71;
11660         push(r_res);
11661         r_res = ((int**)ST_ENV())[1][0];
11662         push(r_res);
11663         push(2);
11664         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
11665         if (r_res==0) goto __else507;
11666         if (! ((SymbolEntry*)r_res)->isDefined) goto __else507;
11667         r_res = (int)((SymbolEntry*)r_res)->sob;
11668         goto __endIf507;
11669 __else507:
11670         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
11671 __endIf507:
11672         if (IS_SOB_CLOSURE(r_res)) goto __app330;
11673         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11674 __app330:
11675         push((int)SOB_CLOSURE_ENV(r_res));
11676         push((int)&&__ret437);
11677         goto *(SOB_CLOSURE_CODE(r_res));
11678 __ret437:
11679         sp = sp-2-stack[sp-2];
11680         push(r_res);
11681         push(3);
11682         r_res = (int)probeSymbolDefined("foldr",topLevel);
11683         if (r_res==0) goto __else508;
11684         if (! ((SymbolEntry*)r_res)->isDefined) goto __else508;
11685         r_res = (int)((SymbolEntry*)r_res)->sob;
11686         goto __endIf508;
11687 __else508:
11688         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
11689 __endIf508:
11690         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11691         push((int)SOB_CLOSURE_ENV(r_res));
11692         push(ST_RET());
11693         shiftActFrmDown();
11694         goto *(SOB_CLOSURE_CODE(r_res));
11695         sp = sp-2-stack[sp-2];
11696         fp = pop();
11697         RETURN();
11698 __skipBody134:
11699         r_res = (int)makeSchemeClosure((void*)r[0],&&__body134);
11700         fp = pop();
11701         RETURN();
11702 __skipBody133:
11703         r_res = (int)makeSchemeClosure((void*)r[0],&&__body133);
11704         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11705         push((int)SOB_CLOSURE_ENV(r_res));
11706         push(ST_RET());
11707         shiftActFrmDown();
11708         goto *(SOB_CLOSURE_CODE(r_res));
11709         sp = sp-2-stack[sp-2];
11710         fp = pop();
11711         RETURN();
11712 __skipBody130:
11713         r_res = (int)makeSchemeClosure((void*)r[0],&&__body130);
11714         if (IS_SOB_CLOSURE(r_res)) goto __app323;
11715         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11716 __app323:
11717         push((int)SOB_CLOSURE_ENV(r_res));
11718         push((int)&&__ret430);
11719         goto *(SOB_CLOSURE_CODE(r_res));
11720 __ret430:
11721         sp = sp-2-stack[sp-2];
11722         r[0] = (int)getSymbol("gcd",topLevel);
11723         ((SymbolEntry*)r[0])->isDefined = 1;
11724         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11725         r_res = (int)&sc_void;
11726 __ret429:
11727         /* set return address */
11728         ST_RET() = (int)&&__ret438;
11729
11730         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11731         goto __skipBody135;
11732 __body135:
11733         push(fp);
11734         fp = sp;
11735         prepareStackForAbsOpt(1);
11736         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11737
11738
11739         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11740         r_res = ST_ARG(0);
11741         push(r_res);
11742         r_res = (int)probeSymbolDefined("gcd",topLevel);
11743         if (r_res==0) goto __else509;
11744         if (! ((SymbolEntry*)r_res)->isDefined) goto __else509;
11745         r_res = (int)((SymbolEntry*)r_res)->sob;
11746         goto __endIf509;
11747 __else509:
11748         fprintf(stderr,"Symbol gcd not defined"); exit(-1);
11749 __endIf509:
11750         push(r_res);
11751         push(2);
11752         r_res = (int)probeSymbolDefined("apply",topLevel);
11753         if (r_res==0) goto __else510;
11754         if (! ((SymbolEntry*)r_res)->isDefined) goto __else510;
11755         r_res = (int)((SymbolEntry*)r_res)->sob;
11756         goto __endIf510;
11757 __else510:
11758         fprintf(stderr,"Symbol apply not defined"); exit(-1);
11759 __endIf510:
11760         if (IS_SOB_CLOSURE(r_res)) goto __app331;
11761         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11762 __app331:
11763         push((int)SOB_CLOSURE_ENV(r_res));
11764         push((int)&&__ret439);
11765         goto *(SOB_CLOSURE_CODE(r_res));
11766 __ret439:
11767         sp = sp-2-stack[sp-2];
11768         push(r_res);
11769
11770         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11771         r_res = ST_ARG(0);
11772         push(r_res);
11773         r_res = (int)probeSymbolDefined("*",topLevel);
11774         if (r_res==0) goto __else511;
11775         if (! ((SymbolEntry*)r_res)->isDefined) goto __else511;
11776         r_res = (int)((SymbolEntry*)r_res)->sob;
11777         goto __endIf511;
11778 __else511:
11779         fprintf(stderr,"Symbol * not defined"); exit(-1);
11780 __endIf511:
11781         push(r_res);
11782         push(2);
11783         r_res = (int)probeSymbolDefined("apply",topLevel);
11784         if (r_res==0) goto __else512;
11785         if (! ((SymbolEntry*)r_res)->isDefined) goto __else512;
11786         r_res = (int)((SymbolEntry*)r_res)->sob;
11787         goto __endIf512;
11788 __else512:
11789         fprintf(stderr,"Symbol apply not defined"); exit(-1);
11790 __endIf512:
11791         if (IS_SOB_CLOSURE(r_res)) goto __app332;
11792         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11793 __app332:
11794         push((int)SOB_CLOSURE_ENV(r_res));
11795         push((int)&&__ret440);
11796         goto *(SOB_CLOSURE_CODE(r_res));
11797 __ret440:
11798         sp = sp-2-stack[sp-2];
11799         push(r_res);
11800         push(2);
11801         r_res = (int)probeSymbolDefined("/",topLevel);
11802         if (r_res==0) goto __else513;
11803         if (! ((SymbolEntry*)r_res)->isDefined) goto __else513;
11804         r_res = (int)((SymbolEntry*)r_res)->sob;
11805         goto __endIf513;
11806 __else513:
11807         fprintf(stderr,"Symbol / not defined"); exit(-1);
11808 __endIf513:
11809         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11810         push((int)SOB_CLOSURE_ENV(r_res));
11811         push(ST_RET());
11812         shiftActFrmDown();
11813         goto *(SOB_CLOSURE_CODE(r_res));
11814         sp = sp-2-stack[sp-2];
11815         fp = pop();
11816         RETURN();
11817 __skipBody135:
11818         r_res = (int)makeSchemeClosure((void*)r[0],&&__body135);
11819         r[0] = (int)getSymbol("lcm",topLevel);
11820         ((SymbolEntry*)r[0])->isDefined = 1;
11821         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11822         r_res = (int)&sc_void;
11823 __ret438:
11824         /* set return address */
11825         ST_RET() = (int)&&__ret441;
11826
11827         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11828         goto __skipBody136;
11829 __body136:
11830         push(fp);
11831         fp = sp;
11832         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11833
11834         r_res = (int)&__sc_number72;
11835         push(r_res);
11836         push(1);
11837         r_res = (int)probeSymbolDefined("make-vector",topLevel);
11838         if (r_res==0) goto __else514;
11839         if (! ((SymbolEntry*)r_res)->isDefined) goto __else514;
11840         r_res = (int)((SymbolEntry*)r_res)->sob;
11841         goto __endIf514;
11842 __else514:
11843         fprintf(stderr,"Symbol make-vector not defined"); exit(-1);
11844 __endIf514:
11845         if (IS_SOB_CLOSURE(r_res)) goto __app333;
11846         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11847 __app333:
11848         push((int)SOB_CLOSURE_ENV(r_res));
11849         push((int)&&__ret442);
11850         goto *(SOB_CLOSURE_CODE(r_res));
11851 __ret442:
11852         sp = sp-2-stack[sp-2];
11853         push(r_res);
11854         push(1);
11855         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11856         goto __skipBody137;
11857 __body137:
11858         push(fp);
11859         fp = sp;
11860         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11861
11862         r_res = ((int**)ST_ENV())[0][0];
11863         push(r_res);
11864         r_res = (int)&__sc_number73;
11865         push(r_res);
11866         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11867         r_res = ST_ARG(0);
11868         push(r_res);
11869         push(3);
11870         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
11871         if (r_res==0) goto __else515;
11872         if (! ((SymbolEntry*)r_res)->isDefined) goto __else515;
11873         r_res = (int)((SymbolEntry*)r_res)->sob;
11874         goto __endIf515;
11875 __else515:
11876         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
11877 __endIf515:
11878         if (IS_SOB_CLOSURE(r_res)) goto __app334;
11879         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11880 __app334:
11881         push((int)SOB_CLOSURE_ENV(r_res));
11882         push((int)&&__ret443);
11883         goto *(SOB_CLOSURE_CODE(r_res));
11884 __ret443:
11885         sp = sp-2-stack[sp-2];
11886         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11887         r_res = ST_ARG(0);
11888         fp = pop();
11889         RETURN();
11890 __skipBody137:
11891         r_res = (int)makeSchemeClosure((void*)r[0],&&__body137);
11892         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11893         push((int)SOB_CLOSURE_ENV(r_res));
11894         push(ST_RET());
11895         shiftActFrmDown();
11896         goto *(SOB_CLOSURE_CODE(r_res));
11897         sp = sp-2-stack[sp-2];
11898         fp = pop();
11899         RETURN();
11900 __skipBody136:
11901         r_res = (int)makeSchemeClosure((void*)r[0],&&__body136);
11902         r[0] = (int)getSymbol("box",topLevel);
11903         ((SymbolEntry*)r[0])->isDefined = 1;
11904         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
11905         r_res = (int)&sc_void;
11906 __ret441:
11907         /* set return address */
11908         ST_RET() = (int)&&__ret444;
11909
11910         r[0] = (int)extendEnviroment( (int**)NULL, 0);
11911         goto __skipBody138;
11912 __body138:
11913         push(fp);
11914         fp = sp;
11915         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11916         r_res = (int)&sc_false;
11917         push(r_res);
11918         push(1);
11919         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
11920         goto __skipBody139;
11921 __body139:
11922         push(fp);
11923         fp = sp;
11924         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11925
11926         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11927         r_res = ST_ARG(0);
11928         push(r_res);
11929         push(1);
11930         r_res = (int)probeSymbolDefined("box",topLevel);
11931         if (r_res==0) goto __else516;
11932         if (! ((SymbolEntry*)r_res)->isDefined) goto __else516;
11933         r_res = (int)((SymbolEntry*)r_res)->sob;
11934         goto __endIf516;
11935 __else516:
11936         fprintf(stderr,"Symbol box not defined"); exit(-1);
11937 __endIf516:
11938         if (IS_SOB_CLOSURE(r_res)) goto __app335;
11939         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11940 __app335:
11941         push((int)SOB_CLOSURE_ENV(r_res));
11942         push((int)&&__ret445);
11943         goto *(SOB_CLOSURE_CODE(r_res));
11944 __ret445:
11945         sp = sp-2-stack[sp-2];
11946         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11947         ST_ARG(0) = r_res;
11948         r_res = (int)&sc_void;
11949
11950         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
11951         goto __skipBody140;
11952 __body140:
11953         push(fp);
11954         fp = sp;
11955         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
11956
11957         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11958         r_res = ST_ARG(0);
11959         push(r_res);
11960         push(1);
11961         r_res = (int)probeSymbolDefined("null?",topLevel);
11962         if (r_res==0) goto __else518;
11963         if (! ((SymbolEntry*)r_res)->isDefined) goto __else518;
11964         r_res = (int)((SymbolEntry*)r_res)->sob;
11965         goto __endIf518;
11966 __else518:
11967         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
11968 __endIf518:
11969         if (IS_SOB_CLOSURE(r_res)) goto __app337;
11970         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11971 __app337:
11972         push((int)SOB_CLOSURE_ENV(r_res));
11973         push((int)&&__ret447);
11974         goto *(SOB_CLOSURE_CODE(r_res));
11975 __ret447:
11976         sp = sp-2-stack[sp-2];
11977         if ((SchemeObject*)r_res==&sc_false) goto __else517;
11978         r_res = ((int**)ST_ENV())[1][1];
11979         goto __endIf517;
11980 __else517:
11981
11982
11983         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
11984         r_res = ST_ARG(0);
11985         push(r_res);
11986         push(1);
11987         r_res = (int)probeSymbolDefined("cdr",topLevel);
11988         if (r_res==0) goto __else519;
11989         if (! ((SymbolEntry*)r_res)->isDefined) goto __else519;
11990         r_res = (int)((SymbolEntry*)r_res)->sob;
11991         goto __endIf519;
11992 __else519:
11993         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
11994 __endIf519:
11995         if (IS_SOB_CLOSURE(r_res)) goto __app339;
11996         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
11997 __app339:
11998         push((int)SOB_CLOSURE_ENV(r_res));
11999         push((int)&&__ret449);
12000         goto *(SOB_CLOSURE_CODE(r_res));
12001 __ret449:
12002         sp = sp-2-stack[sp-2];
12003         push(r_res);
12004         push(1);
12005
12006         r_res = (int)&__sc_number74;
12007         push(r_res);
12008         r_res = ((int**)ST_ENV())[0][0];
12009         push(r_res);
12010         push(2);
12011         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
12012         if (r_res==0) goto __else520;
12013         if (! ((SymbolEntry*)r_res)->isDefined) goto __else520;
12014         r_res = (int)((SymbolEntry*)r_res)->sob;
12015         goto __endIf520;
12016 __else520:
12017         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
12018 __endIf520:
12019         if (IS_SOB_CLOSURE(r_res)) goto __app340;
12020         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12021 __app340:
12022         push((int)SOB_CLOSURE_ENV(r_res));
12023         push((int)&&__ret450);
12024         goto *(SOB_CLOSURE_CODE(r_res));
12025 __ret450:
12026         sp = sp-2-stack[sp-2];
12027         if (IS_SOB_CLOSURE(r_res)) goto __app338;
12028         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12029 __app338:
12030         push((int)SOB_CLOSURE_ENV(r_res));
12031         push((int)&&__ret448);
12032         goto *(SOB_CLOSURE_CODE(r_res));
12033 __ret448:
12034         sp = sp-2-stack[sp-2];
12035         push(r_res);
12036
12037         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12038         r_res = ST_ARG(0);
12039         push(r_res);
12040         push(1);
12041         r_res = (int)probeSymbolDefined("car",topLevel);
12042         if (r_res==0) goto __else521;
12043         if (! ((SymbolEntry*)r_res)->isDefined) goto __else521;
12044         r_res = (int)((SymbolEntry*)r_res)->sob;
12045         goto __endIf521;
12046 __else521:
12047         fprintf(stderr,"Symbol car not defined"); exit(-1);
12048 __endIf521:
12049         if (IS_SOB_CLOSURE(r_res)) goto __app341;
12050         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12051 __app341:
12052         push((int)SOB_CLOSURE_ENV(r_res));
12053         push((int)&&__ret451);
12054         goto *(SOB_CLOSURE_CODE(r_res));
12055 __ret451:
12056         sp = sp-2-stack[sp-2];
12057         push(r_res);
12058         push(2);
12059         r_res = ((int**)ST_ENV())[1][0];
12060         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12061         push((int)SOB_CLOSURE_ENV(r_res));
12062         push(ST_RET());
12063         shiftActFrmDown();
12064         goto *(SOB_CLOSURE_CODE(r_res));
12065         sp = sp-2-stack[sp-2];
12066 __endIf517:
12067         fp = pop();
12068         RETURN();
12069 __skipBody140:
12070         r_res = (int)makeSchemeClosure((void*)r[0],&&__body140);
12071         push(r_res);
12072         r_res = (int)&__sc_number75;
12073         push(r_res);
12074         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12075         r_res = ST_ARG(0);
12076         push(r_res);
12077         push(3);
12078         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
12079         if (r_res==0) goto __else522;
12080         if (! ((SymbolEntry*)r_res)->isDefined) goto __else522;
12081         r_res = (int)((SymbolEntry*)r_res)->sob;
12082         goto __endIf522;
12083 __else522:
12084         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
12085 __endIf522:
12086         if (IS_SOB_CLOSURE(r_res)) goto __app336;
12087         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12088 __app336:
12089         push((int)SOB_CLOSURE_ENV(r_res));
12090         push((int)&&__ret446);
12091         goto *(SOB_CLOSURE_CODE(r_res));
12092 __ret446:
12093         sp = sp-2-stack[sp-2];
12094         push(0);
12095         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
12096         goto __skipBody141;
12097 __body141:
12098         push(fp);
12099         fp = sp;
12100         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12101         r_res = ((int**)ST_ENV())[1][2];
12102         push(r_res);
12103         push(1);
12104
12105         r_res = (int)&__sc_number76;
12106         push(r_res);
12107         r_res = ((int**)ST_ENV())[0][0];
12108         push(r_res);
12109         push(2);
12110         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
12111         if (r_res==0) goto __else523;
12112         if (! ((SymbolEntry*)r_res)->isDefined) goto __else523;
12113         r_res = (int)((SymbolEntry*)r_res)->sob;
12114         goto __endIf523;
12115 __else523:
12116         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
12117 __endIf523:
12118         if (IS_SOB_CLOSURE(r_res)) goto __app342;
12119         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12120 __app342:
12121         push((int)SOB_CLOSURE_ENV(r_res));
12122         push((int)&&__ret452);
12123         goto *(SOB_CLOSURE_CODE(r_res));
12124 __ret452:
12125         sp = sp-2-stack[sp-2];
12126         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12127         push((int)SOB_CLOSURE_ENV(r_res));
12128         push(ST_RET());
12129         shiftActFrmDown();
12130         goto *(SOB_CLOSURE_CODE(r_res));
12131         sp = sp-2-stack[sp-2];
12132         fp = pop();
12133         RETURN();
12134 __skipBody141:
12135         r_res = (int)makeSchemeClosure((void*)r[0],&&__body141);
12136         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12137         push((int)SOB_CLOSURE_ENV(r_res));
12138         push(ST_RET());
12139         shiftActFrmDown();
12140         goto *(SOB_CLOSURE_CODE(r_res));
12141         sp = sp-2-stack[sp-2];
12142         fp = pop();
12143         RETURN();
12144 __skipBody139:
12145         r_res = (int)makeSchemeClosure((void*)r[0],&&__body139);
12146         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12147         push((int)SOB_CLOSURE_ENV(r_res));
12148         push(ST_RET());
12149         shiftActFrmDown();
12150         goto *(SOB_CLOSURE_CODE(r_res));
12151         sp = sp-2-stack[sp-2];
12152         fp = pop();
12153         RETURN();
12154 __skipBody138:
12155         r_res = (int)makeSchemeClosure((void*)r[0],&&__body138);
12156         r[0] = (int)getSymbol("foldr",topLevel);
12157         ((SymbolEntry*)r[0])->isDefined = 1;
12158         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12159         r_res = (int)&sc_void;
12160 __ret444:
12161         /* set return address */
12162         ST_RET() = (int)&&__ret453;
12163
12164         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12165         goto __skipBody142;
12166 __body142:
12167         push(fp);
12168         fp = sp;
12169         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12170
12171         r_res = (int)&__sc_number77;
12172         push(r_res);
12173         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12174         r_res = ST_ARG(0);
12175         push(r_res);
12176         push(2);
12177         r_res = (int)probeSymbolDefined("binary-add",topLevel);
12178         if (r_res==0) goto __else524;
12179         if (! ((SymbolEntry*)r_res)->isDefined) goto __else524;
12180         r_res = (int)((SymbolEntry*)r_res)->sob;
12181         goto __endIf524;
12182 __else524:
12183         fprintf(stderr,"Symbol binary-add not defined"); exit(-1);
12184 __endIf524:
12185         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12186         push((int)SOB_CLOSURE_ENV(r_res));
12187         push(ST_RET());
12188         shiftActFrmDown();
12189         goto *(SOB_CLOSURE_CODE(r_res));
12190         sp = sp-2-stack[sp-2];
12191         fp = pop();
12192         RETURN();
12193 __skipBody142:
12194         r_res = (int)makeSchemeClosure((void*)r[0],&&__body142);
12195         r[0] = (int)getSymbol("add1",topLevel);
12196         ((SymbolEntry*)r[0])->isDefined = 1;
12197         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12198         r_res = (int)&sc_void;
12199 __ret453:
12200         /* set return address */
12201         ST_RET() = (int)&&__ret454;
12202
12203         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12204         goto __skipBody143;
12205 __body143:
12206         push(fp);
12207         fp = sp;
12208         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12209
12210         r_res = (int)&__sc_number78;
12211         push(r_res);
12212         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12213         r_res = ST_ARG(0);
12214         push(r_res);
12215         push(2);
12216         r_res = (int)probeSymbolDefined("binary-sub",topLevel);
12217         if (r_res==0) goto __else525;
12218         if (! ((SymbolEntry*)r_res)->isDefined) goto __else525;
12219         r_res = (int)((SymbolEntry*)r_res)->sob;
12220         goto __endIf525;
12221 __else525:
12222         fprintf(stderr,"Symbol binary-sub not defined"); exit(-1);
12223 __endIf525:
12224         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12225         push((int)SOB_CLOSURE_ENV(r_res));
12226         push(ST_RET());
12227         shiftActFrmDown();
12228         goto *(SOB_CLOSURE_CODE(r_res));
12229         sp = sp-2-stack[sp-2];
12230         fp = pop();
12231         RETURN();
12232 __skipBody143:
12233         r_res = (int)makeSchemeClosure((void*)r[0],&&__body143);
12234         r[0] = (int)getSymbol("sub1",topLevel);
12235         ((SymbolEntry*)r[0])->isDefined = 1;
12236         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12237         r_res = (int)&sc_void;
12238 __ret454:
12239         /* set return address */
12240         ST_RET() = (int)&&__ret455;
12241
12242         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12243         goto __skipBody144;
12244 __body144:
12245         push(fp);
12246         fp = sp;
12247         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12248         r_res = (int)&sc_false;
12249         push(r_res);
12250         push(1);
12251         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
12252         goto __skipBody145;
12253 __body145:
12254         push(fp);
12255         fp = sp;
12256         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12257
12258         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12259         r_res = ST_ARG(0);
12260         push(r_res);
12261         push(1);
12262         r_res = (int)probeSymbolDefined("box",topLevel);
12263         if (r_res==0) goto __else526;
12264         if (! ((SymbolEntry*)r_res)->isDefined) goto __else526;
12265         r_res = (int)((SymbolEntry*)r_res)->sob;
12266         goto __endIf526;
12267 __else526:
12268         fprintf(stderr,"Symbol box not defined"); exit(-1);
12269 __endIf526:
12270         if (IS_SOB_CLOSURE(r_res)) goto __app343;
12271         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12272 __app343:
12273         push((int)SOB_CLOSURE_ENV(r_res));
12274         push((int)&&__ret456);
12275         goto *(SOB_CLOSURE_CODE(r_res));
12276 __ret456:
12277         sp = sp-2-stack[sp-2];
12278         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12279         ST_ARG(0) = r_res;
12280         r_res = (int)&sc_void;
12281
12282         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
12283         goto __skipBody146;
12284 __body146:
12285         push(fp);
12286         fp = sp;
12287         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12288
12289         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12290         r_res = ST_ARG(1);
12291         push(r_res);
12292         push(1);
12293         r_res = (int)probeSymbolDefined("null?",topLevel);
12294         if (r_res==0) goto __else527;
12295         if (! ((SymbolEntry*)r_res)->isDefined) goto __else527;
12296         r_res = (int)((SymbolEntry*)r_res)->sob;
12297         goto __endIf527;
12298 __else527:
12299         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
12300 __endIf527:
12301         if (IS_SOB_CLOSURE(r_res)) goto __app345;
12302         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12303 __app345:
12304         push((int)SOB_CLOSURE_ENV(r_res));
12305         push((int)&&__ret458);
12306         goto *(SOB_CLOSURE_CODE(r_res));
12307 __ret458:
12308         sp = sp-2-stack[sp-2];
12309         if ((SchemeObject*)r_res!=&sc_false) goto __endOr8;
12310
12311
12312         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12313         r_res = ST_ARG(1);
12314         push(r_res);
12315         push(1);
12316         r_res = (int)probeSymbolDefined("car",topLevel);
12317         if (r_res==0) goto __else529;
12318         if (! ((SymbolEntry*)r_res)->isDefined) goto __else529;
12319         r_res = (int)((SymbolEntry*)r_res)->sob;
12320         goto __endIf529;
12321 __else529:
12322         fprintf(stderr,"Symbol car not defined"); exit(-1);
12323 __endIf529:
12324         if (IS_SOB_CLOSURE(r_res)) goto __app347;
12325         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12326 __app347:
12327         push((int)SOB_CLOSURE_ENV(r_res));
12328         push((int)&&__ret460);
12329         goto *(SOB_CLOSURE_CODE(r_res));
12330 __ret460:
12331         sp = sp-2-stack[sp-2];
12332         push(r_res);
12333         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12334         r_res = ST_ARG(0);
12335         push(r_res);
12336         push(2);
12337         r_res = ((int**)ST_ENV())[1][0];
12338         if (IS_SOB_CLOSURE(r_res)) goto __app346;
12339         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12340 __app346:
12341         push((int)SOB_CLOSURE_ENV(r_res));
12342         push((int)&&__ret459);
12343         goto *(SOB_CLOSURE_CODE(r_res));
12344 __ret459:
12345         sp = sp-2-stack[sp-2];
12346         if ((SchemeObject*)r_res==&sc_false) goto __else528;
12347
12348         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12349         r_res = ST_ARG(1);
12350         push(r_res);
12351         push(1);
12352         r_res = (int)probeSymbolDefined("cdr",topLevel);
12353         if (r_res==0) goto __else530;
12354         if (! ((SymbolEntry*)r_res)->isDefined) goto __else530;
12355         r_res = (int)((SymbolEntry*)r_res)->sob;
12356         goto __endIf530;
12357 __else530:
12358         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
12359 __endIf530:
12360         if (IS_SOB_CLOSURE(r_res)) goto __app348;
12361         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12362 __app348:
12363         push((int)SOB_CLOSURE_ENV(r_res));
12364         push((int)&&__ret461);
12365         goto *(SOB_CLOSURE_CODE(r_res));
12366 __ret461:
12367         sp = sp-2-stack[sp-2];
12368         push(r_res);
12369
12370         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12371         r_res = ST_ARG(1);
12372         push(r_res);
12373         push(1);
12374         r_res = (int)probeSymbolDefined("car",topLevel);
12375         if (r_res==0) goto __else531;
12376         if (! ((SymbolEntry*)r_res)->isDefined) goto __else531;
12377         r_res = (int)((SymbolEntry*)r_res)->sob;
12378         goto __endIf531;
12379 __else531:
12380         fprintf(stderr,"Symbol car not defined"); exit(-1);
12381 __endIf531:
12382         if (IS_SOB_CLOSURE(r_res)) goto __app349;
12383         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12384 __app349:
12385         push((int)SOB_CLOSURE_ENV(r_res));
12386         push((int)&&__ret462);
12387         goto *(SOB_CLOSURE_CODE(r_res));
12388 __ret462:
12389         sp = sp-2-stack[sp-2];
12390         push(r_res);
12391         push(2);
12392
12393         r_res = (int)&__sc_number79;
12394         push(r_res);
12395         r_res = ((int**)ST_ENV())[0][0];
12396         push(r_res);
12397         push(2);
12398         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
12399         if (r_res==0) goto __else532;
12400         if (! ((SymbolEntry*)r_res)->isDefined) goto __else532;
12401         r_res = (int)((SymbolEntry*)r_res)->sob;
12402         goto __endIf532;
12403 __else532:
12404         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
12405 __endIf532:
12406         if (IS_SOB_CLOSURE(r_res)) goto __app350;
12407         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12408 __app350:
12409         push((int)SOB_CLOSURE_ENV(r_res));
12410         push((int)&&__ret463);
12411         goto *(SOB_CLOSURE_CODE(r_res));
12412 __ret463:
12413         sp = sp-2-stack[sp-2];
12414         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12415         push((int)SOB_CLOSURE_ENV(r_res));
12416         push(ST_RET());
12417         shiftActFrmDown();
12418         goto *(SOB_CLOSURE_CODE(r_res));
12419         sp = sp-2-stack[sp-2];
12420         goto __endIf528;
12421 __else528:
12422         r_res = (int)&sc_false;
12423 __endIf528:
12424         if ((SchemeObject*)r_res!=&sc_false) goto __endOr8;
12425 __endOr8:
12426         fp = pop();
12427         RETURN();
12428 __skipBody146:
12429         r_res = (int)makeSchemeClosure((void*)r[0],&&__body146);
12430         push(r_res);
12431         r_res = (int)&__sc_number80;
12432         push(r_res);
12433         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12434         r_res = ST_ARG(0);
12435         push(r_res);
12436         push(3);
12437         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
12438         if (r_res==0) goto __else533;
12439         if (! ((SymbolEntry*)r_res)->isDefined) goto __else533;
12440         r_res = (int)((SymbolEntry*)r_res)->sob;
12441         goto __endIf533;
12442 __else533:
12443         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
12444 __endIf533:
12445         if (IS_SOB_CLOSURE(r_res)) goto __app344;
12446         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12447 __app344:
12448         push((int)SOB_CLOSURE_ENV(r_res));
12449         push((int)&&__ret457);
12450         goto *(SOB_CLOSURE_CODE(r_res));
12451 __ret457:
12452         sp = sp-2-stack[sp-2];
12453         push(0);
12454         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
12455         goto __skipBody147;
12456 __body147:
12457         push(fp);
12458         fp = sp;
12459         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12460         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
12461         goto __skipBody148;
12462 __body148:
12463         push(fp);
12464         fp = sp;
12465         prepareStackForAbsOpt(2);
12466         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12467         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12468         r_res = ST_ARG(1);
12469         push(r_res);
12470         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12471         r_res = ST_ARG(0);
12472         push(r_res);
12473         push(2);
12474
12475         r_res = (int)&__sc_number81;
12476         push(r_res);
12477         r_res = ((int**)ST_ENV())[1][0];
12478         push(r_res);
12479         push(2);
12480         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
12481         if (r_res==0) goto __else534;
12482         if (! ((SymbolEntry*)r_res)->isDefined) goto __else534;
12483         r_res = (int)((SymbolEntry*)r_res)->sob;
12484         goto __endIf534;
12485 __else534:
12486         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
12487 __endIf534:
12488         if (IS_SOB_CLOSURE(r_res)) goto __app351;
12489         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12490 __app351:
12491         push((int)SOB_CLOSURE_ENV(r_res));
12492         push((int)&&__ret464);
12493         goto *(SOB_CLOSURE_CODE(r_res));
12494 __ret464:
12495         sp = sp-2-stack[sp-2];
12496         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12497         push((int)SOB_CLOSURE_ENV(r_res));
12498         push(ST_RET());
12499         shiftActFrmDown();
12500         goto *(SOB_CLOSURE_CODE(r_res));
12501         sp = sp-2-stack[sp-2];
12502         fp = pop();
12503         RETURN();
12504 __skipBody148:
12505         r_res = (int)makeSchemeClosure((void*)r[0],&&__body148);
12506         fp = pop();
12507         RETURN();
12508 __skipBody147:
12509         r_res = (int)makeSchemeClosure((void*)r[0],&&__body147);
12510         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12511         push((int)SOB_CLOSURE_ENV(r_res));
12512         push(ST_RET());
12513         shiftActFrmDown();
12514         goto *(SOB_CLOSURE_CODE(r_res));
12515         sp = sp-2-stack[sp-2];
12516         fp = pop();
12517         RETURN();
12518 __skipBody145:
12519         r_res = (int)makeSchemeClosure((void*)r[0],&&__body145);
12520         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12521         push((int)SOB_CLOSURE_ENV(r_res));
12522         push(ST_RET());
12523         shiftActFrmDown();
12524         goto *(SOB_CLOSURE_CODE(r_res));
12525         sp = sp-2-stack[sp-2];
12526         fp = pop();
12527         RETURN();
12528 __skipBody144:
12529         r_res = (int)makeSchemeClosure((void*)r[0],&&__body144);
12530         r[0] = (int)getSymbol("order",topLevel);
12531         ((SymbolEntry*)r[0])->isDefined = 1;
12532         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12533         r_res = (int)&sc_void;
12534 __ret455:
12535         /* set return address */
12536         ST_RET() = (int)&&__ret465;
12537
12538
12539         r_res = (int)probeSymbolDefined("binary<?",topLevel);
12540         if (r_res==0) goto __else535;
12541         if (! ((SymbolEntry*)r_res)->isDefined) goto __else535;
12542         r_res = (int)((SymbolEntry*)r_res)->sob;
12543         goto __endIf535;
12544 __else535:
12545         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
12546 __endIf535:
12547         push(r_res);
12548         push(1);
12549         r_res = (int)probeSymbolDefined("order",topLevel);
12550         if (r_res==0) goto __else536;
12551         if (! ((SymbolEntry*)r_res)->isDefined) goto __else536;
12552         r_res = (int)((SymbolEntry*)r_res)->sob;
12553         goto __endIf536;
12554 __else536:
12555         fprintf(stderr,"Symbol order not defined"); exit(-1);
12556 __endIf536:
12557         if (IS_SOB_CLOSURE(r_res)) goto __app352;
12558         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12559 __app352:
12560         push((int)SOB_CLOSURE_ENV(r_res));
12561         push((int)&&__ret466);
12562         goto *(SOB_CLOSURE_CODE(r_res));
12563 __ret466:
12564         sp = sp-2-stack[sp-2];
12565         r[0] = (int)getSymbol("<",topLevel);
12566         ((SymbolEntry*)r[0])->isDefined = 1;
12567         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12568         r_res = (int)&sc_void;
12569 __ret465:
12570         /* set return address */
12571         ST_RET() = (int)&&__ret467;
12572
12573         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12574         goto __skipBody149;
12575 __body149:
12576         push(fp);
12577         fp = sp;
12578         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12579
12580         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12581         r_res = ST_ARG(1);
12582         push(r_res);
12583         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12584         r_res = ST_ARG(0);
12585         push(r_res);
12586         push(2);
12587         r_res = (int)probeSymbolDefined("binary<?",topLevel);
12588         if (r_res==0) goto __else537;
12589         if (! ((SymbolEntry*)r_res)->isDefined) goto __else537;
12590         r_res = (int)((SymbolEntry*)r_res)->sob;
12591         goto __endIf537;
12592 __else537:
12593         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
12594 __endIf537:
12595         if (IS_SOB_CLOSURE(r_res)) goto __app354;
12596         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12597 __app354:
12598         push((int)SOB_CLOSURE_ENV(r_res));
12599         push((int)&&__ret469);
12600         goto *(SOB_CLOSURE_CODE(r_res));
12601 __ret469:
12602         sp = sp-2-stack[sp-2];
12603         if ((SchemeObject*)r_res!=&sc_false) goto __endOr9;
12604
12605         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12606         r_res = ST_ARG(1);
12607         push(r_res);
12608         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12609         r_res = ST_ARG(0);
12610         push(r_res);
12611         push(2);
12612         r_res = (int)probeSymbolDefined("binary=?",topLevel);
12613         if (r_res==0) goto __else538;
12614         if (! ((SymbolEntry*)r_res)->isDefined) goto __else538;
12615         r_res = (int)((SymbolEntry*)r_res)->sob;
12616         goto __endIf538;
12617 __else538:
12618         fprintf(stderr,"Symbol binary=\? not defined"); exit(-1);
12619 __endIf538:
12620         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12621         push((int)SOB_CLOSURE_ENV(r_res));
12622         push(ST_RET());
12623         shiftActFrmDown();
12624         goto *(SOB_CLOSURE_CODE(r_res));
12625         sp = sp-2-stack[sp-2];
12626         if ((SchemeObject*)r_res!=&sc_false) goto __endOr9;
12627 __endOr9:
12628         fp = pop();
12629         RETURN();
12630 __skipBody149:
12631         r_res = (int)makeSchemeClosure((void*)r[0],&&__body149);
12632         push(r_res);
12633         push(1);
12634         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12635         goto __skipBody150;
12636 __body150:
12637         push(fp);
12638         fp = sp;
12639         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12640
12641         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12642         r_res = ST_ARG(0);
12643         push(r_res);
12644         push(1);
12645         r_res = (int)probeSymbolDefined("order",topLevel);
12646         if (r_res==0) goto __else539;
12647         if (! ((SymbolEntry*)r_res)->isDefined) goto __else539;
12648         r_res = (int)((SymbolEntry*)r_res)->sob;
12649         goto __endIf539;
12650 __else539:
12651         fprintf(stderr,"Symbol order not defined"); exit(-1);
12652 __endIf539:
12653         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12654         push((int)SOB_CLOSURE_ENV(r_res));
12655         push(ST_RET());
12656         shiftActFrmDown();
12657         goto *(SOB_CLOSURE_CODE(r_res));
12658         sp = sp-2-stack[sp-2];
12659         fp = pop();
12660         RETURN();
12661 __skipBody150:
12662         r_res = (int)makeSchemeClosure((void*)r[0],&&__body150);
12663         if (IS_SOB_CLOSURE(r_res)) goto __app353;
12664         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12665 __app353:
12666         push((int)SOB_CLOSURE_ENV(r_res));
12667         push((int)&&__ret468);
12668         goto *(SOB_CLOSURE_CODE(r_res));
12669 __ret468:
12670         sp = sp-2-stack[sp-2];
12671         r[0] = (int)getSymbol("<=",topLevel);
12672         ((SymbolEntry*)r[0])->isDefined = 1;
12673         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12674         r_res = (int)&sc_void;
12675 __ret467:
12676         /* set return address */
12677         ST_RET() = (int)&&__ret470;
12678
12679         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12680         goto __skipBody151;
12681 __body151:
12682         push(fp);
12683         fp = sp;
12684         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12685
12686         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12687         r_res = ST_ARG(0);
12688         push(r_res);
12689         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12690         r_res = ST_ARG(1);
12691         push(r_res);
12692         push(2);
12693         r_res = (int)probeSymbolDefined("binary<?",topLevel);
12694         if (r_res==0) goto __else540;
12695         if (! ((SymbolEntry*)r_res)->isDefined) goto __else540;
12696         r_res = (int)((SymbolEntry*)r_res)->sob;
12697         goto __endIf540;
12698 __else540:
12699         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
12700 __endIf540:
12701         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12702         push((int)SOB_CLOSURE_ENV(r_res));
12703         push(ST_RET());
12704         shiftActFrmDown();
12705         goto *(SOB_CLOSURE_CODE(r_res));
12706         sp = sp-2-stack[sp-2];
12707         fp = pop();
12708         RETURN();
12709 __skipBody151:
12710         r_res = (int)makeSchemeClosure((void*)r[0],&&__body151);
12711         push(r_res);
12712         push(1);
12713         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12714         goto __skipBody152;
12715 __body152:
12716         push(fp);
12717         fp = sp;
12718         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12719
12720         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12721         r_res = ST_ARG(0);
12722         push(r_res);
12723         push(1);
12724         r_res = (int)probeSymbolDefined("order",topLevel);
12725         if (r_res==0) goto __else541;
12726         if (! ((SymbolEntry*)r_res)->isDefined) goto __else541;
12727         r_res = (int)((SymbolEntry*)r_res)->sob;
12728         goto __endIf541;
12729 __else541:
12730         fprintf(stderr,"Symbol order not defined"); exit(-1);
12731 __endIf541:
12732         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12733         push((int)SOB_CLOSURE_ENV(r_res));
12734         push(ST_RET());
12735         shiftActFrmDown();
12736         goto *(SOB_CLOSURE_CODE(r_res));
12737         sp = sp-2-stack[sp-2];
12738         fp = pop();
12739         RETURN();
12740 __skipBody152:
12741         r_res = (int)makeSchemeClosure((void*)r[0],&&__body152);
12742         if (IS_SOB_CLOSURE(r_res)) goto __app355;
12743         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12744 __app355:
12745         push((int)SOB_CLOSURE_ENV(r_res));
12746         push((int)&&__ret471);
12747         goto *(SOB_CLOSURE_CODE(r_res));
12748 __ret471:
12749         sp = sp-2-stack[sp-2];
12750         r[0] = (int)getSymbol(">",topLevel);
12751         ((SymbolEntry*)r[0])->isDefined = 1;
12752         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12753         r_res = (int)&sc_void;
12754 __ret470:
12755         /* set return address */
12756         ST_RET() = (int)&&__ret472;
12757
12758         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12759         goto __skipBody153;
12760 __body153:
12761         push(fp);
12762         fp = sp;
12763         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12764
12765         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12766         r_res = ST_ARG(1);
12767         push(r_res);
12768         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12769         r_res = ST_ARG(0);
12770         push(r_res);
12771         push(2);
12772         r_res = (int)probeSymbolDefined("binary=?",topLevel);
12773         if (r_res==0) goto __else542;
12774         if (! ((SymbolEntry*)r_res)->isDefined) goto __else542;
12775         r_res = (int)((SymbolEntry*)r_res)->sob;
12776         goto __endIf542;
12777 __else542:
12778         fprintf(stderr,"Symbol binary=\? not defined"); exit(-1);
12779 __endIf542:
12780         if (IS_SOB_CLOSURE(r_res)) goto __app357;
12781         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12782 __app357:
12783         push((int)SOB_CLOSURE_ENV(r_res));
12784         push((int)&&__ret474);
12785         goto *(SOB_CLOSURE_CODE(r_res));
12786 __ret474:
12787         sp = sp-2-stack[sp-2];
12788         if ((SchemeObject*)r_res!=&sc_false) goto __endOr10;
12789
12790         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12791         r_res = ST_ARG(0);
12792         push(r_res);
12793         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12794         r_res = ST_ARG(1);
12795         push(r_res);
12796         push(2);
12797         r_res = (int)probeSymbolDefined("binary<?",topLevel);
12798         if (r_res==0) goto __else543;
12799         if (! ((SymbolEntry*)r_res)->isDefined) goto __else543;
12800         r_res = (int)((SymbolEntry*)r_res)->sob;
12801         goto __endIf543;
12802 __else543:
12803         fprintf(stderr,"Symbol binary<\? not defined"); exit(-1);
12804 __endIf543:
12805         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12806         push((int)SOB_CLOSURE_ENV(r_res));
12807         push(ST_RET());
12808         shiftActFrmDown();
12809         goto *(SOB_CLOSURE_CODE(r_res));
12810         sp = sp-2-stack[sp-2];
12811         if ((SchemeObject*)r_res!=&sc_false) goto __endOr10;
12812 __endOr10:
12813         fp = pop();
12814         RETURN();
12815 __skipBody153:
12816         r_res = (int)makeSchemeClosure((void*)r[0],&&__body153);
12817         push(r_res);
12818         push(1);
12819         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12820         goto __skipBody154;
12821 __body154:
12822         push(fp);
12823         fp = sp;
12824         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12825
12826         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12827         r_res = ST_ARG(0);
12828         push(r_res);
12829         push(1);
12830         r_res = (int)probeSymbolDefined("order",topLevel);
12831         if (r_res==0) goto __else544;
12832         if (! ((SymbolEntry*)r_res)->isDefined) goto __else544;
12833         r_res = (int)((SymbolEntry*)r_res)->sob;
12834         goto __endIf544;
12835 __else544:
12836         fprintf(stderr,"Symbol order not defined"); exit(-1);
12837 __endIf544:
12838         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12839         push((int)SOB_CLOSURE_ENV(r_res));
12840         push(ST_RET());
12841         shiftActFrmDown();
12842         goto *(SOB_CLOSURE_CODE(r_res));
12843         sp = sp-2-stack[sp-2];
12844         fp = pop();
12845         RETURN();
12846 __skipBody154:
12847         r_res = (int)makeSchemeClosure((void*)r[0],&&__body154);
12848         if (IS_SOB_CLOSURE(r_res)) goto __app356;
12849         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12850 __app356:
12851         push((int)SOB_CLOSURE_ENV(r_res));
12852         push((int)&&__ret473);
12853         goto *(SOB_CLOSURE_CODE(r_res));
12854 __ret473:
12855         sp = sp-2-stack[sp-2];
12856         r[0] = (int)getSymbol(">=",topLevel);
12857         ((SymbolEntry*)r[0])->isDefined = 1;
12858         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12859         r_res = (int)&sc_void;
12860 __ret472:
12861         /* set return address */
12862         ST_RET() = (int)&&__ret475;
12863
12864
12865         r_res = (int)probeSymbolDefined("binary=?",topLevel);
12866         if (r_res==0) goto __else545;
12867         if (! ((SymbolEntry*)r_res)->isDefined) goto __else545;
12868         r_res = (int)((SymbolEntry*)r_res)->sob;
12869         goto __endIf545;
12870 __else545:
12871         fprintf(stderr,"Symbol binary=\? not defined"); exit(-1);
12872 __endIf545:
12873         push(r_res);
12874         push(1);
12875         r_res = (int)probeSymbolDefined("order",topLevel);
12876         if (r_res==0) goto __else546;
12877         if (! ((SymbolEntry*)r_res)->isDefined) goto __else546;
12878         r_res = (int)((SymbolEntry*)r_res)->sob;
12879         goto __endIf546;
12880 __else546:
12881         fprintf(stderr,"Symbol order not defined"); exit(-1);
12882 __endIf546:
12883         if (IS_SOB_CLOSURE(r_res)) goto __app358;
12884         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12885 __app358:
12886         push((int)SOB_CLOSURE_ENV(r_res));
12887         push((int)&&__ret476);
12888         goto *(SOB_CLOSURE_CODE(r_res));
12889 __ret476:
12890         sp = sp-2-stack[sp-2];
12891         r[0] = (int)getSymbol("=",topLevel);
12892         ((SymbolEntry*)r[0])->isDefined = 1;
12893         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
12894         r_res = (int)&sc_void;
12895 __ret475:
12896         /* set return address */
12897         ST_RET() = (int)&&__ret477;
12898
12899         r_res = (int)&sc_false;
12900         push(r_res);
12901         push(1);
12902         r[0] = (int)extendEnviroment( (int**)NULL, 0);
12903         goto __skipBody155;
12904 __body155:
12905         push(fp);
12906         fp = sp;
12907         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12908
12909         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12910         r_res = ST_ARG(0);
12911         push(r_res);
12912         push(1);
12913         r_res = (int)probeSymbolDefined("box",topLevel);
12914         if (r_res==0) goto __else547;
12915         if (! ((SymbolEntry*)r_res)->isDefined) goto __else547;
12916         r_res = (int)((SymbolEntry*)r_res)->sob;
12917         goto __endIf547;
12918 __else547:
12919         fprintf(stderr,"Symbol box not defined"); exit(-1);
12920 __endIf547:
12921         if (IS_SOB_CLOSURE(r_res)) goto __app360;
12922         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12923 __app360:
12924         push((int)SOB_CLOSURE_ENV(r_res));
12925         push((int)&&__ret479);
12926         goto *(SOB_CLOSURE_CODE(r_res));
12927 __ret479:
12928         sp = sp-2-stack[sp-2];
12929         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12930         ST_ARG(0) = r_res;
12931         r_res = (int)&sc_void;
12932
12933         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
12934         goto __skipBody156;
12935 __body156:
12936         push(fp);
12937         fp = sp;
12938         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12939
12940         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12941         r_res = ST_ARG(1);
12942         push(r_res);
12943         push(1);
12944         r_res = (int)probeSymbolDefined("null?",topLevel);
12945         if (r_res==0) goto __else548;
12946         if (! ((SymbolEntry*)r_res)->isDefined) goto __else548;
12947         r_res = (int)((SymbolEntry*)r_res)->sob;
12948         goto __endIf548;
12949 __else548:
12950         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
12951 __endIf548:
12952         if (IS_SOB_CLOSURE(r_res)) goto __app362;
12953         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12954 __app362:
12955         push((int)SOB_CLOSURE_ENV(r_res));
12956         push((int)&&__ret481);
12957         goto *(SOB_CLOSURE_CODE(r_res));
12958 __ret481:
12959         sp = sp-2-stack[sp-2];
12960         if ((SchemeObject*)r_res!=&sc_false) goto __endOr11;
12961
12962         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
12963         r_res = ST_ARG(1);
12964         push(r_res);
12965         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
12966         goto __skipBody157;
12967 __body157:
12968         push(fp);
12969         fp = sp;
12970         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
12971
12972
12973         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
12974         r_res = ST_ARG(0);
12975         push(r_res);
12976         r_res = ((int**)ST_ENV())[0][0];
12977         push(r_res);
12978         push(2);
12979         r_res = (int)probeSymbolDefined("=",topLevel);
12980         if (r_res==0) goto __else550;
12981         if (! ((SymbolEntry*)r_res)->isDefined) goto __else550;
12982         r_res = (int)((SymbolEntry*)r_res)->sob;
12983         goto __endIf550;
12984 __else550:
12985         fprintf(stderr,"Symbol = not defined"); exit(-1);
12986 __endIf550:
12987         if (IS_SOB_CLOSURE(r_res)) goto __app364;
12988         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
12989 __app364:
12990         push((int)SOB_CLOSURE_ENV(r_res));
12991         push((int)&&__ret483);
12992         goto *(SOB_CLOSURE_CODE(r_res));
12993 __ret483:
12994         sp = sp-2-stack[sp-2];
12995         push(r_res);
12996         push(1);
12997         r_res = (int)probeSymbolDefined("not",topLevel);
12998         if (r_res==0) goto __else551;
12999         if (! ((SymbolEntry*)r_res)->isDefined) goto __else551;
13000         r_res = (int)((SymbolEntry*)r_res)->sob;
13001         goto __endIf551;
13002 __else551:
13003         fprintf(stderr,"Symbol not not defined"); exit(-1);
13004 __endIf551:
13005         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13006         push((int)SOB_CLOSURE_ENV(r_res));
13007         push(ST_RET());
13008         shiftActFrmDown();
13009         goto *(SOB_CLOSURE_CODE(r_res));
13010         sp = sp-2-stack[sp-2];
13011         fp = pop();
13012         RETURN();
13013 __skipBody157:
13014         r_res = (int)makeSchemeClosure((void*)r[0],&&__body157);
13015         push(r_res);
13016         push(2);
13017         r_res = (int)probeSymbolDefined("andmap",topLevel);
13018         if (r_res==0) goto __else552;
13019         if (! ((SymbolEntry*)r_res)->isDefined) goto __else552;
13020         r_res = (int)((SymbolEntry*)r_res)->sob;
13021         goto __endIf552;
13022 __else552:
13023         fprintf(stderr,"Symbol andmap not defined"); exit(-1);
13024 __endIf552:
13025         if (IS_SOB_CLOSURE(r_res)) goto __app363;
13026         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13027 __app363:
13028         push((int)SOB_CLOSURE_ENV(r_res));
13029         push((int)&&__ret482);
13030         goto *(SOB_CLOSURE_CODE(r_res));
13031 __ret482:
13032         sp = sp-2-stack[sp-2];
13033         if ((SchemeObject*)r_res==&sc_false) goto __else549;
13034
13035         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
13036         r_res = ST_ARG(1);
13037         push(r_res);
13038         push(1);
13039         r_res = (int)probeSymbolDefined("cdr",topLevel);
13040         if (r_res==0) goto __else553;
13041         if (! ((SymbolEntry*)r_res)->isDefined) goto __else553;
13042         r_res = (int)((SymbolEntry*)r_res)->sob;
13043         goto __endIf553;
13044 __else553:
13045         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13046 __endIf553:
13047         if (IS_SOB_CLOSURE(r_res)) goto __app365;
13048         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13049 __app365:
13050         push((int)SOB_CLOSURE_ENV(r_res));
13051         push((int)&&__ret484);
13052         goto *(SOB_CLOSURE_CODE(r_res));
13053 __ret484:
13054         sp = sp-2-stack[sp-2];
13055         push(r_res);
13056
13057         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
13058         r_res = ST_ARG(1);
13059         push(r_res);
13060         push(1);
13061         r_res = (int)probeSymbolDefined("car",topLevel);
13062         if (r_res==0) goto __else554;
13063         if (! ((SymbolEntry*)r_res)->isDefined) goto __else554;
13064         r_res = (int)((SymbolEntry*)r_res)->sob;
13065         goto __endIf554;
13066 __else554:
13067         fprintf(stderr,"Symbol car not defined"); exit(-1);
13068 __endIf554:
13069         if (IS_SOB_CLOSURE(r_res)) goto __app366;
13070         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13071 __app366:
13072         push((int)SOB_CLOSURE_ENV(r_res));
13073         push((int)&&__ret485);
13074         goto *(SOB_CLOSURE_CODE(r_res));
13075 __ret485:
13076         sp = sp-2-stack[sp-2];
13077         push(r_res);
13078         push(2);
13079
13080         r_res = (int)&__sc_number82;
13081         push(r_res);
13082         r_res = ((int**)ST_ENV())[0][0];
13083         push(r_res);
13084         push(2);
13085         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
13086         if (r_res==0) goto __else555;
13087         if (! ((SymbolEntry*)r_res)->isDefined) goto __else555;
13088         r_res = (int)((SymbolEntry*)r_res)->sob;
13089         goto __endIf555;
13090 __else555:
13091         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
13092 __endIf555:
13093         if (IS_SOB_CLOSURE(r_res)) goto __app367;
13094         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13095 __app367:
13096         push((int)SOB_CLOSURE_ENV(r_res));
13097         push((int)&&__ret486);
13098         goto *(SOB_CLOSURE_CODE(r_res));
13099 __ret486:
13100         sp = sp-2-stack[sp-2];
13101         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13102         push((int)SOB_CLOSURE_ENV(r_res));
13103         push(ST_RET());
13104         shiftActFrmDown();
13105         goto *(SOB_CLOSURE_CODE(r_res));
13106         sp = sp-2-stack[sp-2];
13107         goto __endIf549;
13108 __else549:
13109         r_res = (int)&sc_false;
13110 __endIf549:
13111         if ((SchemeObject*)r_res!=&sc_false) goto __endOr11;
13112 __endOr11:
13113         fp = pop();
13114         RETURN();
13115 __skipBody156:
13116         r_res = (int)makeSchemeClosure((void*)r[0],&&__body156);
13117         push(r_res);
13118         r_res = (int)&__sc_number83;
13119         push(r_res);
13120         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
13121         r_res = ST_ARG(0);
13122         push(r_res);
13123         push(3);
13124         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
13125         if (r_res==0) goto __else556;
13126         if (! ((SymbolEntry*)r_res)->isDefined) goto __else556;
13127         r_res = (int)((SymbolEntry*)r_res)->sob;
13128         goto __endIf556;
13129 __else556:
13130         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
13131 __endIf556:
13132         if (IS_SOB_CLOSURE(r_res)) goto __app361;
13133         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13134 __app361:
13135         push((int)SOB_CLOSURE_ENV(r_res));
13136         push((int)&&__ret480);
13137         goto *(SOB_CLOSURE_CODE(r_res));
13138 __ret480:
13139         sp = sp-2-stack[sp-2];
13140         push(0);
13141         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
13142         goto __skipBody158;
13143 __body158:
13144         push(fp);
13145         fp = sp;
13146         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13147         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
13148         goto __skipBody159;
13149 __body159:
13150         push(fp);
13151         fp = sp;
13152         prepareStackForAbsOpt(1);
13153         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13154
13155         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
13156         r_res = ST_ARG(0);
13157         push(r_res);
13158         push(1);
13159         r_res = (int)probeSymbolDefined("cdr",topLevel);
13160         if (r_res==0) goto __else557;
13161         if (! ((SymbolEntry*)r_res)->isDefined) goto __else557;
13162         r_res = (int)((SymbolEntry*)r_res)->sob;
13163         goto __endIf557;
13164 __else557:
13165         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13166 __endIf557:
13167         if (IS_SOB_CLOSURE(r_res)) goto __app368;
13168         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13169 __app368:
13170         push((int)SOB_CLOSURE_ENV(r_res));
13171         push((int)&&__ret487);
13172         goto *(SOB_CLOSURE_CODE(r_res));
13173 __ret487:
13174         sp = sp-2-stack[sp-2];
13175         push(r_res);
13176
13177         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
13178         r_res = ST_ARG(0);
13179         push(r_res);
13180         push(1);
13181         r_res = (int)probeSymbolDefined("car",topLevel);
13182         if (r_res==0) goto __else558;
13183         if (! ((SymbolEntry*)r_res)->isDefined) goto __else558;
13184         r_res = (int)((SymbolEntry*)r_res)->sob;
13185         goto __endIf558;
13186 __else558:
13187         fprintf(stderr,"Symbol car not defined"); exit(-1);
13188 __endIf558:
13189         if (IS_SOB_CLOSURE(r_res)) goto __app369;
13190         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13191 __app369:
13192         push((int)SOB_CLOSURE_ENV(r_res));
13193         push((int)&&__ret488);
13194         goto *(SOB_CLOSURE_CODE(r_res));
13195 __ret488:
13196         sp = sp-2-stack[sp-2];
13197         push(r_res);
13198         push(2);
13199
13200         r_res = (int)&__sc_number84;
13201         push(r_res);
13202         r_res = ((int**)ST_ENV())[1][0];
13203         push(r_res);
13204         push(2);
13205         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
13206         if (r_res==0) goto __else559;
13207         if (! ((SymbolEntry*)r_res)->isDefined) goto __else559;
13208         r_res = (int)((SymbolEntry*)r_res)->sob;
13209         goto __endIf559;
13210 __else559:
13211         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
13212 __endIf559:
13213         if (IS_SOB_CLOSURE(r_res)) goto __app370;
13214         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13215 __app370:
13216         push((int)SOB_CLOSURE_ENV(r_res));
13217         push((int)&&__ret489);
13218         goto *(SOB_CLOSURE_CODE(r_res));
13219 __ret489:
13220         sp = sp-2-stack[sp-2];
13221         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13222         push((int)SOB_CLOSURE_ENV(r_res));
13223         push(ST_RET());
13224         shiftActFrmDown();
13225         goto *(SOB_CLOSURE_CODE(r_res));
13226         sp = sp-2-stack[sp-2];
13227         fp = pop();
13228         RETURN();
13229 __skipBody159:
13230         r_res = (int)makeSchemeClosure((void*)r[0],&&__body159);
13231         fp = pop();
13232         RETURN();
13233 __skipBody158:
13234         r_res = (int)makeSchemeClosure((void*)r[0],&&__body158);
13235         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13236         push((int)SOB_CLOSURE_ENV(r_res));
13237         push(ST_RET());
13238         shiftActFrmDown();
13239         goto *(SOB_CLOSURE_CODE(r_res));
13240         sp = sp-2-stack[sp-2];
13241         fp = pop();
13242         RETURN();
13243 __skipBody155:
13244         r_res = (int)makeSchemeClosure((void*)r[0],&&__body155);
13245         if (IS_SOB_CLOSURE(r_res)) goto __app359;
13246         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13247 __app359:
13248         push((int)SOB_CLOSURE_ENV(r_res));
13249         push((int)&&__ret478);
13250         goto *(SOB_CLOSURE_CODE(r_res));
13251 __ret478:
13252         sp = sp-2-stack[sp-2];
13253         r[0] = (int)getSymbol("<>",topLevel);
13254         ((SymbolEntry*)r[0])->isDefined = 1;
13255         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13256         r_res = (int)&sc_void;
13257 __ret477:
13258         /* set return address */
13259         ST_RET() = (int)&&__ret490;
13260
13261         r[0] = (int)extendEnviroment( (int**)NULL, 0);
13262         goto __skipBody160;
13263 __body160:
13264         push(fp);
13265         fp = sp;
13266         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13267         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
13268         r_res = ST_ARG(0);
13269         if ((SchemeObject*)r_res==&sc_false) goto __else560;
13270         r_res = (int)&sc_false;
13271         goto __endIf560;
13272 __else560:
13273         r_res = (int)&sc_true;
13274 __endIf560:
13275         fp = pop();
13276         RETURN();
13277 __skipBody160:
13278         r_res = (int)makeSchemeClosure((void*)r[0],&&__body160);
13279         r[0] = (int)getSymbol("not",topLevel);
13280         ((SymbolEntry*)r[0])->isDefined = 1;
13281         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13282         r_res = (int)&sc_void;
13283 __ret490:
13284         /* set return address */
13285         ST_RET() = (int)&&__ret491;
13286
13287         r[0] = (int)extendEnviroment( (int**)NULL, 0);
13288         goto __skipBody161;
13289 __body161:
13290         push(fp);
13291         fp = sp;
13292         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13293         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
13294         goto __skipBody162;
13295 __body162:
13296         push(fp);
13297         fp = sp;
13298         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13299
13300
13301         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
13302         r_res = ST_ARG(0);
13303         push(r_res);
13304         push(1);
13305         r_res = ((int**)ST_ENV())[0][1];
13306         if (IS_SOB_CLOSURE(r_res)) goto __app372;
13307         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13308 __app372:
13309         push((int)SOB_CLOSURE_ENV(r_res));
13310         push((int)&&__ret493);
13311         goto *(SOB_CLOSURE_CODE(r_res));
13312 __ret493:
13313         sp = sp-2-stack[sp-2];
13314         push(r_res);
13315         push(1);
13316         r_res = ((int**)ST_ENV())[0][0];
13317         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13318         push((int)SOB_CLOSURE_ENV(r_res));
13319         push(ST_RET());
13320         shiftActFrmDown();
13321         goto *(SOB_CLOSURE_CODE(r_res));
13322         sp = sp-2-stack[sp-2];
13323         fp = pop();
13324         RETURN();
13325 __skipBody162:
13326         r_res = (int)makeSchemeClosure((void*)r[0],&&__body162);
13327         fp = pop();
13328         RETURN();
13329 __skipBody161:
13330         r_res = (int)makeSchemeClosure((void*)r[0],&&__body161);
13331         push(r_res);
13332         push(1);
13333         r[0] = (int)extendEnviroment( (int**)NULL, 0);
13334         goto __skipBody163;
13335 __body163:
13336         push(fp);
13337         fp = sp;
13338         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13339         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
13340         goto __skipBody164;
13341 __body164:
13342         push(fp);
13343         fp = sp;
13344         prepareStackForAbsOpt(1);
13345         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13346
13347         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
13348         r_res = ST_ARG(0);
13349         push(r_res);
13350         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
13351         goto __skipBody165;
13352 __body165:
13353         push(fp);
13354         fp = sp;
13355         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13356         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
13357         r_res = ST_ARG(0);
13358         fp = pop();
13359         RETURN();
13360 __skipBody165:
13361         r_res = (int)makeSchemeClosure((void*)r[0],&&__body165);
13362         push(r_res);
13363         r_res = ((int**)ST_ENV())[0][0];
13364         push(r_res);
13365         push(3);
13366         r_res = (int)probeSymbolDefined("foldr",topLevel);
13367         if (r_res==0) goto __else561;
13368         if (! ((SymbolEntry*)r_res)->isDefined) goto __else561;
13369         r_res = (int)((SymbolEntry*)r_res)->sob;
13370         goto __endIf561;
13371 __else561:
13372         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
13373 __endIf561:
13374         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
13375         push((int)SOB_CLOSURE_ENV(r_res));
13376         push(ST_RET());
13377         shiftActFrmDown();
13378         goto *(SOB_CLOSURE_CODE(r_res));
13379         sp = sp-2-stack[sp-2];
13380         fp = pop();
13381         RETURN();
13382 __skipBody164:
13383         r_res = (int)makeSchemeClosure((void*)r[0],&&__body164);
13384         fp = pop();
13385         RETURN();
13386 __skipBody163:
13387         r_res = (int)makeSchemeClosure((void*)r[0],&&__body163);
13388         if (IS_SOB_CLOSURE(r_res)) goto __app371;
13389         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13390 __app371:
13391         push((int)SOB_CLOSURE_ENV(r_res));
13392         push((int)&&__ret492);
13393         goto *(SOB_CLOSURE_CODE(r_res));
13394 __ret492:
13395         sp = sp-2-stack[sp-2];
13396         r[0] = (int)getSymbol("compose",topLevel);
13397         ((SymbolEntry*)r[0])->isDefined = 1;
13398         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13399         r_res = (int)&sc_void;
13400 __ret491:
13401         /* set return address */
13402         ST_RET() = (int)&&__ret494;
13403
13404
13405         r_res = (int)probeSymbolDefined("car",topLevel);
13406         if (r_res==0) goto __else562;
13407         if (! ((SymbolEntry*)r_res)->isDefined) goto __else562;
13408         r_res = (int)((SymbolEntry*)r_res)->sob;
13409         goto __endIf562;
13410 __else562:
13411         fprintf(stderr,"Symbol car not defined"); exit(-1);
13412 __endIf562:
13413         push(r_res);
13414         r_res = (int)probeSymbolDefined("car",topLevel);
13415         if (r_res==0) goto __else563;
13416         if (! ((SymbolEntry*)r_res)->isDefined) goto __else563;
13417         r_res = (int)((SymbolEntry*)r_res)->sob;
13418         goto __endIf563;
13419 __else563:
13420         fprintf(stderr,"Symbol car not defined"); exit(-1);
13421 __endIf563:
13422         push(r_res);
13423         push(2);
13424         r_res = (int)probeSymbolDefined("compose",topLevel);
13425         if (r_res==0) goto __else564;
13426         if (! ((SymbolEntry*)r_res)->isDefined) goto __else564;
13427         r_res = (int)((SymbolEntry*)r_res)->sob;
13428         goto __endIf564;
13429 __else564:
13430         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13431 __endIf564:
13432         if (IS_SOB_CLOSURE(r_res)) goto __app373;
13433         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13434 __app373:
13435         push((int)SOB_CLOSURE_ENV(r_res));
13436         push((int)&&__ret495);
13437         goto *(SOB_CLOSURE_CODE(r_res));
13438 __ret495:
13439         sp = sp-2-stack[sp-2];
13440         r[0] = (int)getSymbol("caar",topLevel);
13441         ((SymbolEntry*)r[0])->isDefined = 1;
13442         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13443         r_res = (int)&sc_void;
13444 __ret494:
13445         /* set return address */
13446         ST_RET() = (int)&&__ret496;
13447
13448
13449         r_res = (int)probeSymbolDefined("cdr",topLevel);
13450         if (r_res==0) goto __else565;
13451         if (! ((SymbolEntry*)r_res)->isDefined) goto __else565;
13452         r_res = (int)((SymbolEntry*)r_res)->sob;
13453         goto __endIf565;
13454 __else565:
13455         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13456 __endIf565:
13457         push(r_res);
13458         r_res = (int)probeSymbolDefined("car",topLevel);
13459         if (r_res==0) goto __else566;
13460         if (! ((SymbolEntry*)r_res)->isDefined) goto __else566;
13461         r_res = (int)((SymbolEntry*)r_res)->sob;
13462         goto __endIf566;
13463 __else566:
13464         fprintf(stderr,"Symbol car not defined"); exit(-1);
13465 __endIf566:
13466         push(r_res);
13467         push(2);
13468         r_res = (int)probeSymbolDefined("compose",topLevel);
13469         if (r_res==0) goto __else567;
13470         if (! ((SymbolEntry*)r_res)->isDefined) goto __else567;
13471         r_res = (int)((SymbolEntry*)r_res)->sob;
13472         goto __endIf567;
13473 __else567:
13474         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13475 __endIf567:
13476         if (IS_SOB_CLOSURE(r_res)) goto __app374;
13477         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13478 __app374:
13479         push((int)SOB_CLOSURE_ENV(r_res));
13480         push((int)&&__ret497);
13481         goto *(SOB_CLOSURE_CODE(r_res));
13482 __ret497:
13483         sp = sp-2-stack[sp-2];
13484         r[0] = (int)getSymbol("cadr",topLevel);
13485         ((SymbolEntry*)r[0])->isDefined = 1;
13486         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13487         r_res = (int)&sc_void;
13488 __ret496:
13489         /* set return address */
13490         ST_RET() = (int)&&__ret498;
13491
13492
13493         r_res = (int)probeSymbolDefined("car",topLevel);
13494         if (r_res==0) goto __else568;
13495         if (! ((SymbolEntry*)r_res)->isDefined) goto __else568;
13496         r_res = (int)((SymbolEntry*)r_res)->sob;
13497         goto __endIf568;
13498 __else568:
13499         fprintf(stderr,"Symbol car not defined"); exit(-1);
13500 __endIf568:
13501         push(r_res);
13502         r_res = (int)probeSymbolDefined("cdr",topLevel);
13503         if (r_res==0) goto __else569;
13504         if (! ((SymbolEntry*)r_res)->isDefined) goto __else569;
13505         r_res = (int)((SymbolEntry*)r_res)->sob;
13506         goto __endIf569;
13507 __else569:
13508         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13509 __endIf569:
13510         push(r_res);
13511         push(2);
13512         r_res = (int)probeSymbolDefined("compose",topLevel);
13513         if (r_res==0) goto __else570;
13514         if (! ((SymbolEntry*)r_res)->isDefined) goto __else570;
13515         r_res = (int)((SymbolEntry*)r_res)->sob;
13516         goto __endIf570;
13517 __else570:
13518         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13519 __endIf570:
13520         if (IS_SOB_CLOSURE(r_res)) goto __app375;
13521         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13522 __app375:
13523         push((int)SOB_CLOSURE_ENV(r_res));
13524         push((int)&&__ret499);
13525         goto *(SOB_CLOSURE_CODE(r_res));
13526 __ret499:
13527         sp = sp-2-stack[sp-2];
13528         r[0] = (int)getSymbol("cdar",topLevel);
13529         ((SymbolEntry*)r[0])->isDefined = 1;
13530         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13531         r_res = (int)&sc_void;
13532 __ret498:
13533         /* set return address */
13534         ST_RET() = (int)&&__ret500;
13535
13536
13537         r_res = (int)probeSymbolDefined("cdr",topLevel);
13538         if (r_res==0) goto __else571;
13539         if (! ((SymbolEntry*)r_res)->isDefined) goto __else571;
13540         r_res = (int)((SymbolEntry*)r_res)->sob;
13541         goto __endIf571;
13542 __else571:
13543         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13544 __endIf571:
13545         push(r_res);
13546         r_res = (int)probeSymbolDefined("cdr",topLevel);
13547         if (r_res==0) goto __else572;
13548         if (! ((SymbolEntry*)r_res)->isDefined) goto __else572;
13549         r_res = (int)((SymbolEntry*)r_res)->sob;
13550         goto __endIf572;
13551 __else572:
13552         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13553 __endIf572:
13554         push(r_res);
13555         push(2);
13556         r_res = (int)probeSymbolDefined("compose",topLevel);
13557         if (r_res==0) goto __else573;
13558         if (! ((SymbolEntry*)r_res)->isDefined) goto __else573;
13559         r_res = (int)((SymbolEntry*)r_res)->sob;
13560         goto __endIf573;
13561 __else573:
13562         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13563 __endIf573:
13564         if (IS_SOB_CLOSURE(r_res)) goto __app376;
13565         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13566 __app376:
13567         push((int)SOB_CLOSURE_ENV(r_res));
13568         push((int)&&__ret501);
13569         goto *(SOB_CLOSURE_CODE(r_res));
13570 __ret501:
13571         sp = sp-2-stack[sp-2];
13572         r[0] = (int)getSymbol("cddr",topLevel);
13573         ((SymbolEntry*)r[0])->isDefined = 1;
13574         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13575         r_res = (int)&sc_void;
13576 __ret500:
13577         /* set return address */
13578         ST_RET() = (int)&&__ret502;
13579
13580
13581         r_res = (int)probeSymbolDefined("caar",topLevel);
13582         if (r_res==0) goto __else574;
13583         if (! ((SymbolEntry*)r_res)->isDefined) goto __else574;
13584         r_res = (int)((SymbolEntry*)r_res)->sob;
13585         goto __endIf574;
13586 __else574:
13587         fprintf(stderr,"Symbol caar not defined"); exit(-1);
13588 __endIf574:
13589         push(r_res);
13590         r_res = (int)probeSymbolDefined("car",topLevel);
13591         if (r_res==0) goto __else575;
13592         if (! ((SymbolEntry*)r_res)->isDefined) goto __else575;
13593         r_res = (int)((SymbolEntry*)r_res)->sob;
13594         goto __endIf575;
13595 __else575:
13596         fprintf(stderr,"Symbol car not defined"); exit(-1);
13597 __endIf575:
13598         push(r_res);
13599         push(2);
13600         r_res = (int)probeSymbolDefined("compose",topLevel);
13601         if (r_res==0) goto __else576;
13602         if (! ((SymbolEntry*)r_res)->isDefined) goto __else576;
13603         r_res = (int)((SymbolEntry*)r_res)->sob;
13604         goto __endIf576;
13605 __else576:
13606         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13607 __endIf576:
13608         if (IS_SOB_CLOSURE(r_res)) goto __app377;
13609         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13610 __app377:
13611         push((int)SOB_CLOSURE_ENV(r_res));
13612         push((int)&&__ret503);
13613         goto *(SOB_CLOSURE_CODE(r_res));
13614 __ret503:
13615         sp = sp-2-stack[sp-2];
13616         r[0] = (int)getSymbol("caaar",topLevel);
13617         ((SymbolEntry*)r[0])->isDefined = 1;
13618         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13619         r_res = (int)&sc_void;
13620 __ret502:
13621         /* set return address */
13622         ST_RET() = (int)&&__ret504;
13623
13624
13625         r_res = (int)probeSymbolDefined("cadr",topLevel);
13626         if (r_res==0) goto __else577;
13627         if (! ((SymbolEntry*)r_res)->isDefined) goto __else577;
13628         r_res = (int)((SymbolEntry*)r_res)->sob;
13629         goto __endIf577;
13630 __else577:
13631         fprintf(stderr,"Symbol cadr not defined"); exit(-1);
13632 __endIf577:
13633         push(r_res);
13634         r_res = (int)probeSymbolDefined("car",topLevel);
13635         if (r_res==0) goto __else578;
13636         if (! ((SymbolEntry*)r_res)->isDefined) goto __else578;
13637         r_res = (int)((SymbolEntry*)r_res)->sob;
13638         goto __endIf578;
13639 __else578:
13640         fprintf(stderr,"Symbol car not defined"); exit(-1);
13641 __endIf578:
13642         push(r_res);
13643         push(2);
13644         r_res = (int)probeSymbolDefined("compose",topLevel);
13645         if (r_res==0) goto __else579;
13646         if (! ((SymbolEntry*)r_res)->isDefined) goto __else579;
13647         r_res = (int)((SymbolEntry*)r_res)->sob;
13648         goto __endIf579;
13649 __else579:
13650         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13651 __endIf579:
13652         if (IS_SOB_CLOSURE(r_res)) goto __app378;
13653         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13654 __app378:
13655         push((int)SOB_CLOSURE_ENV(r_res));
13656         push((int)&&__ret505);
13657         goto *(SOB_CLOSURE_CODE(r_res));
13658 __ret505:
13659         sp = sp-2-stack[sp-2];
13660         r[0] = (int)getSymbol("caadr",topLevel);
13661         ((SymbolEntry*)r[0])->isDefined = 1;
13662         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13663         r_res = (int)&sc_void;
13664 __ret504:
13665         /* set return address */
13666         ST_RET() = (int)&&__ret506;
13667
13668
13669         r_res = (int)probeSymbolDefined("cdar",topLevel);
13670         if (r_res==0) goto __else580;
13671         if (! ((SymbolEntry*)r_res)->isDefined) goto __else580;
13672         r_res = (int)((SymbolEntry*)r_res)->sob;
13673         goto __endIf580;
13674 __else580:
13675         fprintf(stderr,"Symbol cdar not defined"); exit(-1);
13676 __endIf580:
13677         push(r_res);
13678         r_res = (int)probeSymbolDefined("car",topLevel);
13679         if (r_res==0) goto __else581;
13680         if (! ((SymbolEntry*)r_res)->isDefined) goto __else581;
13681         r_res = (int)((SymbolEntry*)r_res)->sob;
13682         goto __endIf581;
13683 __else581:
13684         fprintf(stderr,"Symbol car not defined"); exit(-1);
13685 __endIf581:
13686         push(r_res);
13687         push(2);
13688         r_res = (int)probeSymbolDefined("compose",topLevel);
13689         if (r_res==0) goto __else582;
13690         if (! ((SymbolEntry*)r_res)->isDefined) goto __else582;
13691         r_res = (int)((SymbolEntry*)r_res)->sob;
13692         goto __endIf582;
13693 __else582:
13694         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13695 __endIf582:
13696         if (IS_SOB_CLOSURE(r_res)) goto __app379;
13697         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13698 __app379:
13699         push((int)SOB_CLOSURE_ENV(r_res));
13700         push((int)&&__ret507);
13701         goto *(SOB_CLOSURE_CODE(r_res));
13702 __ret507:
13703         sp = sp-2-stack[sp-2];
13704         r[0] = (int)getSymbol("cadar",topLevel);
13705         ((SymbolEntry*)r[0])->isDefined = 1;
13706         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13707         r_res = (int)&sc_void;
13708 __ret506:
13709         /* set return address */
13710         ST_RET() = (int)&&__ret508;
13711
13712
13713         r_res = (int)probeSymbolDefined("cddr",topLevel);
13714         if (r_res==0) goto __else583;
13715         if (! ((SymbolEntry*)r_res)->isDefined) goto __else583;
13716         r_res = (int)((SymbolEntry*)r_res)->sob;
13717         goto __endIf583;
13718 __else583:
13719         fprintf(stderr,"Symbol cddr not defined"); exit(-1);
13720 __endIf583:
13721         push(r_res);
13722         r_res = (int)probeSymbolDefined("car",topLevel);
13723         if (r_res==0) goto __else584;
13724         if (! ((SymbolEntry*)r_res)->isDefined) goto __else584;
13725         r_res = (int)((SymbolEntry*)r_res)->sob;
13726         goto __endIf584;
13727 __else584:
13728         fprintf(stderr,"Symbol car not defined"); exit(-1);
13729 __endIf584:
13730         push(r_res);
13731         push(2);
13732         r_res = (int)probeSymbolDefined("compose",topLevel);
13733         if (r_res==0) goto __else585;
13734         if (! ((SymbolEntry*)r_res)->isDefined) goto __else585;
13735         r_res = (int)((SymbolEntry*)r_res)->sob;
13736         goto __endIf585;
13737 __else585:
13738         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13739 __endIf585:
13740         if (IS_SOB_CLOSURE(r_res)) goto __app380;
13741         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13742 __app380:
13743         push((int)SOB_CLOSURE_ENV(r_res));
13744         push((int)&&__ret509);
13745         goto *(SOB_CLOSURE_CODE(r_res));
13746 __ret509:
13747         sp = sp-2-stack[sp-2];
13748         r[0] = (int)getSymbol("caddr",topLevel);
13749         ((SymbolEntry*)r[0])->isDefined = 1;
13750         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13751         r_res = (int)&sc_void;
13752 __ret508:
13753         /* set return address */
13754         ST_RET() = (int)&&__ret510;
13755
13756
13757         r_res = (int)probeSymbolDefined("caar",topLevel);
13758         if (r_res==0) goto __else586;
13759         if (! ((SymbolEntry*)r_res)->isDefined) goto __else586;
13760         r_res = (int)((SymbolEntry*)r_res)->sob;
13761         goto __endIf586;
13762 __else586:
13763         fprintf(stderr,"Symbol caar not defined"); exit(-1);
13764 __endIf586:
13765         push(r_res);
13766         r_res = (int)probeSymbolDefined("cdr",topLevel);
13767         if (r_res==0) goto __else587;
13768         if (! ((SymbolEntry*)r_res)->isDefined) goto __else587;
13769         r_res = (int)((SymbolEntry*)r_res)->sob;
13770         goto __endIf587;
13771 __else587:
13772         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13773 __endIf587:
13774         push(r_res);
13775         push(2);
13776         r_res = (int)probeSymbolDefined("compose",topLevel);
13777         if (r_res==0) goto __else588;
13778         if (! ((SymbolEntry*)r_res)->isDefined) goto __else588;
13779         r_res = (int)((SymbolEntry*)r_res)->sob;
13780         goto __endIf588;
13781 __else588:
13782         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13783 __endIf588:
13784         if (IS_SOB_CLOSURE(r_res)) goto __app381;
13785         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13786 __app381:
13787         push((int)SOB_CLOSURE_ENV(r_res));
13788         push((int)&&__ret511);
13789         goto *(SOB_CLOSURE_CODE(r_res));
13790 __ret511:
13791         sp = sp-2-stack[sp-2];
13792         r[0] = (int)getSymbol("cdaar",topLevel);
13793         ((SymbolEntry*)r[0])->isDefined = 1;
13794         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13795         r_res = (int)&sc_void;
13796 __ret510:
13797         /* set return address */
13798         ST_RET() = (int)&&__ret512;
13799
13800
13801         r_res = (int)probeSymbolDefined("cadr",topLevel);
13802         if (r_res==0) goto __else589;
13803         if (! ((SymbolEntry*)r_res)->isDefined) goto __else589;
13804         r_res = (int)((SymbolEntry*)r_res)->sob;
13805         goto __endIf589;
13806 __else589:
13807         fprintf(stderr,"Symbol cadr not defined"); exit(-1);
13808 __endIf589:
13809         push(r_res);
13810         r_res = (int)probeSymbolDefined("cdr",topLevel);
13811         if (r_res==0) goto __else590;
13812         if (! ((SymbolEntry*)r_res)->isDefined) goto __else590;
13813         r_res = (int)((SymbolEntry*)r_res)->sob;
13814         goto __endIf590;
13815 __else590:
13816         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13817 __endIf590:
13818         push(r_res);
13819         push(2);
13820         r_res = (int)probeSymbolDefined("compose",topLevel);
13821         if (r_res==0) goto __else591;
13822         if (! ((SymbolEntry*)r_res)->isDefined) goto __else591;
13823         r_res = (int)((SymbolEntry*)r_res)->sob;
13824         goto __endIf591;
13825 __else591:
13826         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13827 __endIf591:
13828         if (IS_SOB_CLOSURE(r_res)) goto __app382;
13829         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13830 __app382:
13831         push((int)SOB_CLOSURE_ENV(r_res));
13832         push((int)&&__ret513);
13833         goto *(SOB_CLOSURE_CODE(r_res));
13834 __ret513:
13835         sp = sp-2-stack[sp-2];
13836         r[0] = (int)getSymbol("cdadr",topLevel);
13837         ((SymbolEntry*)r[0])->isDefined = 1;
13838         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13839         r_res = (int)&sc_void;
13840 __ret512:
13841         /* set return address */
13842         ST_RET() = (int)&&__ret514;
13843
13844
13845         r_res = (int)probeSymbolDefined("cdar",topLevel);
13846         if (r_res==0) goto __else592;
13847         if (! ((SymbolEntry*)r_res)->isDefined) goto __else592;
13848         r_res = (int)((SymbolEntry*)r_res)->sob;
13849         goto __endIf592;
13850 __else592:
13851         fprintf(stderr,"Symbol cdar not defined"); exit(-1);
13852 __endIf592:
13853         push(r_res);
13854         r_res = (int)probeSymbolDefined("cdr",topLevel);
13855         if (r_res==0) goto __else593;
13856         if (! ((SymbolEntry*)r_res)->isDefined) goto __else593;
13857         r_res = (int)((SymbolEntry*)r_res)->sob;
13858         goto __endIf593;
13859 __else593:
13860         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13861 __endIf593:
13862         push(r_res);
13863         push(2);
13864         r_res = (int)probeSymbolDefined("compose",topLevel);
13865         if (r_res==0) goto __else594;
13866         if (! ((SymbolEntry*)r_res)->isDefined) goto __else594;
13867         r_res = (int)((SymbolEntry*)r_res)->sob;
13868         goto __endIf594;
13869 __else594:
13870         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13871 __endIf594:
13872         if (IS_SOB_CLOSURE(r_res)) goto __app383;
13873         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13874 __app383:
13875         push((int)SOB_CLOSURE_ENV(r_res));
13876         push((int)&&__ret515);
13877         goto *(SOB_CLOSURE_CODE(r_res));
13878 __ret515:
13879         sp = sp-2-stack[sp-2];
13880         r[0] = (int)getSymbol("cddar",topLevel);
13881         ((SymbolEntry*)r[0])->isDefined = 1;
13882         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13883         r_res = (int)&sc_void;
13884 __ret514:
13885         /* set return address */
13886         ST_RET() = (int)&&__ret516;
13887
13888
13889         r_res = (int)probeSymbolDefined("cddr",topLevel);
13890         if (r_res==0) goto __else595;
13891         if (! ((SymbolEntry*)r_res)->isDefined) goto __else595;
13892         r_res = (int)((SymbolEntry*)r_res)->sob;
13893         goto __endIf595;
13894 __else595:
13895         fprintf(stderr,"Symbol cddr not defined"); exit(-1);
13896 __endIf595:
13897         push(r_res);
13898         r_res = (int)probeSymbolDefined("cdr",topLevel);
13899         if (r_res==0) goto __else596;
13900         if (! ((SymbolEntry*)r_res)->isDefined) goto __else596;
13901         r_res = (int)((SymbolEntry*)r_res)->sob;
13902         goto __endIf596;
13903 __else596:
13904         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
13905 __endIf596:
13906         push(r_res);
13907         push(2);
13908         r_res = (int)probeSymbolDefined("compose",topLevel);
13909         if (r_res==0) goto __else597;
13910         if (! ((SymbolEntry*)r_res)->isDefined) goto __else597;
13911         r_res = (int)((SymbolEntry*)r_res)->sob;
13912         goto __endIf597;
13913 __else597:
13914         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13915 __endIf597:
13916         if (IS_SOB_CLOSURE(r_res)) goto __app384;
13917         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13918 __app384:
13919         push((int)SOB_CLOSURE_ENV(r_res));
13920         push((int)&&__ret517);
13921         goto *(SOB_CLOSURE_CODE(r_res));
13922 __ret517:
13923         sp = sp-2-stack[sp-2];
13924         r[0] = (int)getSymbol("cdddr",topLevel);
13925         ((SymbolEntry*)r[0])->isDefined = 1;
13926         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13927         r_res = (int)&sc_void;
13928 __ret516:
13929         /* set return address */
13930         ST_RET() = (int)&&__ret518;
13931
13932
13933         r_res = (int)probeSymbolDefined("caaar",topLevel);
13934         if (r_res==0) goto __else598;
13935         if (! ((SymbolEntry*)r_res)->isDefined) goto __else598;
13936         r_res = (int)((SymbolEntry*)r_res)->sob;
13937         goto __endIf598;
13938 __else598:
13939         fprintf(stderr,"Symbol caaar not defined"); exit(-1);
13940 __endIf598:
13941         push(r_res);
13942         r_res = (int)probeSymbolDefined("car",topLevel);
13943         if (r_res==0) goto __else599;
13944         if (! ((SymbolEntry*)r_res)->isDefined) goto __else599;
13945         r_res = (int)((SymbolEntry*)r_res)->sob;
13946         goto __endIf599;
13947 __else599:
13948         fprintf(stderr,"Symbol car not defined"); exit(-1);
13949 __endIf599:
13950         push(r_res);
13951         push(2);
13952         r_res = (int)probeSymbolDefined("compose",topLevel);
13953         if (r_res==0) goto __else600;
13954         if (! ((SymbolEntry*)r_res)->isDefined) goto __else600;
13955         r_res = (int)((SymbolEntry*)r_res)->sob;
13956         goto __endIf600;
13957 __else600:
13958         fprintf(stderr,"Symbol compose not defined"); exit(-1);
13959 __endIf600:
13960         if (IS_SOB_CLOSURE(r_res)) goto __app385;
13961         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
13962 __app385:
13963         push((int)SOB_CLOSURE_ENV(r_res));
13964         push((int)&&__ret519);
13965         goto *(SOB_CLOSURE_CODE(r_res));
13966 __ret519:
13967         sp = sp-2-stack[sp-2];
13968         r[0] = (int)getSymbol("caaaar",topLevel);
13969         ((SymbolEntry*)r[0])->isDefined = 1;
13970         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
13971         r_res = (int)&sc_void;
13972 __ret518:
13973         /* set return address */
13974         ST_RET() = (int)&&__ret520;
13975
13976
13977         r_res = (int)probeSymbolDefined("caadr",topLevel);
13978         if (r_res==0) goto __else601;
13979         if (! ((SymbolEntry*)r_res)->isDefined) goto __else601;
13980         r_res = (int)((SymbolEntry*)r_res)->sob;
13981         goto __endIf601;
13982 __else601:
13983         fprintf(stderr,"Symbol caadr not defined"); exit(-1);
13984 __endIf601:
13985         push(r_res);
13986         r_res = (int)probeSymbolDefined("car",topLevel);
13987         if (r_res==0) goto __else602;
13988         if (! ((SymbolEntry*)r_res)->isDefined) goto __else602;
13989         r_res = (int)((SymbolEntry*)r_res)->sob;
13990         goto __endIf602;
13991 __else602:
13992         fprintf(stderr,"Symbol car not defined"); exit(-1);
13993 __endIf602:
13994         push(r_res);
13995         push(2);
13996         r_res = (int)probeSymbolDefined("compose",topLevel);
13997         if (r_res==0) goto __else603;
13998         if (! ((SymbolEntry*)r_res)->isDefined) goto __else603;
13999         r_res = (int)((SymbolEntry*)r_res)->sob;
14000         goto __endIf603;
14001 __else603:
14002         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14003 __endIf603:
14004         if (IS_SOB_CLOSURE(r_res)) goto __app386;
14005         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14006 __app386:
14007         push((int)SOB_CLOSURE_ENV(r_res));
14008         push((int)&&__ret521);
14009         goto *(SOB_CLOSURE_CODE(r_res));
14010 __ret521:
14011         sp = sp-2-stack[sp-2];
14012         r[0] = (int)getSymbol("caaadr",topLevel);
14013         ((SymbolEntry*)r[0])->isDefined = 1;
14014         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14015         r_res = (int)&sc_void;
14016 __ret520:
14017         /* set return address */
14018         ST_RET() = (int)&&__ret522;
14019
14020
14021         r_res = (int)probeSymbolDefined("cadar",topLevel);
14022         if (r_res==0) goto __else604;
14023         if (! ((SymbolEntry*)r_res)->isDefined) goto __else604;
14024         r_res = (int)((SymbolEntry*)r_res)->sob;
14025         goto __endIf604;
14026 __else604:
14027         fprintf(stderr,"Symbol cadar not defined"); exit(-1);
14028 __endIf604:
14029         push(r_res);
14030         r_res = (int)probeSymbolDefined("car",topLevel);
14031         if (r_res==0) goto __else605;
14032         if (! ((SymbolEntry*)r_res)->isDefined) goto __else605;
14033         r_res = (int)((SymbolEntry*)r_res)->sob;
14034         goto __endIf605;
14035 __else605:
14036         fprintf(stderr,"Symbol car not defined"); exit(-1);
14037 __endIf605:
14038         push(r_res);
14039         push(2);
14040         r_res = (int)probeSymbolDefined("compose",topLevel);
14041         if (r_res==0) goto __else606;
14042         if (! ((SymbolEntry*)r_res)->isDefined) goto __else606;
14043         r_res = (int)((SymbolEntry*)r_res)->sob;
14044         goto __endIf606;
14045 __else606:
14046         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14047 __endIf606:
14048         if (IS_SOB_CLOSURE(r_res)) goto __app387;
14049         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14050 __app387:
14051         push((int)SOB_CLOSURE_ENV(r_res));
14052         push((int)&&__ret523);
14053         goto *(SOB_CLOSURE_CODE(r_res));
14054 __ret523:
14055         sp = sp-2-stack[sp-2];
14056         r[0] = (int)getSymbol("caadar",topLevel);
14057         ((SymbolEntry*)r[0])->isDefined = 1;
14058         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14059         r_res = (int)&sc_void;
14060 __ret522:
14061         /* set return address */
14062         ST_RET() = (int)&&__ret524;
14063
14064
14065         r_res = (int)probeSymbolDefined("caddr",topLevel);
14066         if (r_res==0) goto __else607;
14067         if (! ((SymbolEntry*)r_res)->isDefined) goto __else607;
14068         r_res = (int)((SymbolEntry*)r_res)->sob;
14069         goto __endIf607;
14070 __else607:
14071         fprintf(stderr,"Symbol caddr not defined"); exit(-1);
14072 __endIf607:
14073         push(r_res);
14074         r_res = (int)probeSymbolDefined("car",topLevel);
14075         if (r_res==0) goto __else608;
14076         if (! ((SymbolEntry*)r_res)->isDefined) goto __else608;
14077         r_res = (int)((SymbolEntry*)r_res)->sob;
14078         goto __endIf608;
14079 __else608:
14080         fprintf(stderr,"Symbol car not defined"); exit(-1);
14081 __endIf608:
14082         push(r_res);
14083         push(2);
14084         r_res = (int)probeSymbolDefined("compose",topLevel);
14085         if (r_res==0) goto __else609;
14086         if (! ((SymbolEntry*)r_res)->isDefined) goto __else609;
14087         r_res = (int)((SymbolEntry*)r_res)->sob;
14088         goto __endIf609;
14089 __else609:
14090         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14091 __endIf609:
14092         if (IS_SOB_CLOSURE(r_res)) goto __app388;
14093         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14094 __app388:
14095         push((int)SOB_CLOSURE_ENV(r_res));
14096         push((int)&&__ret525);
14097         goto *(SOB_CLOSURE_CODE(r_res));
14098 __ret525:
14099         sp = sp-2-stack[sp-2];
14100         r[0] = (int)getSymbol("caaddr",topLevel);
14101         ((SymbolEntry*)r[0])->isDefined = 1;
14102         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14103         r_res = (int)&sc_void;
14104 __ret524:
14105         /* set return address */
14106         ST_RET() = (int)&&__ret526;
14107
14108
14109         r_res = (int)probeSymbolDefined("cdaar",topLevel);
14110         if (r_res==0) goto __else610;
14111         if (! ((SymbolEntry*)r_res)->isDefined) goto __else610;
14112         r_res = (int)((SymbolEntry*)r_res)->sob;
14113         goto __endIf610;
14114 __else610:
14115         fprintf(stderr,"Symbol cdaar not defined"); exit(-1);
14116 __endIf610:
14117         push(r_res);
14118         r_res = (int)probeSymbolDefined("car",topLevel);
14119         if (r_res==0) goto __else611;
14120         if (! ((SymbolEntry*)r_res)->isDefined) goto __else611;
14121         r_res = (int)((SymbolEntry*)r_res)->sob;
14122         goto __endIf611;
14123 __else611:
14124         fprintf(stderr,"Symbol car not defined"); exit(-1);
14125 __endIf611:
14126         push(r_res);
14127         push(2);
14128         r_res = (int)probeSymbolDefined("compose",topLevel);
14129         if (r_res==0) goto __else612;
14130         if (! ((SymbolEntry*)r_res)->isDefined) goto __else612;
14131         r_res = (int)((SymbolEntry*)r_res)->sob;
14132         goto __endIf612;
14133 __else612:
14134         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14135 __endIf612:
14136         if (IS_SOB_CLOSURE(r_res)) goto __app389;
14137         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14138 __app389:
14139         push((int)SOB_CLOSURE_ENV(r_res));
14140         push((int)&&__ret527);
14141         goto *(SOB_CLOSURE_CODE(r_res));
14142 __ret527:
14143         sp = sp-2-stack[sp-2];
14144         r[0] = (int)getSymbol("cadaar",topLevel);
14145         ((SymbolEntry*)r[0])->isDefined = 1;
14146         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14147         r_res = (int)&sc_void;
14148 __ret526:
14149         /* set return address */
14150         ST_RET() = (int)&&__ret528;
14151
14152
14153         r_res = (int)probeSymbolDefined("cdadr",topLevel);
14154         if (r_res==0) goto __else613;
14155         if (! ((SymbolEntry*)r_res)->isDefined) goto __else613;
14156         r_res = (int)((SymbolEntry*)r_res)->sob;
14157         goto __endIf613;
14158 __else613:
14159         fprintf(stderr,"Symbol cdadr not defined"); exit(-1);
14160 __endIf613:
14161         push(r_res);
14162         r_res = (int)probeSymbolDefined("car",topLevel);
14163         if (r_res==0) goto __else614;
14164         if (! ((SymbolEntry*)r_res)->isDefined) goto __else614;
14165         r_res = (int)((SymbolEntry*)r_res)->sob;
14166         goto __endIf614;
14167 __else614:
14168         fprintf(stderr,"Symbol car not defined"); exit(-1);
14169 __endIf614:
14170         push(r_res);
14171         push(2);
14172         r_res = (int)probeSymbolDefined("compose",topLevel);
14173         if (r_res==0) goto __else615;
14174         if (! ((SymbolEntry*)r_res)->isDefined) goto __else615;
14175         r_res = (int)((SymbolEntry*)r_res)->sob;
14176         goto __endIf615;
14177 __else615:
14178         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14179 __endIf615:
14180         if (IS_SOB_CLOSURE(r_res)) goto __app390;
14181         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14182 __app390:
14183         push((int)SOB_CLOSURE_ENV(r_res));
14184         push((int)&&__ret529);
14185         goto *(SOB_CLOSURE_CODE(r_res));
14186 __ret529:
14187         sp = sp-2-stack[sp-2];
14188         r[0] = (int)getSymbol("cadadr",topLevel);
14189         ((SymbolEntry*)r[0])->isDefined = 1;
14190         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14191         r_res = (int)&sc_void;
14192 __ret528:
14193         /* set return address */
14194         ST_RET() = (int)&&__ret530;
14195
14196
14197         r_res = (int)probeSymbolDefined("cddar",topLevel);
14198         if (r_res==0) goto __else616;
14199         if (! ((SymbolEntry*)r_res)->isDefined) goto __else616;
14200         r_res = (int)((SymbolEntry*)r_res)->sob;
14201         goto __endIf616;
14202 __else616:
14203         fprintf(stderr,"Symbol cddar not defined"); exit(-1);
14204 __endIf616:
14205         push(r_res);
14206         r_res = (int)probeSymbolDefined("car",topLevel);
14207         if (r_res==0) goto __else617;
14208         if (! ((SymbolEntry*)r_res)->isDefined) goto __else617;
14209         r_res = (int)((SymbolEntry*)r_res)->sob;
14210         goto __endIf617;
14211 __else617:
14212         fprintf(stderr,"Symbol car not defined"); exit(-1);
14213 __endIf617:
14214         push(r_res);
14215         push(2);
14216         r_res = (int)probeSymbolDefined("compose",topLevel);
14217         if (r_res==0) goto __else618;
14218         if (! ((SymbolEntry*)r_res)->isDefined) goto __else618;
14219         r_res = (int)((SymbolEntry*)r_res)->sob;
14220         goto __endIf618;
14221 __else618:
14222         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14223 __endIf618:
14224         if (IS_SOB_CLOSURE(r_res)) goto __app391;
14225         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14226 __app391:
14227         push((int)SOB_CLOSURE_ENV(r_res));
14228         push((int)&&__ret531);
14229         goto *(SOB_CLOSURE_CODE(r_res));
14230 __ret531:
14231         sp = sp-2-stack[sp-2];
14232         r[0] = (int)getSymbol("caddar",topLevel);
14233         ((SymbolEntry*)r[0])->isDefined = 1;
14234         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14235         r_res = (int)&sc_void;
14236 __ret530:
14237         /* set return address */
14238         ST_RET() = (int)&&__ret532;
14239
14240
14241         r_res = (int)probeSymbolDefined("cdddr",topLevel);
14242         if (r_res==0) goto __else619;
14243         if (! ((SymbolEntry*)r_res)->isDefined) goto __else619;
14244         r_res = (int)((SymbolEntry*)r_res)->sob;
14245         goto __endIf619;
14246 __else619:
14247         fprintf(stderr,"Symbol cdddr not defined"); exit(-1);
14248 __endIf619:
14249         push(r_res);
14250         r_res = (int)probeSymbolDefined("car",topLevel);
14251         if (r_res==0) goto __else620;
14252         if (! ((SymbolEntry*)r_res)->isDefined) goto __else620;
14253         r_res = (int)((SymbolEntry*)r_res)->sob;
14254         goto __endIf620;
14255 __else620:
14256         fprintf(stderr,"Symbol car not defined"); exit(-1);
14257 __endIf620:
14258         push(r_res);
14259         push(2);
14260         r_res = (int)probeSymbolDefined("compose",topLevel);
14261         if (r_res==0) goto __else621;
14262         if (! ((SymbolEntry*)r_res)->isDefined) goto __else621;
14263         r_res = (int)((SymbolEntry*)r_res)->sob;
14264         goto __endIf621;
14265 __else621:
14266         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14267 __endIf621:
14268         if (IS_SOB_CLOSURE(r_res)) goto __app392;
14269         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14270 __app392:
14271         push((int)SOB_CLOSURE_ENV(r_res));
14272         push((int)&&__ret533);
14273         goto *(SOB_CLOSURE_CODE(r_res));
14274 __ret533:
14275         sp = sp-2-stack[sp-2];
14276         r[0] = (int)getSymbol("cadddr",topLevel);
14277         ((SymbolEntry*)r[0])->isDefined = 1;
14278         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14279         r_res = (int)&sc_void;
14280 __ret532:
14281         /* set return address */
14282         ST_RET() = (int)&&__ret534;
14283
14284
14285         r_res = (int)probeSymbolDefined("caaar",topLevel);
14286         if (r_res==0) goto __else622;
14287         if (! ((SymbolEntry*)r_res)->isDefined) goto __else622;
14288         r_res = (int)((SymbolEntry*)r_res)->sob;
14289         goto __endIf622;
14290 __else622:
14291         fprintf(stderr,"Symbol caaar not defined"); exit(-1);
14292 __endIf622:
14293         push(r_res);
14294         r_res = (int)probeSymbolDefined("cdr",topLevel);
14295         if (r_res==0) goto __else623;
14296         if (! ((SymbolEntry*)r_res)->isDefined) goto __else623;
14297         r_res = (int)((SymbolEntry*)r_res)->sob;
14298         goto __endIf623;
14299 __else623:
14300         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14301 __endIf623:
14302         push(r_res);
14303         push(2);
14304         r_res = (int)probeSymbolDefined("compose",topLevel);
14305         if (r_res==0) goto __else624;
14306         if (! ((SymbolEntry*)r_res)->isDefined) goto __else624;
14307         r_res = (int)((SymbolEntry*)r_res)->sob;
14308         goto __endIf624;
14309 __else624:
14310         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14311 __endIf624:
14312         if (IS_SOB_CLOSURE(r_res)) goto __app393;
14313         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14314 __app393:
14315         push((int)SOB_CLOSURE_ENV(r_res));
14316         push((int)&&__ret535);
14317         goto *(SOB_CLOSURE_CODE(r_res));
14318 __ret535:
14319         sp = sp-2-stack[sp-2];
14320         r[0] = (int)getSymbol("cdaaar",topLevel);
14321         ((SymbolEntry*)r[0])->isDefined = 1;
14322         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14323         r_res = (int)&sc_void;
14324 __ret534:
14325         /* set return address */
14326         ST_RET() = (int)&&__ret536;
14327
14328
14329         r_res = (int)probeSymbolDefined("caadr",topLevel);
14330         if (r_res==0) goto __else625;
14331         if (! ((SymbolEntry*)r_res)->isDefined) goto __else625;
14332         r_res = (int)((SymbolEntry*)r_res)->sob;
14333         goto __endIf625;
14334 __else625:
14335         fprintf(stderr,"Symbol caadr not defined"); exit(-1);
14336 __endIf625:
14337         push(r_res);
14338         r_res = (int)probeSymbolDefined("cdr",topLevel);
14339         if (r_res==0) goto __else626;
14340         if (! ((SymbolEntry*)r_res)->isDefined) goto __else626;
14341         r_res = (int)((SymbolEntry*)r_res)->sob;
14342         goto __endIf626;
14343 __else626:
14344         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14345 __endIf626:
14346         push(r_res);
14347         push(2);
14348         r_res = (int)probeSymbolDefined("compose",topLevel);
14349         if (r_res==0) goto __else627;
14350         if (! ((SymbolEntry*)r_res)->isDefined) goto __else627;
14351         r_res = (int)((SymbolEntry*)r_res)->sob;
14352         goto __endIf627;
14353 __else627:
14354         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14355 __endIf627:
14356         if (IS_SOB_CLOSURE(r_res)) goto __app394;
14357         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14358 __app394:
14359         push((int)SOB_CLOSURE_ENV(r_res));
14360         push((int)&&__ret537);
14361         goto *(SOB_CLOSURE_CODE(r_res));
14362 __ret537:
14363         sp = sp-2-stack[sp-2];
14364         r[0] = (int)getSymbol("cdaadr",topLevel);
14365         ((SymbolEntry*)r[0])->isDefined = 1;
14366         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14367         r_res = (int)&sc_void;
14368 __ret536:
14369         /* set return address */
14370         ST_RET() = (int)&&__ret538;
14371
14372
14373         r_res = (int)probeSymbolDefined("cadar",topLevel);
14374         if (r_res==0) goto __else628;
14375         if (! ((SymbolEntry*)r_res)->isDefined) goto __else628;
14376         r_res = (int)((SymbolEntry*)r_res)->sob;
14377         goto __endIf628;
14378 __else628:
14379         fprintf(stderr,"Symbol cadar not defined"); exit(-1);
14380 __endIf628:
14381         push(r_res);
14382         r_res = (int)probeSymbolDefined("cdr",topLevel);
14383         if (r_res==0) goto __else629;
14384         if (! ((SymbolEntry*)r_res)->isDefined) goto __else629;
14385         r_res = (int)((SymbolEntry*)r_res)->sob;
14386         goto __endIf629;
14387 __else629:
14388         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14389 __endIf629:
14390         push(r_res);
14391         push(2);
14392         r_res = (int)probeSymbolDefined("compose",topLevel);
14393         if (r_res==0) goto __else630;
14394         if (! ((SymbolEntry*)r_res)->isDefined) goto __else630;
14395         r_res = (int)((SymbolEntry*)r_res)->sob;
14396         goto __endIf630;
14397 __else630:
14398         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14399 __endIf630:
14400         if (IS_SOB_CLOSURE(r_res)) goto __app395;
14401         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14402 __app395:
14403         push((int)SOB_CLOSURE_ENV(r_res));
14404         push((int)&&__ret539);
14405         goto *(SOB_CLOSURE_CODE(r_res));
14406 __ret539:
14407         sp = sp-2-stack[sp-2];
14408         r[0] = (int)getSymbol("cdadar",topLevel);
14409         ((SymbolEntry*)r[0])->isDefined = 1;
14410         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14411         r_res = (int)&sc_void;
14412 __ret538:
14413         /* set return address */
14414         ST_RET() = (int)&&__ret540;
14415
14416
14417         r_res = (int)probeSymbolDefined("caddr",topLevel);
14418         if (r_res==0) goto __else631;
14419         if (! ((SymbolEntry*)r_res)->isDefined) goto __else631;
14420         r_res = (int)((SymbolEntry*)r_res)->sob;
14421         goto __endIf631;
14422 __else631:
14423         fprintf(stderr,"Symbol caddr not defined"); exit(-1);
14424 __endIf631:
14425         push(r_res);
14426         r_res = (int)probeSymbolDefined("cdr",topLevel);
14427         if (r_res==0) goto __else632;
14428         if (! ((SymbolEntry*)r_res)->isDefined) goto __else632;
14429         r_res = (int)((SymbolEntry*)r_res)->sob;
14430         goto __endIf632;
14431 __else632:
14432         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14433 __endIf632:
14434         push(r_res);
14435         push(2);
14436         r_res = (int)probeSymbolDefined("compose",topLevel);
14437         if (r_res==0) goto __else633;
14438         if (! ((SymbolEntry*)r_res)->isDefined) goto __else633;
14439         r_res = (int)((SymbolEntry*)r_res)->sob;
14440         goto __endIf633;
14441 __else633:
14442         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14443 __endIf633:
14444         if (IS_SOB_CLOSURE(r_res)) goto __app396;
14445         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14446 __app396:
14447         push((int)SOB_CLOSURE_ENV(r_res));
14448         push((int)&&__ret541);
14449         goto *(SOB_CLOSURE_CODE(r_res));
14450 __ret541:
14451         sp = sp-2-stack[sp-2];
14452         r[0] = (int)getSymbol("cdaddr",topLevel);
14453         ((SymbolEntry*)r[0])->isDefined = 1;
14454         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14455         r_res = (int)&sc_void;
14456 __ret540:
14457         /* set return address */
14458         ST_RET() = (int)&&__ret542;
14459
14460
14461         r_res = (int)probeSymbolDefined("cdaar",topLevel);
14462         if (r_res==0) goto __else634;
14463         if (! ((SymbolEntry*)r_res)->isDefined) goto __else634;
14464         r_res = (int)((SymbolEntry*)r_res)->sob;
14465         goto __endIf634;
14466 __else634:
14467         fprintf(stderr,"Symbol cdaar not defined"); exit(-1);
14468 __endIf634:
14469         push(r_res);
14470         r_res = (int)probeSymbolDefined("cdr",topLevel);
14471         if (r_res==0) goto __else635;
14472         if (! ((SymbolEntry*)r_res)->isDefined) goto __else635;
14473         r_res = (int)((SymbolEntry*)r_res)->sob;
14474         goto __endIf635;
14475 __else635:
14476         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14477 __endIf635:
14478         push(r_res);
14479         push(2);
14480         r_res = (int)probeSymbolDefined("compose",topLevel);
14481         if (r_res==0) goto __else636;
14482         if (! ((SymbolEntry*)r_res)->isDefined) goto __else636;
14483         r_res = (int)((SymbolEntry*)r_res)->sob;
14484         goto __endIf636;
14485 __else636:
14486         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14487 __endIf636:
14488         if (IS_SOB_CLOSURE(r_res)) goto __app397;
14489         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14490 __app397:
14491         push((int)SOB_CLOSURE_ENV(r_res));
14492         push((int)&&__ret543);
14493         goto *(SOB_CLOSURE_CODE(r_res));
14494 __ret543:
14495         sp = sp-2-stack[sp-2];
14496         r[0] = (int)getSymbol("cddaar",topLevel);
14497         ((SymbolEntry*)r[0])->isDefined = 1;
14498         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14499         r_res = (int)&sc_void;
14500 __ret542:
14501         /* set return address */
14502         ST_RET() = (int)&&__ret544;
14503
14504
14505         r_res = (int)probeSymbolDefined("cdadr",topLevel);
14506         if (r_res==0) goto __else637;
14507         if (! ((SymbolEntry*)r_res)->isDefined) goto __else637;
14508         r_res = (int)((SymbolEntry*)r_res)->sob;
14509         goto __endIf637;
14510 __else637:
14511         fprintf(stderr,"Symbol cdadr not defined"); exit(-1);
14512 __endIf637:
14513         push(r_res);
14514         r_res = (int)probeSymbolDefined("cdr",topLevel);
14515         if (r_res==0) goto __else638;
14516         if (! ((SymbolEntry*)r_res)->isDefined) goto __else638;
14517         r_res = (int)((SymbolEntry*)r_res)->sob;
14518         goto __endIf638;
14519 __else638:
14520         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14521 __endIf638:
14522         push(r_res);
14523         push(2);
14524         r_res = (int)probeSymbolDefined("compose",topLevel);
14525         if (r_res==0) goto __else639;
14526         if (! ((SymbolEntry*)r_res)->isDefined) goto __else639;
14527         r_res = (int)((SymbolEntry*)r_res)->sob;
14528         goto __endIf639;
14529 __else639:
14530         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14531 __endIf639:
14532         if (IS_SOB_CLOSURE(r_res)) goto __app398;
14533         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14534 __app398:
14535         push((int)SOB_CLOSURE_ENV(r_res));
14536         push((int)&&__ret545);
14537         goto *(SOB_CLOSURE_CODE(r_res));
14538 __ret545:
14539         sp = sp-2-stack[sp-2];
14540         r[0] = (int)getSymbol("cddadr",topLevel);
14541         ((SymbolEntry*)r[0])->isDefined = 1;
14542         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14543         r_res = (int)&sc_void;
14544 __ret544:
14545         /* set return address */
14546         ST_RET() = (int)&&__ret546;
14547
14548
14549         r_res = (int)probeSymbolDefined("cddar",topLevel);
14550         if (r_res==0) goto __else640;
14551         if (! ((SymbolEntry*)r_res)->isDefined) goto __else640;
14552         r_res = (int)((SymbolEntry*)r_res)->sob;
14553         goto __endIf640;
14554 __else640:
14555         fprintf(stderr,"Symbol cddar not defined"); exit(-1);
14556 __endIf640:
14557         push(r_res);
14558         r_res = (int)probeSymbolDefined("cdr",topLevel);
14559         if (r_res==0) goto __else641;
14560         if (! ((SymbolEntry*)r_res)->isDefined) goto __else641;
14561         r_res = (int)((SymbolEntry*)r_res)->sob;
14562         goto __endIf641;
14563 __else641:
14564         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14565 __endIf641:
14566         push(r_res);
14567         push(2);
14568         r_res = (int)probeSymbolDefined("compose",topLevel);
14569         if (r_res==0) goto __else642;
14570         if (! ((SymbolEntry*)r_res)->isDefined) goto __else642;
14571         r_res = (int)((SymbolEntry*)r_res)->sob;
14572         goto __endIf642;
14573 __else642:
14574         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14575 __endIf642:
14576         if (IS_SOB_CLOSURE(r_res)) goto __app399;
14577         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14578 __app399:
14579         push((int)SOB_CLOSURE_ENV(r_res));
14580         push((int)&&__ret547);
14581         goto *(SOB_CLOSURE_CODE(r_res));
14582 __ret547:
14583         sp = sp-2-stack[sp-2];
14584         r[0] = (int)getSymbol("cdddar",topLevel);
14585         ((SymbolEntry*)r[0])->isDefined = 1;
14586         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14587         r_res = (int)&sc_void;
14588 __ret546:
14589         /* set return address */
14590         ST_RET() = (int)&&__ret548;
14591
14592
14593         r_res = (int)probeSymbolDefined("cdddr",topLevel);
14594         if (r_res==0) goto __else643;
14595         if (! ((SymbolEntry*)r_res)->isDefined) goto __else643;
14596         r_res = (int)((SymbolEntry*)r_res)->sob;
14597         goto __endIf643;
14598 __else643:
14599         fprintf(stderr,"Symbol cdddr not defined"); exit(-1);
14600 __endIf643:
14601         push(r_res);
14602         r_res = (int)probeSymbolDefined("cdr",topLevel);
14603         if (r_res==0) goto __else644;
14604         if (! ((SymbolEntry*)r_res)->isDefined) goto __else644;
14605         r_res = (int)((SymbolEntry*)r_res)->sob;
14606         goto __endIf644;
14607 __else644:
14608         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14609 __endIf644:
14610         push(r_res);
14611         push(2);
14612         r_res = (int)probeSymbolDefined("compose",topLevel);
14613         if (r_res==0) goto __else645;
14614         if (! ((SymbolEntry*)r_res)->isDefined) goto __else645;
14615         r_res = (int)((SymbolEntry*)r_res)->sob;
14616         goto __endIf645;
14617 __else645:
14618         fprintf(stderr,"Symbol compose not defined"); exit(-1);
14619 __endIf645:
14620         if (IS_SOB_CLOSURE(r_res)) goto __app400;
14621         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14622 __app400:
14623         push((int)SOB_CLOSURE_ENV(r_res));
14624         push((int)&&__ret549);
14625         goto *(SOB_CLOSURE_CODE(r_res));
14626 __ret549:
14627         sp = sp-2-stack[sp-2];
14628         r[0] = (int)getSymbol("cddddr",topLevel);
14629         ((SymbolEntry*)r[0])->isDefined = 1;
14630         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14631         r_res = (int)&sc_void;
14632 __ret548:
14633         /* set return address */
14634         ST_RET() = (int)&&__ret550;
14635
14636         r[0] = (int)extendEnviroment( (int**)NULL, 0);
14637         goto __skipBody166;
14638 __body166:
14639         push(fp);
14640         fp = sp;
14641         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14642         r_res = (int)&sc_false;
14643         push(r_res);
14644         push(1);
14645         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
14646         goto __skipBody167;
14647 __body167:
14648         push(fp);
14649         fp = sp;
14650         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14651
14652         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14653         r_res = ST_ARG(0);
14654         push(r_res);
14655         push(1);
14656         r_res = (int)probeSymbolDefined("box",topLevel);
14657         if (r_res==0) goto __else646;
14658         if (! ((SymbolEntry*)r_res)->isDefined) goto __else646;
14659         r_res = (int)((SymbolEntry*)r_res)->sob;
14660         goto __endIf646;
14661 __else646:
14662         fprintf(stderr,"Symbol box not defined"); exit(-1);
14663 __endIf646:
14664         if (IS_SOB_CLOSURE(r_res)) goto __app401;
14665         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14666 __app401:
14667         push((int)SOB_CLOSURE_ENV(r_res));
14668         push((int)&&__ret551);
14669         goto *(SOB_CLOSURE_CODE(r_res));
14670 __ret551:
14671         sp = sp-2-stack[sp-2];
14672         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14673         ST_ARG(0) = r_res;
14674         r_res = (int)&sc_void;
14675
14676         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
14677         goto __skipBody168;
14678 __body168:
14679         push(fp);
14680         fp = sp;
14681         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14682
14683         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14684         r_res = ST_ARG(0);
14685         push(r_res);
14686         push(1);
14687         r_res = (int)probeSymbolDefined("null?",topLevel);
14688         if (r_res==0) goto __else648;
14689         if (! ((SymbolEntry*)r_res)->isDefined) goto __else648;
14690         r_res = (int)((SymbolEntry*)r_res)->sob;
14691         goto __endIf648;
14692 __else648:
14693         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
14694 __endIf648:
14695         if (IS_SOB_CLOSURE(r_res)) goto __app403;
14696         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14697 __app403:
14698         push((int)SOB_CLOSURE_ENV(r_res));
14699         push((int)&&__ret553);
14700         goto *(SOB_CLOSURE_CODE(r_res));
14701 __ret553:
14702         sp = sp-2-stack[sp-2];
14703         if ((SchemeObject*)r_res==&sc_false) goto __else647;
14704         r_res = ((int**)ST_ENV())[1][1];
14705         goto __endIf647;
14706 __else647:
14707
14708
14709         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14710         r_res = ST_ARG(0);
14711         push(r_res);
14712         push(1);
14713         r_res = (int)probeSymbolDefined("cdr",topLevel);
14714         if (r_res==0) goto __else649;
14715         if (! ((SymbolEntry*)r_res)->isDefined) goto __else649;
14716         r_res = (int)((SymbolEntry*)r_res)->sob;
14717         goto __endIf649;
14718 __else649:
14719         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14720 __endIf649:
14721         if (IS_SOB_CLOSURE(r_res)) goto __app405;
14722         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14723 __app405:
14724         push((int)SOB_CLOSURE_ENV(r_res));
14725         push((int)&&__ret555);
14726         goto *(SOB_CLOSURE_CODE(r_res));
14727 __ret555:
14728         sp = sp-2-stack[sp-2];
14729         push(r_res);
14730         push(1);
14731
14732         r_res = (int)&__sc_number85;
14733         push(r_res);
14734         r_res = ((int**)ST_ENV())[0][0];
14735         push(r_res);
14736         push(2);
14737         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
14738         if (r_res==0) goto __else650;
14739         if (! ((SymbolEntry*)r_res)->isDefined) goto __else650;
14740         r_res = (int)((SymbolEntry*)r_res)->sob;
14741         goto __endIf650;
14742 __else650:
14743         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
14744 __endIf650:
14745         if (IS_SOB_CLOSURE(r_res)) goto __app406;
14746         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14747 __app406:
14748         push((int)SOB_CLOSURE_ENV(r_res));
14749         push((int)&&__ret556);
14750         goto *(SOB_CLOSURE_CODE(r_res));
14751 __ret556:
14752         sp = sp-2-stack[sp-2];
14753         if (IS_SOB_CLOSURE(r_res)) goto __app404;
14754         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14755 __app404:
14756         push((int)SOB_CLOSURE_ENV(r_res));
14757         push((int)&&__ret554);
14758         goto *(SOB_CLOSURE_CODE(r_res));
14759 __ret554:
14760         sp = sp-2-stack[sp-2];
14761         push(r_res);
14762
14763         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14764         r_res = ST_ARG(0);
14765         push(r_res);
14766         push(1);
14767         r_res = (int)probeSymbolDefined("car",topLevel);
14768         if (r_res==0) goto __else651;
14769         if (! ((SymbolEntry*)r_res)->isDefined) goto __else651;
14770         r_res = (int)((SymbolEntry*)r_res)->sob;
14771         goto __endIf651;
14772 __else651:
14773         fprintf(stderr,"Symbol car not defined"); exit(-1);
14774 __endIf651:
14775         if (IS_SOB_CLOSURE(r_res)) goto __app407;
14776         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14777 __app407:
14778         push((int)SOB_CLOSURE_ENV(r_res));
14779         push((int)&&__ret557);
14780         goto *(SOB_CLOSURE_CODE(r_res));
14781 __ret557:
14782         sp = sp-2-stack[sp-2];
14783         push(r_res);
14784         push(2);
14785         r_res = ((int**)ST_ENV())[1][0];
14786         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14787         push((int)SOB_CLOSURE_ENV(r_res));
14788         push(ST_RET());
14789         shiftActFrmDown();
14790         goto *(SOB_CLOSURE_CODE(r_res));
14791         sp = sp-2-stack[sp-2];
14792 __endIf647:
14793         fp = pop();
14794         RETURN();
14795 __skipBody168:
14796         r_res = (int)makeSchemeClosure((void*)r[0],&&__body168);
14797         push(r_res);
14798         r_res = (int)&__sc_number86;
14799         push(r_res);
14800         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14801         r_res = ST_ARG(0);
14802         push(r_res);
14803         push(3);
14804         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
14805         if (r_res==0) goto __else652;
14806         if (! ((SymbolEntry*)r_res)->isDefined) goto __else652;
14807         r_res = (int)((SymbolEntry*)r_res)->sob;
14808         goto __endIf652;
14809 __else652:
14810         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
14811 __endIf652:
14812         if (IS_SOB_CLOSURE(r_res)) goto __app402;
14813         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14814 __app402:
14815         push((int)SOB_CLOSURE_ENV(r_res));
14816         push((int)&&__ret552);
14817         goto *(SOB_CLOSURE_CODE(r_res));
14818 __ret552:
14819         sp = sp-2-stack[sp-2];
14820         push(0);
14821         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
14822         goto __skipBody169;
14823 __body169:
14824         push(fp);
14825         fp = sp;
14826         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14827         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
14828         goto __skipBody170;
14829 __body170:
14830         push(fp);
14831         fp = sp;
14832         prepareStackForAbsOpt(1);
14833         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14834         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14835         r_res = ST_ARG(0);
14836         push(r_res);
14837         push(1);
14838
14839         r_res = (int)&__sc_number87;
14840         push(r_res);
14841         r_res = ((int**)ST_ENV())[1][0];
14842         push(r_res);
14843         push(2);
14844         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
14845         if (r_res==0) goto __else653;
14846         if (! ((SymbolEntry*)r_res)->isDefined) goto __else653;
14847         r_res = (int)((SymbolEntry*)r_res)->sob;
14848         goto __endIf653;
14849 __else653:
14850         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
14851 __endIf653:
14852         if (IS_SOB_CLOSURE(r_res)) goto __app408;
14853         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14854 __app408:
14855         push((int)SOB_CLOSURE_ENV(r_res));
14856         push((int)&&__ret558);
14857         goto *(SOB_CLOSURE_CODE(r_res));
14858 __ret558:
14859         sp = sp-2-stack[sp-2];
14860         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14861         push((int)SOB_CLOSURE_ENV(r_res));
14862         push(ST_RET());
14863         shiftActFrmDown();
14864         goto *(SOB_CLOSURE_CODE(r_res));
14865         sp = sp-2-stack[sp-2];
14866         fp = pop();
14867         RETURN();
14868 __skipBody170:
14869         r_res = (int)makeSchemeClosure((void*)r[0],&&__body170);
14870         fp = pop();
14871         RETURN();
14872 __skipBody169:
14873         r_res = (int)makeSchemeClosure((void*)r[0],&&__body169);
14874         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14875         push((int)SOB_CLOSURE_ENV(r_res));
14876         push(ST_RET());
14877         shiftActFrmDown();
14878         goto *(SOB_CLOSURE_CODE(r_res));
14879         sp = sp-2-stack[sp-2];
14880         fp = pop();
14881         RETURN();
14882 __skipBody167:
14883         r_res = (int)makeSchemeClosure((void*)r[0],&&__body167);
14884         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14885         push((int)SOB_CLOSURE_ENV(r_res));
14886         push(ST_RET());
14887         shiftActFrmDown();
14888         goto *(SOB_CLOSURE_CODE(r_res));
14889         sp = sp-2-stack[sp-2];
14890         fp = pop();
14891         RETURN();
14892 __skipBody166:
14893         r_res = (int)makeSchemeClosure((void*)r[0],&&__body166);
14894         r[0] = (int)getSymbol("^variadic-right-from-binary",topLevel);
14895         ((SymbolEntry*)r[0])->isDefined = 1;
14896         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
14897         r_res = (int)&sc_void;
14898 __ret550:
14899         /* set return address */
14900         ST_RET() = (int)&&__ret559;
14901
14902         r[0] = (int)extendEnviroment( (int**)NULL, 0);
14903         goto __skipBody171;
14904 __body171:
14905         push(fp);
14906         fp = sp;
14907         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14908         r_res = (int)&sc_false;
14909         push(r_res);
14910         push(1);
14911         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
14912         goto __skipBody172;
14913 __body172:
14914         push(fp);
14915         fp = sp;
14916         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14917
14918         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14919         r_res = ST_ARG(0);
14920         push(r_res);
14921         push(1);
14922         r_res = (int)probeSymbolDefined("box",topLevel);
14923         if (r_res==0) goto __else654;
14924         if (! ((SymbolEntry*)r_res)->isDefined) goto __else654;
14925         r_res = (int)((SymbolEntry*)r_res)->sob;
14926         goto __endIf654;
14927 __else654:
14928         fprintf(stderr,"Symbol box not defined"); exit(-1);
14929 __endIf654:
14930         if (IS_SOB_CLOSURE(r_res)) goto __app409;
14931         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14932 __app409:
14933         push((int)SOB_CLOSURE_ENV(r_res));
14934         push((int)&&__ret560);
14935         goto *(SOB_CLOSURE_CODE(r_res));
14936 __ret560:
14937         sp = sp-2-stack[sp-2];
14938         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14939         ST_ARG(0) = r_res;
14940         r_res = (int)&sc_void;
14941
14942         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
14943         goto __skipBody173;
14944 __body173:
14945         push(fp);
14946         fp = sp;
14947         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
14948
14949         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
14950         r_res = ST_ARG(1);
14951         push(r_res);
14952         push(1);
14953         r_res = (int)probeSymbolDefined("null?",topLevel);
14954         if (r_res==0) goto __else656;
14955         if (! ((SymbolEntry*)r_res)->isDefined) goto __else656;
14956         r_res = (int)((SymbolEntry*)r_res)->sob;
14957         goto __endIf656;
14958 __else656:
14959         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
14960 __endIf656:
14961         if (IS_SOB_CLOSURE(r_res)) goto __app411;
14962         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14963 __app411:
14964         push((int)SOB_CLOSURE_ENV(r_res));
14965         push((int)&&__ret562);
14966         goto *(SOB_CLOSURE_CODE(r_res));
14967 __ret562:
14968         sp = sp-2-stack[sp-2];
14969         if ((SchemeObject*)r_res==&sc_false) goto __else655;
14970         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
14971         r_res = ST_ARG(0);
14972         goto __endIf655;
14973 __else655:
14974
14975         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
14976         r_res = ST_ARG(1);
14977         push(r_res);
14978         push(1);
14979         r_res = (int)probeSymbolDefined("cdr",topLevel);
14980         if (r_res==0) goto __else657;
14981         if (! ((SymbolEntry*)r_res)->isDefined) goto __else657;
14982         r_res = (int)((SymbolEntry*)r_res)->sob;
14983         goto __endIf657;
14984 __else657:
14985         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
14986 __endIf657:
14987         if (IS_SOB_CLOSURE(r_res)) goto __app412;
14988         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
14989 __app412:
14990         push((int)SOB_CLOSURE_ENV(r_res));
14991         push((int)&&__ret563);
14992         goto *(SOB_CLOSURE_CODE(r_res));
14993 __ret563:
14994         sp = sp-2-stack[sp-2];
14995         push(r_res);
14996
14997
14998         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
14999         r_res = ST_ARG(1);
15000         push(r_res);
15001         push(1);
15002         r_res = (int)probeSymbolDefined("car",topLevel);
15003         if (r_res==0) goto __else658;
15004         if (! ((SymbolEntry*)r_res)->isDefined) goto __else658;
15005         r_res = (int)((SymbolEntry*)r_res)->sob;
15006         goto __endIf658;
15007 __else658:
15008         fprintf(stderr,"Symbol car not defined"); exit(-1);
15009 __endIf658:
15010         if (IS_SOB_CLOSURE(r_res)) goto __app414;
15011         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15012 __app414:
15013         push((int)SOB_CLOSURE_ENV(r_res));
15014         push((int)&&__ret565);
15015         goto *(SOB_CLOSURE_CODE(r_res));
15016 __ret565:
15017         sp = sp-2-stack[sp-2];
15018         push(r_res);
15019         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15020         r_res = ST_ARG(0);
15021         push(r_res);
15022         push(2);
15023         r_res = ((int**)ST_ENV())[1][0];
15024         if (IS_SOB_CLOSURE(r_res)) goto __app413;
15025         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15026 __app413:
15027         push((int)SOB_CLOSURE_ENV(r_res));
15028         push((int)&&__ret564);
15029         goto *(SOB_CLOSURE_CODE(r_res));
15030 __ret564:
15031         sp = sp-2-stack[sp-2];
15032         push(r_res);
15033         push(2);
15034
15035         r_res = (int)&__sc_number88;
15036         push(r_res);
15037         r_res = ((int**)ST_ENV())[0][0];
15038         push(r_res);
15039         push(2);
15040         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
15041         if (r_res==0) goto __else659;
15042         if (! ((SymbolEntry*)r_res)->isDefined) goto __else659;
15043         r_res = (int)((SymbolEntry*)r_res)->sob;
15044         goto __endIf659;
15045 __else659:
15046         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
15047 __endIf659:
15048         if (IS_SOB_CLOSURE(r_res)) goto __app415;
15049         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15050 __app415:
15051         push((int)SOB_CLOSURE_ENV(r_res));
15052         push((int)&&__ret566);
15053         goto *(SOB_CLOSURE_CODE(r_res));
15054 __ret566:
15055         sp = sp-2-stack[sp-2];
15056         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15057         push((int)SOB_CLOSURE_ENV(r_res));
15058         push(ST_RET());
15059         shiftActFrmDown();
15060         goto *(SOB_CLOSURE_CODE(r_res));
15061         sp = sp-2-stack[sp-2];
15062 __endIf655:
15063         fp = pop();
15064         RETURN();
15065 __skipBody173:
15066         r_res = (int)makeSchemeClosure((void*)r[0],&&__body173);
15067         push(r_res);
15068         r_res = (int)&__sc_number89;
15069         push(r_res);
15070         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15071         r_res = ST_ARG(0);
15072         push(r_res);
15073         push(3);
15074         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
15075         if (r_res==0) goto __else660;
15076         if (! ((SymbolEntry*)r_res)->isDefined) goto __else660;
15077         r_res = (int)((SymbolEntry*)r_res)->sob;
15078         goto __endIf660;
15079 __else660:
15080         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
15081 __endIf660:
15082         if (IS_SOB_CLOSURE(r_res)) goto __app410;
15083         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15084 __app410:
15085         push((int)SOB_CLOSURE_ENV(r_res));
15086         push((int)&&__ret561);
15087         goto *(SOB_CLOSURE_CODE(r_res));
15088 __ret561:
15089         sp = sp-2-stack[sp-2];
15090         push(0);
15091         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
15092         goto __skipBody174;
15093 __body174:
15094         push(fp);
15095         fp = sp;
15096         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15097         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
15098         goto __skipBody175;
15099 __body175:
15100         push(fp);
15101         fp = sp;
15102         prepareStackForAbsOpt(1);
15103         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15104
15105         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15106         r_res = ST_ARG(0);
15107         push(r_res);
15108         push(1);
15109         r_res = (int)probeSymbolDefined("null?",topLevel);
15110         if (r_res==0) goto __else662;
15111         if (! ((SymbolEntry*)r_res)->isDefined) goto __else662;
15112         r_res = (int)((SymbolEntry*)r_res)->sob;
15113         goto __endIf662;
15114 __else662:
15115         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
15116 __endIf662:
15117         if (IS_SOB_CLOSURE(r_res)) goto __app416;
15118         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15119 __app416:
15120         push((int)SOB_CLOSURE_ENV(r_res));
15121         push((int)&&__ret567);
15122         goto *(SOB_CLOSURE_CODE(r_res));
15123 __ret567:
15124         sp = sp-2-stack[sp-2];
15125         if ((SchemeObject*)r_res==&sc_false) goto __else661;
15126         r_res = ((int**)ST_ENV())[2][1];
15127         goto __endIf661;
15128 __else661:
15129
15130         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15131         r_res = ST_ARG(0);
15132         push(r_res);
15133         push(1);
15134         r_res = (int)probeSymbolDefined("cdr",topLevel);
15135         if (r_res==0) goto __else663;
15136         if (! ((SymbolEntry*)r_res)->isDefined) goto __else663;
15137         r_res = (int)((SymbolEntry*)r_res)->sob;
15138         goto __endIf663;
15139 __else663:
15140         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
15141 __endIf663:
15142         if (IS_SOB_CLOSURE(r_res)) goto __app417;
15143         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15144 __app417:
15145         push((int)SOB_CLOSURE_ENV(r_res));
15146         push((int)&&__ret568);
15147         goto *(SOB_CLOSURE_CODE(r_res));
15148 __ret568:
15149         sp = sp-2-stack[sp-2];
15150         push(r_res);
15151
15152         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15153         r_res = ST_ARG(0);
15154         push(r_res);
15155         push(1);
15156         r_res = (int)probeSymbolDefined("car",topLevel);
15157         if (r_res==0) goto __else664;
15158         if (! ((SymbolEntry*)r_res)->isDefined) goto __else664;
15159         r_res = (int)((SymbolEntry*)r_res)->sob;
15160         goto __endIf664;
15161 __else664:
15162         fprintf(stderr,"Symbol car not defined"); exit(-1);
15163 __endIf664:
15164         if (IS_SOB_CLOSURE(r_res)) goto __app418;
15165         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15166 __app418:
15167         push((int)SOB_CLOSURE_ENV(r_res));
15168         push((int)&&__ret569);
15169         goto *(SOB_CLOSURE_CODE(r_res));
15170 __ret569:
15171         sp = sp-2-stack[sp-2];
15172         push(r_res);
15173         push(2);
15174
15175         r_res = (int)&__sc_number90;
15176         push(r_res);
15177         r_res = ((int**)ST_ENV())[1][0];
15178         push(r_res);
15179         push(2);
15180         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
15181         if (r_res==0) goto __else665;
15182         if (! ((SymbolEntry*)r_res)->isDefined) goto __else665;
15183         r_res = (int)((SymbolEntry*)r_res)->sob;
15184         goto __endIf665;
15185 __else665:
15186         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
15187 __endIf665:
15188         if (IS_SOB_CLOSURE(r_res)) goto __app419;
15189         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15190 __app419:
15191         push((int)SOB_CLOSURE_ENV(r_res));
15192         push((int)&&__ret570);
15193         goto *(SOB_CLOSURE_CODE(r_res));
15194 __ret570:
15195         sp = sp-2-stack[sp-2];
15196         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15197         push((int)SOB_CLOSURE_ENV(r_res));
15198         push(ST_RET());
15199         shiftActFrmDown();
15200         goto *(SOB_CLOSURE_CODE(r_res));
15201         sp = sp-2-stack[sp-2];
15202 __endIf661:
15203         fp = pop();
15204         RETURN();
15205 __skipBody175:
15206         r_res = (int)makeSchemeClosure((void*)r[0],&&__body175);
15207         fp = pop();
15208         RETURN();
15209 __skipBody174:
15210         r_res = (int)makeSchemeClosure((void*)r[0],&&__body174);
15211         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15212         push((int)SOB_CLOSURE_ENV(r_res));
15213         push(ST_RET());
15214         shiftActFrmDown();
15215         goto *(SOB_CLOSURE_CODE(r_res));
15216         sp = sp-2-stack[sp-2];
15217         fp = pop();
15218         RETURN();
15219 __skipBody172:
15220         r_res = (int)makeSchemeClosure((void*)r[0],&&__body172);
15221         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15222         push((int)SOB_CLOSURE_ENV(r_res));
15223         push(ST_RET());
15224         shiftActFrmDown();
15225         goto *(SOB_CLOSURE_CODE(r_res));
15226         sp = sp-2-stack[sp-2];
15227         fp = pop();
15228         RETURN();
15229 __skipBody171:
15230         r_res = (int)makeSchemeClosure((void*)r[0],&&__body171);
15231         r[0] = (int)getSymbol("^variadic-left-from-binary",topLevel);
15232         ((SymbolEntry*)r[0])->isDefined = 1;
15233         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15234         r_res = (int)&sc_void;
15235 __ret559:
15236         /* set return address */
15237         ST_RET() = (int)&&__ret571;
15238
15239
15240         r_res = (int)&__sc_number91;
15241         push(r_res);
15242         r_res = (int)probeSymbolDefined("binary-add",topLevel);
15243         if (r_res==0) goto __else666;
15244         if (! ((SymbolEntry*)r_res)->isDefined) goto __else666;
15245         r_res = (int)((SymbolEntry*)r_res)->sob;
15246         goto __endIf666;
15247 __else666:
15248         fprintf(stderr,"Symbol binary-add not defined"); exit(-1);
15249 __endIf666:
15250         push(r_res);
15251         push(2);
15252         r_res = (int)probeSymbolDefined("^variadic-right-from-binary",topLevel);
15253         if (r_res==0) goto __else667;
15254         if (! ((SymbolEntry*)r_res)->isDefined) goto __else667;
15255         r_res = (int)((SymbolEntry*)r_res)->sob;
15256         goto __endIf667;
15257 __else667:
15258         fprintf(stderr,"Symbol ^variadic-right-from-binary not defined"); exit(-1);
15259 __endIf667:
15260         if (IS_SOB_CLOSURE(r_res)) goto __app420;
15261         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15262 __app420:
15263         push((int)SOB_CLOSURE_ENV(r_res));
15264         push((int)&&__ret572);
15265         goto *(SOB_CLOSURE_CODE(r_res));
15266 __ret572:
15267         sp = sp-2-stack[sp-2];
15268         r[0] = (int)getSymbol("+",topLevel);
15269         ((SymbolEntry*)r[0])->isDefined = 1;
15270         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15271         r_res = (int)&sc_void;
15272 __ret571:
15273         /* set return address */
15274         ST_RET() = (int)&&__ret573;
15275
15276
15277         r_res = (int)&__sc_number92;
15278         push(r_res);
15279         r_res = (int)probeSymbolDefined("binary-mul",topLevel);
15280         if (r_res==0) goto __else668;
15281         if (! ((SymbolEntry*)r_res)->isDefined) goto __else668;
15282         r_res = (int)((SymbolEntry*)r_res)->sob;
15283         goto __endIf668;
15284 __else668:
15285         fprintf(stderr,"Symbol binary-mul not defined"); exit(-1);
15286 __endIf668:
15287         push(r_res);
15288         push(2);
15289         r_res = (int)probeSymbolDefined("^variadic-right-from-binary",topLevel);
15290         if (r_res==0) goto __else669;
15291         if (! ((SymbolEntry*)r_res)->isDefined) goto __else669;
15292         r_res = (int)((SymbolEntry*)r_res)->sob;
15293         goto __endIf669;
15294 __else669:
15295         fprintf(stderr,"Symbol ^variadic-right-from-binary not defined"); exit(-1);
15296 __endIf669:
15297         if (IS_SOB_CLOSURE(r_res)) goto __app421;
15298         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15299 __app421:
15300         push((int)SOB_CLOSURE_ENV(r_res));
15301         push((int)&&__ret574);
15302         goto *(SOB_CLOSURE_CODE(r_res));
15303 __ret574:
15304         sp = sp-2-stack[sp-2];
15305         r[0] = (int)getSymbol("*",topLevel);
15306         ((SymbolEntry*)r[0])->isDefined = 1;
15307         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15308         r_res = (int)&sc_void;
15309 __ret573:
15310         /* set return address */
15311         ST_RET() = (int)&&__ret575;
15312
15313
15314         r_res = (int)&__sc_number93;
15315         push(r_res);
15316         r_res = (int)probeSymbolDefined("binary-sub",topLevel);
15317         if (r_res==0) goto __else670;
15318         if (! ((SymbolEntry*)r_res)->isDefined) goto __else670;
15319         r_res = (int)((SymbolEntry*)r_res)->sob;
15320         goto __endIf670;
15321 __else670:
15322         fprintf(stderr,"Symbol binary-sub not defined"); exit(-1);
15323 __endIf670:
15324         push(r_res);
15325         push(2);
15326         r_res = (int)probeSymbolDefined("^variadic-left-from-binary",topLevel);
15327         if (r_res==0) goto __else671;
15328         if (! ((SymbolEntry*)r_res)->isDefined) goto __else671;
15329         r_res = (int)((SymbolEntry*)r_res)->sob;
15330         goto __endIf671;
15331 __else671:
15332         fprintf(stderr,"Symbol ^variadic-left-from-binary not defined"); exit(-1);
15333 __endIf671:
15334         if (IS_SOB_CLOSURE(r_res)) goto __app422;
15335         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15336 __app422:
15337         push((int)SOB_CLOSURE_ENV(r_res));
15338         push((int)&&__ret576);
15339         goto *(SOB_CLOSURE_CODE(r_res));
15340 __ret576:
15341         sp = sp-2-stack[sp-2];
15342         r[0] = (int)getSymbol("-",topLevel);
15343         ((SymbolEntry*)r[0])->isDefined = 1;
15344         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15345         r_res = (int)&sc_void;
15346 __ret575:
15347         /* set return address */
15348         ST_RET() = (int)&&__ret577;
15349
15350
15351         r_res = (int)&__sc_number94;
15352         push(r_res);
15353         r_res = (int)probeSymbolDefined("binary-div",topLevel);
15354         if (r_res==0) goto __else672;
15355         if (! ((SymbolEntry*)r_res)->isDefined) goto __else672;
15356         r_res = (int)((SymbolEntry*)r_res)->sob;
15357         goto __endIf672;
15358 __else672:
15359         fprintf(stderr,"Symbol binary-div not defined"); exit(-1);
15360 __endIf672:
15361         push(r_res);
15362         push(2);
15363         r_res = (int)probeSymbolDefined("^variadic-left-from-binary",topLevel);
15364         if (r_res==0) goto __else673;
15365         if (! ((SymbolEntry*)r_res)->isDefined) goto __else673;
15366         r_res = (int)((SymbolEntry*)r_res)->sob;
15367         goto __endIf673;
15368 __else673:
15369         fprintf(stderr,"Symbol ^variadic-left-from-binary not defined"); exit(-1);
15370 __endIf673:
15371         if (IS_SOB_CLOSURE(r_res)) goto __app423;
15372         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15373 __app423:
15374         push((int)SOB_CLOSURE_ENV(r_res));
15375         push((int)&&__ret578);
15376         goto *(SOB_CLOSURE_CODE(r_res));
15377 __ret578:
15378         sp = sp-2-stack[sp-2];
15379         r[0] = (int)getSymbol("/",topLevel);
15380         ((SymbolEntry*)r[0])->isDefined = 1;
15381         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15382         r_res = (int)&sc_void;
15383 __ret577:
15384         /* set return address */
15385         ST_RET() = (int)&&__ret579;
15386
15387         r[0] = (int)extendEnviroment( (int**)NULL, 0);
15388         goto __skipBody176;
15389 __body176:
15390         push(fp);
15391         fp = sp;
15392         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15393         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
15394         goto __skipBody177;
15395 __body177:
15396         push(fp);
15397         fp = sp;
15398         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15399
15400
15401         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
15402         r_res = ST_ARG(1);
15403         push(r_res);
15404         push(1);
15405         r_res = (int)probeSymbolDefined("char->integer",topLevel);
15406         if (r_res==0) goto __else674;
15407         if (! ((SymbolEntry*)r_res)->isDefined) goto __else674;
15408         r_res = (int)((SymbolEntry*)r_res)->sob;
15409         goto __endIf674;
15410 __else674:
15411         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
15412 __endIf674:
15413         if (IS_SOB_CLOSURE(r_res)) goto __app424;
15414         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15415 __app424:
15416         push((int)SOB_CLOSURE_ENV(r_res));
15417         push((int)&&__ret580);
15418         goto *(SOB_CLOSURE_CODE(r_res));
15419 __ret580:
15420         sp = sp-2-stack[sp-2];
15421         push(r_res);
15422
15423         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15424         r_res = ST_ARG(0);
15425         push(r_res);
15426         push(1);
15427         r_res = (int)probeSymbolDefined("char->integer",topLevel);
15428         if (r_res==0) goto __else675;
15429         if (! ((SymbolEntry*)r_res)->isDefined) goto __else675;
15430         r_res = (int)((SymbolEntry*)r_res)->sob;
15431         goto __endIf675;
15432 __else675:
15433         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
15434 __endIf675:
15435         if (IS_SOB_CLOSURE(r_res)) goto __app425;
15436         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15437 __app425:
15438         push((int)SOB_CLOSURE_ENV(r_res));
15439         push((int)&&__ret581);
15440         goto *(SOB_CLOSURE_CODE(r_res));
15441 __ret581:
15442         sp = sp-2-stack[sp-2];
15443         push(r_res);
15444         push(2);
15445         r_res = ((int**)ST_ENV())[0][0];
15446         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15447         push((int)SOB_CLOSURE_ENV(r_res));
15448         push(ST_RET());
15449         shiftActFrmDown();
15450         goto *(SOB_CLOSURE_CODE(r_res));
15451         sp = sp-2-stack[sp-2];
15452         fp = pop();
15453         RETURN();
15454 __skipBody177:
15455         r_res = (int)makeSchemeClosure((void*)r[0],&&__body177);
15456         fp = pop();
15457         RETURN();
15458 __skipBody176:
15459         r_res = (int)makeSchemeClosure((void*)r[0],&&__body176);
15460         r[0] = (int)getSymbol("^char-op",topLevel);
15461         ((SymbolEntry*)r[0])->isDefined = 1;
15462         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15463         r_res = (int)&sc_void;
15464 __ret579:
15465         /* set return address */
15466         ST_RET() = (int)&&__ret582;
15467
15468
15469
15470         r_res = (int)probeSymbolDefined("=",topLevel);
15471         if (r_res==0) goto __else676;
15472         if (! ((SymbolEntry*)r_res)->isDefined) goto __else676;
15473         r_res = (int)((SymbolEntry*)r_res)->sob;
15474         goto __endIf676;
15475 __else676:
15476         fprintf(stderr,"Symbol = not defined"); exit(-1);
15477 __endIf676:
15478         push(r_res);
15479         push(1);
15480         r_res = (int)probeSymbolDefined("^char-op",topLevel);
15481         if (r_res==0) goto __else677;
15482         if (! ((SymbolEntry*)r_res)->isDefined) goto __else677;
15483         r_res = (int)((SymbolEntry*)r_res)->sob;
15484         goto __endIf677;
15485 __else677:
15486         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
15487 __endIf677:
15488         if (IS_SOB_CLOSURE(r_res)) goto __app427;
15489         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15490 __app427:
15491         push((int)SOB_CLOSURE_ENV(r_res));
15492         push((int)&&__ret584);
15493         goto *(SOB_CLOSURE_CODE(r_res));
15494 __ret584:
15495         sp = sp-2-stack[sp-2];
15496         push(r_res);
15497         push(1);
15498         r_res = (int)probeSymbolDefined("order",topLevel);
15499         if (r_res==0) goto __else678;
15500         if (! ((SymbolEntry*)r_res)->isDefined) goto __else678;
15501         r_res = (int)((SymbolEntry*)r_res)->sob;
15502         goto __endIf678;
15503 __else678:
15504         fprintf(stderr,"Symbol order not defined"); exit(-1);
15505 __endIf678:
15506         if (IS_SOB_CLOSURE(r_res)) goto __app426;
15507         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15508 __app426:
15509         push((int)SOB_CLOSURE_ENV(r_res));
15510         push((int)&&__ret583);
15511         goto *(SOB_CLOSURE_CODE(r_res));
15512 __ret583:
15513         sp = sp-2-stack[sp-2];
15514         r[0] = (int)getSymbol("char=?",topLevel);
15515         ((SymbolEntry*)r[0])->isDefined = 1;
15516         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15517         r_res = (int)&sc_void;
15518 __ret582:
15519         /* set return address */
15520         ST_RET() = (int)&&__ret585;
15521
15522
15523
15524         r_res = (int)probeSymbolDefined("<=",topLevel);
15525         if (r_res==0) goto __else679;
15526         if (! ((SymbolEntry*)r_res)->isDefined) goto __else679;
15527         r_res = (int)((SymbolEntry*)r_res)->sob;
15528         goto __endIf679;
15529 __else679:
15530         fprintf(stderr,"Symbol <= not defined"); exit(-1);
15531 __endIf679:
15532         push(r_res);
15533         push(1);
15534         r_res = (int)probeSymbolDefined("^char-op",topLevel);
15535         if (r_res==0) goto __else680;
15536         if (! ((SymbolEntry*)r_res)->isDefined) goto __else680;
15537         r_res = (int)((SymbolEntry*)r_res)->sob;
15538         goto __endIf680;
15539 __else680:
15540         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
15541 __endIf680:
15542         if (IS_SOB_CLOSURE(r_res)) goto __app429;
15543         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15544 __app429:
15545         push((int)SOB_CLOSURE_ENV(r_res));
15546         push((int)&&__ret587);
15547         goto *(SOB_CLOSURE_CODE(r_res));
15548 __ret587:
15549         sp = sp-2-stack[sp-2];
15550         push(r_res);
15551         push(1);
15552         r_res = (int)probeSymbolDefined("order",topLevel);
15553         if (r_res==0) goto __else681;
15554         if (! ((SymbolEntry*)r_res)->isDefined) goto __else681;
15555         r_res = (int)((SymbolEntry*)r_res)->sob;
15556         goto __endIf681;
15557 __else681:
15558         fprintf(stderr,"Symbol order not defined"); exit(-1);
15559 __endIf681:
15560         if (IS_SOB_CLOSURE(r_res)) goto __app428;
15561         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15562 __app428:
15563         push((int)SOB_CLOSURE_ENV(r_res));
15564         push((int)&&__ret586);
15565         goto *(SOB_CLOSURE_CODE(r_res));
15566 __ret586:
15567         sp = sp-2-stack[sp-2];
15568         r[0] = (int)getSymbol("char<=?",topLevel);
15569         ((SymbolEntry*)r[0])->isDefined = 1;
15570         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15571         r_res = (int)&sc_void;
15572 __ret585:
15573         /* set return address */
15574         ST_RET() = (int)&&__ret588;
15575
15576
15577
15578         r_res = (int)probeSymbolDefined("<",topLevel);
15579         if (r_res==0) goto __else682;
15580         if (! ((SymbolEntry*)r_res)->isDefined) goto __else682;
15581         r_res = (int)((SymbolEntry*)r_res)->sob;
15582         goto __endIf682;
15583 __else682:
15584         fprintf(stderr,"Symbol < not defined"); exit(-1);
15585 __endIf682:
15586         push(r_res);
15587         push(1);
15588         r_res = (int)probeSymbolDefined("^char-op",topLevel);
15589         if (r_res==0) goto __else683;
15590         if (! ((SymbolEntry*)r_res)->isDefined) goto __else683;
15591         r_res = (int)((SymbolEntry*)r_res)->sob;
15592         goto __endIf683;
15593 __else683:
15594         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
15595 __endIf683:
15596         if (IS_SOB_CLOSURE(r_res)) goto __app431;
15597         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15598 __app431:
15599         push((int)SOB_CLOSURE_ENV(r_res));
15600         push((int)&&__ret590);
15601         goto *(SOB_CLOSURE_CODE(r_res));
15602 __ret590:
15603         sp = sp-2-stack[sp-2];
15604         push(r_res);
15605         push(1);
15606         r_res = (int)probeSymbolDefined("order",topLevel);
15607         if (r_res==0) goto __else684;
15608         if (! ((SymbolEntry*)r_res)->isDefined) goto __else684;
15609         r_res = (int)((SymbolEntry*)r_res)->sob;
15610         goto __endIf684;
15611 __else684:
15612         fprintf(stderr,"Symbol order not defined"); exit(-1);
15613 __endIf684:
15614         if (IS_SOB_CLOSURE(r_res)) goto __app430;
15615         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15616 __app430:
15617         push((int)SOB_CLOSURE_ENV(r_res));
15618         push((int)&&__ret589);
15619         goto *(SOB_CLOSURE_CODE(r_res));
15620 __ret589:
15621         sp = sp-2-stack[sp-2];
15622         r[0] = (int)getSymbol("char<?",topLevel);
15623         ((SymbolEntry*)r[0])->isDefined = 1;
15624         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15625         r_res = (int)&sc_void;
15626 __ret588:
15627         /* set return address */
15628         ST_RET() = (int)&&__ret591;
15629
15630
15631
15632         r_res = (int)probeSymbolDefined(">=",topLevel);
15633         if (r_res==0) goto __else685;
15634         if (! ((SymbolEntry*)r_res)->isDefined) goto __else685;
15635         r_res = (int)((SymbolEntry*)r_res)->sob;
15636         goto __endIf685;
15637 __else685:
15638         fprintf(stderr,"Symbol >= not defined"); exit(-1);
15639 __endIf685:
15640         push(r_res);
15641         push(1);
15642         r_res = (int)probeSymbolDefined("^char-op",topLevel);
15643         if (r_res==0) goto __else686;
15644         if (! ((SymbolEntry*)r_res)->isDefined) goto __else686;
15645         r_res = (int)((SymbolEntry*)r_res)->sob;
15646         goto __endIf686;
15647 __else686:
15648         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
15649 __endIf686:
15650         if (IS_SOB_CLOSURE(r_res)) goto __app433;
15651         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15652 __app433:
15653         push((int)SOB_CLOSURE_ENV(r_res));
15654         push((int)&&__ret593);
15655         goto *(SOB_CLOSURE_CODE(r_res));
15656 __ret593:
15657         sp = sp-2-stack[sp-2];
15658         push(r_res);
15659         push(1);
15660         r_res = (int)probeSymbolDefined("order",topLevel);
15661         if (r_res==0) goto __else687;
15662         if (! ((SymbolEntry*)r_res)->isDefined) goto __else687;
15663         r_res = (int)((SymbolEntry*)r_res)->sob;
15664         goto __endIf687;
15665 __else687:
15666         fprintf(stderr,"Symbol order not defined"); exit(-1);
15667 __endIf687:
15668         if (IS_SOB_CLOSURE(r_res)) goto __app432;
15669         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15670 __app432:
15671         push((int)SOB_CLOSURE_ENV(r_res));
15672         push((int)&&__ret592);
15673         goto *(SOB_CLOSURE_CODE(r_res));
15674 __ret592:
15675         sp = sp-2-stack[sp-2];
15676         r[0] = (int)getSymbol("char>=?",topLevel);
15677         ((SymbolEntry*)r[0])->isDefined = 1;
15678         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15679         r_res = (int)&sc_void;
15680 __ret591:
15681         /* set return address */
15682         ST_RET() = (int)&&__ret594;
15683
15684
15685
15686         r_res = (int)probeSymbolDefined(">",topLevel);
15687         if (r_res==0) goto __else688;
15688         if (! ((SymbolEntry*)r_res)->isDefined) goto __else688;
15689         r_res = (int)((SymbolEntry*)r_res)->sob;
15690         goto __endIf688;
15691 __else688:
15692         fprintf(stderr,"Symbol > not defined"); exit(-1);
15693 __endIf688:
15694         push(r_res);
15695         push(1);
15696         r_res = (int)probeSymbolDefined("^char-op",topLevel);
15697         if (r_res==0) goto __else689;
15698         if (! ((SymbolEntry*)r_res)->isDefined) goto __else689;
15699         r_res = (int)((SymbolEntry*)r_res)->sob;
15700         goto __endIf689;
15701 __else689:
15702         fprintf(stderr,"Symbol ^char-op not defined"); exit(-1);
15703 __endIf689:
15704         if (IS_SOB_CLOSURE(r_res)) goto __app435;
15705         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15706 __app435:
15707         push((int)SOB_CLOSURE_ENV(r_res));
15708         push((int)&&__ret596);
15709         goto *(SOB_CLOSURE_CODE(r_res));
15710 __ret596:
15711         sp = sp-2-stack[sp-2];
15712         push(r_res);
15713         push(1);
15714         r_res = (int)probeSymbolDefined("order",topLevel);
15715         if (r_res==0) goto __else690;
15716         if (! ((SymbolEntry*)r_res)->isDefined) goto __else690;
15717         r_res = (int)((SymbolEntry*)r_res)->sob;
15718         goto __endIf690;
15719 __else690:
15720         fprintf(stderr,"Symbol order not defined"); exit(-1);
15721 __endIf690:
15722         if (IS_SOB_CLOSURE(r_res)) goto __app434;
15723         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15724 __app434:
15725         push((int)SOB_CLOSURE_ENV(r_res));
15726         push((int)&&__ret595);
15727         goto *(SOB_CLOSURE_CODE(r_res));
15728 __ret595:
15729         sp = sp-2-stack[sp-2];
15730         r[0] = (int)getSymbol("char>?",topLevel);
15731         ((SymbolEntry*)r[0])->isDefined = 1;
15732         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15733         r_res = (int)&sc_void;
15734 __ret594:
15735         /* set return address */
15736         ST_RET() = (int)&&__ret597;
15737
15738         r[0] = (int)extendEnviroment( (int**)NULL, 0);
15739         goto __skipBody178;
15740 __body178:
15741         push(fp);
15742         fp = sp;
15743         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15744
15745         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15746         r_res = ST_ARG(0);
15747         push(r_res);
15748         r_res = (int)&__sc_char7;
15749         push(r_res);
15750         push(2);
15751         r_res = (int)probeSymbolDefined("char<=?",topLevel);
15752         if (r_res==0) goto __else692;
15753         if (! ((SymbolEntry*)r_res)->isDefined) goto __else692;
15754         r_res = (int)((SymbolEntry*)r_res)->sob;
15755         goto __endIf692;
15756 __else692:
15757         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
15758 __endIf692:
15759         if (IS_SOB_CLOSURE(r_res)) goto __app436;
15760         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15761 __app436:
15762         push((int)SOB_CLOSURE_ENV(r_res));
15763         push((int)&&__ret598);
15764         goto *(SOB_CLOSURE_CODE(r_res));
15765 __ret598:
15766         sp = sp-2-stack[sp-2];
15767         if ((SchemeObject*)r_res==&sc_false) goto __else691;
15768
15769         r_res = (int)&__sc_char8;
15770         push(r_res);
15771         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15772         r_res = ST_ARG(0);
15773         push(r_res);
15774         push(2);
15775         r_res = (int)probeSymbolDefined("char<=?",topLevel);
15776         if (r_res==0) goto __else693;
15777         if (! ((SymbolEntry*)r_res)->isDefined) goto __else693;
15778         r_res = (int)((SymbolEntry*)r_res)->sob;
15779         goto __endIf693;
15780 __else693:
15781         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
15782 __endIf693:
15783         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15784         push((int)SOB_CLOSURE_ENV(r_res));
15785         push(ST_RET());
15786         shiftActFrmDown();
15787         goto *(SOB_CLOSURE_CODE(r_res));
15788         sp = sp-2-stack[sp-2];
15789         goto __endIf691;
15790 __else691:
15791         r_res = (int)&sc_false;
15792 __endIf691:
15793         fp = pop();
15794         RETURN();
15795 __skipBody178:
15796         r_res = (int)makeSchemeClosure((void*)r[0],&&__body178);
15797         r[0] = (int)getSymbol("char-uppercase?",topLevel);
15798         ((SymbolEntry*)r[0])->isDefined = 1;
15799         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15800         r_res = (int)&sc_void;
15801 __ret597:
15802         /* set return address */
15803         ST_RET() = (int)&&__ret599;
15804
15805         r[0] = (int)extendEnviroment( (int**)NULL, 0);
15806         goto __skipBody179;
15807 __body179:
15808         push(fp);
15809         fp = sp;
15810         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15811
15812         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15813         r_res = ST_ARG(0);
15814         push(r_res);
15815         r_res = (int)&__sc_char9;
15816         push(r_res);
15817         push(2);
15818         r_res = (int)probeSymbolDefined("char<=?",topLevel);
15819         if (r_res==0) goto __else695;
15820         if (! ((SymbolEntry*)r_res)->isDefined) goto __else695;
15821         r_res = (int)((SymbolEntry*)r_res)->sob;
15822         goto __endIf695;
15823 __else695:
15824         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
15825 __endIf695:
15826         if (IS_SOB_CLOSURE(r_res)) goto __app437;
15827         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15828 __app437:
15829         push((int)SOB_CLOSURE_ENV(r_res));
15830         push((int)&&__ret600);
15831         goto *(SOB_CLOSURE_CODE(r_res));
15832 __ret600:
15833         sp = sp-2-stack[sp-2];
15834         if ((SchemeObject*)r_res==&sc_false) goto __else694;
15835
15836         r_res = (int)&__sc_char10;
15837         push(r_res);
15838         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15839         r_res = ST_ARG(0);
15840         push(r_res);
15841         push(2);
15842         r_res = (int)probeSymbolDefined("char<=?",topLevel);
15843         if (r_res==0) goto __else696;
15844         if (! ((SymbolEntry*)r_res)->isDefined) goto __else696;
15845         r_res = (int)((SymbolEntry*)r_res)->sob;
15846         goto __endIf696;
15847 __else696:
15848         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
15849 __endIf696:
15850         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15851         push((int)SOB_CLOSURE_ENV(r_res));
15852         push(ST_RET());
15853         shiftActFrmDown();
15854         goto *(SOB_CLOSURE_CODE(r_res));
15855         sp = sp-2-stack[sp-2];
15856         goto __endIf694;
15857 __else694:
15858         r_res = (int)&sc_false;
15859 __endIf694:
15860         fp = pop();
15861         RETURN();
15862 __skipBody179:
15863         r_res = (int)makeSchemeClosure((void*)r[0],&&__body179);
15864         r[0] = (int)getSymbol("char-lowercase?",topLevel);
15865         ((SymbolEntry*)r[0])->isDefined = 1;
15866         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
15867         r_res = (int)&sc_void;
15868 __ret599:
15869         /* set return address */
15870         ST_RET() = (int)&&__ret601;
15871
15872
15873
15874         r_res = (int)&__sc_char11;
15875         push(r_res);
15876         push(1);
15877         r_res = (int)probeSymbolDefined("char->integer",topLevel);
15878         if (r_res==0) goto __else697;
15879         if (! ((SymbolEntry*)r_res)->isDefined) goto __else697;
15880         r_res = (int)((SymbolEntry*)r_res)->sob;
15881         goto __endIf697;
15882 __else697:
15883         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
15884 __endIf697:
15885         if (IS_SOB_CLOSURE(r_res)) goto __app440;
15886         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15887 __app440:
15888         push((int)SOB_CLOSURE_ENV(r_res));
15889         push((int)&&__ret604);
15890         goto *(SOB_CLOSURE_CODE(r_res));
15891 __ret604:
15892         sp = sp-2-stack[sp-2];
15893         push(r_res);
15894
15895         r_res = (int)&__sc_char12;
15896         push(r_res);
15897         push(1);
15898         r_res = (int)probeSymbolDefined("char->integer",topLevel);
15899         if (r_res==0) goto __else698;
15900         if (! ((SymbolEntry*)r_res)->isDefined) goto __else698;
15901         r_res = (int)((SymbolEntry*)r_res)->sob;
15902         goto __endIf698;
15903 __else698:
15904         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
15905 __endIf698:
15906         if (IS_SOB_CLOSURE(r_res)) goto __app441;
15907         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15908 __app441:
15909         push((int)SOB_CLOSURE_ENV(r_res));
15910         push((int)&&__ret605);
15911         goto *(SOB_CLOSURE_CODE(r_res));
15912 __ret605:
15913         sp = sp-2-stack[sp-2];
15914         push(r_res);
15915         push(2);
15916         r_res = (int)probeSymbolDefined("-",topLevel);
15917         if (r_res==0) goto __else699;
15918         if (! ((SymbolEntry*)r_res)->isDefined) goto __else699;
15919         r_res = (int)((SymbolEntry*)r_res)->sob;
15920         goto __endIf699;
15921 __else699:
15922         fprintf(stderr,"Symbol - not defined"); exit(-1);
15923 __endIf699:
15924         if (IS_SOB_CLOSURE(r_res)) goto __app439;
15925         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15926 __app439:
15927         push((int)SOB_CLOSURE_ENV(r_res));
15928         push((int)&&__ret603);
15929         goto *(SOB_CLOSURE_CODE(r_res));
15930 __ret603:
15931         sp = sp-2-stack[sp-2];
15932         push(r_res);
15933         push(1);
15934         r[0] = (int)extendEnviroment( (int**)NULL, 0);
15935         goto __skipBody180;
15936 __body180:
15937         push(fp);
15938         fp = sp;
15939         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15940         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
15941         goto __skipBody181;
15942 __body181:
15943         push(fp);
15944         fp = sp;
15945         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
15946
15947         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15948         r_res = ST_ARG(0);
15949         push(r_res);
15950         push(1);
15951         r_res = (int)probeSymbolDefined("char-lowercase?",topLevel);
15952         if (r_res==0) goto __else701;
15953         if (! ((SymbolEntry*)r_res)->isDefined) goto __else701;
15954         r_res = (int)((SymbolEntry*)r_res)->sob;
15955         goto __endIf701;
15956 __else701:
15957         fprintf(stderr,"Symbol char-lowercase\? not defined"); exit(-1);
15958 __endIf701:
15959         if (IS_SOB_CLOSURE(r_res)) goto __app442;
15960         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15961 __app442:
15962         push((int)SOB_CLOSURE_ENV(r_res));
15963         push((int)&&__ret606);
15964         goto *(SOB_CLOSURE_CODE(r_res));
15965 __ret606:
15966         sp = sp-2-stack[sp-2];
15967         if ((SchemeObject*)r_res==&sc_false) goto __else700;
15968
15969
15970         r_res = ((int**)ST_ENV())[0][0];
15971         push(r_res);
15972
15973         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
15974         r_res = ST_ARG(0);
15975         push(r_res);
15976         push(1);
15977         r_res = (int)probeSymbolDefined("char->integer",topLevel);
15978         if (r_res==0) goto __else702;
15979         if (! ((SymbolEntry*)r_res)->isDefined) goto __else702;
15980         r_res = (int)((SymbolEntry*)r_res)->sob;
15981         goto __endIf702;
15982 __else702:
15983         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
15984 __endIf702:
15985         if (IS_SOB_CLOSURE(r_res)) goto __app444;
15986         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
15987 __app444:
15988         push((int)SOB_CLOSURE_ENV(r_res));
15989         push((int)&&__ret608);
15990         goto *(SOB_CLOSURE_CODE(r_res));
15991 __ret608:
15992         sp = sp-2-stack[sp-2];
15993         push(r_res);
15994         push(2);
15995         r_res = (int)probeSymbolDefined("-",topLevel);
15996         if (r_res==0) goto __else703;
15997         if (! ((SymbolEntry*)r_res)->isDefined) goto __else703;
15998         r_res = (int)((SymbolEntry*)r_res)->sob;
15999         goto __endIf703;
16000 __else703:
16001         fprintf(stderr,"Symbol - not defined"); exit(-1);
16002 __endIf703:
16003         if (IS_SOB_CLOSURE(r_res)) goto __app443;
16004         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16005 __app443:
16006         push((int)SOB_CLOSURE_ENV(r_res));
16007         push((int)&&__ret607);
16008         goto *(SOB_CLOSURE_CODE(r_res));
16009 __ret607:
16010         sp = sp-2-stack[sp-2];
16011         push(r_res);
16012         push(1);
16013         r_res = (int)probeSymbolDefined("integer->char",topLevel);
16014         if (r_res==0) goto __else704;
16015         if (! ((SymbolEntry*)r_res)->isDefined) goto __else704;
16016         r_res = (int)((SymbolEntry*)r_res)->sob;
16017         goto __endIf704;
16018 __else704:
16019         fprintf(stderr,"Symbol integer->char not defined"); exit(-1);
16020 __endIf704:
16021         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16022         push((int)SOB_CLOSURE_ENV(r_res));
16023         push(ST_RET());
16024         shiftActFrmDown();
16025         goto *(SOB_CLOSURE_CODE(r_res));
16026         sp = sp-2-stack[sp-2];
16027         goto __endIf700;
16028 __else700:
16029         r_res = (int)&sc_void;
16030 __endIf700:
16031         fp = pop();
16032         RETURN();
16033 __skipBody181:
16034         r_res = (int)makeSchemeClosure((void*)r[0],&&__body181);
16035         fp = pop();
16036         RETURN();
16037 __skipBody180:
16038         r_res = (int)makeSchemeClosure((void*)r[0],&&__body180);
16039         if (IS_SOB_CLOSURE(r_res)) goto __app438;
16040         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16041 __app438:
16042         push((int)SOB_CLOSURE_ENV(r_res));
16043         push((int)&&__ret602);
16044         goto *(SOB_CLOSURE_CODE(r_res));
16045 __ret602:
16046         sp = sp-2-stack[sp-2];
16047         r[0] = (int)getSymbol("char-upcase",topLevel);
16048         ((SymbolEntry*)r[0])->isDefined = 1;
16049         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16050         r_res = (int)&sc_void;
16051 __ret601:
16052         /* set return address */
16053         ST_RET() = (int)&&__ret609;
16054
16055
16056
16057         r_res = (int)&__sc_char13;
16058         push(r_res);
16059         push(1);
16060         r_res = (int)probeSymbolDefined("char->integer",topLevel);
16061         if (r_res==0) goto __else705;
16062         if (! ((SymbolEntry*)r_res)->isDefined) goto __else705;
16063         r_res = (int)((SymbolEntry*)r_res)->sob;
16064         goto __endIf705;
16065 __else705:
16066         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
16067 __endIf705:
16068         if (IS_SOB_CLOSURE(r_res)) goto __app447;
16069         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16070 __app447:
16071         push((int)SOB_CLOSURE_ENV(r_res));
16072         push((int)&&__ret612);
16073         goto *(SOB_CLOSURE_CODE(r_res));
16074 __ret612:
16075         sp = sp-2-stack[sp-2];
16076         push(r_res);
16077
16078         r_res = (int)&__sc_char14;
16079         push(r_res);
16080         push(1);
16081         r_res = (int)probeSymbolDefined("char->integer",topLevel);
16082         if (r_res==0) goto __else706;
16083         if (! ((SymbolEntry*)r_res)->isDefined) goto __else706;
16084         r_res = (int)((SymbolEntry*)r_res)->sob;
16085         goto __endIf706;
16086 __else706:
16087         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
16088 __endIf706:
16089         if (IS_SOB_CLOSURE(r_res)) goto __app448;
16090         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16091 __app448:
16092         push((int)SOB_CLOSURE_ENV(r_res));
16093         push((int)&&__ret613);
16094         goto *(SOB_CLOSURE_CODE(r_res));
16095 __ret613:
16096         sp = sp-2-stack[sp-2];
16097         push(r_res);
16098         push(2);
16099         r_res = (int)probeSymbolDefined("-",topLevel);
16100         if (r_res==0) goto __else707;
16101         if (! ((SymbolEntry*)r_res)->isDefined) goto __else707;
16102         r_res = (int)((SymbolEntry*)r_res)->sob;
16103         goto __endIf707;
16104 __else707:
16105         fprintf(stderr,"Symbol - not defined"); exit(-1);
16106 __endIf707:
16107         if (IS_SOB_CLOSURE(r_res)) goto __app446;
16108         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16109 __app446:
16110         push((int)SOB_CLOSURE_ENV(r_res));
16111         push((int)&&__ret611);
16112         goto *(SOB_CLOSURE_CODE(r_res));
16113 __ret611:
16114         sp = sp-2-stack[sp-2];
16115         push(r_res);
16116         push(1);
16117         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16118         goto __skipBody182;
16119 __body182:
16120         push(fp);
16121         fp = sp;
16122         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16123         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
16124         goto __skipBody183;
16125 __body183:
16126         push(fp);
16127         fp = sp;
16128         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16129
16130         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16131         r_res = ST_ARG(0);
16132         push(r_res);
16133         push(1);
16134         r_res = (int)probeSymbolDefined("char-uppercase?",topLevel);
16135         if (r_res==0) goto __else709;
16136         if (! ((SymbolEntry*)r_res)->isDefined) goto __else709;
16137         r_res = (int)((SymbolEntry*)r_res)->sob;
16138         goto __endIf709;
16139 __else709:
16140         fprintf(stderr,"Symbol char-uppercase\? not defined"); exit(-1);
16141 __endIf709:
16142         if (IS_SOB_CLOSURE(r_res)) goto __app449;
16143         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16144 __app449:
16145         push((int)SOB_CLOSURE_ENV(r_res));
16146         push((int)&&__ret614);
16147         goto *(SOB_CLOSURE_CODE(r_res));
16148 __ret614:
16149         sp = sp-2-stack[sp-2];
16150         if ((SchemeObject*)r_res==&sc_false) goto __else708;
16151
16152
16153         r_res = ((int**)ST_ENV())[0][0];
16154         push(r_res);
16155
16156         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16157         r_res = ST_ARG(0);
16158         push(r_res);
16159         push(1);
16160         r_res = (int)probeSymbolDefined("char->integer",topLevel);
16161         if (r_res==0) goto __else710;
16162         if (! ((SymbolEntry*)r_res)->isDefined) goto __else710;
16163         r_res = (int)((SymbolEntry*)r_res)->sob;
16164         goto __endIf710;
16165 __else710:
16166         fprintf(stderr,"Symbol char->integer not defined"); exit(-1);
16167 __endIf710:
16168         if (IS_SOB_CLOSURE(r_res)) goto __app451;
16169         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16170 __app451:
16171         push((int)SOB_CLOSURE_ENV(r_res));
16172         push((int)&&__ret616);
16173         goto *(SOB_CLOSURE_CODE(r_res));
16174 __ret616:
16175         sp = sp-2-stack[sp-2];
16176         push(r_res);
16177         push(2);
16178         r_res = (int)probeSymbolDefined("+",topLevel);
16179         if (r_res==0) goto __else711;
16180         if (! ((SymbolEntry*)r_res)->isDefined) goto __else711;
16181         r_res = (int)((SymbolEntry*)r_res)->sob;
16182         goto __endIf711;
16183 __else711:
16184         fprintf(stderr,"Symbol + not defined"); exit(-1);
16185 __endIf711:
16186         if (IS_SOB_CLOSURE(r_res)) goto __app450;
16187         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16188 __app450:
16189         push((int)SOB_CLOSURE_ENV(r_res));
16190         push((int)&&__ret615);
16191         goto *(SOB_CLOSURE_CODE(r_res));
16192 __ret615:
16193         sp = sp-2-stack[sp-2];
16194         push(r_res);
16195         push(1);
16196         r_res = (int)probeSymbolDefined("integer->char",topLevel);
16197         if (r_res==0) goto __else712;
16198         if (! ((SymbolEntry*)r_res)->isDefined) goto __else712;
16199         r_res = (int)((SymbolEntry*)r_res)->sob;
16200         goto __endIf712;
16201 __else712:
16202         fprintf(stderr,"Symbol integer->char not defined"); exit(-1);
16203 __endIf712:
16204         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16205         push((int)SOB_CLOSURE_ENV(r_res));
16206         push(ST_RET());
16207         shiftActFrmDown();
16208         goto *(SOB_CLOSURE_CODE(r_res));
16209         sp = sp-2-stack[sp-2];
16210         goto __endIf708;
16211 __else708:
16212         r_res = (int)&sc_void;
16213 __endIf708:
16214         fp = pop();
16215         RETURN();
16216 __skipBody183:
16217         r_res = (int)makeSchemeClosure((void*)r[0],&&__body183);
16218         fp = pop();
16219         RETURN();
16220 __skipBody182:
16221         r_res = (int)makeSchemeClosure((void*)r[0],&&__body182);
16222         if (IS_SOB_CLOSURE(r_res)) goto __app445;
16223         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16224 __app445:
16225         push((int)SOB_CLOSURE_ENV(r_res));
16226         push((int)&&__ret610);
16227         goto *(SOB_CLOSURE_CODE(r_res));
16228 __ret610:
16229         sp = sp-2-stack[sp-2];
16230         r[0] = (int)getSymbol("char-downcase",topLevel);
16231         ((SymbolEntry*)r[0])->isDefined = 1;
16232         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16233         r_res = (int)&sc_void;
16234 __ret609:
16235         /* set return address */
16236         ST_RET() = (int)&&__ret617;
16237
16238
16239         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16240         goto __skipBody184;
16241 __body184:
16242         push(fp);
16243         fp = sp;
16244         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16245
16246
16247         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
16248         r_res = ST_ARG(1);
16249         push(r_res);
16250         push(1);
16251         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16252         if (r_res==0) goto __else713;
16253         if (! ((SymbolEntry*)r_res)->isDefined) goto __else713;
16254         r_res = (int)((SymbolEntry*)r_res)->sob;
16255         goto __endIf713;
16256 __else713:
16257         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16258 __endIf713:
16259         if (IS_SOB_CLOSURE(r_res)) goto __app453;
16260         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16261 __app453:
16262         push((int)SOB_CLOSURE_ENV(r_res));
16263         push((int)&&__ret619);
16264         goto *(SOB_CLOSURE_CODE(r_res));
16265 __ret619:
16266         sp = sp-2-stack[sp-2];
16267         push(r_res);
16268
16269         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16270         r_res = ST_ARG(0);
16271         push(r_res);
16272         push(1);
16273         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16274         if (r_res==0) goto __else714;
16275         if (! ((SymbolEntry*)r_res)->isDefined) goto __else714;
16276         r_res = (int)((SymbolEntry*)r_res)->sob;
16277         goto __endIf714;
16278 __else714:
16279         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16280 __endIf714:
16281         if (IS_SOB_CLOSURE(r_res)) goto __app454;
16282         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16283 __app454:
16284         push((int)SOB_CLOSURE_ENV(r_res));
16285         push((int)&&__ret620);
16286         goto *(SOB_CLOSURE_CODE(r_res));
16287 __ret620:
16288         sp = sp-2-stack[sp-2];
16289         push(r_res);
16290         push(2);
16291         r_res = (int)probeSymbolDefined("char<=?",topLevel);
16292         if (r_res==0) goto __else715;
16293         if (! ((SymbolEntry*)r_res)->isDefined) goto __else715;
16294         r_res = (int)((SymbolEntry*)r_res)->sob;
16295         goto __endIf715;
16296 __else715:
16297         fprintf(stderr,"Symbol char<=\? not defined"); exit(-1);
16298 __endIf715:
16299         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16300         push((int)SOB_CLOSURE_ENV(r_res));
16301         push(ST_RET());
16302         shiftActFrmDown();
16303         goto *(SOB_CLOSURE_CODE(r_res));
16304         sp = sp-2-stack[sp-2];
16305         fp = pop();
16306         RETURN();
16307 __skipBody184:
16308         r_res = (int)makeSchemeClosure((void*)r[0],&&__body184);
16309         push(r_res);
16310         push(1);
16311         r_res = (int)probeSymbolDefined("order",topLevel);
16312         if (r_res==0) goto __else716;
16313         if (! ((SymbolEntry*)r_res)->isDefined) goto __else716;
16314         r_res = (int)((SymbolEntry*)r_res)->sob;
16315         goto __endIf716;
16316 __else716:
16317         fprintf(stderr,"Symbol order not defined"); exit(-1);
16318 __endIf716:
16319         if (IS_SOB_CLOSURE(r_res)) goto __app452;
16320         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16321 __app452:
16322         push((int)SOB_CLOSURE_ENV(r_res));
16323         push((int)&&__ret618);
16324         goto *(SOB_CLOSURE_CODE(r_res));
16325 __ret618:
16326         sp = sp-2-stack[sp-2];
16327         r[0] = (int)getSymbol("char-ci<=?",topLevel);
16328         ((SymbolEntry*)r[0])->isDefined = 1;
16329         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16330         r_res = (int)&sc_void;
16331 __ret617:
16332         /* set return address */
16333         ST_RET() = (int)&&__ret621;
16334
16335
16336         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16337         goto __skipBody185;
16338 __body185:
16339         push(fp);
16340         fp = sp;
16341         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16342
16343
16344         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
16345         r_res = ST_ARG(1);
16346         push(r_res);
16347         push(1);
16348         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16349         if (r_res==0) goto __else717;
16350         if (! ((SymbolEntry*)r_res)->isDefined) goto __else717;
16351         r_res = (int)((SymbolEntry*)r_res)->sob;
16352         goto __endIf717;
16353 __else717:
16354         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16355 __endIf717:
16356         if (IS_SOB_CLOSURE(r_res)) goto __app456;
16357         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16358 __app456:
16359         push((int)SOB_CLOSURE_ENV(r_res));
16360         push((int)&&__ret623);
16361         goto *(SOB_CLOSURE_CODE(r_res));
16362 __ret623:
16363         sp = sp-2-stack[sp-2];
16364         push(r_res);
16365
16366         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16367         r_res = ST_ARG(0);
16368         push(r_res);
16369         push(1);
16370         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16371         if (r_res==0) goto __else718;
16372         if (! ((SymbolEntry*)r_res)->isDefined) goto __else718;
16373         r_res = (int)((SymbolEntry*)r_res)->sob;
16374         goto __endIf718;
16375 __else718:
16376         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16377 __endIf718:
16378         if (IS_SOB_CLOSURE(r_res)) goto __app457;
16379         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16380 __app457:
16381         push((int)SOB_CLOSURE_ENV(r_res));
16382         push((int)&&__ret624);
16383         goto *(SOB_CLOSURE_CODE(r_res));
16384 __ret624:
16385         sp = sp-2-stack[sp-2];
16386         push(r_res);
16387         push(2);
16388         r_res = (int)probeSymbolDefined("char<?",topLevel);
16389         if (r_res==0) goto __else719;
16390         if (! ((SymbolEntry*)r_res)->isDefined) goto __else719;
16391         r_res = (int)((SymbolEntry*)r_res)->sob;
16392         goto __endIf719;
16393 __else719:
16394         fprintf(stderr,"Symbol char<\? not defined"); exit(-1);
16395 __endIf719:
16396         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16397         push((int)SOB_CLOSURE_ENV(r_res));
16398         push(ST_RET());
16399         shiftActFrmDown();
16400         goto *(SOB_CLOSURE_CODE(r_res));
16401         sp = sp-2-stack[sp-2];
16402         fp = pop();
16403         RETURN();
16404 __skipBody185:
16405         r_res = (int)makeSchemeClosure((void*)r[0],&&__body185);
16406         push(r_res);
16407         push(1);
16408         r_res = (int)probeSymbolDefined("order",topLevel);
16409         if (r_res==0) goto __else720;
16410         if (! ((SymbolEntry*)r_res)->isDefined) goto __else720;
16411         r_res = (int)((SymbolEntry*)r_res)->sob;
16412         goto __endIf720;
16413 __else720:
16414         fprintf(stderr,"Symbol order not defined"); exit(-1);
16415 __endIf720:
16416         if (IS_SOB_CLOSURE(r_res)) goto __app455;
16417         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16418 __app455:
16419         push((int)SOB_CLOSURE_ENV(r_res));
16420         push((int)&&__ret622);
16421         goto *(SOB_CLOSURE_CODE(r_res));
16422 __ret622:
16423         sp = sp-2-stack[sp-2];
16424         r[0] = (int)getSymbol("char-ci<?",topLevel);
16425         ((SymbolEntry*)r[0])->isDefined = 1;
16426         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16427         r_res = (int)&sc_void;
16428 __ret621:
16429         /* set return address */
16430         ST_RET() = (int)&&__ret625;
16431
16432
16433         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16434         goto __skipBody186;
16435 __body186:
16436         push(fp);
16437         fp = sp;
16438         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16439
16440
16441         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
16442         r_res = ST_ARG(1);
16443         push(r_res);
16444         push(1);
16445         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16446         if (r_res==0) goto __else721;
16447         if (! ((SymbolEntry*)r_res)->isDefined) goto __else721;
16448         r_res = (int)((SymbolEntry*)r_res)->sob;
16449         goto __endIf721;
16450 __else721:
16451         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16452 __endIf721:
16453         if (IS_SOB_CLOSURE(r_res)) goto __app459;
16454         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16455 __app459:
16456         push((int)SOB_CLOSURE_ENV(r_res));
16457         push((int)&&__ret627);
16458         goto *(SOB_CLOSURE_CODE(r_res));
16459 __ret627:
16460         sp = sp-2-stack[sp-2];
16461         push(r_res);
16462
16463         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16464         r_res = ST_ARG(0);
16465         push(r_res);
16466         push(1);
16467         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16468         if (r_res==0) goto __else722;
16469         if (! ((SymbolEntry*)r_res)->isDefined) goto __else722;
16470         r_res = (int)((SymbolEntry*)r_res)->sob;
16471         goto __endIf722;
16472 __else722:
16473         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16474 __endIf722:
16475         if (IS_SOB_CLOSURE(r_res)) goto __app460;
16476         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16477 __app460:
16478         push((int)SOB_CLOSURE_ENV(r_res));
16479         push((int)&&__ret628);
16480         goto *(SOB_CLOSURE_CODE(r_res));
16481 __ret628:
16482         sp = sp-2-stack[sp-2];
16483         push(r_res);
16484         push(2);
16485         r_res = (int)probeSymbolDefined("char=?",topLevel);
16486         if (r_res==0) goto __else723;
16487         if (! ((SymbolEntry*)r_res)->isDefined) goto __else723;
16488         r_res = (int)((SymbolEntry*)r_res)->sob;
16489         goto __endIf723;
16490 __else723:
16491         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
16492 __endIf723:
16493         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16494         push((int)SOB_CLOSURE_ENV(r_res));
16495         push(ST_RET());
16496         shiftActFrmDown();
16497         goto *(SOB_CLOSURE_CODE(r_res));
16498         sp = sp-2-stack[sp-2];
16499         fp = pop();
16500         RETURN();
16501 __skipBody186:
16502         r_res = (int)makeSchemeClosure((void*)r[0],&&__body186);
16503         push(r_res);
16504         push(1);
16505         r_res = (int)probeSymbolDefined("order",topLevel);
16506         if (r_res==0) goto __else724;
16507         if (! ((SymbolEntry*)r_res)->isDefined) goto __else724;
16508         r_res = (int)((SymbolEntry*)r_res)->sob;
16509         goto __endIf724;
16510 __else724:
16511         fprintf(stderr,"Symbol order not defined"); exit(-1);
16512 __endIf724:
16513         if (IS_SOB_CLOSURE(r_res)) goto __app458;
16514         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16515 __app458:
16516         push((int)SOB_CLOSURE_ENV(r_res));
16517         push((int)&&__ret626);
16518         goto *(SOB_CLOSURE_CODE(r_res));
16519 __ret626:
16520         sp = sp-2-stack[sp-2];
16521         r[0] = (int)getSymbol("char-ci=?",topLevel);
16522         ((SymbolEntry*)r[0])->isDefined = 1;
16523         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16524         r_res = (int)&sc_void;
16525 __ret625:
16526         /* set return address */
16527         ST_RET() = (int)&&__ret629;
16528
16529
16530         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16531         goto __skipBody187;
16532 __body187:
16533         push(fp);
16534         fp = sp;
16535         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16536
16537
16538         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
16539         r_res = ST_ARG(1);
16540         push(r_res);
16541         push(1);
16542         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16543         if (r_res==0) goto __else725;
16544         if (! ((SymbolEntry*)r_res)->isDefined) goto __else725;
16545         r_res = (int)((SymbolEntry*)r_res)->sob;
16546         goto __endIf725;
16547 __else725:
16548         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16549 __endIf725:
16550         if (IS_SOB_CLOSURE(r_res)) goto __app462;
16551         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16552 __app462:
16553         push((int)SOB_CLOSURE_ENV(r_res));
16554         push((int)&&__ret631);
16555         goto *(SOB_CLOSURE_CODE(r_res));
16556 __ret631:
16557         sp = sp-2-stack[sp-2];
16558         push(r_res);
16559
16560         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16561         r_res = ST_ARG(0);
16562         push(r_res);
16563         push(1);
16564         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16565         if (r_res==0) goto __else726;
16566         if (! ((SymbolEntry*)r_res)->isDefined) goto __else726;
16567         r_res = (int)((SymbolEntry*)r_res)->sob;
16568         goto __endIf726;
16569 __else726:
16570         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16571 __endIf726:
16572         if (IS_SOB_CLOSURE(r_res)) goto __app463;
16573         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16574 __app463:
16575         push((int)SOB_CLOSURE_ENV(r_res));
16576         push((int)&&__ret632);
16577         goto *(SOB_CLOSURE_CODE(r_res));
16578 __ret632:
16579         sp = sp-2-stack[sp-2];
16580         push(r_res);
16581         push(2);
16582         r_res = (int)probeSymbolDefined("char>?",topLevel);
16583         if (r_res==0) goto __else727;
16584         if (! ((SymbolEntry*)r_res)->isDefined) goto __else727;
16585         r_res = (int)((SymbolEntry*)r_res)->sob;
16586         goto __endIf727;
16587 __else727:
16588         fprintf(stderr,"Symbol char>\? not defined"); exit(-1);
16589 __endIf727:
16590         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16591         push((int)SOB_CLOSURE_ENV(r_res));
16592         push(ST_RET());
16593         shiftActFrmDown();
16594         goto *(SOB_CLOSURE_CODE(r_res));
16595         sp = sp-2-stack[sp-2];
16596         fp = pop();
16597         RETURN();
16598 __skipBody187:
16599         r_res = (int)makeSchemeClosure((void*)r[0],&&__body187);
16600         push(r_res);
16601         push(1);
16602         r_res = (int)probeSymbolDefined("order",topLevel);
16603         if (r_res==0) goto __else728;
16604         if (! ((SymbolEntry*)r_res)->isDefined) goto __else728;
16605         r_res = (int)((SymbolEntry*)r_res)->sob;
16606         goto __endIf728;
16607 __else728:
16608         fprintf(stderr,"Symbol order not defined"); exit(-1);
16609 __endIf728:
16610         if (IS_SOB_CLOSURE(r_res)) goto __app461;
16611         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16612 __app461:
16613         push((int)SOB_CLOSURE_ENV(r_res));
16614         push((int)&&__ret630);
16615         goto *(SOB_CLOSURE_CODE(r_res));
16616 __ret630:
16617         sp = sp-2-stack[sp-2];
16618         r[0] = (int)getSymbol("char-ci>?",topLevel);
16619         ((SymbolEntry*)r[0])->isDefined = 1;
16620         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16621         r_res = (int)&sc_void;
16622 __ret629:
16623         /* set return address */
16624         ST_RET() = (int)&&__ret633;
16625
16626
16627         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16628         goto __skipBody188;
16629 __body188:
16630         push(fp);
16631         fp = sp;
16632         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16633
16634
16635         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
16636         r_res = ST_ARG(1);
16637         push(r_res);
16638         push(1);
16639         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16640         if (r_res==0) goto __else729;
16641         if (! ((SymbolEntry*)r_res)->isDefined) goto __else729;
16642         r_res = (int)((SymbolEntry*)r_res)->sob;
16643         goto __endIf729;
16644 __else729:
16645         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16646 __endIf729:
16647         if (IS_SOB_CLOSURE(r_res)) goto __app465;
16648         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16649 __app465:
16650         push((int)SOB_CLOSURE_ENV(r_res));
16651         push((int)&&__ret635);
16652         goto *(SOB_CLOSURE_CODE(r_res));
16653 __ret635:
16654         sp = sp-2-stack[sp-2];
16655         push(r_res);
16656
16657         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16658         r_res = ST_ARG(0);
16659         push(r_res);
16660         push(1);
16661         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16662         if (r_res==0) goto __else730;
16663         if (! ((SymbolEntry*)r_res)->isDefined) goto __else730;
16664         r_res = (int)((SymbolEntry*)r_res)->sob;
16665         goto __endIf730;
16666 __else730:
16667         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16668 __endIf730:
16669         if (IS_SOB_CLOSURE(r_res)) goto __app466;
16670         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16671 __app466:
16672         push((int)SOB_CLOSURE_ENV(r_res));
16673         push((int)&&__ret636);
16674         goto *(SOB_CLOSURE_CODE(r_res));
16675 __ret636:
16676         sp = sp-2-stack[sp-2];
16677         push(r_res);
16678         push(2);
16679         r_res = (int)probeSymbolDefined("char>=?",topLevel);
16680         if (r_res==0) goto __else731;
16681         if (! ((SymbolEntry*)r_res)->isDefined) goto __else731;
16682         r_res = (int)((SymbolEntry*)r_res)->sob;
16683         goto __endIf731;
16684 __else731:
16685         fprintf(stderr,"Symbol char>=\? not defined"); exit(-1);
16686 __endIf731:
16687         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16688         push((int)SOB_CLOSURE_ENV(r_res));
16689         push(ST_RET());
16690         shiftActFrmDown();
16691         goto *(SOB_CLOSURE_CODE(r_res));
16692         sp = sp-2-stack[sp-2];
16693         fp = pop();
16694         RETURN();
16695 __skipBody188:
16696         r_res = (int)makeSchemeClosure((void*)r[0],&&__body188);
16697         push(r_res);
16698         push(1);
16699         r_res = (int)probeSymbolDefined("order",topLevel);
16700         if (r_res==0) goto __else732;
16701         if (! ((SymbolEntry*)r_res)->isDefined) goto __else732;
16702         r_res = (int)((SymbolEntry*)r_res)->sob;
16703         goto __endIf732;
16704 __else732:
16705         fprintf(stderr,"Symbol order not defined"); exit(-1);
16706 __endIf732:
16707         if (IS_SOB_CLOSURE(r_res)) goto __app464;
16708         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16709 __app464:
16710         push((int)SOB_CLOSURE_ENV(r_res));
16711         push((int)&&__ret634);
16712         goto *(SOB_CLOSURE_CODE(r_res));
16713 __ret634:
16714         sp = sp-2-stack[sp-2];
16715         r[0] = (int)getSymbol("char-ci>=?",topLevel);
16716         ((SymbolEntry*)r[0])->isDefined = 1;
16717         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16718         r_res = (int)&sc_void;
16719 __ret633:
16720         /* set return address */
16721         ST_RET() = (int)&&__ret637;
16722
16723         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16724         goto __skipBody189;
16725 __body189:
16726         push(fp);
16727         fp = sp;
16728         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16729
16730
16731
16732         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16733         r_res = ST_ARG(0);
16734         push(r_res);
16735         push(1);
16736         r_res = (int)probeSymbolDefined("string->list",topLevel);
16737         if (r_res==0) goto __else733;
16738         if (! ((SymbolEntry*)r_res)->isDefined) goto __else733;
16739         r_res = (int)((SymbolEntry*)r_res)->sob;
16740         goto __endIf733;
16741 __else733:
16742         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
16743 __endIf733:
16744         if (IS_SOB_CLOSURE(r_res)) goto __app468;
16745         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16746 __app468:
16747         push((int)SOB_CLOSURE_ENV(r_res));
16748         push((int)&&__ret639);
16749         goto *(SOB_CLOSURE_CODE(r_res));
16750 __ret639:
16751         sp = sp-2-stack[sp-2];
16752         push(r_res);
16753         r_res = (int)probeSymbolDefined("char-upcase",topLevel);
16754         if (r_res==0) goto __else734;
16755         if (! ((SymbolEntry*)r_res)->isDefined) goto __else734;
16756         r_res = (int)((SymbolEntry*)r_res)->sob;
16757         goto __endIf734;
16758 __else734:
16759         fprintf(stderr,"Symbol char-upcase not defined"); exit(-1);
16760 __endIf734:
16761         push(r_res);
16762         push(2);
16763         r_res = (int)probeSymbolDefined("map",topLevel);
16764         if (r_res==0) goto __else735;
16765         if (! ((SymbolEntry*)r_res)->isDefined) goto __else735;
16766         r_res = (int)((SymbolEntry*)r_res)->sob;
16767         goto __endIf735;
16768 __else735:
16769         fprintf(stderr,"Symbol map not defined"); exit(-1);
16770 __endIf735:
16771         if (IS_SOB_CLOSURE(r_res)) goto __app467;
16772         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16773 __app467:
16774         push((int)SOB_CLOSURE_ENV(r_res));
16775         push((int)&&__ret638);
16776         goto *(SOB_CLOSURE_CODE(r_res));
16777 __ret638:
16778         sp = sp-2-stack[sp-2];
16779         push(r_res);
16780         push(1);
16781         r_res = (int)probeSymbolDefined("list->string",topLevel);
16782         if (r_res==0) goto __else736;
16783         if (! ((SymbolEntry*)r_res)->isDefined) goto __else736;
16784         r_res = (int)((SymbolEntry*)r_res)->sob;
16785         goto __endIf736;
16786 __else736:
16787         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
16788 __endIf736:
16789         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16790         push((int)SOB_CLOSURE_ENV(r_res));
16791         push(ST_RET());
16792         shiftActFrmDown();
16793         goto *(SOB_CLOSURE_CODE(r_res));
16794         sp = sp-2-stack[sp-2];
16795         fp = pop();
16796         RETURN();
16797 __skipBody189:
16798         r_res = (int)makeSchemeClosure((void*)r[0],&&__body189);
16799         r[0] = (int)getSymbol("string-upcase",topLevel);
16800         ((SymbolEntry*)r[0])->isDefined = 1;
16801         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16802         r_res = (int)&sc_void;
16803 __ret637:
16804         /* set return address */
16805         ST_RET() = (int)&&__ret640;
16806
16807         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16808         goto __skipBody190;
16809 __body190:
16810         push(fp);
16811         fp = sp;
16812         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16813
16814
16815
16816         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16817         r_res = ST_ARG(0);
16818         push(r_res);
16819         push(1);
16820         r_res = (int)probeSymbolDefined("string->list",topLevel);
16821         if (r_res==0) goto __else737;
16822         if (! ((SymbolEntry*)r_res)->isDefined) goto __else737;
16823         r_res = (int)((SymbolEntry*)r_res)->sob;
16824         goto __endIf737;
16825 __else737:
16826         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
16827 __endIf737:
16828         if (IS_SOB_CLOSURE(r_res)) goto __app470;
16829         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16830 __app470:
16831         push((int)SOB_CLOSURE_ENV(r_res));
16832         push((int)&&__ret642);
16833         goto *(SOB_CLOSURE_CODE(r_res));
16834 __ret642:
16835         sp = sp-2-stack[sp-2];
16836         push(r_res);
16837         r_res = (int)probeSymbolDefined("char-downcase",topLevel);
16838         if (r_res==0) goto __else738;
16839         if (! ((SymbolEntry*)r_res)->isDefined) goto __else738;
16840         r_res = (int)((SymbolEntry*)r_res)->sob;
16841         goto __endIf738;
16842 __else738:
16843         fprintf(stderr,"Symbol char-downcase not defined"); exit(-1);
16844 __endIf738:
16845         push(r_res);
16846         push(2);
16847         r_res = (int)probeSymbolDefined("map",topLevel);
16848         if (r_res==0) goto __else739;
16849         if (! ((SymbolEntry*)r_res)->isDefined) goto __else739;
16850         r_res = (int)((SymbolEntry*)r_res)->sob;
16851         goto __endIf739;
16852 __else739:
16853         fprintf(stderr,"Symbol map not defined"); exit(-1);
16854 __endIf739:
16855         if (IS_SOB_CLOSURE(r_res)) goto __app469;
16856         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16857 __app469:
16858         push((int)SOB_CLOSURE_ENV(r_res));
16859         push((int)&&__ret641);
16860         goto *(SOB_CLOSURE_CODE(r_res));
16861 __ret641:
16862         sp = sp-2-stack[sp-2];
16863         push(r_res);
16864         push(1);
16865         r_res = (int)probeSymbolDefined("list->string",topLevel);
16866         if (r_res==0) goto __else740;
16867         if (! ((SymbolEntry*)r_res)->isDefined) goto __else740;
16868         r_res = (int)((SymbolEntry*)r_res)->sob;
16869         goto __endIf740;
16870 __else740:
16871         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
16872 __endIf740:
16873         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16874         push((int)SOB_CLOSURE_ENV(r_res));
16875         push(ST_RET());
16876         shiftActFrmDown();
16877         goto *(SOB_CLOSURE_CODE(r_res));
16878         sp = sp-2-stack[sp-2];
16879         fp = pop();
16880         RETURN();
16881 __skipBody190:
16882         r_res = (int)makeSchemeClosure((void*)r[0],&&__body190);
16883         r[0] = (int)getSymbol("string-downcase",topLevel);
16884         ((SymbolEntry*)r[0])->isDefined = 1;
16885         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16886         r_res = (int)&sc_void;
16887 __ret640:
16888         /* set return address */
16889         ST_RET() = (int)&&__ret643;
16890
16891         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16892         goto __skipBody191;
16893 __body191:
16894         push(fp);
16895         fp = sp;
16896         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16897
16898
16899         r_res = (int)&__sc_number95;
16900         push(r_res);
16901         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16902         r_res = ST_ARG(0);
16903         push(r_res);
16904         push(2);
16905         r_res = (int)probeSymbolDefined("remainder",topLevel);
16906         if (r_res==0) goto __else741;
16907         if (! ((SymbolEntry*)r_res)->isDefined) goto __else741;
16908         r_res = (int)((SymbolEntry*)r_res)->sob;
16909         goto __endIf741;
16910 __else741:
16911         fprintf(stderr,"Symbol remainder not defined"); exit(-1);
16912 __endIf741:
16913         if (IS_SOB_CLOSURE(r_res)) goto __app471;
16914         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16915 __app471:
16916         push((int)SOB_CLOSURE_ENV(r_res));
16917         push((int)&&__ret644);
16918         goto *(SOB_CLOSURE_CODE(r_res));
16919 __ret644:
16920         sp = sp-2-stack[sp-2];
16921         push(r_res);
16922         push(1);
16923         r_res = (int)probeSymbolDefined("zero?",topLevel);
16924         if (r_res==0) goto __else742;
16925         if (! ((SymbolEntry*)r_res)->isDefined) goto __else742;
16926         r_res = (int)((SymbolEntry*)r_res)->sob;
16927         goto __endIf742;
16928 __else742:
16929         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
16930 __endIf742:
16931         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16932         push((int)SOB_CLOSURE_ENV(r_res));
16933         push(ST_RET());
16934         shiftActFrmDown();
16935         goto *(SOB_CLOSURE_CODE(r_res));
16936         sp = sp-2-stack[sp-2];
16937         fp = pop();
16938         RETURN();
16939 __skipBody191:
16940         r_res = (int)makeSchemeClosure((void*)r[0],&&__body191);
16941         r[0] = (int)getSymbol("even?",topLevel);
16942         ((SymbolEntry*)r[0])->isDefined = 1;
16943         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
16944         r_res = (int)&sc_void;
16945 __ret643:
16946         /* set return address */
16947         ST_RET() = (int)&&__ret645;
16948
16949         r[0] = (int)extendEnviroment( (int**)NULL, 0);
16950         goto __skipBody192;
16951 __body192:
16952         push(fp);
16953         fp = sp;
16954         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
16955
16956
16957
16958         r_res = (int)&__sc_number96;
16959         push(r_res);
16960         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
16961         r_res = ST_ARG(0);
16962         push(r_res);
16963         push(2);
16964         r_res = (int)probeSymbolDefined("remainder",topLevel);
16965         if (r_res==0) goto __else743;
16966         if (! ((SymbolEntry*)r_res)->isDefined) goto __else743;
16967         r_res = (int)((SymbolEntry*)r_res)->sob;
16968         goto __endIf743;
16969 __else743:
16970         fprintf(stderr,"Symbol remainder not defined"); exit(-1);
16971 __endIf743:
16972         if (IS_SOB_CLOSURE(r_res)) goto __app473;
16973         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16974 __app473:
16975         push((int)SOB_CLOSURE_ENV(r_res));
16976         push((int)&&__ret647);
16977         goto *(SOB_CLOSURE_CODE(r_res));
16978 __ret647:
16979         sp = sp-2-stack[sp-2];
16980         push(r_res);
16981         push(1);
16982         r_res = (int)probeSymbolDefined("zero?",topLevel);
16983         if (r_res==0) goto __else744;
16984         if (! ((SymbolEntry*)r_res)->isDefined) goto __else744;
16985         r_res = (int)((SymbolEntry*)r_res)->sob;
16986         goto __endIf744;
16987 __else744:
16988         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
16989 __endIf744:
16990         if (IS_SOB_CLOSURE(r_res)) goto __app472;
16991         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
16992 __app472:
16993         push((int)SOB_CLOSURE_ENV(r_res));
16994         push((int)&&__ret646);
16995         goto *(SOB_CLOSURE_CODE(r_res));
16996 __ret646:
16997         sp = sp-2-stack[sp-2];
16998         push(r_res);
16999         push(1);
17000         r_res = (int)probeSymbolDefined("not",topLevel);
17001         if (r_res==0) goto __else745;
17002         if (! ((SymbolEntry*)r_res)->isDefined) goto __else745;
17003         r_res = (int)((SymbolEntry*)r_res)->sob;
17004         goto __endIf745;
17005 __else745:
17006         fprintf(stderr,"Symbol not not defined"); exit(-1);
17007 __endIf745:
17008         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17009         push((int)SOB_CLOSURE_ENV(r_res));
17010         push(ST_RET());
17011         shiftActFrmDown();
17012         goto *(SOB_CLOSURE_CODE(r_res));
17013         sp = sp-2-stack[sp-2];
17014         fp = pop();
17015         RETURN();
17016 __skipBody192:
17017         r_res = (int)makeSchemeClosure((void*)r[0],&&__body192);
17018         r[0] = (int)getSymbol("odd?",topLevel);
17019         ((SymbolEntry*)r[0])->isDefined = 1;
17020         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
17021         r_res = (int)&sc_void;
17022 __ret645:
17023         /* set return address */
17024         ST_RET() = (int)&&__ret648;
17025
17026         r[0] = (int)extendEnviroment( (int**)NULL, 0);
17027         goto __skipBody193;
17028 __body193:
17029         push(fp);
17030         fp = sp;
17031         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17032
17033         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17034         r_res = ST_ARG(0);
17035         push(r_res);
17036         push(1);
17037         r_res = (int)probeSymbolDefined("null?",topLevel);
17038         if (r_res==0) goto __else747;
17039         if (! ((SymbolEntry*)r_res)->isDefined) goto __else747;
17040         r_res = (int)((SymbolEntry*)r_res)->sob;
17041         goto __endIf747;
17042 __else747:
17043         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
17044 __endIf747:
17045         if (IS_SOB_CLOSURE(r_res)) goto __app474;
17046         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17047 __app474:
17048         push((int)SOB_CLOSURE_ENV(r_res));
17049         push((int)&&__ret649);
17050         goto *(SOB_CLOSURE_CODE(r_res));
17051 __ret649:
17052         sp = sp-2-stack[sp-2];
17053         if ((SchemeObject*)r_res==&sc_false) goto __else746;
17054         r_res = (int)&__sc_number97;
17055         goto __endIf746;
17056 __else746:
17057
17058
17059
17060         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17061         r_res = ST_ARG(0);
17062         push(r_res);
17063         push(1);
17064         r_res = (int)probeSymbolDefined("cdr",topLevel);
17065         if (r_res==0) goto __else748;
17066         if (! ((SymbolEntry*)r_res)->isDefined) goto __else748;
17067         r_res = (int)((SymbolEntry*)r_res)->sob;
17068         goto __endIf748;
17069 __else748:
17070         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
17071 __endIf748:
17072         if (IS_SOB_CLOSURE(r_res)) goto __app476;
17073         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17074 __app476:
17075         push((int)SOB_CLOSURE_ENV(r_res));
17076         push((int)&&__ret651);
17077         goto *(SOB_CLOSURE_CODE(r_res));
17078 __ret651:
17079         sp = sp-2-stack[sp-2];
17080         push(r_res);
17081         push(1);
17082         r_res = (int)probeSymbolDefined("length",topLevel);
17083         if (r_res==0) goto __else749;
17084         if (! ((SymbolEntry*)r_res)->isDefined) goto __else749;
17085         r_res = (int)((SymbolEntry*)r_res)->sob;
17086         goto __endIf749;
17087 __else749:
17088         fprintf(stderr,"Symbol length not defined"); exit(-1);
17089 __endIf749:
17090         if (IS_SOB_CLOSURE(r_res)) goto __app475;
17091         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17092 __app475:
17093         push((int)SOB_CLOSURE_ENV(r_res));
17094         push((int)&&__ret650);
17095         goto *(SOB_CLOSURE_CODE(r_res));
17096 __ret650:
17097         sp = sp-2-stack[sp-2];
17098         push(r_res);
17099         push(1);
17100         r_res = (int)probeSymbolDefined("add1",topLevel);
17101         if (r_res==0) goto __else750;
17102         if (! ((SymbolEntry*)r_res)->isDefined) goto __else750;
17103         r_res = (int)((SymbolEntry*)r_res)->sob;
17104         goto __endIf750;
17105 __else750:
17106         fprintf(stderr,"Symbol add1 not defined"); exit(-1);
17107 __endIf750:
17108         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17109         push((int)SOB_CLOSURE_ENV(r_res));
17110         push(ST_RET());
17111         shiftActFrmDown();
17112         goto *(SOB_CLOSURE_CODE(r_res));
17113         sp = sp-2-stack[sp-2];
17114 __endIf746:
17115         fp = pop();
17116         RETURN();
17117 __skipBody193:
17118         r_res = (int)makeSchemeClosure((void*)r[0],&&__body193);
17119         r[0] = (int)getSymbol("length",topLevel);
17120         ((SymbolEntry*)r[0])->isDefined = 1;
17121         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
17122         r_res = (int)&sc_void;
17123 __ret648:
17124         /* set return address */
17125         ST_RET() = (int)&&__ret652;
17126
17127         r[0] = (int)extendEnviroment( (int**)NULL, 0);
17128         goto __skipBody194;
17129 __body194:
17130         push(fp);
17131         fp = sp;
17132         prepareStackForAbsOpt(1);
17133         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17134         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17135         r_res = ST_ARG(0);
17136         fp = pop();
17137         RETURN();
17138 __skipBody194:
17139         r_res = (int)makeSchemeClosure((void*)r[0],&&__body194);
17140         r[0] = (int)getSymbol("list",topLevel);
17141         ((SymbolEntry*)r[0])->isDefined = 1;
17142         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
17143         r_res = (int)&sc_void;
17144 __ret652:
17145         /* set return address */
17146         ST_RET() = (int)&&__ret653;
17147
17148         r[0] = (int)extendEnviroment( (int**)NULL, 0);
17149         goto __skipBody195;
17150 __body195:
17151         push(fp);
17152         fp = sp;
17153         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17154
17155         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17156         r_res = ST_ARG(1);
17157         push(r_res);
17158         push(1);
17159         r_res = (int)probeSymbolDefined("zero?",topLevel);
17160         if (r_res==0) goto __else752;
17161         if (! ((SymbolEntry*)r_res)->isDefined) goto __else752;
17162         r_res = (int)((SymbolEntry*)r_res)->sob;
17163         goto __endIf752;
17164 __else752:
17165         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
17166 __endIf752:
17167         if (IS_SOB_CLOSURE(r_res)) goto __app477;
17168         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17169 __app477:
17170         push((int)SOB_CLOSURE_ENV(r_res));
17171         push((int)&&__ret654);
17172         goto *(SOB_CLOSURE_CODE(r_res));
17173 __ret654:
17174         sp = sp-2-stack[sp-2];
17175         if ((SchemeObject*)r_res==&sc_false) goto __else751;
17176
17177         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17178         r_res = ST_ARG(0);
17179         push(r_res);
17180         push(1);
17181         r_res = (int)probeSymbolDefined("car",topLevel);
17182         if (r_res==0) goto __else753;
17183         if (! ((SymbolEntry*)r_res)->isDefined) goto __else753;
17184         r_res = (int)((SymbolEntry*)r_res)->sob;
17185         goto __endIf753;
17186 __else753:
17187         fprintf(stderr,"Symbol car not defined"); exit(-1);
17188 __endIf753:
17189         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17190         push((int)SOB_CLOSURE_ENV(r_res));
17191         push(ST_RET());
17192         shiftActFrmDown();
17193         goto *(SOB_CLOSURE_CODE(r_res));
17194         sp = sp-2-stack[sp-2];
17195         goto __endIf751;
17196 __else751:
17197
17198
17199         r_res = (int)&__sc_number98;
17200         push(r_res);
17201         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17202         r_res = ST_ARG(1);
17203         push(r_res);
17204         push(2);
17205         r_res = (int)probeSymbolDefined("-",topLevel);
17206         if (r_res==0) goto __else754;
17207         if (! ((SymbolEntry*)r_res)->isDefined) goto __else754;
17208         r_res = (int)((SymbolEntry*)r_res)->sob;
17209         goto __endIf754;
17210 __else754:
17211         fprintf(stderr,"Symbol - not defined"); exit(-1);
17212 __endIf754:
17213         if (IS_SOB_CLOSURE(r_res)) goto __app478;
17214         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17215 __app478:
17216         push((int)SOB_CLOSURE_ENV(r_res));
17217         push((int)&&__ret655);
17218         goto *(SOB_CLOSURE_CODE(r_res));
17219 __ret655:
17220         sp = sp-2-stack[sp-2];
17221         push(r_res);
17222
17223         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17224         r_res = ST_ARG(0);
17225         push(r_res);
17226         push(1);
17227         r_res = (int)probeSymbolDefined("cdr",topLevel);
17228         if (r_res==0) goto __else755;
17229         if (! ((SymbolEntry*)r_res)->isDefined) goto __else755;
17230         r_res = (int)((SymbolEntry*)r_res)->sob;
17231         goto __endIf755;
17232 __else755:
17233         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
17234 __endIf755:
17235         if (IS_SOB_CLOSURE(r_res)) goto __app479;
17236         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17237 __app479:
17238         push((int)SOB_CLOSURE_ENV(r_res));
17239         push((int)&&__ret656);
17240         goto *(SOB_CLOSURE_CODE(r_res));
17241 __ret656:
17242         sp = sp-2-stack[sp-2];
17243         push(r_res);
17244         push(2);
17245         r_res = (int)probeSymbolDefined("list-ref",topLevel);
17246         if (r_res==0) goto __else756;
17247         if (! ((SymbolEntry*)r_res)->isDefined) goto __else756;
17248         r_res = (int)((SymbolEntry*)r_res)->sob;
17249         goto __endIf756;
17250 __else756:
17251         fprintf(stderr,"Symbol list-ref not defined"); exit(-1);
17252 __endIf756:
17253         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17254         push((int)SOB_CLOSURE_ENV(r_res));
17255         push(ST_RET());
17256         shiftActFrmDown();
17257         goto *(SOB_CLOSURE_CODE(r_res));
17258         sp = sp-2-stack[sp-2];
17259 __endIf751:
17260         fp = pop();
17261         RETURN();
17262 __skipBody195:
17263         r_res = (int)makeSchemeClosure((void*)r[0],&&__body195);
17264         r[0] = (int)getSymbol("list-ref",topLevel);
17265         ((SymbolEntry*)r[0])->isDefined = 1;
17266         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
17267         r_res = (int)&sc_void;
17268 __ret653:
17269         /* set return address */
17270         ST_RET() = (int)&&__ret657;
17271
17272         r[0] = (int)extendEnviroment( (int**)NULL, 0);
17273         goto __skipBody196;
17274 __body196:
17275         push(fp);
17276         fp = sp;
17277         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17278
17279         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17280         r_res = ST_ARG(0);
17281         push(r_res);
17282         push(1);
17283         r_res = (int)probeSymbolDefined("null?",topLevel);
17284         if (r_res==0) goto __else757;
17285         if (! ((SymbolEntry*)r_res)->isDefined) goto __else757;
17286         r_res = (int)((SymbolEntry*)r_res)->sob;
17287         goto __endIf757;
17288 __else757:
17289         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
17290 __endIf757:
17291         if (IS_SOB_CLOSURE(r_res)) goto __app480;
17292         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17293 __app480:
17294         push((int)SOB_CLOSURE_ENV(r_res));
17295         push((int)&&__ret658);
17296         goto *(SOB_CLOSURE_CODE(r_res));
17297 __ret658:
17298         sp = sp-2-stack[sp-2];
17299         if ((SchemeObject*)r_res!=&sc_false) goto __endOr12;
17300
17301         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17302         r_res = ST_ARG(0);
17303         push(r_res);
17304         push(1);
17305         r_res = (int)probeSymbolDefined("pair?",topLevel);
17306         if (r_res==0) goto __else759;
17307         if (! ((SymbolEntry*)r_res)->isDefined) goto __else759;
17308         r_res = (int)((SymbolEntry*)r_res)->sob;
17309         goto __endIf759;
17310 __else759:
17311         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
17312 __endIf759:
17313         if (IS_SOB_CLOSURE(r_res)) goto __app481;
17314         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17315 __app481:
17316         push((int)SOB_CLOSURE_ENV(r_res));
17317         push((int)&&__ret659);
17318         goto *(SOB_CLOSURE_CODE(r_res));
17319 __ret659:
17320         sp = sp-2-stack[sp-2];
17321         if ((SchemeObject*)r_res==&sc_false) goto __else758;
17322
17323
17324         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17325         r_res = ST_ARG(0);
17326         push(r_res);
17327         push(1);
17328         r_res = (int)probeSymbolDefined("cdr",topLevel);
17329         if (r_res==0) goto __else760;
17330         if (! ((SymbolEntry*)r_res)->isDefined) goto __else760;
17331         r_res = (int)((SymbolEntry*)r_res)->sob;
17332         goto __endIf760;
17333 __else760:
17334         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
17335 __endIf760:
17336         if (IS_SOB_CLOSURE(r_res)) goto __app482;
17337         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17338 __app482:
17339         push((int)SOB_CLOSURE_ENV(r_res));
17340         push((int)&&__ret660);
17341         goto *(SOB_CLOSURE_CODE(r_res));
17342 __ret660:
17343         sp = sp-2-stack[sp-2];
17344         push(r_res);
17345         push(1);
17346         r_res = (int)probeSymbolDefined("list?",topLevel);
17347         if (r_res==0) goto __else761;
17348         if (! ((SymbolEntry*)r_res)->isDefined) goto __else761;
17349         r_res = (int)((SymbolEntry*)r_res)->sob;
17350         goto __endIf761;
17351 __else761:
17352         fprintf(stderr,"Symbol list\? not defined"); exit(-1);
17353 __endIf761:
17354         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17355         push((int)SOB_CLOSURE_ENV(r_res));
17356         push(ST_RET());
17357         shiftActFrmDown();
17358         goto *(SOB_CLOSURE_CODE(r_res));
17359         sp = sp-2-stack[sp-2];
17360         goto __endIf758;
17361 __else758:
17362         r_res = (int)&sc_false;
17363 __endIf758:
17364         if ((SchemeObject*)r_res!=&sc_false) goto __endOr12;
17365 __endOr12:
17366         fp = pop();
17367         RETURN();
17368 __skipBody196:
17369         r_res = (int)makeSchemeClosure((void*)r[0],&&__body196);
17370         r[0] = (int)getSymbol("list?",topLevel);
17371         ((SymbolEntry*)r[0])->isDefined = 1;
17372         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
17373         r_res = (int)&sc_void;
17374 __ret657:
17375         /* set return address */
17376         ST_RET() = (int)&&__ret661;
17377
17378         r_res = (int)&sc_false;
17379         push(r_res);
17380         r_res = (int)&sc_false;
17381         push(r_res);
17382         push(2);
17383         r[0] = (int)extendEnviroment( (int**)NULL, 0);
17384         goto __skipBody197;
17385 __body197:
17386         push(fp);
17387         fp = sp;
17388         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17389
17390         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17391         r_res = ST_ARG(0);
17392         push(r_res);
17393         push(1);
17394         r_res = (int)probeSymbolDefined("box",topLevel);
17395         if (r_res==0) goto __else762;
17396         if (! ((SymbolEntry*)r_res)->isDefined) goto __else762;
17397         r_res = (int)((SymbolEntry*)r_res)->sob;
17398         goto __endIf762;
17399 __else762:
17400         fprintf(stderr,"Symbol box not defined"); exit(-1);
17401 __endIf762:
17402         if (IS_SOB_CLOSURE(r_res)) goto __app484;
17403         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17404 __app484:
17405         push((int)SOB_CLOSURE_ENV(r_res));
17406         push((int)&&__ret663);
17407         goto *(SOB_CLOSURE_CODE(r_res));
17408 __ret663:
17409         sp = sp-2-stack[sp-2];
17410         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17411         ST_ARG(0) = r_res;
17412         r_res = (int)&sc_void;
17413
17414         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17415         r_res = ST_ARG(1);
17416         push(r_res);
17417         push(1);
17418         r_res = (int)probeSymbolDefined("box",topLevel);
17419         if (r_res==0) goto __else763;
17420         if (! ((SymbolEntry*)r_res)->isDefined) goto __else763;
17421         r_res = (int)((SymbolEntry*)r_res)->sob;
17422         goto __endIf763;
17423 __else763:
17424         fprintf(stderr,"Symbol box not defined"); exit(-1);
17425 __endIf763:
17426         if (IS_SOB_CLOSURE(r_res)) goto __app485;
17427         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17428 __app485:
17429         push((int)SOB_CLOSURE_ENV(r_res));
17430         push((int)&&__ret664);
17431         goto *(SOB_CLOSURE_CODE(r_res));
17432 __ret664:
17433         sp = sp-2-stack[sp-2];
17434         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17435         ST_ARG(1) = r_res;
17436         r_res = (int)&sc_void;
17437
17438         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
17439         goto __skipBody198;
17440 __body198:
17441         push(fp);
17442         fp = sp;
17443         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17444
17445
17446         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17447         r_res = ST_ARG(1);
17448         push(r_res);
17449         push(1);
17450         r_res = (int)probeSymbolDefined("car",topLevel);
17451         if (r_res==0) goto __else765;
17452         if (! ((SymbolEntry*)r_res)->isDefined) goto __else765;
17453         r_res = (int)((SymbolEntry*)r_res)->sob;
17454         goto __endIf765;
17455 __else765:
17456         fprintf(stderr,"Symbol car not defined"); exit(-1);
17457 __endIf765:
17458         if (IS_SOB_CLOSURE(r_res)) goto __app488;
17459         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17460 __app488:
17461         push((int)SOB_CLOSURE_ENV(r_res));
17462         push((int)&&__ret667);
17463         goto *(SOB_CLOSURE_CODE(r_res));
17464 __ret667:
17465         sp = sp-2-stack[sp-2];
17466         push(r_res);
17467         push(1);
17468         r_res = (int)probeSymbolDefined("null?",topLevel);
17469         if (r_res==0) goto __else766;
17470         if (! ((SymbolEntry*)r_res)->isDefined) goto __else766;
17471         r_res = (int)((SymbolEntry*)r_res)->sob;
17472         goto __endIf766;
17473 __else766:
17474         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
17475 __endIf766:
17476         if (IS_SOB_CLOSURE(r_res)) goto __app487;
17477         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17478 __app487:
17479         push((int)SOB_CLOSURE_ENV(r_res));
17480         push((int)&&__ret666);
17481         goto *(SOB_CLOSURE_CODE(r_res));
17482 __ret666:
17483         sp = sp-2-stack[sp-2];
17484         if ((SchemeObject*)r_res==&sc_false) goto __else764;
17485         r_res = (int)&sc_nil;
17486         goto __endIf764;
17487 __else764:
17488
17489         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17490         r_res = ST_ARG(1);
17491         push(r_res);
17492         r_res = (int)probeSymbolDefined("cdr",topLevel);
17493         if (r_res==0) goto __else767;
17494         if (! ((SymbolEntry*)r_res)->isDefined) goto __else767;
17495         r_res = (int)((SymbolEntry*)r_res)->sob;
17496         goto __endIf767;
17497 __else767:
17498         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
17499 __endIf767:
17500         push(r_res);
17501         push(2);
17502
17503         r_res = (int)&__sc_number99;
17504         push(r_res);
17505         r_res = ((int**)ST_ENV())[0][1];
17506         push(r_res);
17507         push(2);
17508         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
17509         if (r_res==0) goto __else768;
17510         if (! ((SymbolEntry*)r_res)->isDefined) goto __else768;
17511         r_res = (int)((SymbolEntry*)r_res)->sob;
17512         goto __endIf768;
17513 __else768:
17514         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
17515 __endIf768:
17516         if (IS_SOB_CLOSURE(r_res)) goto __app491;
17517         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17518 __app491:
17519         push((int)SOB_CLOSURE_ENV(r_res));
17520         push((int)&&__ret670);
17521         goto *(SOB_CLOSURE_CODE(r_res));
17522 __ret670:
17523         sp = sp-2-stack[sp-2];
17524         if (IS_SOB_CLOSURE(r_res)) goto __app490;
17525         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17526 __app490:
17527         push((int)SOB_CLOSURE_ENV(r_res));
17528         push((int)&&__ret669);
17529         goto *(SOB_CLOSURE_CODE(r_res));
17530 __ret669:
17531         sp = sp-2-stack[sp-2];
17532         push(r_res);
17533         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17534         r_res = ST_ARG(0);
17535         push(r_res);
17536         push(2);
17537
17538         r_res = (int)&__sc_number100;
17539         push(r_res);
17540         r_res = ((int**)ST_ENV())[0][0];
17541         push(r_res);
17542         push(2);
17543         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
17544         if (r_res==0) goto __else769;
17545         if (! ((SymbolEntry*)r_res)->isDefined) goto __else769;
17546         r_res = (int)((SymbolEntry*)r_res)->sob;
17547         goto __endIf769;
17548 __else769:
17549         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
17550 __endIf769:
17551         if (IS_SOB_CLOSURE(r_res)) goto __app492;
17552         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17553 __app492:
17554         push((int)SOB_CLOSURE_ENV(r_res));
17555         push((int)&&__ret671);
17556         goto *(SOB_CLOSURE_CODE(r_res));
17557 __ret671:
17558         sp = sp-2-stack[sp-2];
17559         if (IS_SOB_CLOSURE(r_res)) goto __app489;
17560         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17561 __app489:
17562         push((int)SOB_CLOSURE_ENV(r_res));
17563         push((int)&&__ret668);
17564         goto *(SOB_CLOSURE_CODE(r_res));
17565 __ret668:
17566         sp = sp-2-stack[sp-2];
17567         push(r_res);
17568
17569         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17570         r_res = ST_ARG(1);
17571         push(r_res);
17572         r_res = (int)probeSymbolDefined("car",topLevel);
17573         if (r_res==0) goto __else770;
17574         if (! ((SymbolEntry*)r_res)->isDefined) goto __else770;
17575         r_res = (int)((SymbolEntry*)r_res)->sob;
17576         goto __endIf770;
17577 __else770:
17578         fprintf(stderr,"Symbol car not defined"); exit(-1);
17579 __endIf770:
17580         push(r_res);
17581         push(2);
17582
17583         r_res = (int)&__sc_number101;
17584         push(r_res);
17585         r_res = ((int**)ST_ENV())[0][1];
17586         push(r_res);
17587         push(2);
17588         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
17589         if (r_res==0) goto __else771;
17590         if (! ((SymbolEntry*)r_res)->isDefined) goto __else771;
17591         r_res = (int)((SymbolEntry*)r_res)->sob;
17592         goto __endIf771;
17593 __else771:
17594         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
17595 __endIf771:
17596         if (IS_SOB_CLOSURE(r_res)) goto __app495;
17597         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17598 __app495:
17599         push((int)SOB_CLOSURE_ENV(r_res));
17600         push((int)&&__ret674);
17601         goto *(SOB_CLOSURE_CODE(r_res));
17602 __ret674:
17603         sp = sp-2-stack[sp-2];
17604         if (IS_SOB_CLOSURE(r_res)) goto __app494;
17605         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17606 __app494:
17607         push((int)SOB_CLOSURE_ENV(r_res));
17608         push((int)&&__ret673);
17609         goto *(SOB_CLOSURE_CODE(r_res));
17610 __ret673:
17611         sp = sp-2-stack[sp-2];
17612         push(r_res);
17613         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17614         r_res = ST_ARG(0);
17615         push(r_res);
17616         push(2);
17617         r_res = (int)probeSymbolDefined("apply",topLevel);
17618         if (r_res==0) goto __else772;
17619         if (! ((SymbolEntry*)r_res)->isDefined) goto __else772;
17620         r_res = (int)((SymbolEntry*)r_res)->sob;
17621         goto __endIf772;
17622 __else772:
17623         fprintf(stderr,"Symbol apply not defined"); exit(-1);
17624 __endIf772:
17625         if (IS_SOB_CLOSURE(r_res)) goto __app493;
17626         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17627 __app493:
17628         push((int)SOB_CLOSURE_ENV(r_res));
17629         push((int)&&__ret672);
17630         goto *(SOB_CLOSURE_CODE(r_res));
17631 __ret672:
17632         sp = sp-2-stack[sp-2];
17633         push(r_res);
17634         push(2);
17635         r_res = (int)probeSymbolDefined("cons",topLevel);
17636         if (r_res==0) goto __else773;
17637         if (! ((SymbolEntry*)r_res)->isDefined) goto __else773;
17638         r_res = (int)((SymbolEntry*)r_res)->sob;
17639         goto __endIf773;
17640 __else773:
17641         fprintf(stderr,"Symbol cons not defined"); exit(-1);
17642 __endIf773:
17643         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17644         push((int)SOB_CLOSURE_ENV(r_res));
17645         push(ST_RET());
17646         shiftActFrmDown();
17647         goto *(SOB_CLOSURE_CODE(r_res));
17648         sp = sp-2-stack[sp-2];
17649 __endIf764:
17650         fp = pop();
17651         RETURN();
17652 __skipBody198:
17653         r_res = (int)makeSchemeClosure((void*)r[0],&&__body198);
17654         push(r_res);
17655         r_res = (int)&__sc_number102;
17656         push(r_res);
17657         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17658         r_res = ST_ARG(0);
17659         push(r_res);
17660         push(3);
17661         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
17662         if (r_res==0) goto __else774;
17663         if (! ((SymbolEntry*)r_res)->isDefined) goto __else774;
17664         r_res = (int)((SymbolEntry*)r_res)->sob;
17665         goto __endIf774;
17666 __else774:
17667         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
17668 __endIf774:
17669         if (IS_SOB_CLOSURE(r_res)) goto __app486;
17670         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17671 __app486:
17672         push((int)SOB_CLOSURE_ENV(r_res));
17673         push((int)&&__ret665);
17674         goto *(SOB_CLOSURE_CODE(r_res));
17675 __ret665:
17676         sp = sp-2-stack[sp-2];
17677
17678         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
17679         goto __skipBody199;
17680 __body199:
17681         push(fp);
17682         fp = sp;
17683         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17684
17685         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17686         r_res = ST_ARG(1);
17687         push(r_res);
17688         push(1);
17689         r_res = (int)probeSymbolDefined("null?",topLevel);
17690         if (r_res==0) goto __else776;
17691         if (! ((SymbolEntry*)r_res)->isDefined) goto __else776;
17692         r_res = (int)((SymbolEntry*)r_res)->sob;
17693         goto __endIf776;
17694 __else776:
17695         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
17696 __endIf776:
17697         if (IS_SOB_CLOSURE(r_res)) goto __app497;
17698         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17699 __app497:
17700         push((int)SOB_CLOSURE_ENV(r_res));
17701         push((int)&&__ret676);
17702         goto *(SOB_CLOSURE_CODE(r_res));
17703 __ret676:
17704         sp = sp-2-stack[sp-2];
17705         if ((SchemeObject*)r_res==&sc_false) goto __else775;
17706         r_res = (int)&sc_nil;
17707         goto __endIf775;
17708 __else775:
17709
17710
17711         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17712         r_res = ST_ARG(1);
17713         push(r_res);
17714         push(1);
17715         r_res = (int)probeSymbolDefined("cdr",topLevel);
17716         if (r_res==0) goto __else777;
17717         if (! ((SymbolEntry*)r_res)->isDefined) goto __else777;
17718         r_res = (int)((SymbolEntry*)r_res)->sob;
17719         goto __endIf777;
17720 __else777:
17721         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
17722 __endIf777:
17723         if (IS_SOB_CLOSURE(r_res)) goto __app499;
17724         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17725 __app499:
17726         push((int)SOB_CLOSURE_ENV(r_res));
17727         push((int)&&__ret678);
17728         goto *(SOB_CLOSURE_CODE(r_res));
17729 __ret678:
17730         sp = sp-2-stack[sp-2];
17731         push(r_res);
17732         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17733         r_res = ST_ARG(0);
17734         push(r_res);
17735         push(2);
17736
17737         r_res = (int)&__sc_number103;
17738         push(r_res);
17739         r_res = ((int**)ST_ENV())[0][1];
17740         push(r_res);
17741         push(2);
17742         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
17743         if (r_res==0) goto __else778;
17744         if (! ((SymbolEntry*)r_res)->isDefined) goto __else778;
17745         r_res = (int)((SymbolEntry*)r_res)->sob;
17746         goto __endIf778;
17747 __else778:
17748         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
17749 __endIf778:
17750         if (IS_SOB_CLOSURE(r_res)) goto __app500;
17751         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17752 __app500:
17753         push((int)SOB_CLOSURE_ENV(r_res));
17754         push((int)&&__ret679);
17755         goto *(SOB_CLOSURE_CODE(r_res));
17756 __ret679:
17757         sp = sp-2-stack[sp-2];
17758         if (IS_SOB_CLOSURE(r_res)) goto __app498;
17759         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17760 __app498:
17761         push((int)SOB_CLOSURE_ENV(r_res));
17762         push((int)&&__ret677);
17763         goto *(SOB_CLOSURE_CODE(r_res));
17764 __ret677:
17765         sp = sp-2-stack[sp-2];
17766         push(r_res);
17767
17768
17769         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17770         r_res = ST_ARG(1);
17771         push(r_res);
17772         push(1);
17773         r_res = (int)probeSymbolDefined("car",topLevel);
17774         if (r_res==0) goto __else779;
17775         if (! ((SymbolEntry*)r_res)->isDefined) goto __else779;
17776         r_res = (int)((SymbolEntry*)r_res)->sob;
17777         goto __endIf779;
17778 __else779:
17779         fprintf(stderr,"Symbol car not defined"); exit(-1);
17780 __endIf779:
17781         if (IS_SOB_CLOSURE(r_res)) goto __app502;
17782         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17783 __app502:
17784         push((int)SOB_CLOSURE_ENV(r_res));
17785         push((int)&&__ret681);
17786         goto *(SOB_CLOSURE_CODE(r_res));
17787 __ret681:
17788         sp = sp-2-stack[sp-2];
17789         push(r_res);
17790         push(1);
17791         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17792         r_res = ST_ARG(0);
17793         if (IS_SOB_CLOSURE(r_res)) goto __app501;
17794         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17795 __app501:
17796         push((int)SOB_CLOSURE_ENV(r_res));
17797         push((int)&&__ret680);
17798         goto *(SOB_CLOSURE_CODE(r_res));
17799 __ret680:
17800         sp = sp-2-stack[sp-2];
17801         push(r_res);
17802         push(2);
17803         r_res = (int)probeSymbolDefined("cons",topLevel);
17804         if (r_res==0) goto __else780;
17805         if (! ((SymbolEntry*)r_res)->isDefined) goto __else780;
17806         r_res = (int)((SymbolEntry*)r_res)->sob;
17807         goto __endIf780;
17808 __else780:
17809         fprintf(stderr,"Symbol cons not defined"); exit(-1);
17810 __endIf780:
17811         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17812         push((int)SOB_CLOSURE_ENV(r_res));
17813         push(ST_RET());
17814         shiftActFrmDown();
17815         goto *(SOB_CLOSURE_CODE(r_res));
17816         sp = sp-2-stack[sp-2];
17817 __endIf775:
17818         fp = pop();
17819         RETURN();
17820 __skipBody199:
17821         r_res = (int)makeSchemeClosure((void*)r[0],&&__body199);
17822         push(r_res);
17823         r_res = (int)&__sc_number104;
17824         push(r_res);
17825         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17826         r_res = ST_ARG(1);
17827         push(r_res);
17828         push(3);
17829         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
17830         if (r_res==0) goto __else781;
17831         if (! ((SymbolEntry*)r_res)->isDefined) goto __else781;
17832         r_res = (int)((SymbolEntry*)r_res)->sob;
17833         goto __endIf781;
17834 __else781:
17835         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
17836 __endIf781:
17837         if (IS_SOB_CLOSURE(r_res)) goto __app496;
17838         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17839 __app496:
17840         push((int)SOB_CLOSURE_ENV(r_res));
17841         push((int)&&__ret675);
17842         goto *(SOB_CLOSURE_CODE(r_res));
17843 __ret675:
17844         sp = sp-2-stack[sp-2];
17845         push(0);
17846         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
17847         goto __skipBody200;
17848 __body200:
17849         push(fp);
17850         fp = sp;
17851         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17852         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
17853         goto __skipBody201;
17854 __body201:
17855         push(fp);
17856         fp = sp;
17857         prepareStackForAbsOpt(2);
17858         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17859         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17860         r_res = ST_ARG(1);
17861         push(r_res);
17862         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17863         r_res = ST_ARG(0);
17864         push(r_res);
17865         push(2);
17866
17867         r_res = (int)&__sc_number105;
17868         push(r_res);
17869         r_res = ((int**)ST_ENV())[1][0];
17870         push(r_res);
17871         push(2);
17872         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
17873         if (r_res==0) goto __else782;
17874         if (! ((SymbolEntry*)r_res)->isDefined) goto __else782;
17875         r_res = (int)((SymbolEntry*)r_res)->sob;
17876         goto __endIf782;
17877 __else782:
17878         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
17879 __endIf782:
17880         if (IS_SOB_CLOSURE(r_res)) goto __app503;
17881         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17882 __app503:
17883         push((int)SOB_CLOSURE_ENV(r_res));
17884         push((int)&&__ret682);
17885         goto *(SOB_CLOSURE_CODE(r_res));
17886 __ret682:
17887         sp = sp-2-stack[sp-2];
17888         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17889         push((int)SOB_CLOSURE_ENV(r_res));
17890         push(ST_RET());
17891         shiftActFrmDown();
17892         goto *(SOB_CLOSURE_CODE(r_res));
17893         sp = sp-2-stack[sp-2];
17894         fp = pop();
17895         RETURN();
17896 __skipBody201:
17897         r_res = (int)makeSchemeClosure((void*)r[0],&&__body201);
17898         fp = pop();
17899         RETURN();
17900 __skipBody200:
17901         r_res = (int)makeSchemeClosure((void*)r[0],&&__body200);
17902         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17903         push((int)SOB_CLOSURE_ENV(r_res));
17904         push(ST_RET());
17905         shiftActFrmDown();
17906         goto *(SOB_CLOSURE_CODE(r_res));
17907         sp = sp-2-stack[sp-2];
17908         fp = pop();
17909         RETURN();
17910 __skipBody197:
17911         r_res = (int)makeSchemeClosure((void*)r[0],&&__body197);
17912         if (IS_SOB_CLOSURE(r_res)) goto __app483;
17913         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
17914 __app483:
17915         push((int)SOB_CLOSURE_ENV(r_res));
17916         push((int)&&__ret662);
17917         goto *(SOB_CLOSURE_CODE(r_res));
17918 __ret662:
17919         sp = sp-2-stack[sp-2];
17920         r[0] = (int)getSymbol("map",topLevel);
17921         ((SymbolEntry*)r[0])->isDefined = 1;
17922         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
17923         r_res = (int)&sc_void;
17924 __ret661:
17925         /* set return address */
17926         ST_RET() = (int)&&__ret683;
17927
17928         r[0] = (int)extendEnviroment( (int**)NULL, 0);
17929         goto __skipBody202;
17930 __body202:
17931         push(fp);
17932         fp = sp;
17933         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17934
17935         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
17936         r_res = ST_ARG(1);
17937         push(r_res);
17938         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
17939         goto __skipBody203;
17940 __body203:
17941         push(fp);
17942         fp = sp;
17943         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17944
17945         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
17946         r_res = ST_ARG(0);
17947         push(r_res);
17948         r_res = ((int**)ST_ENV())[0][0];
17949         push(r_res);
17950         push(2);
17951         r_res = (int)probeSymbolDefined("eq?",topLevel);
17952         if (r_res==0) goto __else783;
17953         if (! ((SymbolEntry*)r_res)->isDefined) goto __else783;
17954         r_res = (int)((SymbolEntry*)r_res)->sob;
17955         goto __endIf783;
17956 __else783:
17957         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
17958 __endIf783:
17959         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17960         push((int)SOB_CLOSURE_ENV(r_res));
17961         push(ST_RET());
17962         shiftActFrmDown();
17963         goto *(SOB_CLOSURE_CODE(r_res));
17964         sp = sp-2-stack[sp-2];
17965         fp = pop();
17966         RETURN();
17967 __skipBody203:
17968         r_res = (int)makeSchemeClosure((void*)r[0],&&__body203);
17969         push(r_res);
17970         push(2);
17971         r_res = (int)probeSymbolDefined("ormap",topLevel);
17972         if (r_res==0) goto __else784;
17973         if (! ((SymbolEntry*)r_res)->isDefined) goto __else784;
17974         r_res = (int)((SymbolEntry*)r_res)->sob;
17975         goto __endIf784;
17976 __else784:
17977         fprintf(stderr,"Symbol ormap not defined"); exit(-1);
17978 __endIf784:
17979         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
17980         push((int)SOB_CLOSURE_ENV(r_res));
17981         push(ST_RET());
17982         shiftActFrmDown();
17983         goto *(SOB_CLOSURE_CODE(r_res));
17984         sp = sp-2-stack[sp-2];
17985         fp = pop();
17986         RETURN();
17987 __skipBody202:
17988         r_res = (int)makeSchemeClosure((void*)r[0],&&__body202);
17989         r[0] = (int)getSymbol("member?",topLevel);
17990         ((SymbolEntry*)r[0])->isDefined = 1;
17991         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
17992         r_res = (int)&sc_void;
17993 __ret683:
17994         /* set return address */
17995         ST_RET() = (int)&&__ret684;
17996
17997         r[0] = (int)extendEnviroment( (int**)NULL, 0);
17998         goto __skipBody204;
17999 __body204:
18000         push(fp);
18001         fp = sp;
18002         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18003
18004         r_res = (int)&__sc_number106;
18005         push(r_res);
18006         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18007         r_res = ST_ARG(0);
18008         push(r_res);
18009         push(2);
18010         r_res = (int)probeSymbolDefined("<",topLevel);
18011         if (r_res==0) goto __else785;
18012         if (! ((SymbolEntry*)r_res)->isDefined) goto __else785;
18013         r_res = (int)((SymbolEntry*)r_res)->sob;
18014         goto __endIf785;
18015 __else785:
18016         fprintf(stderr,"Symbol < not defined"); exit(-1);
18017 __endIf785:
18018         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18019         push((int)SOB_CLOSURE_ENV(r_res));
18020         push(ST_RET());
18021         shiftActFrmDown();
18022         goto *(SOB_CLOSURE_CODE(r_res));
18023         sp = sp-2-stack[sp-2];
18024         fp = pop();
18025         RETURN();
18026 __skipBody204:
18027         r_res = (int)makeSchemeClosure((void*)r[0],&&__body204);
18028         r[0] = (int)getSymbol("negative?",topLevel);
18029         ((SymbolEntry*)r[0])->isDefined = 1;
18030         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
18031         r_res = (int)&sc_void;
18032 __ret684:
18033         /* set return address */
18034         ST_RET() = (int)&&__ret685;
18035
18036         r[0] = (int)extendEnviroment( (int**)NULL, 0);
18037         goto __skipBody205;
18038 __body205:
18039         push(fp);
18040         fp = sp;
18041         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18042
18043         r_res = (int)&__sc_number107;
18044         push(r_res);
18045         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18046         r_res = ST_ARG(0);
18047         push(r_res);
18048         push(2);
18049         r_res = (int)probeSymbolDefined(">",topLevel);
18050         if (r_res==0) goto __else786;
18051         if (! ((SymbolEntry*)r_res)->isDefined) goto __else786;
18052         r_res = (int)((SymbolEntry*)r_res)->sob;
18053         goto __endIf786;
18054 __else786:
18055         fprintf(stderr,"Symbol > not defined"); exit(-1);
18056 __endIf786:
18057         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18058         push((int)SOB_CLOSURE_ENV(r_res));
18059         push(ST_RET());
18060         shiftActFrmDown();
18061         goto *(SOB_CLOSURE_CODE(r_res));
18062         sp = sp-2-stack[sp-2];
18063         fp = pop();
18064         RETURN();
18065 __skipBody205:
18066         r_res = (int)makeSchemeClosure((void*)r[0],&&__body205);
18067         r[0] = (int)getSymbol("positive?",topLevel);
18068         ((SymbolEntry*)r[0])->isDefined = 1;
18069         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
18070         r_res = (int)&sc_void;
18071 __ret685:
18072         /* set return address */
18073         ST_RET() = (int)&&__ret686;
18074
18075         r[0] = (int)extendEnviroment( (int**)NULL, 0);
18076         goto __skipBody206;
18077 __body206:
18078         push(fp);
18079         fp = sp;
18080         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18081
18082         r_res = (int)&__sc_number108;
18083         push(r_res);
18084         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18085         r_res = ST_ARG(0);
18086         push(r_res);
18087         push(2);
18088         r_res = (int)probeSymbolDefined("=",topLevel);
18089         if (r_res==0) goto __else787;
18090         if (! ((SymbolEntry*)r_res)->isDefined) goto __else787;
18091         r_res = (int)((SymbolEntry*)r_res)->sob;
18092         goto __endIf787;
18093 __else787:
18094         fprintf(stderr,"Symbol = not defined"); exit(-1);
18095 __endIf787:
18096         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18097         push((int)SOB_CLOSURE_ENV(r_res));
18098         push(ST_RET());
18099         shiftActFrmDown();
18100         goto *(SOB_CLOSURE_CODE(r_res));
18101         sp = sp-2-stack[sp-2];
18102         fp = pop();
18103         RETURN();
18104 __skipBody206:
18105         r_res = (int)makeSchemeClosure((void*)r[0],&&__body206);
18106         r[0] = (int)getSymbol("zero?",topLevel);
18107         ((SymbolEntry*)r[0])->isDefined = 1;
18108         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
18109         r_res = (int)&sc_void;
18110 __ret686:
18111         /* set return address */
18112         ST_RET() = (int)&&__ret687;
18113
18114         r[0] = (int)extendEnviroment( (int**)NULL, 0);
18115         goto __skipBody207;
18116 __body207:
18117         push(fp);
18118         fp = sp;
18119         prepareStackForAbsOpt(1);
18120         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18121
18122         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18123         r_res = ST_ARG(0);
18124         push(r_res);
18125         push(1);
18126         r_res = (int)probeSymbolDefined("list->vector",topLevel);
18127         if (r_res==0) goto __else788;
18128         if (! ((SymbolEntry*)r_res)->isDefined) goto __else788;
18129         r_res = (int)((SymbolEntry*)r_res)->sob;
18130         goto __endIf788;
18131 __else788:
18132         fprintf(stderr,"Symbol list->vector not defined"); exit(-1);
18133 __endIf788:
18134         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18135         push((int)SOB_CLOSURE_ENV(r_res));
18136         push(ST_RET());
18137         shiftActFrmDown();
18138         goto *(SOB_CLOSURE_CODE(r_res));
18139         sp = sp-2-stack[sp-2];
18140         fp = pop();
18141         RETURN();
18142 __skipBody207:
18143         r_res = (int)makeSchemeClosure((void*)r[0],&&__body207);
18144         r[0] = (int)getSymbol("vector",topLevel);
18145         ((SymbolEntry*)r[0])->isDefined = 1;
18146         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
18147         r_res = (int)&sc_void;
18148 __ret687:
18149         /* set return address */
18150         ST_RET() = (int)&&__ret688;
18151
18152         r[0] = (int)extendEnviroment( (int**)NULL, 0);
18153         goto __skipBody208;
18154 __body208:
18155         push(fp);
18156         fp = sp;
18157         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18158
18159         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18160         r_res = ST_ARG(1);
18161         push(r_res);
18162         push(1);
18163         r_res = (int)probeSymbolDefined("pair?",topLevel);
18164         if (r_res==0) goto __else790;
18165         if (! ((SymbolEntry*)r_res)->isDefined) goto __else790;
18166         r_res = (int)((SymbolEntry*)r_res)->sob;
18167         goto __endIf790;
18168 __else790:
18169         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
18170 __endIf790:
18171         if (IS_SOB_CLOSURE(r_res)) goto __app504;
18172         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18173 __app504:
18174         push((int)SOB_CLOSURE_ENV(r_res));
18175         push((int)&&__ret689);
18176         goto *(SOB_CLOSURE_CODE(r_res));
18177 __ret689:
18178         sp = sp-2-stack[sp-2];
18179         if ((SchemeObject*)r_res==&sc_false) goto __else789;
18180
18181
18182         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18183         r_res = ST_ARG(1);
18184         push(r_res);
18185         push(1);
18186         r_res = (int)probeSymbolDefined("car",topLevel);
18187         if (r_res==0) goto __else791;
18188         if (! ((SymbolEntry*)r_res)->isDefined) goto __else791;
18189         r_res = (int)((SymbolEntry*)r_res)->sob;
18190         goto __endIf791;
18191 __else791:
18192         fprintf(stderr,"Symbol car not defined"); exit(-1);
18193 __endIf791:
18194         if (IS_SOB_CLOSURE(r_res)) goto __app506;
18195         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18196 __app506:
18197         push((int)SOB_CLOSURE_ENV(r_res));
18198         push((int)&&__ret691);
18199         goto *(SOB_CLOSURE_CODE(r_res));
18200 __ret691:
18201         sp = sp-2-stack[sp-2];
18202         push(r_res);
18203         push(1);
18204         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18205         r_res = ST_ARG(0);
18206         if (IS_SOB_CLOSURE(r_res)) goto __app505;
18207         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18208 __app505:
18209         push((int)SOB_CLOSURE_ENV(r_res));
18210         push((int)&&__ret690);
18211         goto *(SOB_CLOSURE_CODE(r_res));
18212 __ret690:
18213         sp = sp-2-stack[sp-2];
18214         if ((SchemeObject*)r_res!=&sc_false) goto __endOr13;
18215
18216
18217         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18218         r_res = ST_ARG(1);
18219         push(r_res);
18220         push(1);
18221         r_res = (int)probeSymbolDefined("cdr",topLevel);
18222         if (r_res==0) goto __else792;
18223         if (! ((SymbolEntry*)r_res)->isDefined) goto __else792;
18224         r_res = (int)((SymbolEntry*)r_res)->sob;
18225         goto __endIf792;
18226 __else792:
18227         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
18228 __endIf792:
18229         if (IS_SOB_CLOSURE(r_res)) goto __app507;
18230         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18231 __app507:
18232         push((int)SOB_CLOSURE_ENV(r_res));
18233         push((int)&&__ret692);
18234         goto *(SOB_CLOSURE_CODE(r_res));
18235 __ret692:
18236         sp = sp-2-stack[sp-2];
18237         push(r_res);
18238         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18239         r_res = ST_ARG(0);
18240         push(r_res);
18241         push(2);
18242         r_res = (int)probeSymbolDefined("ormap",topLevel);
18243         if (r_res==0) goto __else793;
18244         if (! ((SymbolEntry*)r_res)->isDefined) goto __else793;
18245         r_res = (int)((SymbolEntry*)r_res)->sob;
18246         goto __endIf793;
18247 __else793:
18248         fprintf(stderr,"Symbol ormap not defined"); exit(-1);
18249 __endIf793:
18250         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18251         push((int)SOB_CLOSURE_ENV(r_res));
18252         push(ST_RET());
18253         shiftActFrmDown();
18254         goto *(SOB_CLOSURE_CODE(r_res));
18255         sp = sp-2-stack[sp-2];
18256         if ((SchemeObject*)r_res!=&sc_false) goto __endOr13;
18257 __endOr13:
18258         goto __endIf789;
18259 __else789:
18260         r_res = (int)&sc_false;
18261 __endIf789:
18262         fp = pop();
18263         RETURN();
18264 __skipBody208:
18265         r_res = (int)makeSchemeClosure((void*)r[0],&&__body208);
18266         r[0] = (int)getSymbol("ormap",topLevel);
18267         ((SymbolEntry*)r[0])->isDefined = 1;
18268         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
18269         r_res = (int)&sc_void;
18270 __ret688:
18271         /* set return address */
18272         ST_RET() = (int)&&__ret693;
18273
18274         r[0] = (int)extendEnviroment( (int**)NULL, 0);
18275         goto __skipBody209;
18276 __body209:
18277         push(fp);
18278         fp = sp;
18279         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18280
18281         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18282         r_res = ST_ARG(1);
18283         push(r_res);
18284         push(1);
18285         r_res = (int)probeSymbolDefined("null?",topLevel);
18286         if (r_res==0) goto __else794;
18287         if (! ((SymbolEntry*)r_res)->isDefined) goto __else794;
18288         r_res = (int)((SymbolEntry*)r_res)->sob;
18289         goto __endIf794;
18290 __else794:
18291         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
18292 __endIf794:
18293         if (IS_SOB_CLOSURE(r_res)) goto __app508;
18294         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18295 __app508:
18296         push((int)SOB_CLOSURE_ENV(r_res));
18297         push((int)&&__ret694);
18298         goto *(SOB_CLOSURE_CODE(r_res));
18299 __ret694:
18300         sp = sp-2-stack[sp-2];
18301         if ((SchemeObject*)r_res!=&sc_false) goto __endOr14;
18302
18303
18304         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18305         r_res = ST_ARG(1);
18306         push(r_res);
18307         push(1);
18308         r_res = (int)probeSymbolDefined("car",topLevel);
18309         if (r_res==0) goto __else796;
18310         if (! ((SymbolEntry*)r_res)->isDefined) goto __else796;
18311         r_res = (int)((SymbolEntry*)r_res)->sob;
18312         goto __endIf796;
18313 __else796:
18314         fprintf(stderr,"Symbol car not defined"); exit(-1);
18315 __endIf796:
18316         if (IS_SOB_CLOSURE(r_res)) goto __app510;
18317         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18318 __app510:
18319         push((int)SOB_CLOSURE_ENV(r_res));
18320         push((int)&&__ret696);
18321         goto *(SOB_CLOSURE_CODE(r_res));
18322 __ret696:
18323         sp = sp-2-stack[sp-2];
18324         push(r_res);
18325         push(1);
18326         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18327         r_res = ST_ARG(0);
18328         if (IS_SOB_CLOSURE(r_res)) goto __app509;
18329         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18330 __app509:
18331         push((int)SOB_CLOSURE_ENV(r_res));
18332         push((int)&&__ret695);
18333         goto *(SOB_CLOSURE_CODE(r_res));
18334 __ret695:
18335         sp = sp-2-stack[sp-2];
18336         if ((SchemeObject*)r_res==&sc_false) goto __else795;
18337
18338
18339         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18340         r_res = ST_ARG(1);
18341         push(r_res);
18342         push(1);
18343         r_res = (int)probeSymbolDefined("cdr",topLevel);
18344         if (r_res==0) goto __else797;
18345         if (! ((SymbolEntry*)r_res)->isDefined) goto __else797;
18346         r_res = (int)((SymbolEntry*)r_res)->sob;
18347         goto __endIf797;
18348 __else797:
18349         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
18350 __endIf797:
18351         if (IS_SOB_CLOSURE(r_res)) goto __app511;
18352         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18353 __app511:
18354         push((int)SOB_CLOSURE_ENV(r_res));
18355         push((int)&&__ret697);
18356         goto *(SOB_CLOSURE_CODE(r_res));
18357 __ret697:
18358         sp = sp-2-stack[sp-2];
18359         push(r_res);
18360         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18361         r_res = ST_ARG(0);
18362         push(r_res);
18363         push(2);
18364         r_res = (int)probeSymbolDefined("andmap",topLevel);
18365         if (r_res==0) goto __else798;
18366         if (! ((SymbolEntry*)r_res)->isDefined) goto __else798;
18367         r_res = (int)((SymbolEntry*)r_res)->sob;
18368         goto __endIf798;
18369 __else798:
18370         fprintf(stderr,"Symbol andmap not defined"); exit(-1);
18371 __endIf798:
18372         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18373         push((int)SOB_CLOSURE_ENV(r_res));
18374         push(ST_RET());
18375         shiftActFrmDown();
18376         goto *(SOB_CLOSURE_CODE(r_res));
18377         sp = sp-2-stack[sp-2];
18378         goto __endIf795;
18379 __else795:
18380         r_res = (int)&sc_false;
18381 __endIf795:
18382         if ((SchemeObject*)r_res!=&sc_false) goto __endOr14;
18383 __endOr14:
18384         fp = pop();
18385         RETURN();
18386 __skipBody209:
18387         r_res = (int)makeSchemeClosure((void*)r[0],&&__body209);
18388         r[0] = (int)getSymbol("andmap",topLevel);
18389         ((SymbolEntry*)r[0])->isDefined = 1;
18390         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
18391         r_res = (int)&sc_void;
18392 __ret693:
18393         /* set return address */
18394         ST_RET() = (int)&&__ret698;
18395
18396         r_res = (int)&sc_false;
18397         push(r_res);
18398         push(1);
18399         r[0] = (int)extendEnviroment( (int**)NULL, 0);
18400         goto __skipBody210;
18401 __body210:
18402         push(fp);
18403         fp = sp;
18404         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18405
18406         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18407         r_res = ST_ARG(0);
18408         push(r_res);
18409         push(1);
18410         r_res = (int)probeSymbolDefined("box",topLevel);
18411         if (r_res==0) goto __else799;
18412         if (! ((SymbolEntry*)r_res)->isDefined) goto __else799;
18413         r_res = (int)((SymbolEntry*)r_res)->sob;
18414         goto __endIf799;
18415 __else799:
18416         fprintf(stderr,"Symbol box not defined"); exit(-1);
18417 __endIf799:
18418         if (IS_SOB_CLOSURE(r_res)) goto __app513;
18419         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18420 __app513:
18421         push((int)SOB_CLOSURE_ENV(r_res));
18422         push((int)&&__ret700);
18423         goto *(SOB_CLOSURE_CODE(r_res));
18424 __ret700:
18425         sp = sp-2-stack[sp-2];
18426         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18427         ST_ARG(0) = r_res;
18428         r_res = (int)&sc_void;
18429
18430         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
18431         goto __skipBody211;
18432 __body211:
18433         push(fp);
18434         fp = sp;
18435         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18436
18437         r_res = (int)&__sc_number109;
18438         push(r_res);
18439         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18440         r_res = ST_ARG(1);
18441         push(r_res);
18442         push(2);
18443         r_res = (int)probeSymbolDefined("=",topLevel);
18444         if (r_res==0) goto __else801;
18445         if (! ((SymbolEntry*)r_res)->isDefined) goto __else801;
18446         r_res = (int)((SymbolEntry*)r_res)->sob;
18447         goto __endIf801;
18448 __else801:
18449         fprintf(stderr,"Symbol = not defined"); exit(-1);
18450 __endIf801:
18451         if (IS_SOB_CLOSURE(r_res)) goto __app515;
18452         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18453 __app515:
18454         push((int)SOB_CLOSURE_ENV(r_res));
18455         push((int)&&__ret702);
18456         goto *(SOB_CLOSURE_CODE(r_res));
18457 __ret702:
18458         sp = sp-2-stack[sp-2];
18459         if ((SchemeObject*)r_res==&sc_false) goto __else800;
18460         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
18461         r_res = ST_ARG(2);
18462         goto __endIf800;
18463 __else800:
18464
18465         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
18466         r_res = ST_ARG(2);
18467         push(r_res);
18468
18469         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18470         r_res = ST_ARG(1);
18471         push(r_res);
18472         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18473         r_res = ST_ARG(0);
18474         push(r_res);
18475         push(2);
18476         r_res = (int)probeSymbolDefined("string-ref",topLevel);
18477         if (r_res==0) goto __else802;
18478         if (! ((SymbolEntry*)r_res)->isDefined) goto __else802;
18479         r_res = (int)((SymbolEntry*)r_res)->sob;
18480         goto __endIf802;
18481 __else802:
18482         fprintf(stderr,"Symbol string-ref not defined"); exit(-1);
18483 __endIf802:
18484         if (IS_SOB_CLOSURE(r_res)) goto __app517;
18485         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18486 __app517:
18487         push((int)SOB_CLOSURE_ENV(r_res));
18488         push((int)&&__ret704);
18489         goto *(SOB_CLOSURE_CODE(r_res));
18490 __ret704:
18491         sp = sp-2-stack[sp-2];
18492         push(r_res);
18493         push(2);
18494         r_res = (int)probeSymbolDefined("cons",topLevel);
18495         if (r_res==0) goto __else803;
18496         if (! ((SymbolEntry*)r_res)->isDefined) goto __else803;
18497         r_res = (int)((SymbolEntry*)r_res)->sob;
18498         goto __endIf803;
18499 __else803:
18500         fprintf(stderr,"Symbol cons not defined"); exit(-1);
18501 __endIf803:
18502         if (IS_SOB_CLOSURE(r_res)) goto __app516;
18503         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18504 __app516:
18505         push((int)SOB_CLOSURE_ENV(r_res));
18506         push((int)&&__ret703);
18507         goto *(SOB_CLOSURE_CODE(r_res));
18508 __ret703:
18509         sp = sp-2-stack[sp-2];
18510         push(r_res);
18511
18512         r_res = (int)&__sc_number110;
18513         push(r_res);
18514         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18515         r_res = ST_ARG(1);
18516         push(r_res);
18517         push(2);
18518         r_res = (int)probeSymbolDefined("-",topLevel);
18519         if (r_res==0) goto __else804;
18520         if (! ((SymbolEntry*)r_res)->isDefined) goto __else804;
18521         r_res = (int)((SymbolEntry*)r_res)->sob;
18522         goto __endIf804;
18523 __else804:
18524         fprintf(stderr,"Symbol - not defined"); exit(-1);
18525 __endIf804:
18526         if (IS_SOB_CLOSURE(r_res)) goto __app518;
18527         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18528 __app518:
18529         push((int)SOB_CLOSURE_ENV(r_res));
18530         push((int)&&__ret705);
18531         goto *(SOB_CLOSURE_CODE(r_res));
18532 __ret705:
18533         sp = sp-2-stack[sp-2];
18534         push(r_res);
18535         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18536         r_res = ST_ARG(0);
18537         push(r_res);
18538         push(3);
18539
18540         r_res = (int)&__sc_number111;
18541         push(r_res);
18542         r_res = ((int**)ST_ENV())[0][0];
18543         push(r_res);
18544         push(2);
18545         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
18546         if (r_res==0) goto __else805;
18547         if (! ((SymbolEntry*)r_res)->isDefined) goto __else805;
18548         r_res = (int)((SymbolEntry*)r_res)->sob;
18549         goto __endIf805;
18550 __else805:
18551         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
18552 __endIf805:
18553         if (IS_SOB_CLOSURE(r_res)) goto __app519;
18554         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18555 __app519:
18556         push((int)SOB_CLOSURE_ENV(r_res));
18557         push((int)&&__ret706);
18558         goto *(SOB_CLOSURE_CODE(r_res));
18559 __ret706:
18560         sp = sp-2-stack[sp-2];
18561         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18562         push((int)SOB_CLOSURE_ENV(r_res));
18563         push(ST_RET());
18564         shiftActFrmDown();
18565         goto *(SOB_CLOSURE_CODE(r_res));
18566         sp = sp-2-stack[sp-2];
18567 __endIf800:
18568         fp = pop();
18569         RETURN();
18570 __skipBody211:
18571         r_res = (int)makeSchemeClosure((void*)r[0],&&__body211);
18572         push(r_res);
18573         r_res = (int)&__sc_number112;
18574         push(r_res);
18575         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18576         r_res = ST_ARG(0);
18577         push(r_res);
18578         push(3);
18579         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
18580         if (r_res==0) goto __else806;
18581         if (! ((SymbolEntry*)r_res)->isDefined) goto __else806;
18582         r_res = (int)((SymbolEntry*)r_res)->sob;
18583         goto __endIf806;
18584 __else806:
18585         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
18586 __endIf806:
18587         if (IS_SOB_CLOSURE(r_res)) goto __app514;
18588         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18589 __app514:
18590         push((int)SOB_CLOSURE_ENV(r_res));
18591         push((int)&&__ret701);
18592         goto *(SOB_CLOSURE_CODE(r_res));
18593 __ret701:
18594         sp = sp-2-stack[sp-2];
18595         push(0);
18596         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
18597         goto __skipBody212;
18598 __body212:
18599         push(fp);
18600         fp = sp;
18601         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18602         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
18603         goto __skipBody213;
18604 __body213:
18605         push(fp);
18606         fp = sp;
18607         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18608         r_res = (int)&sc_nil;
18609         push(r_res);
18610
18611         r_res = (int)&__sc_number113;
18612         push(r_res);
18613
18614         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18615         r_res = ST_ARG(0);
18616         push(r_res);
18617         push(1);
18618         r_res = (int)probeSymbolDefined("string-length",topLevel);
18619         if (r_res==0) goto __else807;
18620         if (! ((SymbolEntry*)r_res)->isDefined) goto __else807;
18621         r_res = (int)((SymbolEntry*)r_res)->sob;
18622         goto __endIf807;
18623 __else807:
18624         fprintf(stderr,"Symbol string-length not defined"); exit(-1);
18625 __endIf807:
18626         if (IS_SOB_CLOSURE(r_res)) goto __app521;
18627         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18628 __app521:
18629         push((int)SOB_CLOSURE_ENV(r_res));
18630         push((int)&&__ret708);
18631         goto *(SOB_CLOSURE_CODE(r_res));
18632 __ret708:
18633         sp = sp-2-stack[sp-2];
18634         push(r_res);
18635         push(2);
18636         r_res = (int)probeSymbolDefined("-",topLevel);
18637         if (r_res==0) goto __else808;
18638         if (! ((SymbolEntry*)r_res)->isDefined) goto __else808;
18639         r_res = (int)((SymbolEntry*)r_res)->sob;
18640         goto __endIf808;
18641 __else808:
18642         fprintf(stderr,"Symbol - not defined"); exit(-1);
18643 __endIf808:
18644         if (IS_SOB_CLOSURE(r_res)) goto __app520;
18645         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18646 __app520:
18647         push((int)SOB_CLOSURE_ENV(r_res));
18648         push((int)&&__ret707);
18649         goto *(SOB_CLOSURE_CODE(r_res));
18650 __ret707:
18651         sp = sp-2-stack[sp-2];
18652         push(r_res);
18653         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18654         r_res = ST_ARG(0);
18655         push(r_res);
18656         push(3);
18657
18658         r_res = (int)&__sc_number114;
18659         push(r_res);
18660         r_res = ((int**)ST_ENV())[1][0];
18661         push(r_res);
18662         push(2);
18663         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
18664         if (r_res==0) goto __else809;
18665         if (! ((SymbolEntry*)r_res)->isDefined) goto __else809;
18666         r_res = (int)((SymbolEntry*)r_res)->sob;
18667         goto __endIf809;
18668 __else809:
18669         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
18670 __endIf809:
18671         if (IS_SOB_CLOSURE(r_res)) goto __app522;
18672         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18673 __app522:
18674         push((int)SOB_CLOSURE_ENV(r_res));
18675         push((int)&&__ret709);
18676         goto *(SOB_CLOSURE_CODE(r_res));
18677 __ret709:
18678         sp = sp-2-stack[sp-2];
18679         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18680         push((int)SOB_CLOSURE_ENV(r_res));
18681         push(ST_RET());
18682         shiftActFrmDown();
18683         goto *(SOB_CLOSURE_CODE(r_res));
18684         sp = sp-2-stack[sp-2];
18685         fp = pop();
18686         RETURN();
18687 __skipBody213:
18688         r_res = (int)makeSchemeClosure((void*)r[0],&&__body213);
18689         fp = pop();
18690         RETURN();
18691 __skipBody212:
18692         r_res = (int)makeSchemeClosure((void*)r[0],&&__body212);
18693         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18694         push((int)SOB_CLOSURE_ENV(r_res));
18695         push(ST_RET());
18696         shiftActFrmDown();
18697         goto *(SOB_CLOSURE_CODE(r_res));
18698         sp = sp-2-stack[sp-2];
18699         fp = pop();
18700         RETURN();
18701 __skipBody210:
18702         r_res = (int)makeSchemeClosure((void*)r[0],&&__body210);
18703         if (IS_SOB_CLOSURE(r_res)) goto __app512;
18704         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18705 __app512:
18706         push((int)SOB_CLOSURE_ENV(r_res));
18707         push((int)&&__ret699);
18708         goto *(SOB_CLOSURE_CODE(r_res));
18709 __ret699:
18710         sp = sp-2-stack[sp-2];
18711         r[0] = (int)getSymbol("string->list",topLevel);
18712         ((SymbolEntry*)r[0])->isDefined = 1;
18713         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
18714         r_res = (int)&sc_void;
18715 __ret698:
18716         /* set return address */
18717         ST_RET() = (int)&&__ret710;
18718
18719         r[0] = (int)extendEnviroment( (int**)NULL, 0);
18720         goto __skipBody214;
18721 __body214:
18722         push(fp);
18723         fp = sp;
18724         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18725
18726         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18727         r_res = ST_ARG(1);
18728         push(r_res);
18729         push(1);
18730         r_res = (int)probeSymbolDefined("string-length",topLevel);
18731         if (r_res==0) goto __else810;
18732         if (! ((SymbolEntry*)r_res)->isDefined) goto __else810;
18733         r_res = (int)((SymbolEntry*)r_res)->sob;
18734         goto __endIf810;
18735 __else810:
18736         fprintf(stderr,"Symbol string-length not defined"); exit(-1);
18737 __endIf810:
18738         if (IS_SOB_CLOSURE(r_res)) goto __app523;
18739         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18740 __app523:
18741         push((int)SOB_CLOSURE_ENV(r_res));
18742         push((int)&&__ret711);
18743         goto *(SOB_CLOSURE_CODE(r_res));
18744 __ret711:
18745         sp = sp-2-stack[sp-2];
18746         push(r_res);
18747
18748         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18749         r_res = ST_ARG(0);
18750         push(r_res);
18751         push(1);
18752         r_res = (int)probeSymbolDefined("string-length",topLevel);
18753         if (r_res==0) goto __else811;
18754         if (! ((SymbolEntry*)r_res)->isDefined) goto __else811;
18755         r_res = (int)((SymbolEntry*)r_res)->sob;
18756         goto __endIf811;
18757 __else811:
18758         fprintf(stderr,"Symbol string-length not defined"); exit(-1);
18759 __endIf811:
18760         if (IS_SOB_CLOSURE(r_res)) goto __app524;
18761         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18762 __app524:
18763         push((int)SOB_CLOSURE_ENV(r_res));
18764         push((int)&&__ret712);
18765         goto *(SOB_CLOSURE_CODE(r_res));
18766 __ret712:
18767         sp = sp-2-stack[sp-2];
18768         push(r_res);
18769         push(2);
18770         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
18771         goto __skipBody215;
18772 __body215:
18773         push(fp);
18774         fp = sp;
18775         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18776
18777         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18778         r_res = ST_ARG(1);
18779         push(r_res);
18780         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18781         r_res = ST_ARG(0);
18782         push(r_res);
18783         push(2);
18784         r_res = (int)probeSymbolDefined("=",topLevel);
18785         if (r_res==0) goto __else813;
18786         if (! ((SymbolEntry*)r_res)->isDefined) goto __else813;
18787         r_res = (int)((SymbolEntry*)r_res)->sob;
18788         goto __endIf813;
18789 __else813:
18790         fprintf(stderr,"Symbol = not defined"); exit(-1);
18791 __endIf813:
18792         if (IS_SOB_CLOSURE(r_res)) goto __app525;
18793         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18794 __app525:
18795         push((int)SOB_CLOSURE_ENV(r_res));
18796         push((int)&&__ret713);
18797         goto *(SOB_CLOSURE_CODE(r_res));
18798 __ret713:
18799         sp = sp-2-stack[sp-2];
18800         if ((SchemeObject*)r_res==&sc_false) goto __else812;
18801
18802         r_res = ((int**)ST_ENV())[0][1];
18803         push(r_res);
18804         push(1);
18805         r_res = (int)probeSymbolDefined("string->list",topLevel);
18806         if (r_res==0) goto __else814;
18807         if (! ((SymbolEntry*)r_res)->isDefined) goto __else814;
18808         r_res = (int)((SymbolEntry*)r_res)->sob;
18809         goto __endIf814;
18810 __else814:
18811         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
18812 __endIf814:
18813         if (IS_SOB_CLOSURE(r_res)) goto __app526;
18814         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18815 __app526:
18816         push((int)SOB_CLOSURE_ENV(r_res));
18817         push((int)&&__ret714);
18818         goto *(SOB_CLOSURE_CODE(r_res));
18819 __ret714:
18820         sp = sp-2-stack[sp-2];
18821         push(r_res);
18822
18823         r_res = ((int**)ST_ENV())[0][0];
18824         push(r_res);
18825         push(1);
18826         r_res = (int)probeSymbolDefined("string->list",topLevel);
18827         if (r_res==0) goto __else815;
18828         if (! ((SymbolEntry*)r_res)->isDefined) goto __else815;
18829         r_res = (int)((SymbolEntry*)r_res)->sob;
18830         goto __endIf815;
18831 __else815:
18832         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
18833 __endIf815:
18834         if (IS_SOB_CLOSURE(r_res)) goto __app527;
18835         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18836 __app527:
18837         push((int)SOB_CLOSURE_ENV(r_res));
18838         push((int)&&__ret715);
18839         goto *(SOB_CLOSURE_CODE(r_res));
18840 __ret715:
18841         sp = sp-2-stack[sp-2];
18842         push(r_res);
18843         push(2);
18844         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
18845         goto __skipBody216;
18846 __body216:
18847         push(fp);
18848         fp = sp;
18849         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18850
18851         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18852         r_res = ST_ARG(1);
18853         push(r_res);
18854         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18855         r_res = ST_ARG(0);
18856         push(r_res);
18857         r_res = (int)probeSymbolDefined("char=?",topLevel);
18858         if (r_res==0) goto __else816;
18859         if (! ((SymbolEntry*)r_res)->isDefined) goto __else816;
18860         r_res = (int)((SymbolEntry*)r_res)->sob;
18861         goto __endIf816;
18862 __else816:
18863         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
18864 __endIf816:
18865         push(r_res);
18866         push(3);
18867         r_res = (int)probeSymbolDefined("andmap",topLevel);
18868         if (r_res==0) goto __else817;
18869         if (! ((SymbolEntry*)r_res)->isDefined) goto __else817;
18870         r_res = (int)((SymbolEntry*)r_res)->sob;
18871         goto __endIf817;
18872 __else817:
18873         fprintf(stderr,"Symbol andmap not defined"); exit(-1);
18874 __endIf817:
18875         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18876         push((int)SOB_CLOSURE_ENV(r_res));
18877         push(ST_RET());
18878         shiftActFrmDown();
18879         goto *(SOB_CLOSURE_CODE(r_res));
18880         sp = sp-2-stack[sp-2];
18881         fp = pop();
18882         RETURN();
18883 __skipBody216:
18884         r_res = (int)makeSchemeClosure((void*)r[0],&&__body216);
18885         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18886         push((int)SOB_CLOSURE_ENV(r_res));
18887         push(ST_RET());
18888         shiftActFrmDown();
18889         goto *(SOB_CLOSURE_CODE(r_res));
18890         sp = sp-2-stack[sp-2];
18891         goto __endIf812;
18892 __else812:
18893         r_res = (int)&sc_false;
18894 __endIf812:
18895         fp = pop();
18896         RETURN();
18897 __skipBody215:
18898         r_res = (int)makeSchemeClosure((void*)r[0],&&__body215);
18899         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18900         push((int)SOB_CLOSURE_ENV(r_res));
18901         push(ST_RET());
18902         shiftActFrmDown();
18903         goto *(SOB_CLOSURE_CODE(r_res));
18904         sp = sp-2-stack[sp-2];
18905         fp = pop();
18906         RETURN();
18907 __skipBody214:
18908         r_res = (int)makeSchemeClosure((void*)r[0],&&__body214);
18909         r[0] = (int)getSymbol("binary-string=?",topLevel);
18910         ((SymbolEntry*)r[0])->isDefined = 1;
18911         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
18912         r_res = (int)&sc_void;
18913 __ret710:
18914         /* set return address */
18915         ST_RET() = (int)&&__ret716;
18916
18917         r[0] = (int)extendEnviroment( (int**)NULL, 0);
18918         goto __skipBody217;
18919 __body217:
18920         push(fp);
18921         fp = sp;
18922         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18923         r_res = (int)&sc_false;
18924         push(r_res);
18925         push(1);
18926         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
18927         goto __skipBody218;
18928 __body218:
18929         push(fp);
18930         fp = sp;
18931         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18932
18933         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18934         r_res = ST_ARG(0);
18935         push(r_res);
18936         push(1);
18937         r_res = (int)probeSymbolDefined("box",topLevel);
18938         if (r_res==0) goto __else818;
18939         if (! ((SymbolEntry*)r_res)->isDefined) goto __else818;
18940         r_res = (int)((SymbolEntry*)r_res)->sob;
18941         goto __endIf818;
18942 __else818:
18943         fprintf(stderr,"Symbol box not defined"); exit(-1);
18944 __endIf818:
18945         if (IS_SOB_CLOSURE(r_res)) goto __app528;
18946         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18947 __app528:
18948         push((int)SOB_CLOSURE_ENV(r_res));
18949         push((int)&&__ret717);
18950         goto *(SOB_CLOSURE_CODE(r_res));
18951 __ret717:
18952         sp = sp-2-stack[sp-2];
18953         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18954         ST_ARG(0) = r_res;
18955         r_res = (int)&sc_void;
18956
18957         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
18958         goto __skipBody219;
18959 __body219:
18960         push(fp);
18961         fp = sp;
18962         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18963
18964         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
18965         r_res = ST_ARG(0);
18966         push(r_res);
18967         push(1);
18968         r_res = (int)probeSymbolDefined("null?",topLevel);
18969         if (r_res==0) goto __else820;
18970         if (! ((SymbolEntry*)r_res)->isDefined) goto __else820;
18971         r_res = (int)((SymbolEntry*)r_res)->sob;
18972         goto __endIf820;
18973 __else820:
18974         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
18975 __endIf820:
18976         if (IS_SOB_CLOSURE(r_res)) goto __app530;
18977         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
18978 __app530:
18979         push((int)SOB_CLOSURE_ENV(r_res));
18980         push((int)&&__ret719);
18981         goto *(SOB_CLOSURE_CODE(r_res));
18982 __ret719:
18983         sp = sp-2-stack[sp-2];
18984         if ((SchemeObject*)r_res==&sc_false) goto __else819;
18985
18986         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
18987         r_res = ST_ARG(1);
18988         push(r_res);
18989         push(1);
18990         r_res = (int)probeSymbolDefined("pair?",topLevel);
18991         if (r_res==0) goto __else821;
18992         if (! ((SymbolEntry*)r_res)->isDefined) goto __else821;
18993         r_res = (int)((SymbolEntry*)r_res)->sob;
18994         goto __endIf821;
18995 __else821:
18996         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
18997 __endIf821:
18998         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
18999         push((int)SOB_CLOSURE_ENV(r_res));
19000         push(ST_RET());
19001         shiftActFrmDown();
19002         goto *(SOB_CLOSURE_CODE(r_res));
19003         sp = sp-2-stack[sp-2];
19004         goto __endIf819;
19005 __else819:
19006
19007         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19008         r_res = ST_ARG(1);
19009         push(r_res);
19010         push(1);
19011         r_res = (int)probeSymbolDefined("null?",topLevel);
19012         if (r_res==0) goto __else823;
19013         if (! ((SymbolEntry*)r_res)->isDefined) goto __else823;
19014         r_res = (int)((SymbolEntry*)r_res)->sob;
19015         goto __endIf823;
19016 __else823:
19017         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
19018 __endIf823:
19019         if (IS_SOB_CLOSURE(r_res)) goto __app531;
19020         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19021 __app531:
19022         push((int)SOB_CLOSURE_ENV(r_res));
19023         push((int)&&__ret720);
19024         goto *(SOB_CLOSURE_CODE(r_res));
19025 __ret720:
19026         sp = sp-2-stack[sp-2];
19027         if ((SchemeObject*)r_res==&sc_false) goto __else822;
19028         r_res = (int)&sc_false;
19029         goto __endIf822;
19030 __else822:
19031
19032
19033         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19034         r_res = ST_ARG(1);
19035         push(r_res);
19036         push(1);
19037         r_res = (int)probeSymbolDefined("car",topLevel);
19038         if (r_res==0) goto __else825;
19039         if (! ((SymbolEntry*)r_res)->isDefined) goto __else825;
19040         r_res = (int)((SymbolEntry*)r_res)->sob;
19041         goto __endIf825;
19042 __else825:
19043         fprintf(stderr,"Symbol car not defined"); exit(-1);
19044 __endIf825:
19045         if (IS_SOB_CLOSURE(r_res)) goto __app533;
19046         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19047 __app533:
19048         push((int)SOB_CLOSURE_ENV(r_res));
19049         push((int)&&__ret722);
19050         goto *(SOB_CLOSURE_CODE(r_res));
19051 __ret722:
19052         sp = sp-2-stack[sp-2];
19053         push(r_res);
19054
19055         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19056         r_res = ST_ARG(0);
19057         push(r_res);
19058         push(1);
19059         r_res = (int)probeSymbolDefined("car",topLevel);
19060         if (r_res==0) goto __else826;
19061         if (! ((SymbolEntry*)r_res)->isDefined) goto __else826;
19062         r_res = (int)((SymbolEntry*)r_res)->sob;
19063         goto __endIf826;
19064 __else826:
19065         fprintf(stderr,"Symbol car not defined"); exit(-1);
19066 __endIf826:
19067         if (IS_SOB_CLOSURE(r_res)) goto __app534;
19068         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19069 __app534:
19070         push((int)SOB_CLOSURE_ENV(r_res));
19071         push((int)&&__ret723);
19072         goto *(SOB_CLOSURE_CODE(r_res));
19073 __ret723:
19074         sp = sp-2-stack[sp-2];
19075         push(r_res);
19076         push(2);
19077         r_res = (int)probeSymbolDefined("char=?",topLevel);
19078         if (r_res==0) goto __else827;
19079         if (! ((SymbolEntry*)r_res)->isDefined) goto __else827;
19080         r_res = (int)((SymbolEntry*)r_res)->sob;
19081         goto __endIf827;
19082 __else827:
19083         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
19084 __endIf827:
19085         if (IS_SOB_CLOSURE(r_res)) goto __app532;
19086         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19087 __app532:
19088         push((int)SOB_CLOSURE_ENV(r_res));
19089         push((int)&&__ret721);
19090         goto *(SOB_CLOSURE_CODE(r_res));
19091 __ret721:
19092         sp = sp-2-stack[sp-2];
19093         if ((SchemeObject*)r_res==&sc_false) goto __else824;
19094
19095         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19096         r_res = ST_ARG(1);
19097         push(r_res);
19098         push(1);
19099         r_res = (int)probeSymbolDefined("cdr",topLevel);
19100         if (r_res==0) goto __else828;
19101         if (! ((SymbolEntry*)r_res)->isDefined) goto __else828;
19102         r_res = (int)((SymbolEntry*)r_res)->sob;
19103         goto __endIf828;
19104 __else828:
19105         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
19106 __endIf828:
19107         if (IS_SOB_CLOSURE(r_res)) goto __app535;
19108         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19109 __app535:
19110         push((int)SOB_CLOSURE_ENV(r_res));
19111         push((int)&&__ret724);
19112         goto *(SOB_CLOSURE_CODE(r_res));
19113 __ret724:
19114         sp = sp-2-stack[sp-2];
19115         push(r_res);
19116
19117         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19118         r_res = ST_ARG(0);
19119         push(r_res);
19120         push(1);
19121         r_res = (int)probeSymbolDefined("cdr",topLevel);
19122         if (r_res==0) goto __else829;
19123         if (! ((SymbolEntry*)r_res)->isDefined) goto __else829;
19124         r_res = (int)((SymbolEntry*)r_res)->sob;
19125         goto __endIf829;
19126 __else829:
19127         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
19128 __endIf829:
19129         if (IS_SOB_CLOSURE(r_res)) goto __app536;
19130         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19131 __app536:
19132         push((int)SOB_CLOSURE_ENV(r_res));
19133         push((int)&&__ret725);
19134         goto *(SOB_CLOSURE_CODE(r_res));
19135 __ret725:
19136         sp = sp-2-stack[sp-2];
19137         push(r_res);
19138         push(2);
19139
19140         r_res = (int)&__sc_number115;
19141         push(r_res);
19142         r_res = ((int**)ST_ENV())[0][0];
19143         push(r_res);
19144         push(2);
19145         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
19146         if (r_res==0) goto __else830;
19147         if (! ((SymbolEntry*)r_res)->isDefined) goto __else830;
19148         r_res = (int)((SymbolEntry*)r_res)->sob;
19149         goto __endIf830;
19150 __else830:
19151         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
19152 __endIf830:
19153         if (IS_SOB_CLOSURE(r_res)) goto __app537;
19154         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19155 __app537:
19156         push((int)SOB_CLOSURE_ENV(r_res));
19157         push((int)&&__ret726);
19158         goto *(SOB_CLOSURE_CODE(r_res));
19159 __ret726:
19160         sp = sp-2-stack[sp-2];
19161         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19162         push((int)SOB_CLOSURE_ENV(r_res));
19163         push(ST_RET());
19164         shiftActFrmDown();
19165         goto *(SOB_CLOSURE_CODE(r_res));
19166         sp = sp-2-stack[sp-2];
19167         goto __endIf824;
19168 __else824:
19169
19170
19171         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19172         r_res = ST_ARG(1);
19173         push(r_res);
19174         push(1);
19175         r_res = (int)probeSymbolDefined("car",topLevel);
19176         if (r_res==0) goto __else831;
19177         if (! ((SymbolEntry*)r_res)->isDefined) goto __else831;
19178         r_res = (int)((SymbolEntry*)r_res)->sob;
19179         goto __endIf831;
19180 __else831:
19181         fprintf(stderr,"Symbol car not defined"); exit(-1);
19182 __endIf831:
19183         if (IS_SOB_CLOSURE(r_res)) goto __app538;
19184         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19185 __app538:
19186         push((int)SOB_CLOSURE_ENV(r_res));
19187         push((int)&&__ret727);
19188         goto *(SOB_CLOSURE_CODE(r_res));
19189 __ret727:
19190         sp = sp-2-stack[sp-2];
19191         push(r_res);
19192
19193         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19194         r_res = ST_ARG(0);
19195         push(r_res);
19196         push(1);
19197         r_res = (int)probeSymbolDefined("car",topLevel);
19198         if (r_res==0) goto __else832;
19199         if (! ((SymbolEntry*)r_res)->isDefined) goto __else832;
19200         r_res = (int)((SymbolEntry*)r_res)->sob;
19201         goto __endIf832;
19202 __else832:
19203         fprintf(stderr,"Symbol car not defined"); exit(-1);
19204 __endIf832:
19205         if (IS_SOB_CLOSURE(r_res)) goto __app539;
19206         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19207 __app539:
19208         push((int)SOB_CLOSURE_ENV(r_res));
19209         push((int)&&__ret728);
19210         goto *(SOB_CLOSURE_CODE(r_res));
19211 __ret728:
19212         sp = sp-2-stack[sp-2];
19213         push(r_res);
19214         push(2);
19215         r_res = (int)probeSymbolDefined("char<?",topLevel);
19216         if (r_res==0) goto __else833;
19217         if (! ((SymbolEntry*)r_res)->isDefined) goto __else833;
19218         r_res = (int)((SymbolEntry*)r_res)->sob;
19219         goto __endIf833;
19220 __else833:
19221         fprintf(stderr,"Symbol char<\? not defined"); exit(-1);
19222 __endIf833:
19223         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19224         push((int)SOB_CLOSURE_ENV(r_res));
19225         push(ST_RET());
19226         shiftActFrmDown();
19227         goto *(SOB_CLOSURE_CODE(r_res));
19228         sp = sp-2-stack[sp-2];
19229 __endIf824:
19230 __endIf822:
19231 __endIf819:
19232         fp = pop();
19233         RETURN();
19234 __skipBody219:
19235         r_res = (int)makeSchemeClosure((void*)r[0],&&__body219);
19236         push(r_res);
19237         r_res = (int)&__sc_number116;
19238         push(r_res);
19239         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19240         r_res = ST_ARG(0);
19241         push(r_res);
19242         push(3);
19243         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
19244         if (r_res==0) goto __else834;
19245         if (! ((SymbolEntry*)r_res)->isDefined) goto __else834;
19246         r_res = (int)((SymbolEntry*)r_res)->sob;
19247         goto __endIf834;
19248 __else834:
19249         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
19250 __endIf834:
19251         if (IS_SOB_CLOSURE(r_res)) goto __app529;
19252         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19253 __app529:
19254         push((int)SOB_CLOSURE_ENV(r_res));
19255         push((int)&&__ret718);
19256         goto *(SOB_CLOSURE_CODE(r_res));
19257 __ret718:
19258         sp = sp-2-stack[sp-2];
19259         push(0);
19260         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
19261         goto __skipBody220;
19262 __body220:
19263         push(fp);
19264         fp = sp;
19265         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19266
19267         r_res = ((int**)ST_ENV())[1][1];
19268         push(r_res);
19269         push(1);
19270         r_res = (int)probeSymbolDefined("string->list",topLevel);
19271         if (r_res==0) goto __else835;
19272         if (! ((SymbolEntry*)r_res)->isDefined) goto __else835;
19273         r_res = (int)((SymbolEntry*)r_res)->sob;
19274         goto __endIf835;
19275 __else835:
19276         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
19277 __endIf835:
19278         if (IS_SOB_CLOSURE(r_res)) goto __app540;
19279         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19280 __app540:
19281         push((int)SOB_CLOSURE_ENV(r_res));
19282         push((int)&&__ret729);
19283         goto *(SOB_CLOSURE_CODE(r_res));
19284 __ret729:
19285         sp = sp-2-stack[sp-2];
19286         push(r_res);
19287
19288         r_res = ((int**)ST_ENV())[1][0];
19289         push(r_res);
19290         push(1);
19291         r_res = (int)probeSymbolDefined("string->list",topLevel);
19292         if (r_res==0) goto __else836;
19293         if (! ((SymbolEntry*)r_res)->isDefined) goto __else836;
19294         r_res = (int)((SymbolEntry*)r_res)->sob;
19295         goto __endIf836;
19296 __else836:
19297         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
19298 __endIf836:
19299         if (IS_SOB_CLOSURE(r_res)) goto __app541;
19300         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19301 __app541:
19302         push((int)SOB_CLOSURE_ENV(r_res));
19303         push((int)&&__ret730);
19304         goto *(SOB_CLOSURE_CODE(r_res));
19305 __ret730:
19306         sp = sp-2-stack[sp-2];
19307         push(r_res);
19308         push(2);
19309
19310         r_res = (int)&__sc_number117;
19311         push(r_res);
19312         r_res = ((int**)ST_ENV())[0][0];
19313         push(r_res);
19314         push(2);
19315         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
19316         if (r_res==0) goto __else837;
19317         if (! ((SymbolEntry*)r_res)->isDefined) goto __else837;
19318         r_res = (int)((SymbolEntry*)r_res)->sob;
19319         goto __endIf837;
19320 __else837:
19321         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
19322 __endIf837:
19323         if (IS_SOB_CLOSURE(r_res)) goto __app542;
19324         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19325 __app542:
19326         push((int)SOB_CLOSURE_ENV(r_res));
19327         push((int)&&__ret731);
19328         goto *(SOB_CLOSURE_CODE(r_res));
19329 __ret731:
19330         sp = sp-2-stack[sp-2];
19331         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19332         push((int)SOB_CLOSURE_ENV(r_res));
19333         push(ST_RET());
19334         shiftActFrmDown();
19335         goto *(SOB_CLOSURE_CODE(r_res));
19336         sp = sp-2-stack[sp-2];
19337         fp = pop();
19338         RETURN();
19339 __skipBody220:
19340         r_res = (int)makeSchemeClosure((void*)r[0],&&__body220);
19341         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19342         push((int)SOB_CLOSURE_ENV(r_res));
19343         push(ST_RET());
19344         shiftActFrmDown();
19345         goto *(SOB_CLOSURE_CODE(r_res));
19346         sp = sp-2-stack[sp-2];
19347         fp = pop();
19348         RETURN();
19349 __skipBody218:
19350         r_res = (int)makeSchemeClosure((void*)r[0],&&__body218);
19351         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19352         push((int)SOB_CLOSURE_ENV(r_res));
19353         push(ST_RET());
19354         shiftActFrmDown();
19355         goto *(SOB_CLOSURE_CODE(r_res));
19356         sp = sp-2-stack[sp-2];
19357         fp = pop();
19358         RETURN();
19359 __skipBody217:
19360         r_res = (int)makeSchemeClosure((void*)r[0],&&__body217);
19361         r[0] = (int)getSymbol("binary-string<?",topLevel);
19362         ((SymbolEntry*)r[0])->isDefined = 1;
19363         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
19364         r_res = (int)&sc_void;
19365 __ret716:
19366         /* set return address */
19367         ST_RET() = (int)&&__ret732;
19368
19369         r[0] = (int)extendEnviroment( (int**)NULL, 0);
19370         goto __skipBody221;
19371 __body221:
19372         push(fp);
19373         fp = sp;
19374         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19375
19376         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19377         r_res = ST_ARG(0);
19378         push(r_res);
19379         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19380         r_res = ST_ARG(1);
19381         push(r_res);
19382         push(2);
19383         r_res = (int)probeSymbolDefined("binary-string<?",topLevel);
19384         if (r_res==0) goto __else838;
19385         if (! ((SymbolEntry*)r_res)->isDefined) goto __else838;
19386         r_res = (int)((SymbolEntry*)r_res)->sob;
19387         goto __endIf838;
19388 __else838:
19389         fprintf(stderr,"Symbol binary-string<\? not defined"); exit(-1);
19390 __endIf838:
19391         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19392         push((int)SOB_CLOSURE_ENV(r_res));
19393         push(ST_RET());
19394         shiftActFrmDown();
19395         goto *(SOB_CLOSURE_CODE(r_res));
19396         sp = sp-2-stack[sp-2];
19397         fp = pop();
19398         RETURN();
19399 __skipBody221:
19400         r_res = (int)makeSchemeClosure((void*)r[0],&&__body221);
19401         r[0] = (int)getSymbol("binary-string>?",topLevel);
19402         ((SymbolEntry*)r[0])->isDefined = 1;
19403         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
19404         r_res = (int)&sc_void;
19405 __ret732:
19406         /* set return address */
19407         ST_RET() = (int)&&__ret733;
19408
19409         r[0] = (int)extendEnviroment( (int**)NULL, 0);
19410         goto __skipBody222;
19411 __body222:
19412         push(fp);
19413         fp = sp;
19414         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19415
19416
19417         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19418         r_res = ST_ARG(1);
19419         push(r_res);
19420         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19421         r_res = ST_ARG(0);
19422         push(r_res);
19423         push(2);
19424         r_res = (int)probeSymbolDefined("binary-string>?",topLevel);
19425         if (r_res==0) goto __else839;
19426         if (! ((SymbolEntry*)r_res)->isDefined) goto __else839;
19427         r_res = (int)((SymbolEntry*)r_res)->sob;
19428         goto __endIf839;
19429 __else839:
19430         fprintf(stderr,"Symbol binary-string>\? not defined"); exit(-1);
19431 __endIf839:
19432         if (IS_SOB_CLOSURE(r_res)) goto __app543;
19433         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19434 __app543:
19435         push((int)SOB_CLOSURE_ENV(r_res));
19436         push((int)&&__ret734);
19437         goto *(SOB_CLOSURE_CODE(r_res));
19438 __ret734:
19439         sp = sp-2-stack[sp-2];
19440         push(r_res);
19441         push(1);
19442         r_res = (int)probeSymbolDefined("not",topLevel);
19443         if (r_res==0) goto __else840;
19444         if (! ((SymbolEntry*)r_res)->isDefined) goto __else840;
19445         r_res = (int)((SymbolEntry*)r_res)->sob;
19446         goto __endIf840;
19447 __else840:
19448         fprintf(stderr,"Symbol not not defined"); exit(-1);
19449 __endIf840:
19450         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19451         push((int)SOB_CLOSURE_ENV(r_res));
19452         push(ST_RET());
19453         shiftActFrmDown();
19454         goto *(SOB_CLOSURE_CODE(r_res));
19455         sp = sp-2-stack[sp-2];
19456         fp = pop();
19457         RETURN();
19458 __skipBody222:
19459         r_res = (int)makeSchemeClosure((void*)r[0],&&__body222);
19460         r[0] = (int)getSymbol("binary-string<=?",topLevel);
19461         ((SymbolEntry*)r[0])->isDefined = 1;
19462         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
19463         r_res = (int)&sc_void;
19464 __ret733:
19465         /* set return address */
19466         ST_RET() = (int)&&__ret735;
19467
19468         r[0] = (int)extendEnviroment( (int**)NULL, 0);
19469         goto __skipBody223;
19470 __body223:
19471         push(fp);
19472         fp = sp;
19473         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19474
19475
19476         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19477         r_res = ST_ARG(1);
19478         push(r_res);
19479         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19480         r_res = ST_ARG(0);
19481         push(r_res);
19482         push(2);
19483         r_res = (int)probeSymbolDefined("binary-string<?",topLevel);
19484         if (r_res==0) goto __else841;
19485         if (! ((SymbolEntry*)r_res)->isDefined) goto __else841;
19486         r_res = (int)((SymbolEntry*)r_res)->sob;
19487         goto __endIf841;
19488 __else841:
19489         fprintf(stderr,"Symbol binary-string<\? not defined"); exit(-1);
19490 __endIf841:
19491         if (IS_SOB_CLOSURE(r_res)) goto __app544;
19492         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19493 __app544:
19494         push((int)SOB_CLOSURE_ENV(r_res));
19495         push((int)&&__ret736);
19496         goto *(SOB_CLOSURE_CODE(r_res));
19497 __ret736:
19498         sp = sp-2-stack[sp-2];
19499         push(r_res);
19500         push(1);
19501         r_res = (int)probeSymbolDefined("not",topLevel);
19502         if (r_res==0) goto __else842;
19503         if (! ((SymbolEntry*)r_res)->isDefined) goto __else842;
19504         r_res = (int)((SymbolEntry*)r_res)->sob;
19505         goto __endIf842;
19506 __else842:
19507         fprintf(stderr,"Symbol not not defined"); exit(-1);
19508 __endIf842:
19509         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19510         push((int)SOB_CLOSURE_ENV(r_res));
19511         push(ST_RET());
19512         shiftActFrmDown();
19513         goto *(SOB_CLOSURE_CODE(r_res));
19514         sp = sp-2-stack[sp-2];
19515         fp = pop();
19516         RETURN();
19517 __skipBody223:
19518         r_res = (int)makeSchemeClosure((void*)r[0],&&__body223);
19519         r[0] = (int)getSymbol("binary-string>=?",topLevel);
19520         ((SymbolEntry*)r[0])->isDefined = 1;
19521         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
19522         r_res = (int)&sc_void;
19523 __ret735:
19524         /* set return address */
19525         ST_RET() = (int)&&__ret737;
19526
19527
19528         r_res = (int)probeSymbolDefined("binary-string=?",topLevel);
19529         if (r_res==0) goto __else843;
19530         if (! ((SymbolEntry*)r_res)->isDefined) goto __else843;
19531         r_res = (int)((SymbolEntry*)r_res)->sob;
19532         goto __endIf843;
19533 __else843:
19534         fprintf(stderr,"Symbol binary-string=\? not defined"); exit(-1);
19535 __endIf843:
19536         push(r_res);
19537         push(1);
19538         r_res = (int)probeSymbolDefined("order",topLevel);
19539         if (r_res==0) goto __else844;
19540         if (! ((SymbolEntry*)r_res)->isDefined) goto __else844;
19541         r_res = (int)((SymbolEntry*)r_res)->sob;
19542         goto __endIf844;
19543 __else844:
19544         fprintf(stderr,"Symbol order not defined"); exit(-1);
19545 __endIf844:
19546         if (IS_SOB_CLOSURE(r_res)) goto __app545;
19547         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19548 __app545:
19549         push((int)SOB_CLOSURE_ENV(r_res));
19550         push((int)&&__ret738);
19551         goto *(SOB_CLOSURE_CODE(r_res));
19552 __ret738:
19553         sp = sp-2-stack[sp-2];
19554         r[0] = (int)getSymbol("string=?",topLevel);
19555         ((SymbolEntry*)r[0])->isDefined = 1;
19556         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
19557         r_res = (int)&sc_void;
19558 __ret737:
19559         /* set return address */
19560         ST_RET() = (int)&&__ret739;
19561
19562
19563         r_res = (int)probeSymbolDefined("binary-string<?",topLevel);
19564         if (r_res==0) goto __else845;
19565         if (! ((SymbolEntry*)r_res)->isDefined) goto __else845;
19566         r_res = (int)((SymbolEntry*)r_res)->sob;
19567         goto __endIf845;
19568 __else845:
19569         fprintf(stderr,"Symbol binary-string<\? not defined"); exit(-1);
19570 __endIf845:
19571         push(r_res);
19572         push(1);
19573         r_res = (int)probeSymbolDefined("order",topLevel);
19574         if (r_res==0) goto __else846;
19575         if (! ((SymbolEntry*)r_res)->isDefined) goto __else846;
19576         r_res = (int)((SymbolEntry*)r_res)->sob;
19577         goto __endIf846;
19578 __else846:
19579         fprintf(stderr,"Symbol order not defined"); exit(-1);
19580 __endIf846:
19581         if (IS_SOB_CLOSURE(r_res)) goto __app546;
19582         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19583 __app546:
19584         push((int)SOB_CLOSURE_ENV(r_res));
19585         push((int)&&__ret740);
19586         goto *(SOB_CLOSURE_CODE(r_res));
19587 __ret740:
19588         sp = sp-2-stack[sp-2];
19589         r[0] = (int)getSymbol("string<?",topLevel);
19590         ((SymbolEntry*)r[0])->isDefined = 1;
19591         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
19592         r_res = (int)&sc_void;
19593 __ret739:
19594         /* set return address */
19595         ST_RET() = (int)&&__ret741;
19596
19597
19598         r_res = (int)probeSymbolDefined("binary-string>?",topLevel);
19599         if (r_res==0) goto __else847;
19600         if (! ((SymbolEntry*)r_res)->isDefined) goto __else847;
19601         r_res = (int)((SymbolEntry*)r_res)->sob;
19602         goto __endIf847;
19603 __else847:
19604         fprintf(stderr,"Symbol binary-string>\? not defined"); exit(-1);
19605 __endIf847:
19606         push(r_res);
19607         push(1);
19608         r_res = (int)probeSymbolDefined("order",topLevel);
19609         if (r_res==0) goto __else848;
19610         if (! ((SymbolEntry*)r_res)->isDefined) goto __else848;
19611         r_res = (int)((SymbolEntry*)r_res)->sob;
19612         goto __endIf848;
19613 __else848:
19614         fprintf(stderr,"Symbol order not defined"); exit(-1);
19615 __endIf848:
19616         if (IS_SOB_CLOSURE(r_res)) goto __app547;
19617         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19618 __app547:
19619         push((int)SOB_CLOSURE_ENV(r_res));
19620         push((int)&&__ret742);
19621         goto *(SOB_CLOSURE_CODE(r_res));
19622 __ret742:
19623         sp = sp-2-stack[sp-2];
19624         r[0] = (int)getSymbol("string>?",topLevel);
19625         ((SymbolEntry*)r[0])->isDefined = 1;
19626         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
19627         r_res = (int)&sc_void;
19628 __ret741:
19629         /* set return address */
19630         ST_RET() = (int)&&__ret743;
19631
19632
19633         r_res = (int)probeSymbolDefined("binary-string<=?",topLevel);
19634         if (r_res==0) goto __else849;
19635         if (! ((SymbolEntry*)r_res)->isDefined) goto __else849;
19636         r_res = (int)((SymbolEntry*)r_res)->sob;
19637         goto __endIf849;
19638 __else849:
19639         fprintf(stderr,"Symbol binary-string<=\? not defined"); exit(-1);
19640 __endIf849:
19641         push(r_res);
19642         push(1);
19643         r_res = (int)probeSymbolDefined("order",topLevel);
19644         if (r_res==0) goto __else850;
19645         if (! ((SymbolEntry*)r_res)->isDefined) goto __else850;
19646         r_res = (int)((SymbolEntry*)r_res)->sob;
19647         goto __endIf850;
19648 __else850:
19649         fprintf(stderr,"Symbol order not defined"); exit(-1);
19650 __endIf850:
19651         if (IS_SOB_CLOSURE(r_res)) goto __app548;
19652         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19653 __app548:
19654         push((int)SOB_CLOSURE_ENV(r_res));
19655         push((int)&&__ret744);
19656         goto *(SOB_CLOSURE_CODE(r_res));
19657 __ret744:
19658         sp = sp-2-stack[sp-2];
19659         r[0] = (int)getSymbol("string<=?",topLevel);
19660         ((SymbolEntry*)r[0])->isDefined = 1;
19661         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
19662         r_res = (int)&sc_void;
19663 __ret743:
19664         /* set return address */
19665         ST_RET() = (int)&&__ret745;
19666
19667
19668         r_res = (int)probeSymbolDefined("binary-string>=?",topLevel);
19669         if (r_res==0) goto __else851;
19670         if (! ((SymbolEntry*)r_res)->isDefined) goto __else851;
19671         r_res = (int)((SymbolEntry*)r_res)->sob;
19672         goto __endIf851;
19673 __else851:
19674         fprintf(stderr,"Symbol binary-string>=\? not defined"); exit(-1);
19675 __endIf851:
19676         push(r_res);
19677         push(1);
19678         r_res = (int)probeSymbolDefined("order",topLevel);
19679         if (r_res==0) goto __else852;
19680         if (! ((SymbolEntry*)r_res)->isDefined) goto __else852;
19681         r_res = (int)((SymbolEntry*)r_res)->sob;
19682         goto __endIf852;
19683 __else852:
19684         fprintf(stderr,"Symbol order not defined"); exit(-1);
19685 __endIf852:
19686         if (IS_SOB_CLOSURE(r_res)) goto __app549;
19687         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19688 __app549:
19689         push((int)SOB_CLOSURE_ENV(r_res));
19690         push((int)&&__ret746);
19691         goto *(SOB_CLOSURE_CODE(r_res));
19692 __ret746:
19693         sp = sp-2-stack[sp-2];
19694         r[0] = (int)getSymbol("string>=?",topLevel);
19695         ((SymbolEntry*)r[0])->isDefined = 1;
19696         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
19697         r_res = (int)&sc_void;
19698 __ret745:
19699         /* set return address */
19700         ST_RET() = (int)&&__ret747;
19701
19702         r_res = (int)&sc_false;
19703         push(r_res);
19704         push(1);
19705         r[0] = (int)extendEnviroment( (int**)NULL, 0);
19706         goto __skipBody224;
19707 __body224:
19708         push(fp);
19709         fp = sp;
19710         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19711
19712         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19713         r_res = ST_ARG(0);
19714         push(r_res);
19715         push(1);
19716         r_res = (int)probeSymbolDefined("box",topLevel);
19717         if (r_res==0) goto __else853;
19718         if (! ((SymbolEntry*)r_res)->isDefined) goto __else853;
19719         r_res = (int)((SymbolEntry*)r_res)->sob;
19720         goto __endIf853;
19721 __else853:
19722         fprintf(stderr,"Symbol box not defined"); exit(-1);
19723 __endIf853:
19724         if (IS_SOB_CLOSURE(r_res)) goto __app551;
19725         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19726 __app551:
19727         push((int)SOB_CLOSURE_ENV(r_res));
19728         push((int)&&__ret749);
19729         goto *(SOB_CLOSURE_CODE(r_res));
19730 __ret749:
19731         sp = sp-2-stack[sp-2];
19732         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19733         ST_ARG(0) = r_res;
19734         r_res = (int)&sc_void;
19735
19736         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
19737         goto __skipBody225;
19738 __body225:
19739         push(fp);
19740         fp = sp;
19741         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19742
19743         r_res = (int)&__sc_number118;
19744         push(r_res);
19745         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19746         r_res = ST_ARG(1);
19747         push(r_res);
19748         push(2);
19749         r_res = (int)probeSymbolDefined("=",topLevel);
19750         if (r_res==0) goto __else855;
19751         if (! ((SymbolEntry*)r_res)->isDefined) goto __else855;
19752         r_res = (int)((SymbolEntry*)r_res)->sob;
19753         goto __endIf855;
19754 __else855:
19755         fprintf(stderr,"Symbol = not defined"); exit(-1);
19756 __endIf855:
19757         if (IS_SOB_CLOSURE(r_res)) goto __app553;
19758         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19759 __app553:
19760         push((int)SOB_CLOSURE_ENV(r_res));
19761         push((int)&&__ret751);
19762         goto *(SOB_CLOSURE_CODE(r_res));
19763 __ret751:
19764         sp = sp-2-stack[sp-2];
19765         if ((SchemeObject*)r_res==&sc_false) goto __else854;
19766         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
19767         r_res = ST_ARG(2);
19768         goto __endIf854;
19769 __else854:
19770
19771         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
19772         r_res = ST_ARG(2);
19773         push(r_res);
19774
19775         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19776         r_res = ST_ARG(1);
19777         push(r_res);
19778         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19779         r_res = ST_ARG(0);
19780         push(r_res);
19781         push(2);
19782         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
19783         if (r_res==0) goto __else856;
19784         if (! ((SymbolEntry*)r_res)->isDefined) goto __else856;
19785         r_res = (int)((SymbolEntry*)r_res)->sob;
19786         goto __endIf856;
19787 __else856:
19788         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
19789 __endIf856:
19790         if (IS_SOB_CLOSURE(r_res)) goto __app555;
19791         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19792 __app555:
19793         push((int)SOB_CLOSURE_ENV(r_res));
19794         push((int)&&__ret753);
19795         goto *(SOB_CLOSURE_CODE(r_res));
19796 __ret753:
19797         sp = sp-2-stack[sp-2];
19798         push(r_res);
19799         push(2);
19800         r_res = (int)probeSymbolDefined("cons",topLevel);
19801         if (r_res==0) goto __else857;
19802         if (! ((SymbolEntry*)r_res)->isDefined) goto __else857;
19803         r_res = (int)((SymbolEntry*)r_res)->sob;
19804         goto __endIf857;
19805 __else857:
19806         fprintf(stderr,"Symbol cons not defined"); exit(-1);
19807 __endIf857:
19808         if (IS_SOB_CLOSURE(r_res)) goto __app554;
19809         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19810 __app554:
19811         push((int)SOB_CLOSURE_ENV(r_res));
19812         push((int)&&__ret752);
19813         goto *(SOB_CLOSURE_CODE(r_res));
19814 __ret752:
19815         sp = sp-2-stack[sp-2];
19816         push(r_res);
19817
19818         r_res = (int)&__sc_number119;
19819         push(r_res);
19820         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
19821         r_res = ST_ARG(1);
19822         push(r_res);
19823         push(2);
19824         r_res = (int)probeSymbolDefined("-",topLevel);
19825         if (r_res==0) goto __else858;
19826         if (! ((SymbolEntry*)r_res)->isDefined) goto __else858;
19827         r_res = (int)((SymbolEntry*)r_res)->sob;
19828         goto __endIf858;
19829 __else858:
19830         fprintf(stderr,"Symbol - not defined"); exit(-1);
19831 __endIf858:
19832         if (IS_SOB_CLOSURE(r_res)) goto __app556;
19833         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19834 __app556:
19835         push((int)SOB_CLOSURE_ENV(r_res));
19836         push((int)&&__ret754);
19837         goto *(SOB_CLOSURE_CODE(r_res));
19838 __ret754:
19839         sp = sp-2-stack[sp-2];
19840         push(r_res);
19841         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19842         r_res = ST_ARG(0);
19843         push(r_res);
19844         push(3);
19845
19846         r_res = (int)&__sc_number120;
19847         push(r_res);
19848         r_res = ((int**)ST_ENV())[0][0];
19849         push(r_res);
19850         push(2);
19851         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
19852         if (r_res==0) goto __else859;
19853         if (! ((SymbolEntry*)r_res)->isDefined) goto __else859;
19854         r_res = (int)((SymbolEntry*)r_res)->sob;
19855         goto __endIf859;
19856 __else859:
19857         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
19858 __endIf859:
19859         if (IS_SOB_CLOSURE(r_res)) goto __app557;
19860         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19861 __app557:
19862         push((int)SOB_CLOSURE_ENV(r_res));
19863         push((int)&&__ret755);
19864         goto *(SOB_CLOSURE_CODE(r_res));
19865 __ret755:
19866         sp = sp-2-stack[sp-2];
19867         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19868         push((int)SOB_CLOSURE_ENV(r_res));
19869         push(ST_RET());
19870         shiftActFrmDown();
19871         goto *(SOB_CLOSURE_CODE(r_res));
19872         sp = sp-2-stack[sp-2];
19873 __endIf854:
19874         fp = pop();
19875         RETURN();
19876 __skipBody225:
19877         r_res = (int)makeSchemeClosure((void*)r[0],&&__body225);
19878         push(r_res);
19879         r_res = (int)&__sc_number121;
19880         push(r_res);
19881         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19882         r_res = ST_ARG(0);
19883         push(r_res);
19884         push(3);
19885         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
19886         if (r_res==0) goto __else860;
19887         if (! ((SymbolEntry*)r_res)->isDefined) goto __else860;
19888         r_res = (int)((SymbolEntry*)r_res)->sob;
19889         goto __endIf860;
19890 __else860:
19891         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
19892 __endIf860:
19893         if (IS_SOB_CLOSURE(r_res)) goto __app552;
19894         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19895 __app552:
19896         push((int)SOB_CLOSURE_ENV(r_res));
19897         push((int)&&__ret750);
19898         goto *(SOB_CLOSURE_CODE(r_res));
19899 __ret750:
19900         sp = sp-2-stack[sp-2];
19901         push(0);
19902         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
19903         goto __skipBody226;
19904 __body226:
19905         push(fp);
19906         fp = sp;
19907         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19908         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
19909         goto __skipBody227;
19910 __body227:
19911         push(fp);
19912         fp = sp;
19913         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19914         r_res = (int)&sc_nil;
19915         push(r_res);
19916
19917         r_res = (int)&__sc_number122;
19918         push(r_res);
19919
19920         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19921         r_res = ST_ARG(0);
19922         push(r_res);
19923         push(1);
19924         r_res = (int)probeSymbolDefined("vector-length",topLevel);
19925         if (r_res==0) goto __else861;
19926         if (! ((SymbolEntry*)r_res)->isDefined) goto __else861;
19927         r_res = (int)((SymbolEntry*)r_res)->sob;
19928         goto __endIf861;
19929 __else861:
19930         fprintf(stderr,"Symbol vector-length not defined"); exit(-1);
19931 __endIf861:
19932         if (IS_SOB_CLOSURE(r_res)) goto __app559;
19933         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19934 __app559:
19935         push((int)SOB_CLOSURE_ENV(r_res));
19936         push((int)&&__ret757);
19937         goto *(SOB_CLOSURE_CODE(r_res));
19938 __ret757:
19939         sp = sp-2-stack[sp-2];
19940         push(r_res);
19941         push(2);
19942         r_res = (int)probeSymbolDefined("-",topLevel);
19943         if (r_res==0) goto __else862;
19944         if (! ((SymbolEntry*)r_res)->isDefined) goto __else862;
19945         r_res = (int)((SymbolEntry*)r_res)->sob;
19946         goto __endIf862;
19947 __else862:
19948         fprintf(stderr,"Symbol - not defined"); exit(-1);
19949 __endIf862:
19950         if (IS_SOB_CLOSURE(r_res)) goto __app558;
19951         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19952 __app558:
19953         push((int)SOB_CLOSURE_ENV(r_res));
19954         push((int)&&__ret756);
19955         goto *(SOB_CLOSURE_CODE(r_res));
19956 __ret756:
19957         sp = sp-2-stack[sp-2];
19958         push(r_res);
19959         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
19960         r_res = ST_ARG(0);
19961         push(r_res);
19962         push(3);
19963
19964         r_res = (int)&__sc_number123;
19965         push(r_res);
19966         r_res = ((int**)ST_ENV())[1][0];
19967         push(r_res);
19968         push(2);
19969         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
19970         if (r_res==0) goto __else863;
19971         if (! ((SymbolEntry*)r_res)->isDefined) goto __else863;
19972         r_res = (int)((SymbolEntry*)r_res)->sob;
19973         goto __endIf863;
19974 __else863:
19975         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
19976 __endIf863:
19977         if (IS_SOB_CLOSURE(r_res)) goto __app560;
19978         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
19979 __app560:
19980         push((int)SOB_CLOSURE_ENV(r_res));
19981         push((int)&&__ret758);
19982         goto *(SOB_CLOSURE_CODE(r_res));
19983 __ret758:
19984         sp = sp-2-stack[sp-2];
19985         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
19986         push((int)SOB_CLOSURE_ENV(r_res));
19987         push(ST_RET());
19988         shiftActFrmDown();
19989         goto *(SOB_CLOSURE_CODE(r_res));
19990         sp = sp-2-stack[sp-2];
19991         fp = pop();
19992         RETURN();
19993 __skipBody227:
19994         r_res = (int)makeSchemeClosure((void*)r[0],&&__body227);
19995         fp = pop();
19996         RETURN();
19997 __skipBody226:
19998         r_res = (int)makeSchemeClosure((void*)r[0],&&__body226);
19999         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20000         push((int)SOB_CLOSURE_ENV(r_res));
20001         push(ST_RET());
20002         shiftActFrmDown();
20003         goto *(SOB_CLOSURE_CODE(r_res));
20004         sp = sp-2-stack[sp-2];
20005         fp = pop();
20006         RETURN();
20007 __skipBody224:
20008         r_res = (int)makeSchemeClosure((void*)r[0],&&__body224);
20009         if (IS_SOB_CLOSURE(r_res)) goto __app550;
20010         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20011 __app550:
20012         push((int)SOB_CLOSURE_ENV(r_res));
20013         push((int)&&__ret748);
20014         goto *(SOB_CLOSURE_CODE(r_res));
20015 __ret748:
20016         sp = sp-2-stack[sp-2];
20017         r[0] = (int)getSymbol("vector->list",topLevel);
20018         ((SymbolEntry*)r[0])->isDefined = 1;
20019         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
20020         r_res = (int)&sc_void;
20021 __ret747:
20022         /* set return address */
20023         ST_RET() = (int)&&__ret759;
20024
20025         r[0] = (int)extendEnviroment( (int**)NULL, 0);
20026         goto __skipBody228;
20027 __body228:
20028         push(fp);
20029         fp = sp;
20030         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20031
20032         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20033         r_res = ST_ARG(0);
20034         push(r_res);
20035         push(1);
20036         r_res = (int)probeSymbolDefined("length",topLevel);
20037         if (r_res==0) goto __else864;
20038         if (! ((SymbolEntry*)r_res)->isDefined) goto __else864;
20039         r_res = (int)((SymbolEntry*)r_res)->sob;
20040         goto __endIf864;
20041 __else864:
20042         fprintf(stderr,"Symbol length not defined"); exit(-1);
20043 __endIf864:
20044         if (IS_SOB_CLOSURE(r_res)) goto __app561;
20045         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20046 __app561:
20047         push((int)SOB_CLOSURE_ENV(r_res));
20048         push((int)&&__ret760);
20049         goto *(SOB_CLOSURE_CODE(r_res));
20050 __ret760:
20051         sp = sp-2-stack[sp-2];
20052         push(r_res);
20053         push(1);
20054         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
20055         goto __skipBody229;
20056 __body229:
20057         push(fp);
20058         fp = sp;
20059         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20060
20061         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20062         r_res = ST_ARG(0);
20063         push(r_res);
20064         push(1);
20065         r_res = (int)probeSymbolDefined("make-string",topLevel);
20066         if (r_res==0) goto __else865;
20067         if (! ((SymbolEntry*)r_res)->isDefined) goto __else865;
20068         r_res = (int)((SymbolEntry*)r_res)->sob;
20069         goto __endIf865;
20070 __else865:
20071         fprintf(stderr,"Symbol make-string not defined"); exit(-1);
20072 __endIf865:
20073         if (IS_SOB_CLOSURE(r_res)) goto __app562;
20074         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20075 __app562:
20076         push((int)SOB_CLOSURE_ENV(r_res));
20077         push((int)&&__ret761);
20078         goto *(SOB_CLOSURE_CODE(r_res));
20079 __ret761:
20080         sp = sp-2-stack[sp-2];
20081         push(r_res);
20082         push(1);
20083         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
20084         goto __skipBody230;
20085 __body230:
20086         push(fp);
20087         fp = sp;
20088         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20089         r_res = (int)&sc_false;
20090         push(r_res);
20091         push(1);
20092         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
20093         goto __skipBody231;
20094 __body231:
20095         push(fp);
20096         fp = sp;
20097         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20098
20099         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20100         r_res = ST_ARG(0);
20101         push(r_res);
20102         push(1);
20103         r_res = (int)probeSymbolDefined("box",topLevel);
20104         if (r_res==0) goto __else866;
20105         if (! ((SymbolEntry*)r_res)->isDefined) goto __else866;
20106         r_res = (int)((SymbolEntry*)r_res)->sob;
20107         goto __endIf866;
20108 __else866:
20109         fprintf(stderr,"Symbol box not defined"); exit(-1);
20110 __endIf866:
20111         if (IS_SOB_CLOSURE(r_res)) goto __app563;
20112         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20113 __app563:
20114         push((int)SOB_CLOSURE_ENV(r_res));
20115         push((int)&&__ret762);
20116         goto *(SOB_CLOSURE_CODE(r_res));
20117 __ret762:
20118         sp = sp-2-stack[sp-2];
20119         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20120         ST_ARG(0) = r_res;
20121         r_res = (int)&sc_void;
20122
20123         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
20124         goto __skipBody232;
20125 __body232:
20126         push(fp);
20127         fp = sp;
20128         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20129
20130         r_res = ((int**)ST_ENV())[2][0];
20131         push(r_res);
20132         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20133         r_res = ST_ARG(1);
20134         push(r_res);
20135         push(2);
20136         r_res = (int)probeSymbolDefined("=",topLevel);
20137         if (r_res==0) goto __else868;
20138         if (! ((SymbolEntry*)r_res)->isDefined) goto __else868;
20139         r_res = (int)((SymbolEntry*)r_res)->sob;
20140         goto __endIf868;
20141 __else868:
20142         fprintf(stderr,"Symbol = not defined"); exit(-1);
20143 __endIf868:
20144         if (IS_SOB_CLOSURE(r_res)) goto __app565;
20145         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20146 __app565:
20147         push((int)SOB_CLOSURE_ENV(r_res));
20148         push((int)&&__ret764);
20149         goto *(SOB_CLOSURE_CODE(r_res));
20150 __ret764:
20151         sp = sp-2-stack[sp-2];
20152         if ((SchemeObject*)r_res==&sc_false) goto __else867;
20153         r_res = ((int**)ST_ENV())[1][0];
20154         goto __endIf867;
20155 __else867:
20156
20157
20158         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20159         r_res = ST_ARG(0);
20160         push(r_res);
20161         push(1);
20162         r_res = (int)probeSymbolDefined("car",topLevel);
20163         if (r_res==0) goto __else869;
20164         if (! ((SymbolEntry*)r_res)->isDefined) goto __else869;
20165         r_res = (int)((SymbolEntry*)r_res)->sob;
20166         goto __endIf869;
20167 __else869:
20168         fprintf(stderr,"Symbol car not defined"); exit(-1);
20169 __endIf869:
20170         if (IS_SOB_CLOSURE(r_res)) goto __app567;
20171         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20172 __app567:
20173         push((int)SOB_CLOSURE_ENV(r_res));
20174         push((int)&&__ret766);
20175         goto *(SOB_CLOSURE_CODE(r_res));
20176 __ret766:
20177         sp = sp-2-stack[sp-2];
20178         push(r_res);
20179         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20180         r_res = ST_ARG(1);
20181         push(r_res);
20182         r_res = ((int**)ST_ENV())[1][0];
20183         push(r_res);
20184         push(3);
20185         r_res = (int)probeSymbolDefined("string-set!",topLevel);
20186         if (r_res==0) goto __else870;
20187         if (! ((SymbolEntry*)r_res)->isDefined) goto __else870;
20188         r_res = (int)((SymbolEntry*)r_res)->sob;
20189         goto __endIf870;
20190 __else870:
20191         fprintf(stderr,"Symbol string-set! not defined"); exit(-1);
20192 __endIf870:
20193         if (IS_SOB_CLOSURE(r_res)) goto __app566;
20194         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20195 __app566:
20196         push((int)SOB_CLOSURE_ENV(r_res));
20197         push((int)&&__ret765);
20198         goto *(SOB_CLOSURE_CODE(r_res));
20199 __ret765:
20200         sp = sp-2-stack[sp-2];
20201
20202         r_res = (int)&__sc_number124;
20203         push(r_res);
20204         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20205         r_res = ST_ARG(1);
20206         push(r_res);
20207         push(2);
20208         r_res = (int)probeSymbolDefined("+",topLevel);
20209         if (r_res==0) goto __else871;
20210         if (! ((SymbolEntry*)r_res)->isDefined) goto __else871;
20211         r_res = (int)((SymbolEntry*)r_res)->sob;
20212         goto __endIf871;
20213 __else871:
20214         fprintf(stderr,"Symbol + not defined"); exit(-1);
20215 __endIf871:
20216         if (IS_SOB_CLOSURE(r_res)) goto __app568;
20217         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20218 __app568:
20219         push((int)SOB_CLOSURE_ENV(r_res));
20220         push((int)&&__ret767);
20221         goto *(SOB_CLOSURE_CODE(r_res));
20222 __ret767:
20223         sp = sp-2-stack[sp-2];
20224         push(r_res);
20225
20226         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20227         r_res = ST_ARG(0);
20228         push(r_res);
20229         push(1);
20230         r_res = (int)probeSymbolDefined("cdr",topLevel);
20231         if (r_res==0) goto __else872;
20232         if (! ((SymbolEntry*)r_res)->isDefined) goto __else872;
20233         r_res = (int)((SymbolEntry*)r_res)->sob;
20234         goto __endIf872;
20235 __else872:
20236         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
20237 __endIf872:
20238         if (IS_SOB_CLOSURE(r_res)) goto __app569;
20239         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20240 __app569:
20241         push((int)SOB_CLOSURE_ENV(r_res));
20242         push((int)&&__ret768);
20243         goto *(SOB_CLOSURE_CODE(r_res));
20244 __ret768:
20245         sp = sp-2-stack[sp-2];
20246         push(r_res);
20247         push(2);
20248
20249         r_res = (int)&__sc_number125;
20250         push(r_res);
20251         r_res = ((int**)ST_ENV())[0][0];
20252         push(r_res);
20253         push(2);
20254         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
20255         if (r_res==0) goto __else873;
20256         if (! ((SymbolEntry*)r_res)->isDefined) goto __else873;
20257         r_res = (int)((SymbolEntry*)r_res)->sob;
20258         goto __endIf873;
20259 __else873:
20260         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
20261 __endIf873:
20262         if (IS_SOB_CLOSURE(r_res)) goto __app570;
20263         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20264 __app570:
20265         push((int)SOB_CLOSURE_ENV(r_res));
20266         push((int)&&__ret769);
20267         goto *(SOB_CLOSURE_CODE(r_res));
20268 __ret769:
20269         sp = sp-2-stack[sp-2];
20270         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20271         push((int)SOB_CLOSURE_ENV(r_res));
20272         push(ST_RET());
20273         shiftActFrmDown();
20274         goto *(SOB_CLOSURE_CODE(r_res));
20275         sp = sp-2-stack[sp-2];
20276 __endIf867:
20277         fp = pop();
20278         RETURN();
20279 __skipBody232:
20280         r_res = (int)makeSchemeClosure((void*)r[0],&&__body232);
20281         push(r_res);
20282         r_res = (int)&__sc_number126;
20283         push(r_res);
20284         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20285         r_res = ST_ARG(0);
20286         push(r_res);
20287         push(3);
20288         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
20289         if (r_res==0) goto __else874;
20290         if (! ((SymbolEntry*)r_res)->isDefined) goto __else874;
20291         r_res = (int)((SymbolEntry*)r_res)->sob;
20292         goto __endIf874;
20293 __else874:
20294         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
20295 __endIf874:
20296         if (IS_SOB_CLOSURE(r_res)) goto __app564;
20297         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20298 __app564:
20299         push((int)SOB_CLOSURE_ENV(r_res));
20300         push((int)&&__ret763);
20301         goto *(SOB_CLOSURE_CODE(r_res));
20302 __ret763:
20303         sp = sp-2-stack[sp-2];
20304         push(0);
20305         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
20306         goto __skipBody233;
20307 __body233:
20308         push(fp);
20309         fp = sp;
20310         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20311         r_res = (int)&__sc_number127;
20312         push(r_res);
20313         r_res = ((int**)ST_ENV())[3][0];
20314         push(r_res);
20315         push(2);
20316
20317         r_res = (int)&__sc_number128;
20318         push(r_res);
20319         r_res = ((int**)ST_ENV())[0][0];
20320         push(r_res);
20321         push(2);
20322         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
20323         if (r_res==0) goto __else875;
20324         if (! ((SymbolEntry*)r_res)->isDefined) goto __else875;
20325         r_res = (int)((SymbolEntry*)r_res)->sob;
20326         goto __endIf875;
20327 __else875:
20328         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
20329 __endIf875:
20330         if (IS_SOB_CLOSURE(r_res)) goto __app571;
20331         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20332 __app571:
20333         push((int)SOB_CLOSURE_ENV(r_res));
20334         push((int)&&__ret770);
20335         goto *(SOB_CLOSURE_CODE(r_res));
20336 __ret770:
20337         sp = sp-2-stack[sp-2];
20338         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20339         push((int)SOB_CLOSURE_ENV(r_res));
20340         push(ST_RET());
20341         shiftActFrmDown();
20342         goto *(SOB_CLOSURE_CODE(r_res));
20343         sp = sp-2-stack[sp-2];
20344         fp = pop();
20345         RETURN();
20346 __skipBody233:
20347         r_res = (int)makeSchemeClosure((void*)r[0],&&__body233);
20348         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20349         push((int)SOB_CLOSURE_ENV(r_res));
20350         push(ST_RET());
20351         shiftActFrmDown();
20352         goto *(SOB_CLOSURE_CODE(r_res));
20353         sp = sp-2-stack[sp-2];
20354         fp = pop();
20355         RETURN();
20356 __skipBody231:
20357         r_res = (int)makeSchemeClosure((void*)r[0],&&__body231);
20358         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20359         push((int)SOB_CLOSURE_ENV(r_res));
20360         push(ST_RET());
20361         shiftActFrmDown();
20362         goto *(SOB_CLOSURE_CODE(r_res));
20363         sp = sp-2-stack[sp-2];
20364         fp = pop();
20365         RETURN();
20366 __skipBody230:
20367         r_res = (int)makeSchemeClosure((void*)r[0],&&__body230);
20368         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20369         push((int)SOB_CLOSURE_ENV(r_res));
20370         push(ST_RET());
20371         shiftActFrmDown();
20372         goto *(SOB_CLOSURE_CODE(r_res));
20373         sp = sp-2-stack[sp-2];
20374         fp = pop();
20375         RETURN();
20376 __skipBody229:
20377         r_res = (int)makeSchemeClosure((void*)r[0],&&__body229);
20378         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20379         push((int)SOB_CLOSURE_ENV(r_res));
20380         push(ST_RET());
20381         shiftActFrmDown();
20382         goto *(SOB_CLOSURE_CODE(r_res));
20383         sp = sp-2-stack[sp-2];
20384         fp = pop();
20385         RETURN();
20386 __skipBody228:
20387         r_res = (int)makeSchemeClosure((void*)r[0],&&__body228);
20388         r[0] = (int)getSymbol("list->string",topLevel);
20389         ((SymbolEntry*)r[0])->isDefined = 1;
20390         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
20391         r_res = (int)&sc_void;
20392 __ret759:
20393         /* set return address */
20394         ST_RET() = (int)&&__ret771;
20395
20396         r[0] = (int)extendEnviroment( (int**)NULL, 0);
20397         goto __skipBody234;
20398 __body234:
20399         push(fp);
20400         fp = sp;
20401         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20402
20403         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20404         r_res = ST_ARG(0);
20405         push(r_res);
20406         push(1);
20407         r_res = (int)probeSymbolDefined("length",topLevel);
20408         if (r_res==0) goto __else876;
20409         if (! ((SymbolEntry*)r_res)->isDefined) goto __else876;
20410         r_res = (int)((SymbolEntry*)r_res)->sob;
20411         goto __endIf876;
20412 __else876:
20413         fprintf(stderr,"Symbol length not defined"); exit(-1);
20414 __endIf876:
20415         if (IS_SOB_CLOSURE(r_res)) goto __app572;
20416         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20417 __app572:
20418         push((int)SOB_CLOSURE_ENV(r_res));
20419         push((int)&&__ret772);
20420         goto *(SOB_CLOSURE_CODE(r_res));
20421 __ret772:
20422         sp = sp-2-stack[sp-2];
20423         push(r_res);
20424         push(1);
20425         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
20426         goto __skipBody235;
20427 __body235:
20428         push(fp);
20429         fp = sp;
20430         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20431
20432         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20433         r_res = ST_ARG(0);
20434         push(r_res);
20435         push(1);
20436         r_res = (int)probeSymbolDefined("make-vector",topLevel);
20437         if (r_res==0) goto __else877;
20438         if (! ((SymbolEntry*)r_res)->isDefined) goto __else877;
20439         r_res = (int)((SymbolEntry*)r_res)->sob;
20440         goto __endIf877;
20441 __else877:
20442         fprintf(stderr,"Symbol make-vector not defined"); exit(-1);
20443 __endIf877:
20444         if (IS_SOB_CLOSURE(r_res)) goto __app573;
20445         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20446 __app573:
20447         push((int)SOB_CLOSURE_ENV(r_res));
20448         push((int)&&__ret773);
20449         goto *(SOB_CLOSURE_CODE(r_res));
20450 __ret773:
20451         sp = sp-2-stack[sp-2];
20452         push(r_res);
20453         push(1);
20454         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
20455         goto __skipBody236;
20456 __body236:
20457         push(fp);
20458         fp = sp;
20459         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20460         r_res = (int)&sc_false;
20461         push(r_res);
20462         push(1);
20463         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 3);
20464         goto __skipBody237;
20465 __body237:
20466         push(fp);
20467         fp = sp;
20468         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20469
20470         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20471         r_res = ST_ARG(0);
20472         push(r_res);
20473         push(1);
20474         r_res = (int)probeSymbolDefined("box",topLevel);
20475         if (r_res==0) goto __else878;
20476         if (! ((SymbolEntry*)r_res)->isDefined) goto __else878;
20477         r_res = (int)((SymbolEntry*)r_res)->sob;
20478         goto __endIf878;
20479 __else878:
20480         fprintf(stderr,"Symbol box not defined"); exit(-1);
20481 __endIf878:
20482         if (IS_SOB_CLOSURE(r_res)) goto __app574;
20483         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20484 __app574:
20485         push((int)SOB_CLOSURE_ENV(r_res));
20486         push((int)&&__ret774);
20487         goto *(SOB_CLOSURE_CODE(r_res));
20488 __ret774:
20489         sp = sp-2-stack[sp-2];
20490         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20491         ST_ARG(0) = r_res;
20492         r_res = (int)&sc_void;
20493
20494         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
20495         goto __skipBody238;
20496 __body238:
20497         push(fp);
20498         fp = sp;
20499         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20500
20501         r_res = ((int**)ST_ENV())[2][0];
20502         push(r_res);
20503         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20504         r_res = ST_ARG(1);
20505         push(r_res);
20506         push(2);
20507         r_res = (int)probeSymbolDefined("=",topLevel);
20508         if (r_res==0) goto __else880;
20509         if (! ((SymbolEntry*)r_res)->isDefined) goto __else880;
20510         r_res = (int)((SymbolEntry*)r_res)->sob;
20511         goto __endIf880;
20512 __else880:
20513         fprintf(stderr,"Symbol = not defined"); exit(-1);
20514 __endIf880:
20515         if (IS_SOB_CLOSURE(r_res)) goto __app576;
20516         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20517 __app576:
20518         push((int)SOB_CLOSURE_ENV(r_res));
20519         push((int)&&__ret776);
20520         goto *(SOB_CLOSURE_CODE(r_res));
20521 __ret776:
20522         sp = sp-2-stack[sp-2];
20523         if ((SchemeObject*)r_res==&sc_false) goto __else879;
20524         r_res = ((int**)ST_ENV())[1][0];
20525         goto __endIf879;
20526 __else879:
20527
20528
20529         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20530         r_res = ST_ARG(0);
20531         push(r_res);
20532         push(1);
20533         r_res = (int)probeSymbolDefined("car",topLevel);
20534         if (r_res==0) goto __else881;
20535         if (! ((SymbolEntry*)r_res)->isDefined) goto __else881;
20536         r_res = (int)((SymbolEntry*)r_res)->sob;
20537         goto __endIf881;
20538 __else881:
20539         fprintf(stderr,"Symbol car not defined"); exit(-1);
20540 __endIf881:
20541         if (IS_SOB_CLOSURE(r_res)) goto __app578;
20542         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20543 __app578:
20544         push((int)SOB_CLOSURE_ENV(r_res));
20545         push((int)&&__ret778);
20546         goto *(SOB_CLOSURE_CODE(r_res));
20547 __ret778:
20548         sp = sp-2-stack[sp-2];
20549         push(r_res);
20550         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20551         r_res = ST_ARG(1);
20552         push(r_res);
20553         r_res = ((int**)ST_ENV())[1][0];
20554         push(r_res);
20555         push(3);
20556         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
20557         if (r_res==0) goto __else882;
20558         if (! ((SymbolEntry*)r_res)->isDefined) goto __else882;
20559         r_res = (int)((SymbolEntry*)r_res)->sob;
20560         goto __endIf882;
20561 __else882:
20562         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
20563 __endIf882:
20564         if (IS_SOB_CLOSURE(r_res)) goto __app577;
20565         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20566 __app577:
20567         push((int)SOB_CLOSURE_ENV(r_res));
20568         push((int)&&__ret777);
20569         goto *(SOB_CLOSURE_CODE(r_res));
20570 __ret777:
20571         sp = sp-2-stack[sp-2];
20572
20573         r_res = (int)&__sc_number129;
20574         push(r_res);
20575         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20576         r_res = ST_ARG(1);
20577         push(r_res);
20578         push(2);
20579         r_res = (int)probeSymbolDefined("+",topLevel);
20580         if (r_res==0) goto __else883;
20581         if (! ((SymbolEntry*)r_res)->isDefined) goto __else883;
20582         r_res = (int)((SymbolEntry*)r_res)->sob;
20583         goto __endIf883;
20584 __else883:
20585         fprintf(stderr,"Symbol + not defined"); exit(-1);
20586 __endIf883:
20587         if (IS_SOB_CLOSURE(r_res)) goto __app579;
20588         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20589 __app579:
20590         push((int)SOB_CLOSURE_ENV(r_res));
20591         push((int)&&__ret779);
20592         goto *(SOB_CLOSURE_CODE(r_res));
20593 __ret779:
20594         sp = sp-2-stack[sp-2];
20595         push(r_res);
20596
20597         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20598         r_res = ST_ARG(0);
20599         push(r_res);
20600         push(1);
20601         r_res = (int)probeSymbolDefined("cdr",topLevel);
20602         if (r_res==0) goto __else884;
20603         if (! ((SymbolEntry*)r_res)->isDefined) goto __else884;
20604         r_res = (int)((SymbolEntry*)r_res)->sob;
20605         goto __endIf884;
20606 __else884:
20607         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
20608 __endIf884:
20609         if (IS_SOB_CLOSURE(r_res)) goto __app580;
20610         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20611 __app580:
20612         push((int)SOB_CLOSURE_ENV(r_res));
20613         push((int)&&__ret780);
20614         goto *(SOB_CLOSURE_CODE(r_res));
20615 __ret780:
20616         sp = sp-2-stack[sp-2];
20617         push(r_res);
20618         push(2);
20619
20620         r_res = (int)&__sc_number130;
20621         push(r_res);
20622         r_res = ((int**)ST_ENV())[0][0];
20623         push(r_res);
20624         push(2);
20625         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
20626         if (r_res==0) goto __else885;
20627         if (! ((SymbolEntry*)r_res)->isDefined) goto __else885;
20628         r_res = (int)((SymbolEntry*)r_res)->sob;
20629         goto __endIf885;
20630 __else885:
20631         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
20632 __endIf885:
20633         if (IS_SOB_CLOSURE(r_res)) goto __app581;
20634         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20635 __app581:
20636         push((int)SOB_CLOSURE_ENV(r_res));
20637         push((int)&&__ret781);
20638         goto *(SOB_CLOSURE_CODE(r_res));
20639 __ret781:
20640         sp = sp-2-stack[sp-2];
20641         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20642         push((int)SOB_CLOSURE_ENV(r_res));
20643         push(ST_RET());
20644         shiftActFrmDown();
20645         goto *(SOB_CLOSURE_CODE(r_res));
20646         sp = sp-2-stack[sp-2];
20647 __endIf879:
20648         fp = pop();
20649         RETURN();
20650 __skipBody238:
20651         r_res = (int)makeSchemeClosure((void*)r[0],&&__body238);
20652         push(r_res);
20653         r_res = (int)&__sc_number131;
20654         push(r_res);
20655         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20656         r_res = ST_ARG(0);
20657         push(r_res);
20658         push(3);
20659         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
20660         if (r_res==0) goto __else886;
20661         if (! ((SymbolEntry*)r_res)->isDefined) goto __else886;
20662         r_res = (int)((SymbolEntry*)r_res)->sob;
20663         goto __endIf886;
20664 __else886:
20665         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
20666 __endIf886:
20667         if (IS_SOB_CLOSURE(r_res)) goto __app575;
20668         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20669 __app575:
20670         push((int)SOB_CLOSURE_ENV(r_res));
20671         push((int)&&__ret775);
20672         goto *(SOB_CLOSURE_CODE(r_res));
20673 __ret775:
20674         sp = sp-2-stack[sp-2];
20675         push(0);
20676         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 4);
20677         goto __skipBody239;
20678 __body239:
20679         push(fp);
20680         fp = sp;
20681         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20682         r_res = (int)&__sc_number132;
20683         push(r_res);
20684         r_res = ((int**)ST_ENV())[3][0];
20685         push(r_res);
20686         push(2);
20687
20688         r_res = (int)&__sc_number133;
20689         push(r_res);
20690         r_res = ((int**)ST_ENV())[0][0];
20691         push(r_res);
20692         push(2);
20693         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
20694         if (r_res==0) goto __else887;
20695         if (! ((SymbolEntry*)r_res)->isDefined) goto __else887;
20696         r_res = (int)((SymbolEntry*)r_res)->sob;
20697         goto __endIf887;
20698 __else887:
20699         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
20700 __endIf887:
20701         if (IS_SOB_CLOSURE(r_res)) goto __app582;
20702         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20703 __app582:
20704         push((int)SOB_CLOSURE_ENV(r_res));
20705         push((int)&&__ret782);
20706         goto *(SOB_CLOSURE_CODE(r_res));
20707 __ret782:
20708         sp = sp-2-stack[sp-2];
20709         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20710         push((int)SOB_CLOSURE_ENV(r_res));
20711         push(ST_RET());
20712         shiftActFrmDown();
20713         goto *(SOB_CLOSURE_CODE(r_res));
20714         sp = sp-2-stack[sp-2];
20715         fp = pop();
20716         RETURN();
20717 __skipBody239:
20718         r_res = (int)makeSchemeClosure((void*)r[0],&&__body239);
20719         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20720         push((int)SOB_CLOSURE_ENV(r_res));
20721         push(ST_RET());
20722         shiftActFrmDown();
20723         goto *(SOB_CLOSURE_CODE(r_res));
20724         sp = sp-2-stack[sp-2];
20725         fp = pop();
20726         RETURN();
20727 __skipBody237:
20728         r_res = (int)makeSchemeClosure((void*)r[0],&&__body237);
20729         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20730         push((int)SOB_CLOSURE_ENV(r_res));
20731         push(ST_RET());
20732         shiftActFrmDown();
20733         goto *(SOB_CLOSURE_CODE(r_res));
20734         sp = sp-2-stack[sp-2];
20735         fp = pop();
20736         RETURN();
20737 __skipBody236:
20738         r_res = (int)makeSchemeClosure((void*)r[0],&&__body236);
20739         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20740         push((int)SOB_CLOSURE_ENV(r_res));
20741         push(ST_RET());
20742         shiftActFrmDown();
20743         goto *(SOB_CLOSURE_CODE(r_res));
20744         sp = sp-2-stack[sp-2];
20745         fp = pop();
20746         RETURN();
20747 __skipBody235:
20748         r_res = (int)makeSchemeClosure((void*)r[0],&&__body235);
20749         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20750         push((int)SOB_CLOSURE_ENV(r_res));
20751         push(ST_RET());
20752         shiftActFrmDown();
20753         goto *(SOB_CLOSURE_CODE(r_res));
20754         sp = sp-2-stack[sp-2];
20755         fp = pop();
20756         RETURN();
20757 __skipBody234:
20758         r_res = (int)makeSchemeClosure((void*)r[0],&&__body234);
20759         r[0] = (int)getSymbol("list->vector",topLevel);
20760         ((SymbolEntry*)r[0])->isDefined = 1;
20761         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
20762         r_res = (int)&sc_void;
20763 __ret771:
20764         /* set return address */
20765         ST_RET() = (int)&&__ret783;
20766
20767         r[0] = (int)extendEnviroment( (int**)NULL, 0);
20768         goto __skipBody240;
20769 __body240:
20770         push(fp);
20771         fp = sp;
20772         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20773
20774         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20775         r_res = ST_ARG(1);
20776         push(r_res);
20777         push(1);
20778         r_res = (int)probeSymbolDefined("null?",topLevel);
20779         if (r_res==0) goto __else889;
20780         if (! ((SymbolEntry*)r_res)->isDefined) goto __else889;
20781         r_res = (int)((SymbolEntry*)r_res)->sob;
20782         goto __endIf889;
20783 __else889:
20784         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
20785 __endIf889:
20786         if (IS_SOB_CLOSURE(r_res)) goto __app583;
20787         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20788 __app583:
20789         push((int)SOB_CLOSURE_ENV(r_res));
20790         push((int)&&__ret784);
20791         goto *(SOB_CLOSURE_CODE(r_res));
20792 __ret784:
20793         sp = sp-2-stack[sp-2];
20794         if ((SchemeObject*)r_res==&sc_false) goto __else888;
20795         r_res = (int)&sc_false;
20796         goto __endIf888;
20797 __else888:
20798
20799         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20800         r_res = ST_ARG(0);
20801         push(r_res);
20802
20803         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20804         r_res = ST_ARG(1);
20805         push(r_res);
20806         push(1);
20807         r_res = (int)probeSymbolDefined("car",topLevel);
20808         if (r_res==0) goto __else891;
20809         if (! ((SymbolEntry*)r_res)->isDefined) goto __else891;
20810         r_res = (int)((SymbolEntry*)r_res)->sob;
20811         goto __endIf891;
20812 __else891:
20813         fprintf(stderr,"Symbol car not defined"); exit(-1);
20814 __endIf891:
20815         if (IS_SOB_CLOSURE(r_res)) goto __app585;
20816         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20817 __app585:
20818         push((int)SOB_CLOSURE_ENV(r_res));
20819         push((int)&&__ret786);
20820         goto *(SOB_CLOSURE_CODE(r_res));
20821 __ret786:
20822         sp = sp-2-stack[sp-2];
20823         push(r_res);
20824         push(2);
20825         r_res = (int)probeSymbolDefined("equal?",topLevel);
20826         if (r_res==0) goto __else892;
20827         if (! ((SymbolEntry*)r_res)->isDefined) goto __else892;
20828         r_res = (int)((SymbolEntry*)r_res)->sob;
20829         goto __endIf892;
20830 __else892:
20831         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
20832 __endIf892:
20833         if (IS_SOB_CLOSURE(r_res)) goto __app584;
20834         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20835 __app584:
20836         push((int)SOB_CLOSURE_ENV(r_res));
20837         push((int)&&__ret785);
20838         goto *(SOB_CLOSURE_CODE(r_res));
20839 __ret785:
20840         sp = sp-2-stack[sp-2];
20841         if ((SchemeObject*)r_res==&sc_false) goto __else890;
20842         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20843         r_res = ST_ARG(1);
20844         goto __endIf890;
20845 __else890:
20846
20847
20848         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20849         r_res = ST_ARG(1);
20850         push(r_res);
20851         push(1);
20852         r_res = (int)probeSymbolDefined("cdr",topLevel);
20853         if (r_res==0) goto __else893;
20854         if (! ((SymbolEntry*)r_res)->isDefined) goto __else893;
20855         r_res = (int)((SymbolEntry*)r_res)->sob;
20856         goto __endIf893;
20857 __else893:
20858         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
20859 __endIf893:
20860         if (IS_SOB_CLOSURE(r_res)) goto __app586;
20861         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20862 __app586:
20863         push((int)SOB_CLOSURE_ENV(r_res));
20864         push((int)&&__ret787);
20865         goto *(SOB_CLOSURE_CODE(r_res));
20866 __ret787:
20867         sp = sp-2-stack[sp-2];
20868         push(r_res);
20869         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20870         r_res = ST_ARG(0);
20871         push(r_res);
20872         push(2);
20873         r_res = (int)probeSymbolDefined("member",topLevel);
20874         if (r_res==0) goto __else894;
20875         if (! ((SymbolEntry*)r_res)->isDefined) goto __else894;
20876         r_res = (int)((SymbolEntry*)r_res)->sob;
20877         goto __endIf894;
20878 __else894:
20879         fprintf(stderr,"Symbol member not defined"); exit(-1);
20880 __endIf894:
20881         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20882         push((int)SOB_CLOSURE_ENV(r_res));
20883         push(ST_RET());
20884         shiftActFrmDown();
20885         goto *(SOB_CLOSURE_CODE(r_res));
20886         sp = sp-2-stack[sp-2];
20887 __endIf890:
20888 __endIf888:
20889         fp = pop();
20890         RETURN();
20891 __skipBody240:
20892         r_res = (int)makeSchemeClosure((void*)r[0],&&__body240);
20893         r[0] = (int)getSymbol("member",topLevel);
20894         ((SymbolEntry*)r[0])->isDefined = 1;
20895         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
20896         r_res = (int)&sc_void;
20897 __ret783:
20898         /* set return address */
20899         ST_RET() = (int)&&__ret788;
20900
20901         r[0] = (int)extendEnviroment( (int**)NULL, 0);
20902         goto __skipBody241;
20903 __body241:
20904         push(fp);
20905         fp = sp;
20906         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20907
20908         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20909         r_res = ST_ARG(1);
20910         push(r_res);
20911         push(1);
20912         r_res = (int)probeSymbolDefined("null?",topLevel);
20913         if (r_res==0) goto __else896;
20914         if (! ((SymbolEntry*)r_res)->isDefined) goto __else896;
20915         r_res = (int)((SymbolEntry*)r_res)->sob;
20916         goto __endIf896;
20917 __else896:
20918         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
20919 __endIf896:
20920         if (IS_SOB_CLOSURE(r_res)) goto __app587;
20921         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20922 __app587:
20923         push((int)SOB_CLOSURE_ENV(r_res));
20924         push((int)&&__ret789);
20925         goto *(SOB_CLOSURE_CODE(r_res));
20926 __ret789:
20927         sp = sp-2-stack[sp-2];
20928         if ((SchemeObject*)r_res==&sc_false) goto __else895;
20929         r_res = (int)&sc_false;
20930         goto __endIf895;
20931 __else895:
20932
20933         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
20934         r_res = ST_ARG(0);
20935         push(r_res);
20936
20937         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20938         r_res = ST_ARG(1);
20939         push(r_res);
20940         push(1);
20941         r_res = (int)probeSymbolDefined("caar",topLevel);
20942         if (r_res==0) goto __else898;
20943         if (! ((SymbolEntry*)r_res)->isDefined) goto __else898;
20944         r_res = (int)((SymbolEntry*)r_res)->sob;
20945         goto __endIf898;
20946 __else898:
20947         fprintf(stderr,"Symbol caar not defined"); exit(-1);
20948 __endIf898:
20949         if (IS_SOB_CLOSURE(r_res)) goto __app589;
20950         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20951 __app589:
20952         push((int)SOB_CLOSURE_ENV(r_res));
20953         push((int)&&__ret791);
20954         goto *(SOB_CLOSURE_CODE(r_res));
20955 __ret791:
20956         sp = sp-2-stack[sp-2];
20957         push(r_res);
20958         push(2);
20959         r_res = (int)probeSymbolDefined("eq?",topLevel);
20960         if (r_res==0) goto __else899;
20961         if (! ((SymbolEntry*)r_res)->isDefined) goto __else899;
20962         r_res = (int)((SymbolEntry*)r_res)->sob;
20963         goto __endIf899;
20964 __else899:
20965         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
20966 __endIf899:
20967         if (IS_SOB_CLOSURE(r_res)) goto __app588;
20968         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
20969 __app588:
20970         push((int)SOB_CLOSURE_ENV(r_res));
20971         push((int)&&__ret790);
20972         goto *(SOB_CLOSURE_CODE(r_res));
20973 __ret790:
20974         sp = sp-2-stack[sp-2];
20975         if ((SchemeObject*)r_res==&sc_false) goto __else897;
20976
20977         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
20978         r_res = ST_ARG(1);
20979         push(r_res);
20980         push(1);
20981         r_res = (int)probeSymbolDefined("car",topLevel);
20982         if (r_res==0) goto __else900;
20983         if (! ((SymbolEntry*)r_res)->isDefined) goto __else900;
20984         r_res = (int)((SymbolEntry*)r_res)->sob;
20985         goto __endIf900;
20986 __else900:
20987         fprintf(stderr,"Symbol car not defined"); exit(-1);
20988 __endIf900:
20989         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
20990         push((int)SOB_CLOSURE_ENV(r_res));
20991         push(ST_RET());
20992         shiftActFrmDown();
20993         goto *(SOB_CLOSURE_CODE(r_res));
20994         sp = sp-2-stack[sp-2];
20995         goto __endIf897;
20996 __else897:
20997
20998
20999         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21000         r_res = ST_ARG(1);
21001         push(r_res);
21002         push(1);
21003         r_res = (int)probeSymbolDefined("cdr",topLevel);
21004         if (r_res==0) goto __else901;
21005         if (! ((SymbolEntry*)r_res)->isDefined) goto __else901;
21006         r_res = (int)((SymbolEntry*)r_res)->sob;
21007         goto __endIf901;
21008 __else901:
21009         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
21010 __endIf901:
21011         if (IS_SOB_CLOSURE(r_res)) goto __app590;
21012         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21013 __app590:
21014         push((int)SOB_CLOSURE_ENV(r_res));
21015         push((int)&&__ret792);
21016         goto *(SOB_CLOSURE_CODE(r_res));
21017 __ret792:
21018         sp = sp-2-stack[sp-2];
21019         push(r_res);
21020         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21021         r_res = ST_ARG(0);
21022         push(r_res);
21023         push(2);
21024         r_res = (int)probeSymbolDefined("assoc",topLevel);
21025         if (r_res==0) goto __else902;
21026         if (! ((SymbolEntry*)r_res)->isDefined) goto __else902;
21027         r_res = (int)((SymbolEntry*)r_res)->sob;
21028         goto __endIf902;
21029 __else902:
21030         fprintf(stderr,"Symbol assoc not defined"); exit(-1);
21031 __endIf902:
21032         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21033         push((int)SOB_CLOSURE_ENV(r_res));
21034         push(ST_RET());
21035         shiftActFrmDown();
21036         goto *(SOB_CLOSURE_CODE(r_res));
21037         sp = sp-2-stack[sp-2];
21038 __endIf897:
21039 __endIf895:
21040         fp = pop();
21041         RETURN();
21042 __skipBody241:
21043         r_res = (int)makeSchemeClosure((void*)r[0],&&__body241);
21044         r[0] = (int)getSymbol("assoc",topLevel);
21045         ((SymbolEntry*)r[0])->isDefined = 1;
21046         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
21047         r_res = (int)&sc_void;
21048 __ret788:
21049         /* set return address */
21050         ST_RET() = (int)&&__ret793;
21051
21052         r[0] = (int)extendEnviroment( (int**)NULL, 0);
21053         goto __skipBody242;
21054 __body242:
21055         push(fp);
21056         fp = sp;
21057         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21058
21059         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21060         r_res = ST_ARG(0);
21061         push(r_res);
21062         push(1);
21063         r_res = (int)probeSymbolDefined("pair?",topLevel);
21064         if (r_res==0) goto __else905;
21065         if (! ((SymbolEntry*)r_res)->isDefined) goto __else905;
21066         r_res = (int)((SymbolEntry*)r_res)->sob;
21067         goto __endIf905;
21068 __else905:
21069         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
21070 __endIf905:
21071         if (IS_SOB_CLOSURE(r_res)) goto __app591;
21072         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21073 __app591:
21074         push((int)SOB_CLOSURE_ENV(r_res));
21075         push((int)&&__ret794);
21076         goto *(SOB_CLOSURE_CODE(r_res));
21077 __ret794:
21078         sp = sp-2-stack[sp-2];
21079         if ((SchemeObject*)r_res==&sc_false) goto __else904;
21080
21081         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21082         r_res = ST_ARG(1);
21083         push(r_res);
21084         push(1);
21085         r_res = (int)probeSymbolDefined("pair?",topLevel);
21086         if (r_res==0) goto __else906;
21087         if (! ((SymbolEntry*)r_res)->isDefined) goto __else906;
21088         r_res = (int)((SymbolEntry*)r_res)->sob;
21089         goto __endIf906;
21090 __else906:
21091         fprintf(stderr,"Symbol pair\? not defined"); exit(-1);
21092 __endIf906:
21093         if (IS_SOB_CLOSURE(r_res)) goto __app592;
21094         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21095 __app592:
21096         push((int)SOB_CLOSURE_ENV(r_res));
21097         push((int)&&__ret795);
21098         goto *(SOB_CLOSURE_CODE(r_res));
21099 __ret795:
21100         sp = sp-2-stack[sp-2];
21101         goto __endIf904;
21102 __else904:
21103         r_res = (int)&sc_false;
21104 __endIf904:
21105         if ((SchemeObject*)r_res==&sc_false) goto __else903;
21106
21107
21108         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21109         r_res = ST_ARG(1);
21110         push(r_res);
21111         push(1);
21112         r_res = (int)probeSymbolDefined("car",topLevel);
21113         if (r_res==0) goto __else908;
21114         if (! ((SymbolEntry*)r_res)->isDefined) goto __else908;
21115         r_res = (int)((SymbolEntry*)r_res)->sob;
21116         goto __endIf908;
21117 __else908:
21118         fprintf(stderr,"Symbol car not defined"); exit(-1);
21119 __endIf908:
21120         if (IS_SOB_CLOSURE(r_res)) goto __app594;
21121         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21122 __app594:
21123         push((int)SOB_CLOSURE_ENV(r_res));
21124         push((int)&&__ret797);
21125         goto *(SOB_CLOSURE_CODE(r_res));
21126 __ret797:
21127         sp = sp-2-stack[sp-2];
21128         push(r_res);
21129
21130         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21131         r_res = ST_ARG(0);
21132         push(r_res);
21133         push(1);
21134         r_res = (int)probeSymbolDefined("car",topLevel);
21135         if (r_res==0) goto __else909;
21136         if (! ((SymbolEntry*)r_res)->isDefined) goto __else909;
21137         r_res = (int)((SymbolEntry*)r_res)->sob;
21138         goto __endIf909;
21139 __else909:
21140         fprintf(stderr,"Symbol car not defined"); exit(-1);
21141 __endIf909:
21142         if (IS_SOB_CLOSURE(r_res)) goto __app595;
21143         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21144 __app595:
21145         push((int)SOB_CLOSURE_ENV(r_res));
21146         push((int)&&__ret798);
21147         goto *(SOB_CLOSURE_CODE(r_res));
21148 __ret798:
21149         sp = sp-2-stack[sp-2];
21150         push(r_res);
21151         push(2);
21152         r_res = (int)probeSymbolDefined("equal?",topLevel);
21153         if (r_res==0) goto __else910;
21154         if (! ((SymbolEntry*)r_res)->isDefined) goto __else910;
21155         r_res = (int)((SymbolEntry*)r_res)->sob;
21156         goto __endIf910;
21157 __else910:
21158         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
21159 __endIf910:
21160         if (IS_SOB_CLOSURE(r_res)) goto __app593;
21161         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21162 __app593:
21163         push((int)SOB_CLOSURE_ENV(r_res));
21164         push((int)&&__ret796);
21165         goto *(SOB_CLOSURE_CODE(r_res));
21166 __ret796:
21167         sp = sp-2-stack[sp-2];
21168         if ((SchemeObject*)r_res==&sc_false) goto __else907;
21169
21170
21171         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21172         r_res = ST_ARG(1);
21173         push(r_res);
21174         push(1);
21175         r_res = (int)probeSymbolDefined("cdr",topLevel);
21176         if (r_res==0) goto __else911;
21177         if (! ((SymbolEntry*)r_res)->isDefined) goto __else911;
21178         r_res = (int)((SymbolEntry*)r_res)->sob;
21179         goto __endIf911;
21180 __else911:
21181         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
21182 __endIf911:
21183         if (IS_SOB_CLOSURE(r_res)) goto __app596;
21184         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21185 __app596:
21186         push((int)SOB_CLOSURE_ENV(r_res));
21187         push((int)&&__ret799);
21188         goto *(SOB_CLOSURE_CODE(r_res));
21189 __ret799:
21190         sp = sp-2-stack[sp-2];
21191         push(r_res);
21192
21193         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21194         r_res = ST_ARG(0);
21195         push(r_res);
21196         push(1);
21197         r_res = (int)probeSymbolDefined("cdr",topLevel);
21198         if (r_res==0) goto __else912;
21199         if (! ((SymbolEntry*)r_res)->isDefined) goto __else912;
21200         r_res = (int)((SymbolEntry*)r_res)->sob;
21201         goto __endIf912;
21202 __else912:
21203         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
21204 __endIf912:
21205         if (IS_SOB_CLOSURE(r_res)) goto __app597;
21206         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21207 __app597:
21208         push((int)SOB_CLOSURE_ENV(r_res));
21209         push((int)&&__ret800);
21210         goto *(SOB_CLOSURE_CODE(r_res));
21211 __ret800:
21212         sp = sp-2-stack[sp-2];
21213         push(r_res);
21214         push(2);
21215         r_res = (int)probeSymbolDefined("equal?",topLevel);
21216         if (r_res==0) goto __else913;
21217         if (! ((SymbolEntry*)r_res)->isDefined) goto __else913;
21218         r_res = (int)((SymbolEntry*)r_res)->sob;
21219         goto __endIf913;
21220 __else913:
21221         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
21222 __endIf913:
21223         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21224         push((int)SOB_CLOSURE_ENV(r_res));
21225         push(ST_RET());
21226         shiftActFrmDown();
21227         goto *(SOB_CLOSURE_CODE(r_res));
21228         sp = sp-2-stack[sp-2];
21229         goto __endIf907;
21230 __else907:
21231         r_res = (int)&sc_false;
21232 __endIf907:
21233         goto __endIf903;
21234 __else903:
21235
21236         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21237         r_res = ST_ARG(0);
21238         push(r_res);
21239         push(1);
21240         r_res = (int)probeSymbolDefined("vector?",topLevel);
21241         if (r_res==0) goto __else916;
21242         if (! ((SymbolEntry*)r_res)->isDefined) goto __else916;
21243         r_res = (int)((SymbolEntry*)r_res)->sob;
21244         goto __endIf916;
21245 __else916:
21246         fprintf(stderr,"Symbol vector\? not defined"); exit(-1);
21247 __endIf916:
21248         if (IS_SOB_CLOSURE(r_res)) goto __app598;
21249         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21250 __app598:
21251         push((int)SOB_CLOSURE_ENV(r_res));
21252         push((int)&&__ret801);
21253         goto *(SOB_CLOSURE_CODE(r_res));
21254 __ret801:
21255         sp = sp-2-stack[sp-2];
21256         if ((SchemeObject*)r_res==&sc_false) goto __else915;
21257
21258         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21259         r_res = ST_ARG(1);
21260         push(r_res);
21261         push(1);
21262         r_res = (int)probeSymbolDefined("vector?",topLevel);
21263         if (r_res==0) goto __else918;
21264         if (! ((SymbolEntry*)r_res)->isDefined) goto __else918;
21265         r_res = (int)((SymbolEntry*)r_res)->sob;
21266         goto __endIf918;
21267 __else918:
21268         fprintf(stderr,"Symbol vector\? not defined"); exit(-1);
21269 __endIf918:
21270         if (IS_SOB_CLOSURE(r_res)) goto __app599;
21271         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21272 __app599:
21273         push((int)SOB_CLOSURE_ENV(r_res));
21274         push((int)&&__ret802);
21275         goto *(SOB_CLOSURE_CODE(r_res));
21276 __ret802:
21277         sp = sp-2-stack[sp-2];
21278         if ((SchemeObject*)r_res==&sc_false) goto __else917;
21279
21280
21281         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21282         r_res = ST_ARG(1);
21283         push(r_res);
21284         push(1);
21285         r_res = (int)probeSymbolDefined("vector-length",topLevel);
21286         if (r_res==0) goto __else919;
21287         if (! ((SymbolEntry*)r_res)->isDefined) goto __else919;
21288         r_res = (int)((SymbolEntry*)r_res)->sob;
21289         goto __endIf919;
21290 __else919:
21291         fprintf(stderr,"Symbol vector-length not defined"); exit(-1);
21292 __endIf919:
21293         if (IS_SOB_CLOSURE(r_res)) goto __app601;
21294         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21295 __app601:
21296         push((int)SOB_CLOSURE_ENV(r_res));
21297         push((int)&&__ret804);
21298         goto *(SOB_CLOSURE_CODE(r_res));
21299 __ret804:
21300         sp = sp-2-stack[sp-2];
21301         push(r_res);
21302
21303         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21304         r_res = ST_ARG(0);
21305         push(r_res);
21306         push(1);
21307         r_res = (int)probeSymbolDefined("vector-length",topLevel);
21308         if (r_res==0) goto __else920;
21309         if (! ((SymbolEntry*)r_res)->isDefined) goto __else920;
21310         r_res = (int)((SymbolEntry*)r_res)->sob;
21311         goto __endIf920;
21312 __else920:
21313         fprintf(stderr,"Symbol vector-length not defined"); exit(-1);
21314 __endIf920:
21315         if (IS_SOB_CLOSURE(r_res)) goto __app602;
21316         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21317 __app602:
21318         push((int)SOB_CLOSURE_ENV(r_res));
21319         push((int)&&__ret805);
21320         goto *(SOB_CLOSURE_CODE(r_res));
21321 __ret805:
21322         sp = sp-2-stack[sp-2];
21323         push(r_res);
21324         push(2);
21325         r_res = (int)probeSymbolDefined("=",topLevel);
21326         if (r_res==0) goto __else921;
21327         if (! ((SymbolEntry*)r_res)->isDefined) goto __else921;
21328         r_res = (int)((SymbolEntry*)r_res)->sob;
21329         goto __endIf921;
21330 __else921:
21331         fprintf(stderr,"Symbol = not defined"); exit(-1);
21332 __endIf921:
21333         if (IS_SOB_CLOSURE(r_res)) goto __app600;
21334         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21335 __app600:
21336         push((int)SOB_CLOSURE_ENV(r_res));
21337         push((int)&&__ret803);
21338         goto *(SOB_CLOSURE_CODE(r_res));
21339 __ret803:
21340         sp = sp-2-stack[sp-2];
21341         goto __endIf917;
21342 __else917:
21343         r_res = (int)&sc_false;
21344 __endIf917:
21345         goto __endIf915;
21346 __else915:
21347         r_res = (int)&sc_false;
21348 __endIf915:
21349         if ((SchemeObject*)r_res==&sc_false) goto __else914;
21350
21351
21352         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21353         r_res = ST_ARG(1);
21354         push(r_res);
21355         push(1);
21356         r_res = (int)probeSymbolDefined("vector->list",topLevel);
21357         if (r_res==0) goto __else922;
21358         if (! ((SymbolEntry*)r_res)->isDefined) goto __else922;
21359         r_res = (int)((SymbolEntry*)r_res)->sob;
21360         goto __endIf922;
21361 __else922:
21362         fprintf(stderr,"Symbol vector->list not defined"); exit(-1);
21363 __endIf922:
21364         if (IS_SOB_CLOSURE(r_res)) goto __app603;
21365         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21366 __app603:
21367         push((int)SOB_CLOSURE_ENV(r_res));
21368         push((int)&&__ret806);
21369         goto *(SOB_CLOSURE_CODE(r_res));
21370 __ret806:
21371         sp = sp-2-stack[sp-2];
21372         push(r_res);
21373
21374         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21375         r_res = ST_ARG(0);
21376         push(r_res);
21377         push(1);
21378         r_res = (int)probeSymbolDefined("vector->list",topLevel);
21379         if (r_res==0) goto __else923;
21380         if (! ((SymbolEntry*)r_res)->isDefined) goto __else923;
21381         r_res = (int)((SymbolEntry*)r_res)->sob;
21382         goto __endIf923;
21383 __else923:
21384         fprintf(stderr,"Symbol vector->list not defined"); exit(-1);
21385 __endIf923:
21386         if (IS_SOB_CLOSURE(r_res)) goto __app604;
21387         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21388 __app604:
21389         push((int)SOB_CLOSURE_ENV(r_res));
21390         push((int)&&__ret807);
21391         goto *(SOB_CLOSURE_CODE(r_res));
21392 __ret807:
21393         sp = sp-2-stack[sp-2];
21394         push(r_res);
21395         push(2);
21396         r_res = (int)probeSymbolDefined("equal?",topLevel);
21397         if (r_res==0) goto __else924;
21398         if (! ((SymbolEntry*)r_res)->isDefined) goto __else924;
21399         r_res = (int)((SymbolEntry*)r_res)->sob;
21400         goto __endIf924;
21401 __else924:
21402         fprintf(stderr,"Symbol equal\? not defined"); exit(-1);
21403 __endIf924:
21404         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21405         push((int)SOB_CLOSURE_ENV(r_res));
21406         push(ST_RET());
21407         shiftActFrmDown();
21408         goto *(SOB_CLOSURE_CODE(r_res));
21409         sp = sp-2-stack[sp-2];
21410         goto __endIf914;
21411 __else914:
21412
21413         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21414         r_res = ST_ARG(0);
21415         push(r_res);
21416         push(1);
21417         r_res = (int)probeSymbolDefined("null?",topLevel);
21418         if (r_res==0) goto __else927;
21419         if (! ((SymbolEntry*)r_res)->isDefined) goto __else927;
21420         r_res = (int)((SymbolEntry*)r_res)->sob;
21421         goto __endIf927;
21422 __else927:
21423         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
21424 __endIf927:
21425         if (IS_SOB_CLOSURE(r_res)) goto __app605;
21426         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21427 __app605:
21428         push((int)SOB_CLOSURE_ENV(r_res));
21429         push((int)&&__ret808);
21430         goto *(SOB_CLOSURE_CODE(r_res));
21431 __ret808:
21432         sp = sp-2-stack[sp-2];
21433         if ((SchemeObject*)r_res==&sc_false) goto __else926;
21434
21435         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21436         r_res = ST_ARG(1);
21437         push(r_res);
21438         push(1);
21439         r_res = (int)probeSymbolDefined("null?",topLevel);
21440         if (r_res==0) goto __else928;
21441         if (! ((SymbolEntry*)r_res)->isDefined) goto __else928;
21442         r_res = (int)((SymbolEntry*)r_res)->sob;
21443         goto __endIf928;
21444 __else928:
21445         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
21446 __endIf928:
21447         if (IS_SOB_CLOSURE(r_res)) goto __app606;
21448         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21449 __app606:
21450         push((int)SOB_CLOSURE_ENV(r_res));
21451         push((int)&&__ret809);
21452         goto *(SOB_CLOSURE_CODE(r_res));
21453 __ret809:
21454         sp = sp-2-stack[sp-2];
21455         goto __endIf926;
21456 __else926:
21457         r_res = (int)&sc_false;
21458 __endIf926:
21459         if ((SchemeObject*)r_res==&sc_false) goto __else925;
21460         r_res = (int)&sc_true;
21461         goto __endIf925;
21462 __else925:
21463
21464         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21465         r_res = ST_ARG(0);
21466         push(r_res);
21467         push(1);
21468         r_res = (int)probeSymbolDefined("boolean?",topLevel);
21469         if (r_res==0) goto __else931;
21470         if (! ((SymbolEntry*)r_res)->isDefined) goto __else931;
21471         r_res = (int)((SymbolEntry*)r_res)->sob;
21472         goto __endIf931;
21473 __else931:
21474         fprintf(stderr,"Symbol boolean\? not defined"); exit(-1);
21475 __endIf931:
21476         if (IS_SOB_CLOSURE(r_res)) goto __app607;
21477         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21478 __app607:
21479         push((int)SOB_CLOSURE_ENV(r_res));
21480         push((int)&&__ret810);
21481         goto *(SOB_CLOSURE_CODE(r_res));
21482 __ret810:
21483         sp = sp-2-stack[sp-2];
21484         if ((SchemeObject*)r_res==&sc_false) goto __else930;
21485
21486         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21487         r_res = ST_ARG(1);
21488         push(r_res);
21489         push(1);
21490         r_res = (int)probeSymbolDefined("boolean?",topLevel);
21491         if (r_res==0) goto __else932;
21492         if (! ((SymbolEntry*)r_res)->isDefined) goto __else932;
21493         r_res = (int)((SymbolEntry*)r_res)->sob;
21494         goto __endIf932;
21495 __else932:
21496         fprintf(stderr,"Symbol boolean\? not defined"); exit(-1);
21497 __endIf932:
21498         if (IS_SOB_CLOSURE(r_res)) goto __app608;
21499         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21500 __app608:
21501         push((int)SOB_CLOSURE_ENV(r_res));
21502         push((int)&&__ret811);
21503         goto *(SOB_CLOSURE_CODE(r_res));
21504 __ret811:
21505         sp = sp-2-stack[sp-2];
21506         goto __endIf930;
21507 __else930:
21508         r_res = (int)&sc_false;
21509 __endIf930:
21510         if ((SchemeObject*)r_res==&sc_false) goto __else929;
21511         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21512         r_res = ST_ARG(0);
21513         if ((SchemeObject*)r_res==&sc_false) goto __else933;
21514         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21515         r_res = ST_ARG(1);
21516         goto __endIf933;
21517 __else933:
21518         r_res = (int)&sc_false;
21519 __endIf933:
21520         goto __endIf929;
21521 __else929:
21522
21523         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21524         r_res = ST_ARG(0);
21525         push(r_res);
21526         push(1);
21527         r_res = (int)probeSymbolDefined("char?",topLevel);
21528         if (r_res==0) goto __else936;
21529         if (! ((SymbolEntry*)r_res)->isDefined) goto __else936;
21530         r_res = (int)((SymbolEntry*)r_res)->sob;
21531         goto __endIf936;
21532 __else936:
21533         fprintf(stderr,"Symbol char\? not defined"); exit(-1);
21534 __endIf936:
21535         if (IS_SOB_CLOSURE(r_res)) goto __app609;
21536         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21537 __app609:
21538         push((int)SOB_CLOSURE_ENV(r_res));
21539         push((int)&&__ret812);
21540         goto *(SOB_CLOSURE_CODE(r_res));
21541 __ret812:
21542         sp = sp-2-stack[sp-2];
21543         if ((SchemeObject*)r_res==&sc_false) goto __else935;
21544
21545         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21546         r_res = ST_ARG(1);
21547         push(r_res);
21548         push(1);
21549         r_res = (int)probeSymbolDefined("char?",topLevel);
21550         if (r_res==0) goto __else937;
21551         if (! ((SymbolEntry*)r_res)->isDefined) goto __else937;
21552         r_res = (int)((SymbolEntry*)r_res)->sob;
21553         goto __endIf937;
21554 __else937:
21555         fprintf(stderr,"Symbol char\? not defined"); exit(-1);
21556 __endIf937:
21557         if (IS_SOB_CLOSURE(r_res)) goto __app610;
21558         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21559 __app610:
21560         push((int)SOB_CLOSURE_ENV(r_res));
21561         push((int)&&__ret813);
21562         goto *(SOB_CLOSURE_CODE(r_res));
21563 __ret813:
21564         sp = sp-2-stack[sp-2];
21565         goto __endIf935;
21566 __else935:
21567         r_res = (int)&sc_false;
21568 __endIf935:
21569         if ((SchemeObject*)r_res==&sc_false) goto __else934;
21570
21571         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21572         r_res = ST_ARG(1);
21573         push(r_res);
21574         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21575         r_res = ST_ARG(0);
21576         push(r_res);
21577         push(2);
21578         r_res = (int)probeSymbolDefined("char=?",topLevel);
21579         if (r_res==0) goto __else938;
21580         if (! ((SymbolEntry*)r_res)->isDefined) goto __else938;
21581         r_res = (int)((SymbolEntry*)r_res)->sob;
21582         goto __endIf938;
21583 __else938:
21584         fprintf(stderr,"Symbol char=\? not defined"); exit(-1);
21585 __endIf938:
21586         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21587         push((int)SOB_CLOSURE_ENV(r_res));
21588         push(ST_RET());
21589         shiftActFrmDown();
21590         goto *(SOB_CLOSURE_CODE(r_res));
21591         sp = sp-2-stack[sp-2];
21592         goto __endIf934;
21593 __else934:
21594
21595         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21596         r_res = ST_ARG(0);
21597         push(r_res);
21598         push(1);
21599         r_res = (int)probeSymbolDefined("number?",topLevel);
21600         if (r_res==0) goto __else941;
21601         if (! ((SymbolEntry*)r_res)->isDefined) goto __else941;
21602         r_res = (int)((SymbolEntry*)r_res)->sob;
21603         goto __endIf941;
21604 __else941:
21605         fprintf(stderr,"Symbol number\? not defined"); exit(-1);
21606 __endIf941:
21607         if (IS_SOB_CLOSURE(r_res)) goto __app611;
21608         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21609 __app611:
21610         push((int)SOB_CLOSURE_ENV(r_res));
21611         push((int)&&__ret814);
21612         goto *(SOB_CLOSURE_CODE(r_res));
21613 __ret814:
21614         sp = sp-2-stack[sp-2];
21615         if ((SchemeObject*)r_res==&sc_false) goto __else940;
21616
21617         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21618         r_res = ST_ARG(1);
21619         push(r_res);
21620         push(1);
21621         r_res = (int)probeSymbolDefined("number?",topLevel);
21622         if (r_res==0) goto __else942;
21623         if (! ((SymbolEntry*)r_res)->isDefined) goto __else942;
21624         r_res = (int)((SymbolEntry*)r_res)->sob;
21625         goto __endIf942;
21626 __else942:
21627         fprintf(stderr,"Symbol number\? not defined"); exit(-1);
21628 __endIf942:
21629         if (IS_SOB_CLOSURE(r_res)) goto __app612;
21630         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21631 __app612:
21632         push((int)SOB_CLOSURE_ENV(r_res));
21633         push((int)&&__ret815);
21634         goto *(SOB_CLOSURE_CODE(r_res));
21635 __ret815:
21636         sp = sp-2-stack[sp-2];
21637         goto __endIf940;
21638 __else940:
21639         r_res = (int)&sc_false;
21640 __endIf940:
21641         if ((SchemeObject*)r_res==&sc_false) goto __else939;
21642
21643         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21644         r_res = ST_ARG(1);
21645         push(r_res);
21646         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21647         r_res = ST_ARG(0);
21648         push(r_res);
21649         push(2);
21650         r_res = (int)probeSymbolDefined("=",topLevel);
21651         if (r_res==0) goto __else943;
21652         if (! ((SymbolEntry*)r_res)->isDefined) goto __else943;
21653         r_res = (int)((SymbolEntry*)r_res)->sob;
21654         goto __endIf943;
21655 __else943:
21656         fprintf(stderr,"Symbol = not defined"); exit(-1);
21657 __endIf943:
21658         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21659         push((int)SOB_CLOSURE_ENV(r_res));
21660         push(ST_RET());
21661         shiftActFrmDown();
21662         goto *(SOB_CLOSURE_CODE(r_res));
21663         sp = sp-2-stack[sp-2];
21664         goto __endIf939;
21665 __else939:
21666
21667         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21668         r_res = ST_ARG(0);
21669         push(r_res);
21670         push(1);
21671         r_res = (int)probeSymbolDefined("string?",topLevel);
21672         if (r_res==0) goto __else946;
21673         if (! ((SymbolEntry*)r_res)->isDefined) goto __else946;
21674         r_res = (int)((SymbolEntry*)r_res)->sob;
21675         goto __endIf946;
21676 __else946:
21677         fprintf(stderr,"Symbol string\? not defined"); exit(-1);
21678 __endIf946:
21679         if (IS_SOB_CLOSURE(r_res)) goto __app613;
21680         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21681 __app613:
21682         push((int)SOB_CLOSURE_ENV(r_res));
21683         push((int)&&__ret816);
21684         goto *(SOB_CLOSURE_CODE(r_res));
21685 __ret816:
21686         sp = sp-2-stack[sp-2];
21687         if ((SchemeObject*)r_res==&sc_false) goto __else945;
21688
21689         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21690         r_res = ST_ARG(1);
21691         push(r_res);
21692         push(1);
21693         r_res = (int)probeSymbolDefined("string?",topLevel);
21694         if (r_res==0) goto __else947;
21695         if (! ((SymbolEntry*)r_res)->isDefined) goto __else947;
21696         r_res = (int)((SymbolEntry*)r_res)->sob;
21697         goto __endIf947;
21698 __else947:
21699         fprintf(stderr,"Symbol string\? not defined"); exit(-1);
21700 __endIf947:
21701         if (IS_SOB_CLOSURE(r_res)) goto __app614;
21702         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21703 __app614:
21704         push((int)SOB_CLOSURE_ENV(r_res));
21705         push((int)&&__ret817);
21706         goto *(SOB_CLOSURE_CODE(r_res));
21707 __ret817:
21708         sp = sp-2-stack[sp-2];
21709         goto __endIf945;
21710 __else945:
21711         r_res = (int)&sc_false;
21712 __endIf945:
21713         if ((SchemeObject*)r_res==&sc_false) goto __else944;
21714
21715         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21716         r_res = ST_ARG(1);
21717         push(r_res);
21718         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21719         r_res = ST_ARG(0);
21720         push(r_res);
21721         push(2);
21722         r_res = (int)probeSymbolDefined("string=?",topLevel);
21723         if (r_res==0) goto __else948;
21724         if (! ((SymbolEntry*)r_res)->isDefined) goto __else948;
21725         r_res = (int)((SymbolEntry*)r_res)->sob;
21726         goto __endIf948;
21727 __else948:
21728         fprintf(stderr,"Symbol string=\? not defined"); exit(-1);
21729 __endIf948:
21730         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21731         push((int)SOB_CLOSURE_ENV(r_res));
21732         push(ST_RET());
21733         shiftActFrmDown();
21734         goto *(SOB_CLOSURE_CODE(r_res));
21735         sp = sp-2-stack[sp-2];
21736         goto __endIf944;
21737 __else944:
21738
21739         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21740         r_res = ST_ARG(0);
21741         push(r_res);
21742         push(1);
21743         r_res = (int)probeSymbolDefined("symbol?",topLevel);
21744         if (r_res==0) goto __else951;
21745         if (! ((SymbolEntry*)r_res)->isDefined) goto __else951;
21746         r_res = (int)((SymbolEntry*)r_res)->sob;
21747         goto __endIf951;
21748 __else951:
21749         fprintf(stderr,"Symbol symbol\? not defined"); exit(-1);
21750 __endIf951:
21751         if (IS_SOB_CLOSURE(r_res)) goto __app615;
21752         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21753 __app615:
21754         push((int)SOB_CLOSURE_ENV(r_res));
21755         push((int)&&__ret818);
21756         goto *(SOB_CLOSURE_CODE(r_res));
21757 __ret818:
21758         sp = sp-2-stack[sp-2];
21759         if ((SchemeObject*)r_res==&sc_false) goto __else950;
21760
21761         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21762         r_res = ST_ARG(1);
21763         push(r_res);
21764         push(1);
21765         r_res = (int)probeSymbolDefined("symbol?",topLevel);
21766         if (r_res==0) goto __else952;
21767         if (! ((SymbolEntry*)r_res)->isDefined) goto __else952;
21768         r_res = (int)((SymbolEntry*)r_res)->sob;
21769         goto __endIf952;
21770 __else952:
21771         fprintf(stderr,"Symbol symbol\? not defined"); exit(-1);
21772 __endIf952:
21773         if (IS_SOB_CLOSURE(r_res)) goto __app616;
21774         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21775 __app616:
21776         push((int)SOB_CLOSURE_ENV(r_res));
21777         push((int)&&__ret819);
21778         goto *(SOB_CLOSURE_CODE(r_res));
21779 __ret819:
21780         sp = sp-2-stack[sp-2];
21781         goto __endIf950;
21782 __else950:
21783         r_res = (int)&sc_false;
21784 __endIf950:
21785         if ((SchemeObject*)r_res==&sc_false) goto __else949;
21786
21787         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21788         r_res = ST_ARG(1);
21789         push(r_res);
21790         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21791         r_res = ST_ARG(0);
21792         push(r_res);
21793         push(2);
21794         r_res = (int)probeSymbolDefined("eq?",topLevel);
21795         if (r_res==0) goto __else953;
21796         if (! ((SymbolEntry*)r_res)->isDefined) goto __else953;
21797         r_res = (int)((SymbolEntry*)r_res)->sob;
21798         goto __endIf953;
21799 __else953:
21800         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
21801 __endIf953:
21802         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21803         push((int)SOB_CLOSURE_ENV(r_res));
21804         push(ST_RET());
21805         shiftActFrmDown();
21806         goto *(SOB_CLOSURE_CODE(r_res));
21807         sp = sp-2-stack[sp-2];
21808         goto __endIf949;
21809 __else949:
21810
21811         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21812         r_res = ST_ARG(0);
21813         push(r_res);
21814         push(1);
21815         r_res = (int)probeSymbolDefined("void?",topLevel);
21816         if (r_res==0) goto __else956;
21817         if (! ((SymbolEntry*)r_res)->isDefined) goto __else956;
21818         r_res = (int)((SymbolEntry*)r_res)->sob;
21819         goto __endIf956;
21820 __else956:
21821         fprintf(stderr,"Symbol void\? not defined"); exit(-1);
21822 __endIf956:
21823         if (IS_SOB_CLOSURE(r_res)) goto __app617;
21824         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21825 __app617:
21826         push((int)SOB_CLOSURE_ENV(r_res));
21827         push((int)&&__ret820);
21828         goto *(SOB_CLOSURE_CODE(r_res));
21829 __ret820:
21830         sp = sp-2-stack[sp-2];
21831         if ((SchemeObject*)r_res==&sc_false) goto __else955;
21832
21833         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
21834         r_res = ST_ARG(1);
21835         push(r_res);
21836         push(1);
21837         r_res = (int)probeSymbolDefined("void?",topLevel);
21838         if (r_res==0) goto __else957;
21839         if (! ((SymbolEntry*)r_res)->isDefined) goto __else957;
21840         r_res = (int)((SymbolEntry*)r_res)->sob;
21841         goto __endIf957;
21842 __else957:
21843         fprintf(stderr,"Symbol void\? not defined"); exit(-1);
21844 __endIf957:
21845         if (IS_SOB_CLOSURE(r_res)) goto __app618;
21846         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21847 __app618:
21848         push((int)SOB_CLOSURE_ENV(r_res));
21849         push((int)&&__ret821);
21850         goto *(SOB_CLOSURE_CODE(r_res));
21851 __ret821:
21852         sp = sp-2-stack[sp-2];
21853         goto __endIf955;
21854 __else955:
21855         r_res = (int)&sc_false;
21856 __endIf955:
21857         if ((SchemeObject*)r_res==&sc_false) goto __else954;
21858         r_res = (int)&sc_true;
21859         goto __endIf954;
21860 __else954:
21861         r_res = (int)&sc_false;
21862 __endIf954:
21863 __endIf949:
21864 __endIf944:
21865 __endIf939:
21866 __endIf934:
21867 __endIf929:
21868 __endIf925:
21869 __endIf914:
21870 __endIf903:
21871         fp = pop();
21872         RETURN();
21873 __skipBody242:
21874         r_res = (int)makeSchemeClosure((void*)r[0],&&__body242);
21875         r[0] = (int)getSymbol("equal?",topLevel);
21876         ((SymbolEntry*)r[0])->isDefined = 1;
21877         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
21878         r_res = (int)&sc_void;
21879 __ret793:
21880         /* set return address */
21881         ST_RET() = (int)&&__ret822;
21882
21883         r_res = (int)&sc_false;
21884         if ((SchemeObject*)r_res==&sc_false) goto __else958;
21885         r_res = (int)&sc_false;
21886         goto __endIf958;
21887 __else958:
21888         r_res = (int)&sc_void;
21889 __endIf958:
21890         push(r_res);
21891         push(1);
21892         r[0] = (int)extendEnviroment( (int**)NULL, 0);
21893         goto __skipBody243;
21894 __body243:
21895         push(fp);
21896         fp = sp;
21897         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21898         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
21899         goto __skipBody244;
21900 __body244:
21901         push(fp);
21902         fp = sp;
21903         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21904         r_res = ((int**)ST_ENV())[0][0];
21905         fp = pop();
21906         RETURN();
21907 __skipBody244:
21908         r_res = (int)makeSchemeClosure((void*)r[0],&&__body244);
21909         fp = pop();
21910         RETURN();
21911 __skipBody243:
21912         r_res = (int)makeSchemeClosure((void*)r[0],&&__body243);
21913         if (IS_SOB_CLOSURE(r_res)) goto __app619;
21914         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21915 __app619:
21916         push((int)SOB_CLOSURE_ENV(r_res));
21917         push((int)&&__ret823);
21918         goto *(SOB_CLOSURE_CODE(r_res));
21919 __ret823:
21920         sp = sp-2-stack[sp-2];
21921         r[0] = (int)getSymbol("void",topLevel);
21922         ((SymbolEntry*)r[0])->isDefined = 1;
21923         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
21924         r_res = (int)&sc_void;
21925 __ret822:
21926         /* set return address */
21927         ST_RET() = (int)&&__ret824;
21928
21929
21930         push(0);
21931         r_res = (int)probeSymbolDefined("void",topLevel);
21932         if (r_res==0) goto __else959;
21933         if (! ((SymbolEntry*)r_res)->isDefined) goto __else959;
21934         r_res = (int)((SymbolEntry*)r_res)->sob;
21935         goto __endIf959;
21936 __else959:
21937         fprintf(stderr,"Symbol void not defined"); exit(-1);
21938 __endIf959:
21939         if (IS_SOB_CLOSURE(r_res)) goto __app621;
21940         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21941 __app621:
21942         push((int)SOB_CLOSURE_ENV(r_res));
21943         push((int)&&__ret826);
21944         goto *(SOB_CLOSURE_CODE(r_res));
21945 __ret826:
21946         sp = sp-2-stack[sp-2];
21947         push(r_res);
21948         push(1);
21949         r[0] = (int)extendEnviroment( (int**)NULL, 0);
21950         goto __skipBody245;
21951 __body245:
21952         push(fp);
21953         fp = sp;
21954         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21955         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
21956         goto __skipBody246;
21957 __body246:
21958         push(fp);
21959         fp = sp;
21960         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21961
21962         r_res = ((int**)ST_ENV())[0][0];
21963         push(r_res);
21964         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
21965         r_res = ST_ARG(0);
21966         push(r_res);
21967         push(2);
21968         r_res = (int)probeSymbolDefined("eq?",topLevel);
21969         if (r_res==0) goto __else960;
21970         if (! ((SymbolEntry*)r_res)->isDefined) goto __else960;
21971         r_res = (int)((SymbolEntry*)r_res)->sob;
21972         goto __endIf960;
21973 __else960:
21974         fprintf(stderr,"Symbol eq\? not defined"); exit(-1);
21975 __endIf960:
21976         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
21977         push((int)SOB_CLOSURE_ENV(r_res));
21978         push(ST_RET());
21979         shiftActFrmDown();
21980         goto *(SOB_CLOSURE_CODE(r_res));
21981         sp = sp-2-stack[sp-2];
21982         fp = pop();
21983         RETURN();
21984 __skipBody246:
21985         r_res = (int)makeSchemeClosure((void*)r[0],&&__body246);
21986         fp = pop();
21987         RETURN();
21988 __skipBody245:
21989         r_res = (int)makeSchemeClosure((void*)r[0],&&__body245);
21990         if (IS_SOB_CLOSURE(r_res)) goto __app620;
21991         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
21992 __app620:
21993         push((int)SOB_CLOSURE_ENV(r_res));
21994         push((int)&&__ret825);
21995         goto *(SOB_CLOSURE_CODE(r_res));
21996 __ret825:
21997         sp = sp-2-stack[sp-2];
21998         r[0] = (int)getSymbol("void?",topLevel);
21999         ((SymbolEntry*)r[0])->isDefined = 1;
22000         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
22001         r_res = (int)&sc_void;
22002 __ret824:
22003         /* set return address */
22004         ST_RET() = (int)&&__ret827;
22005
22006         r[0] = (int)extendEnviroment( (int**)NULL, 0);
22007         goto __skipBody247;
22008 __body247:
22009         push(fp);
22010         fp = sp;
22011         prepareStackForAbsOpt(1);
22012         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22013
22014
22015
22016         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22017         r_res = ST_ARG(0);
22018         push(r_res);
22019         r_res = (int)probeSymbolDefined("string->list",topLevel);
22020         if (r_res==0) goto __else961;
22021         if (! ((SymbolEntry*)r_res)->isDefined) goto __else961;
22022         r_res = (int)((SymbolEntry*)r_res)->sob;
22023         goto __endIf961;
22024 __else961:
22025         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
22026 __endIf961:
22027         push(r_res);
22028         push(2);
22029         r_res = (int)probeSymbolDefined("map",topLevel);
22030         if (r_res==0) goto __else962;
22031         if (! ((SymbolEntry*)r_res)->isDefined) goto __else962;
22032         r_res = (int)((SymbolEntry*)r_res)->sob;
22033         goto __endIf962;
22034 __else962:
22035         fprintf(stderr,"Symbol map not defined"); exit(-1);
22036 __endIf962:
22037         if (IS_SOB_CLOSURE(r_res)) goto __app623;
22038         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22039 __app623:
22040         push((int)SOB_CLOSURE_ENV(r_res));
22041         push((int)&&__ret829);
22042         goto *(SOB_CLOSURE_CODE(r_res));
22043 __ret829:
22044         sp = sp-2-stack[sp-2];
22045         push(r_res);
22046         r_res = (int)probeSymbolDefined("append",topLevel);
22047         if (r_res==0) goto __else963;
22048         if (! ((SymbolEntry*)r_res)->isDefined) goto __else963;
22049         r_res = (int)((SymbolEntry*)r_res)->sob;
22050         goto __endIf963;
22051 __else963:
22052         fprintf(stderr,"Symbol append not defined"); exit(-1);
22053 __endIf963:
22054         push(r_res);
22055         push(2);
22056         r_res = (int)probeSymbolDefined("apply",topLevel);
22057         if (r_res==0) goto __else964;
22058         if (! ((SymbolEntry*)r_res)->isDefined) goto __else964;
22059         r_res = (int)((SymbolEntry*)r_res)->sob;
22060         goto __endIf964;
22061 __else964:
22062         fprintf(stderr,"Symbol apply not defined"); exit(-1);
22063 __endIf964:
22064         if (IS_SOB_CLOSURE(r_res)) goto __app622;
22065         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22066 __app622:
22067         push((int)SOB_CLOSURE_ENV(r_res));
22068         push((int)&&__ret828);
22069         goto *(SOB_CLOSURE_CODE(r_res));
22070 __ret828:
22071         sp = sp-2-stack[sp-2];
22072         push(r_res);
22073         push(1);
22074         r_res = (int)probeSymbolDefined("list->string",topLevel);
22075         if (r_res==0) goto __else965;
22076         if (! ((SymbolEntry*)r_res)->isDefined) goto __else965;
22077         r_res = (int)((SymbolEntry*)r_res)->sob;
22078         goto __endIf965;
22079 __else965:
22080         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
22081 __endIf965:
22082         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22083         push((int)SOB_CLOSURE_ENV(r_res));
22084         push(ST_RET());
22085         shiftActFrmDown();
22086         goto *(SOB_CLOSURE_CODE(r_res));
22087         sp = sp-2-stack[sp-2];
22088         fp = pop();
22089         RETURN();
22090 __skipBody247:
22091         r_res = (int)makeSchemeClosure((void*)r[0],&&__body247);
22092         r[0] = (int)getSymbol("string-append",topLevel);
22093         ((SymbolEntry*)r[0])->isDefined = 1;
22094         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
22095         r_res = (int)&sc_void;
22096 __ret827:
22097         /* set return address */
22098         ST_RET() = (int)&&__ret830;
22099
22100         r[0] = (int)extendEnviroment( (int**)NULL, 0);
22101         goto __skipBody248;
22102 __body248:
22103         push(fp);
22104         fp = sp;
22105         prepareStackForAbsOpt(1);
22106         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22107
22108
22109
22110         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22111         r_res = ST_ARG(0);
22112         push(r_res);
22113         r_res = (int)probeSymbolDefined("vector->list",topLevel);
22114         if (r_res==0) goto __else966;
22115         if (! ((SymbolEntry*)r_res)->isDefined) goto __else966;
22116         r_res = (int)((SymbolEntry*)r_res)->sob;
22117         goto __endIf966;
22118 __else966:
22119         fprintf(stderr,"Symbol vector->list not defined"); exit(-1);
22120 __endIf966:
22121         push(r_res);
22122         push(2);
22123         r_res = (int)probeSymbolDefined("map",topLevel);
22124         if (r_res==0) goto __else967;
22125         if (! ((SymbolEntry*)r_res)->isDefined) goto __else967;
22126         r_res = (int)((SymbolEntry*)r_res)->sob;
22127         goto __endIf967;
22128 __else967:
22129         fprintf(stderr,"Symbol map not defined"); exit(-1);
22130 __endIf967:
22131         if (IS_SOB_CLOSURE(r_res)) goto __app625;
22132         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22133 __app625:
22134         push((int)SOB_CLOSURE_ENV(r_res));
22135         push((int)&&__ret832);
22136         goto *(SOB_CLOSURE_CODE(r_res));
22137 __ret832:
22138         sp = sp-2-stack[sp-2];
22139         push(r_res);
22140         r_res = (int)probeSymbolDefined("append",topLevel);
22141         if (r_res==0) goto __else968;
22142         if (! ((SymbolEntry*)r_res)->isDefined) goto __else968;
22143         r_res = (int)((SymbolEntry*)r_res)->sob;
22144         goto __endIf968;
22145 __else968:
22146         fprintf(stderr,"Symbol append not defined"); exit(-1);
22147 __endIf968:
22148         push(r_res);
22149         push(2);
22150         r_res = (int)probeSymbolDefined("apply",topLevel);
22151         if (r_res==0) goto __else969;
22152         if (! ((SymbolEntry*)r_res)->isDefined) goto __else969;
22153         r_res = (int)((SymbolEntry*)r_res)->sob;
22154         goto __endIf969;
22155 __else969:
22156         fprintf(stderr,"Symbol apply not defined"); exit(-1);
22157 __endIf969:
22158         if (IS_SOB_CLOSURE(r_res)) goto __app624;
22159         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22160 __app624:
22161         push((int)SOB_CLOSURE_ENV(r_res));
22162         push((int)&&__ret831);
22163         goto *(SOB_CLOSURE_CODE(r_res));
22164 __ret831:
22165         sp = sp-2-stack[sp-2];
22166         push(r_res);
22167         push(1);
22168         r_res = (int)probeSymbolDefined("list->vector",topLevel);
22169         if (r_res==0) goto __else970;
22170         if (! ((SymbolEntry*)r_res)->isDefined) goto __else970;
22171         r_res = (int)((SymbolEntry*)r_res)->sob;
22172         goto __endIf970;
22173 __else970:
22174         fprintf(stderr,"Symbol list->vector not defined"); exit(-1);
22175 __endIf970:
22176         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22177         push((int)SOB_CLOSURE_ENV(r_res));
22178         push(ST_RET());
22179         shiftActFrmDown();
22180         goto *(SOB_CLOSURE_CODE(r_res));
22181         sp = sp-2-stack[sp-2];
22182         fp = pop();
22183         RETURN();
22184 __skipBody248:
22185         r_res = (int)makeSchemeClosure((void*)r[0],&&__body248);
22186         r[0] = (int)getSymbol("vector-append",topLevel);
22187         ((SymbolEntry*)r[0])->isDefined = 1;
22188         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
22189         r_res = (int)&sc_void;
22190 __ret830:
22191         /* set return address */
22192         ST_RET() = (int)&&__ret833;
22193
22194         r_res = (int)&sc_false;
22195         push(r_res);
22196         push(1);
22197         r[0] = (int)extendEnviroment( (int**)NULL, 0);
22198         goto __skipBody249;
22199 __body249:
22200         push(fp);
22201         fp = sp;
22202         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22203
22204         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22205         r_res = ST_ARG(0);
22206         push(r_res);
22207         push(1);
22208         r_res = (int)probeSymbolDefined("box",topLevel);
22209         if (r_res==0) goto __else971;
22210         if (! ((SymbolEntry*)r_res)->isDefined) goto __else971;
22211         r_res = (int)((SymbolEntry*)r_res)->sob;
22212         goto __endIf971;
22213 __else971:
22214         fprintf(stderr,"Symbol box not defined"); exit(-1);
22215 __endIf971:
22216         if (IS_SOB_CLOSURE(r_res)) goto __app627;
22217         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22218 __app627:
22219         push((int)SOB_CLOSURE_ENV(r_res));
22220         push((int)&&__ret835);
22221         goto *(SOB_CLOSURE_CODE(r_res));
22222 __ret835:
22223         sp = sp-2-stack[sp-2];
22224         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22225         ST_ARG(0) = r_res;
22226         r_res = (int)&sc_void;
22227
22228         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
22229         goto __skipBody250;
22230 __body250:
22231         push(fp);
22232         fp = sp;
22233         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22234
22235         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22236         r_res = ST_ARG(0);
22237         push(r_res);
22238         push(1);
22239         r_res = (int)probeSymbolDefined("null?",topLevel);
22240         if (r_res==0) goto __else973;
22241         if (! ((SymbolEntry*)r_res)->isDefined) goto __else973;
22242         r_res = (int)((SymbolEntry*)r_res)->sob;
22243         goto __endIf973;
22244 __else973:
22245         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
22246 __endIf973:
22247         if (IS_SOB_CLOSURE(r_res)) goto __app629;
22248         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22249 __app629:
22250         push((int)SOB_CLOSURE_ENV(r_res));
22251         push((int)&&__ret837);
22252         goto *(SOB_CLOSURE_CODE(r_res));
22253 __ret837:
22254         sp = sp-2-stack[sp-2];
22255         if ((SchemeObject*)r_res==&sc_false) goto __else972;
22256         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
22257         r_res = ST_ARG(1);
22258         goto __endIf972;
22259 __else972:
22260
22261         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
22262         r_res = ST_ARG(1);
22263         push(r_res);
22264
22265         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22266         r_res = ST_ARG(0);
22267         push(r_res);
22268         push(1);
22269         r_res = (int)probeSymbolDefined("cdr",topLevel);
22270         if (r_res==0) goto __else974;
22271         if (! ((SymbolEntry*)r_res)->isDefined) goto __else974;
22272         r_res = (int)((SymbolEntry*)r_res)->sob;
22273         goto __endIf974;
22274 __else974:
22275         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
22276 __endIf974:
22277         if (IS_SOB_CLOSURE(r_res)) goto __app631;
22278         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22279 __app631:
22280         push((int)SOB_CLOSURE_ENV(r_res));
22281         push((int)&&__ret839);
22282         goto *(SOB_CLOSURE_CODE(r_res));
22283 __ret839:
22284         sp = sp-2-stack[sp-2];
22285         push(r_res);
22286         push(2);
22287
22288         r_res = (int)&__sc_number134;
22289         push(r_res);
22290         r_res = ((int**)ST_ENV())[0][0];
22291         push(r_res);
22292         push(2);
22293         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
22294         if (r_res==0) goto __else975;
22295         if (! ((SymbolEntry*)r_res)->isDefined) goto __else975;
22296         r_res = (int)((SymbolEntry*)r_res)->sob;
22297         goto __endIf975;
22298 __else975:
22299         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
22300 __endIf975:
22301         if (IS_SOB_CLOSURE(r_res)) goto __app632;
22302         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22303 __app632:
22304         push((int)SOB_CLOSURE_ENV(r_res));
22305         push((int)&&__ret840);
22306         goto *(SOB_CLOSURE_CODE(r_res));
22307 __ret840:
22308         sp = sp-2-stack[sp-2];
22309         if (IS_SOB_CLOSURE(r_res)) goto __app630;
22310         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22311 __app630:
22312         push((int)SOB_CLOSURE_ENV(r_res));
22313         push((int)&&__ret838);
22314         goto *(SOB_CLOSURE_CODE(r_res));
22315 __ret838:
22316         sp = sp-2-stack[sp-2];
22317         push(r_res);
22318
22319         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22320         r_res = ST_ARG(0);
22321         push(r_res);
22322         push(1);
22323         r_res = (int)probeSymbolDefined("car",topLevel);
22324         if (r_res==0) goto __else976;
22325         if (! ((SymbolEntry*)r_res)->isDefined) goto __else976;
22326         r_res = (int)((SymbolEntry*)r_res)->sob;
22327         goto __endIf976;
22328 __else976:
22329         fprintf(stderr,"Symbol car not defined"); exit(-1);
22330 __endIf976:
22331         if (IS_SOB_CLOSURE(r_res)) goto __app633;
22332         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22333 __app633:
22334         push((int)SOB_CLOSURE_ENV(r_res));
22335         push((int)&&__ret841);
22336         goto *(SOB_CLOSURE_CODE(r_res));
22337 __ret841:
22338         sp = sp-2-stack[sp-2];
22339         push(r_res);
22340         push(2);
22341         r_res = (int)probeSymbolDefined("cons",topLevel);
22342         if (r_res==0) goto __else977;
22343         if (! ((SymbolEntry*)r_res)->isDefined) goto __else977;
22344         r_res = (int)((SymbolEntry*)r_res)->sob;
22345         goto __endIf977;
22346 __else977:
22347         fprintf(stderr,"Symbol cons not defined"); exit(-1);
22348 __endIf977:
22349         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22350         push((int)SOB_CLOSURE_ENV(r_res));
22351         push(ST_RET());
22352         shiftActFrmDown();
22353         goto *(SOB_CLOSURE_CODE(r_res));
22354         sp = sp-2-stack[sp-2];
22355 __endIf972:
22356         fp = pop();
22357         RETURN();
22358 __skipBody250:
22359         r_res = (int)makeSchemeClosure((void*)r[0],&&__body250);
22360         push(r_res);
22361         r_res = (int)&__sc_number135;
22362         push(r_res);
22363         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22364         r_res = ST_ARG(0);
22365         push(r_res);
22366         push(3);
22367         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
22368         if (r_res==0) goto __else978;
22369         if (! ((SymbolEntry*)r_res)->isDefined) goto __else978;
22370         r_res = (int)((SymbolEntry*)r_res)->sob;
22371         goto __endIf978;
22372 __else978:
22373         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
22374 __endIf978:
22375         if (IS_SOB_CLOSURE(r_res)) goto __app628;
22376         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22377 __app628:
22378         push((int)SOB_CLOSURE_ENV(r_res));
22379         push((int)&&__ret836);
22380         goto *(SOB_CLOSURE_CODE(r_res));
22381 __ret836:
22382         sp = sp-2-stack[sp-2];
22383         push(0);
22384         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
22385         goto __skipBody251;
22386 __body251:
22387         push(fp);
22388         fp = sp;
22389         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22390         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
22391         goto __skipBody252;
22392 __body252:
22393         push(fp);
22394         fp = sp;
22395         prepareStackForAbsOpt(1);
22396         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22397
22398         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22399         r_res = ST_ARG(0);
22400         push(r_res);
22401         r_res = (int)&sc_nil;
22402         push(r_res);
22403
22404         r_res = (int)&__sc_number136;
22405         push(r_res);
22406         r_res = ((int**)ST_ENV())[1][0];
22407         push(r_res);
22408         push(2);
22409         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
22410         if (r_res==0) goto __else979;
22411         if (! ((SymbolEntry*)r_res)->isDefined) goto __else979;
22412         r_res = (int)((SymbolEntry*)r_res)->sob;
22413         goto __endIf979;
22414 __else979:
22415         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
22416 __endIf979:
22417         if (IS_SOB_CLOSURE(r_res)) goto __app634;
22418         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22419 __app634:
22420         push((int)SOB_CLOSURE_ENV(r_res));
22421         push((int)&&__ret842);
22422         goto *(SOB_CLOSURE_CODE(r_res));
22423 __ret842:
22424         sp = sp-2-stack[sp-2];
22425         push(r_res);
22426         push(3);
22427         r_res = (int)probeSymbolDefined("foldr",topLevel);
22428         if (r_res==0) goto __else980;
22429         if (! ((SymbolEntry*)r_res)->isDefined) goto __else980;
22430         r_res = (int)((SymbolEntry*)r_res)->sob;
22431         goto __endIf980;
22432 __else980:
22433         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
22434 __endIf980:
22435         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22436         push((int)SOB_CLOSURE_ENV(r_res));
22437         push(ST_RET());
22438         shiftActFrmDown();
22439         goto *(SOB_CLOSURE_CODE(r_res));
22440         sp = sp-2-stack[sp-2];
22441         fp = pop();
22442         RETURN();
22443 __skipBody252:
22444         r_res = (int)makeSchemeClosure((void*)r[0],&&__body252);
22445         fp = pop();
22446         RETURN();
22447 __skipBody251:
22448         r_res = (int)makeSchemeClosure((void*)r[0],&&__body251);
22449         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22450         push((int)SOB_CLOSURE_ENV(r_res));
22451         push(ST_RET());
22452         shiftActFrmDown();
22453         goto *(SOB_CLOSURE_CODE(r_res));
22454         sp = sp-2-stack[sp-2];
22455         fp = pop();
22456         RETURN();
22457 __skipBody249:
22458         r_res = (int)makeSchemeClosure((void*)r[0],&&__body249);
22459         if (IS_SOB_CLOSURE(r_res)) goto __app626;
22460         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22461 __app626:
22462         push((int)SOB_CLOSURE_ENV(r_res));
22463         push((int)&&__ret834);
22464         goto *(SOB_CLOSURE_CODE(r_res));
22465 __ret834:
22466         sp = sp-2-stack[sp-2];
22467         r[0] = (int)getSymbol("append",topLevel);
22468         ((SymbolEntry*)r[0])->isDefined = 1;
22469         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
22470         r_res = (int)&sc_void;
22471 __ret833:
22472         /* set return address */
22473         ST_RET() = (int)&&__ret843;
22474
22475         r_res = (int)&sc_false;
22476         push(r_res);
22477         push(1);
22478         r[0] = (int)extendEnviroment( (int**)NULL, 0);
22479         goto __skipBody253;
22480 __body253:
22481         push(fp);
22482         fp = sp;
22483         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22484
22485         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22486         r_res = ST_ARG(0);
22487         push(r_res);
22488         push(1);
22489         r_res = (int)probeSymbolDefined("box",topLevel);
22490         if (r_res==0) goto __else981;
22491         if (! ((SymbolEntry*)r_res)->isDefined) goto __else981;
22492         r_res = (int)((SymbolEntry*)r_res)->sob;
22493         goto __endIf981;
22494 __else981:
22495         fprintf(stderr,"Symbol box not defined"); exit(-1);
22496 __endIf981:
22497         if (IS_SOB_CLOSURE(r_res)) goto __app636;
22498         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22499 __app636:
22500         push((int)SOB_CLOSURE_ENV(r_res));
22501         push((int)&&__ret845);
22502         goto *(SOB_CLOSURE_CODE(r_res));
22503 __ret845:
22504         sp = sp-2-stack[sp-2];
22505         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22506         ST_ARG(0) = r_res;
22507         r_res = (int)&sc_void;
22508
22509         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
22510         goto __skipBody254;
22511 __body254:
22512         push(fp);
22513         fp = sp;
22514         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22515
22516         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22517         r_res = ST_ARG(0);
22518         push(r_res);
22519         push(1);
22520         r_res = (int)probeSymbolDefined("null?",topLevel);
22521         if (r_res==0) goto __else983;
22522         if (! ((SymbolEntry*)r_res)->isDefined) goto __else983;
22523         r_res = (int)((SymbolEntry*)r_res)->sob;
22524         goto __endIf983;
22525 __else983:
22526         fprintf(stderr,"Symbol null\? not defined"); exit(-1);
22527 __endIf983:
22528         if (IS_SOB_CLOSURE(r_res)) goto __app638;
22529         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22530 __app638:
22531         push((int)SOB_CLOSURE_ENV(r_res));
22532         push((int)&&__ret847);
22533         goto *(SOB_CLOSURE_CODE(r_res));
22534 __ret847:
22535         sp = sp-2-stack[sp-2];
22536         if ((SchemeObject*)r_res==&sc_false) goto __else982;
22537         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
22538         r_res = ST_ARG(1);
22539         goto __endIf982;
22540 __else982:
22541
22542         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
22543         r_res = ST_ARG(1);
22544         push(r_res);
22545
22546         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22547         r_res = ST_ARG(0);
22548         push(r_res);
22549         push(1);
22550         r_res = (int)probeSymbolDefined("car",topLevel);
22551         if (r_res==0) goto __else984;
22552         if (! ((SymbolEntry*)r_res)->isDefined) goto __else984;
22553         r_res = (int)((SymbolEntry*)r_res)->sob;
22554         goto __endIf984;
22555 __else984:
22556         fprintf(stderr,"Symbol car not defined"); exit(-1);
22557 __endIf984:
22558         if (IS_SOB_CLOSURE(r_res)) goto __app640;
22559         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22560 __app640:
22561         push((int)SOB_CLOSURE_ENV(r_res));
22562         push((int)&&__ret849);
22563         goto *(SOB_CLOSURE_CODE(r_res));
22564 __ret849:
22565         sp = sp-2-stack[sp-2];
22566         push(r_res);
22567         push(2);
22568         r_res = (int)probeSymbolDefined("cons",topLevel);
22569         if (r_res==0) goto __else985;
22570         if (! ((SymbolEntry*)r_res)->isDefined) goto __else985;
22571         r_res = (int)((SymbolEntry*)r_res)->sob;
22572         goto __endIf985;
22573 __else985:
22574         fprintf(stderr,"Symbol cons not defined"); exit(-1);
22575 __endIf985:
22576         if (IS_SOB_CLOSURE(r_res)) goto __app639;
22577         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22578 __app639:
22579         push((int)SOB_CLOSURE_ENV(r_res));
22580         push((int)&&__ret848);
22581         goto *(SOB_CLOSURE_CODE(r_res));
22582 __ret848:
22583         sp = sp-2-stack[sp-2];
22584         push(r_res);
22585
22586         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22587         r_res = ST_ARG(0);
22588         push(r_res);
22589         push(1);
22590         r_res = (int)probeSymbolDefined("cdr",topLevel);
22591         if (r_res==0) goto __else986;
22592         if (! ((SymbolEntry*)r_res)->isDefined) goto __else986;
22593         r_res = (int)((SymbolEntry*)r_res)->sob;
22594         goto __endIf986;
22595 __else986:
22596         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
22597 __endIf986:
22598         if (IS_SOB_CLOSURE(r_res)) goto __app641;
22599         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22600 __app641:
22601         push((int)SOB_CLOSURE_ENV(r_res));
22602         push((int)&&__ret850);
22603         goto *(SOB_CLOSURE_CODE(r_res));
22604 __ret850:
22605         sp = sp-2-stack[sp-2];
22606         push(r_res);
22607         push(2);
22608
22609         r_res = (int)&__sc_number137;
22610         push(r_res);
22611         r_res = ((int**)ST_ENV())[0][0];
22612         push(r_res);
22613         push(2);
22614         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
22615         if (r_res==0) goto __else987;
22616         if (! ((SymbolEntry*)r_res)->isDefined) goto __else987;
22617         r_res = (int)((SymbolEntry*)r_res)->sob;
22618         goto __endIf987;
22619 __else987:
22620         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
22621 __endIf987:
22622         if (IS_SOB_CLOSURE(r_res)) goto __app642;
22623         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22624 __app642:
22625         push((int)SOB_CLOSURE_ENV(r_res));
22626         push((int)&&__ret851);
22627         goto *(SOB_CLOSURE_CODE(r_res));
22628 __ret851:
22629         sp = sp-2-stack[sp-2];
22630         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22631         push((int)SOB_CLOSURE_ENV(r_res));
22632         push(ST_RET());
22633         shiftActFrmDown();
22634         goto *(SOB_CLOSURE_CODE(r_res));
22635         sp = sp-2-stack[sp-2];
22636 __endIf982:
22637         fp = pop();
22638         RETURN();
22639 __skipBody254:
22640         r_res = (int)makeSchemeClosure((void*)r[0],&&__body254);
22641         push(r_res);
22642         r_res = (int)&__sc_number138;
22643         push(r_res);
22644         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22645         r_res = ST_ARG(0);
22646         push(r_res);
22647         push(3);
22648         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
22649         if (r_res==0) goto __else988;
22650         if (! ((SymbolEntry*)r_res)->isDefined) goto __else988;
22651         r_res = (int)((SymbolEntry*)r_res)->sob;
22652         goto __endIf988;
22653 __else988:
22654         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
22655 __endIf988:
22656         if (IS_SOB_CLOSURE(r_res)) goto __app637;
22657         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22658 __app637:
22659         push((int)SOB_CLOSURE_ENV(r_res));
22660         push((int)&&__ret846);
22661         goto *(SOB_CLOSURE_CODE(r_res));
22662 __ret846:
22663         sp = sp-2-stack[sp-2];
22664         push(0);
22665         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
22666         goto __skipBody255;
22667 __body255:
22668         push(fp);
22669         fp = sp;
22670         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22671         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
22672         goto __skipBody256;
22673 __body256:
22674         push(fp);
22675         fp = sp;
22676         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22677         r_res = (int)&sc_nil;
22678         push(r_res);
22679         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22680         r_res = ST_ARG(0);
22681         push(r_res);
22682         push(2);
22683
22684         r_res = (int)&__sc_number139;
22685         push(r_res);
22686         r_res = ((int**)ST_ENV())[1][0];
22687         push(r_res);
22688         push(2);
22689         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
22690         if (r_res==0) goto __else989;
22691         if (! ((SymbolEntry*)r_res)->isDefined) goto __else989;
22692         r_res = (int)((SymbolEntry*)r_res)->sob;
22693         goto __endIf989;
22694 __else989:
22695         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
22696 __endIf989:
22697         if (IS_SOB_CLOSURE(r_res)) goto __app643;
22698         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22699 __app643:
22700         push((int)SOB_CLOSURE_ENV(r_res));
22701         push((int)&&__ret852);
22702         goto *(SOB_CLOSURE_CODE(r_res));
22703 __ret852:
22704         sp = sp-2-stack[sp-2];
22705         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22706         push((int)SOB_CLOSURE_ENV(r_res));
22707         push(ST_RET());
22708         shiftActFrmDown();
22709         goto *(SOB_CLOSURE_CODE(r_res));
22710         sp = sp-2-stack[sp-2];
22711         fp = pop();
22712         RETURN();
22713 __skipBody256:
22714         r_res = (int)makeSchemeClosure((void*)r[0],&&__body256);
22715         fp = pop();
22716         RETURN();
22717 __skipBody255:
22718         r_res = (int)makeSchemeClosure((void*)r[0],&&__body255);
22719         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22720         push((int)SOB_CLOSURE_ENV(r_res));
22721         push(ST_RET());
22722         shiftActFrmDown();
22723         goto *(SOB_CLOSURE_CODE(r_res));
22724         sp = sp-2-stack[sp-2];
22725         fp = pop();
22726         RETURN();
22727 __skipBody253:
22728         r_res = (int)makeSchemeClosure((void*)r[0],&&__body253);
22729         if (IS_SOB_CLOSURE(r_res)) goto __app635;
22730         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22731 __app635:
22732         push((int)SOB_CLOSURE_ENV(r_res));
22733         push((int)&&__ret844);
22734         goto *(SOB_CLOSURE_CODE(r_res));
22735 __ret844:
22736         sp = sp-2-stack[sp-2];
22737         r[0] = (int)getSymbol("reverse",topLevel);
22738         ((SymbolEntry*)r[0])->isDefined = 1;
22739         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
22740         r_res = (int)&sc_void;
22741 __ret843:
22742         /* set return address */
22743         ST_RET() = (int)&&__ret853;
22744
22745
22746         r_res = (int)probeSymbolDefined("string->list",topLevel);
22747         if (r_res==0) goto __else990;
22748         if (! ((SymbolEntry*)r_res)->isDefined) goto __else990;
22749         r_res = (int)((SymbolEntry*)r_res)->sob;
22750         goto __endIf990;
22751 __else990:
22752         fprintf(stderr,"Symbol string->list not defined"); exit(-1);
22753 __endIf990:
22754         push(r_res);
22755         r_res = (int)probeSymbolDefined("reverse",topLevel);
22756         if (r_res==0) goto __else991;
22757         if (! ((SymbolEntry*)r_res)->isDefined) goto __else991;
22758         r_res = (int)((SymbolEntry*)r_res)->sob;
22759         goto __endIf991;
22760 __else991:
22761         fprintf(stderr,"Symbol reverse not defined"); exit(-1);
22762 __endIf991:
22763         push(r_res);
22764         r_res = (int)probeSymbolDefined("list->string",topLevel);
22765         if (r_res==0) goto __else992;
22766         if (! ((SymbolEntry*)r_res)->isDefined) goto __else992;
22767         r_res = (int)((SymbolEntry*)r_res)->sob;
22768         goto __endIf992;
22769 __else992:
22770         fprintf(stderr,"Symbol list->string not defined"); exit(-1);
22771 __endIf992:
22772         push(r_res);
22773         push(3);
22774         r_res = (int)probeSymbolDefined("compose",topLevel);
22775         if (r_res==0) goto __else993;
22776         if (! ((SymbolEntry*)r_res)->isDefined) goto __else993;
22777         r_res = (int)((SymbolEntry*)r_res)->sob;
22778         goto __endIf993;
22779 __else993:
22780         fprintf(stderr,"Symbol compose not defined"); exit(-1);
22781 __endIf993:
22782         if (IS_SOB_CLOSURE(r_res)) goto __app644;
22783         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22784 __app644:
22785         push((int)SOB_CLOSURE_ENV(r_res));
22786         push((int)&&__ret854);
22787         goto *(SOB_CLOSURE_CODE(r_res));
22788 __ret854:
22789         sp = sp-2-stack[sp-2];
22790         r[0] = (int)getSymbol("string-reverse",topLevel);
22791         ((SymbolEntry*)r[0])->isDefined = 1;
22792         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
22793         r_res = (int)&sc_void;
22794 __ret853:
22795         /* set return address */
22796         ST_RET() = (int)&&__ret855;
22797
22798         r[0] = (int)extendEnviroment( (int**)NULL, 0);
22799         goto __skipBody257;
22800 __body257:
22801         push(fp);
22802         fp = sp;
22803         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22804
22805         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
22806         r_res = ST_ARG(1);
22807         push(r_res);
22808         push(1);
22809         r_res = (int)probeSymbolDefined("zero?",topLevel);
22810         if (r_res==0) goto __else995;
22811         if (! ((SymbolEntry*)r_res)->isDefined) goto __else995;
22812         r_res = (int)((SymbolEntry*)r_res)->sob;
22813         goto __endIf995;
22814 __else995:
22815         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
22816 __endIf995:
22817         if (IS_SOB_CLOSURE(r_res)) goto __app645;
22818         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22819 __app645:
22820         push((int)SOB_CLOSURE_ENV(r_res));
22821         push((int)&&__ret856);
22822         goto *(SOB_CLOSURE_CODE(r_res));
22823 __ret856:
22824         sp = sp-2-stack[sp-2];
22825         if ((SchemeObject*)r_res==&sc_false) goto __else994;
22826
22827         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22828         r_res = ST_ARG(0);
22829         push(r_res);
22830         push(1);
22831         r_res = (int)probeSymbolDefined("car",topLevel);
22832         if (r_res==0) goto __else996;
22833         if (! ((SymbolEntry*)r_res)->isDefined) goto __else996;
22834         r_res = (int)((SymbolEntry*)r_res)->sob;
22835         goto __endIf996;
22836 __else996:
22837         fprintf(stderr,"Symbol car not defined"); exit(-1);
22838 __endIf996:
22839         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22840         push((int)SOB_CLOSURE_ENV(r_res));
22841         push(ST_RET());
22842         shiftActFrmDown();
22843         goto *(SOB_CLOSURE_CODE(r_res));
22844         sp = sp-2-stack[sp-2];
22845         goto __endIf994;
22846 __else994:
22847
22848
22849         r_res = (int)&__sc_number140;
22850         push(r_res);
22851         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
22852         r_res = ST_ARG(1);
22853         push(r_res);
22854         push(2);
22855         r_res = (int)probeSymbolDefined("-",topLevel);
22856         if (r_res==0) goto __else997;
22857         if (! ((SymbolEntry*)r_res)->isDefined) goto __else997;
22858         r_res = (int)((SymbolEntry*)r_res)->sob;
22859         goto __endIf997;
22860 __else997:
22861         fprintf(stderr,"Symbol - not defined"); exit(-1);
22862 __endIf997:
22863         if (IS_SOB_CLOSURE(r_res)) goto __app646;
22864         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22865 __app646:
22866         push((int)SOB_CLOSURE_ENV(r_res));
22867         push((int)&&__ret857);
22868         goto *(SOB_CLOSURE_CODE(r_res));
22869 __ret857:
22870         sp = sp-2-stack[sp-2];
22871         push(r_res);
22872
22873         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22874         r_res = ST_ARG(0);
22875         push(r_res);
22876         push(1);
22877         r_res = (int)probeSymbolDefined("cdr",topLevel);
22878         if (r_res==0) goto __else998;
22879         if (! ((SymbolEntry*)r_res)->isDefined) goto __else998;
22880         r_res = (int)((SymbolEntry*)r_res)->sob;
22881         goto __endIf998;
22882 __else998:
22883         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
22884 __endIf998:
22885         if (IS_SOB_CLOSURE(r_res)) goto __app647;
22886         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22887 __app647:
22888         push((int)SOB_CLOSURE_ENV(r_res));
22889         push((int)&&__ret858);
22890         goto *(SOB_CLOSURE_CODE(r_res));
22891 __ret858:
22892         sp = sp-2-stack[sp-2];
22893         push(r_res);
22894         push(2);
22895         r_res = (int)probeSymbolDefined("list-ref",topLevel);
22896         if (r_res==0) goto __else999;
22897         if (! ((SymbolEntry*)r_res)->isDefined) goto __else999;
22898         r_res = (int)((SymbolEntry*)r_res)->sob;
22899         goto __endIf999;
22900 __else999:
22901         fprintf(stderr,"Symbol list-ref not defined"); exit(-1);
22902 __endIf999:
22903         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22904         push((int)SOB_CLOSURE_ENV(r_res));
22905         push(ST_RET());
22906         shiftActFrmDown();
22907         goto *(SOB_CLOSURE_CODE(r_res));
22908         sp = sp-2-stack[sp-2];
22909 __endIf994:
22910         fp = pop();
22911         RETURN();
22912 __skipBody257:
22913         r_res = (int)makeSchemeClosure((void*)r[0],&&__body257);
22914         r[0] = (int)getSymbol("list-ref",topLevel);
22915         ((SymbolEntry*)r[0])->isDefined = 1;
22916         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
22917         r_res = (int)&sc_void;
22918 __ret855:
22919         /* set return address */
22920         ST_RET() = (int)&&__ret859;
22921
22922         r[0] = (int)extendEnviroment( (int**)NULL, 0);
22923         goto __skipBody258;
22924 __body258:
22925         push(fp);
22926         fp = sp;
22927         if (ST_ARG_COUNT()!=3) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",3)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22928
22929         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
22930         r_res = ST_ARG(1);
22931         push(r_res);
22932         push(1);
22933         r_res = (int)probeSymbolDefined("zero?",topLevel);
22934         if (r_res==0) goto __else1001;
22935         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1001;
22936         r_res = (int)((SymbolEntry*)r_res)->sob;
22937         goto __endIf1001;
22938 __else1001:
22939         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
22940 __endIf1001:
22941         if (IS_SOB_CLOSURE(r_res)) goto __app648;
22942         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22943 __app648:
22944         push((int)SOB_CLOSURE_ENV(r_res));
22945         push((int)&&__ret860);
22946         goto *(SOB_CLOSURE_CODE(r_res));
22947 __ret860:
22948         sp = sp-2-stack[sp-2];
22949         if ((SchemeObject*)r_res==&sc_false) goto __else1000;
22950
22951         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
22952         r_res = ST_ARG(2);
22953         push(r_res);
22954         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
22955         r_res = ST_ARG(0);
22956         push(r_res);
22957         push(2);
22958         r_res = (int)probeSymbolDefined("set-car!",topLevel);
22959         if (r_res==0) goto __else1002;
22960         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1002;
22961         r_res = (int)((SymbolEntry*)r_res)->sob;
22962         goto __endIf1002;
22963 __else1002:
22964         fprintf(stderr,"Symbol set-car! not defined"); exit(-1);
22965 __endIf1002:
22966         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
22967         push((int)SOB_CLOSURE_ENV(r_res));
22968         push(ST_RET());
22969         shiftActFrmDown();
22970         goto *(SOB_CLOSURE_CODE(r_res));
22971         sp = sp-2-stack[sp-2];
22972         goto __endIf1000;
22973 __else1000:
22974
22975         ASSERT_ALWAYS((2>=0) & (2<ST_ARG_COUNT()),"");
22976         r_res = ST_ARG(2);
22977         push(r_res);
22978
22979         r_res = (int)&__sc_number141;
22980         push(r_res);
22981         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
22982         r_res = ST_ARG(1);
22983         push(r_res);
22984         push(2);
22985         r_res = (int)probeSymbolDefined("-",topLevel);
22986         if (r_res==0) goto __else1003;
22987         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1003;
22988         r_res = (int)((SymbolEntry*)r_res)->sob;
22989         goto __endIf1003;
22990 __else1003:
22991         fprintf(stderr,"Symbol - not defined"); exit(-1);
22992 __endIf1003:
22993         if (IS_SOB_CLOSURE(r_res)) goto __app649;
22994         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
22995 __app649:
22996         push((int)SOB_CLOSURE_ENV(r_res));
22997         push((int)&&__ret861);
22998         goto *(SOB_CLOSURE_CODE(r_res));
22999 __ret861:
23000         sp = sp-2-stack[sp-2];
23001         push(r_res);
23002
23003         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23004         r_res = ST_ARG(0);
23005         push(r_res);
23006         push(1);
23007         r_res = (int)probeSymbolDefined("cdr",topLevel);
23008         if (r_res==0) goto __else1004;
23009         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1004;
23010         r_res = (int)((SymbolEntry*)r_res)->sob;
23011         goto __endIf1004;
23012 __else1004:
23013         fprintf(stderr,"Symbol cdr not defined"); exit(-1);
23014 __endIf1004:
23015         if (IS_SOB_CLOSURE(r_res)) goto __app650;
23016         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23017 __app650:
23018         push((int)SOB_CLOSURE_ENV(r_res));
23019         push((int)&&__ret862);
23020         goto *(SOB_CLOSURE_CODE(r_res));
23021 __ret862:
23022         sp = sp-2-stack[sp-2];
23023         push(r_res);
23024         push(3);
23025         r_res = (int)probeSymbolDefined("list-set!",topLevel);
23026         if (r_res==0) goto __else1005;
23027         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1005;
23028         r_res = (int)((SymbolEntry*)r_res)->sob;
23029         goto __endIf1005;
23030 __else1005:
23031         fprintf(stderr,"Symbol list-set! not defined"); exit(-1);
23032 __endIf1005:
23033         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23034         push((int)SOB_CLOSURE_ENV(r_res));
23035         push(ST_RET());
23036         shiftActFrmDown();
23037         goto *(SOB_CLOSURE_CODE(r_res));
23038         sp = sp-2-stack[sp-2];
23039 __endIf1000:
23040         fp = pop();
23041         RETURN();
23042 __skipBody258:
23043         r_res = (int)makeSchemeClosure((void*)r[0],&&__body258);
23044         r[0] = (int)getSymbol("list-set!",topLevel);
23045         ((SymbolEntry*)r[0])->isDefined = 1;
23046         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
23047         r_res = (int)&sc_void;
23048 __ret859:
23049         /* set return address */
23050         ST_RET() = (int)&&__ret863;
23051
23052         r[0] = (int)extendEnviroment( (int**)NULL, 0);
23053         goto __skipBody259;
23054 __body259:
23055         push(fp);
23056         fp = sp;
23057         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23058
23059         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
23060         r_res = ST_ARG(1);
23061         push(r_res);
23062         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23063         r_res = ST_ARG(0);
23064         push(r_res);
23065         push(2);
23066         r_res = (int)probeSymbolDefined(">",topLevel);
23067         if (r_res==0) goto __else1007;
23068         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1007;
23069         r_res = (int)((SymbolEntry*)r_res)->sob;
23070         goto __endIf1007;
23071 __else1007:
23072         fprintf(stderr,"Symbol > not defined"); exit(-1);
23073 __endIf1007:
23074         if (IS_SOB_CLOSURE(r_res)) goto __app652;
23075         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23076 __app652:
23077         push((int)SOB_CLOSURE_ENV(r_res));
23078         push((int)&&__ret865);
23079         goto *(SOB_CLOSURE_CODE(r_res));
23080 __ret865:
23081         sp = sp-2-stack[sp-2];
23082         if ((SchemeObject*)r_res==&sc_false) goto __else1006;
23083         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23084         r_res = ST_ARG(0);
23085         goto __endIf1006;
23086 __else1006:
23087         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
23088         r_res = ST_ARG(1);
23089 __endIf1006:
23090         fp = pop();
23091         RETURN();
23092 __skipBody259:
23093         r_res = (int)makeSchemeClosure((void*)r[0],&&__body259);
23094         push(r_res);
23095         push(1);
23096         r[0] = (int)extendEnviroment( (int**)NULL, 0);
23097         goto __skipBody260;
23098 __body260:
23099         push(fp);
23100         fp = sp;
23101         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23102         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
23103         goto __skipBody261;
23104 __body261:
23105         push(fp);
23106         fp = sp;
23107         prepareStackForAbsOpt(2);
23108         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23109
23110         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
23111         r_res = ST_ARG(1);
23112         push(r_res);
23113         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23114         r_res = ST_ARG(0);
23115         push(r_res);
23116         r_res = ((int**)ST_ENV())[0][0];
23117         push(r_res);
23118         push(3);
23119         r_res = (int)probeSymbolDefined("foldr",topLevel);
23120         if (r_res==0) goto __else1008;
23121         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1008;
23122         r_res = (int)((SymbolEntry*)r_res)->sob;
23123         goto __endIf1008;
23124 __else1008:
23125         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
23126 __endIf1008:
23127         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23128         push((int)SOB_CLOSURE_ENV(r_res));
23129         push(ST_RET());
23130         shiftActFrmDown();
23131         goto *(SOB_CLOSURE_CODE(r_res));
23132         sp = sp-2-stack[sp-2];
23133         fp = pop();
23134         RETURN();
23135 __skipBody261:
23136         r_res = (int)makeSchemeClosure((void*)r[0],&&__body261);
23137         fp = pop();
23138         RETURN();
23139 __skipBody260:
23140         r_res = (int)makeSchemeClosure((void*)r[0],&&__body260);
23141         if (IS_SOB_CLOSURE(r_res)) goto __app651;
23142         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23143 __app651:
23144         push((int)SOB_CLOSURE_ENV(r_res));
23145         push((int)&&__ret864);
23146         goto *(SOB_CLOSURE_CODE(r_res));
23147 __ret864:
23148         sp = sp-2-stack[sp-2];
23149         r[0] = (int)getSymbol("max",topLevel);
23150         ((SymbolEntry*)r[0])->isDefined = 1;
23151         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
23152         r_res = (int)&sc_void;
23153 __ret863:
23154         /* set return address */
23155         ST_RET() = (int)&&__ret866;
23156
23157         r[0] = (int)extendEnviroment( (int**)NULL, 0);
23158         goto __skipBody262;
23159 __body262:
23160         push(fp);
23161         fp = sp;
23162         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23163
23164         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
23165         r_res = ST_ARG(1);
23166         push(r_res);
23167         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23168         r_res = ST_ARG(0);
23169         push(r_res);
23170         push(2);
23171         r_res = (int)probeSymbolDefined("<",topLevel);
23172         if (r_res==0) goto __else1010;
23173         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1010;
23174         r_res = (int)((SymbolEntry*)r_res)->sob;
23175         goto __endIf1010;
23176 __else1010:
23177         fprintf(stderr,"Symbol < not defined"); exit(-1);
23178 __endIf1010:
23179         if (IS_SOB_CLOSURE(r_res)) goto __app654;
23180         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23181 __app654:
23182         push((int)SOB_CLOSURE_ENV(r_res));
23183         push((int)&&__ret868);
23184         goto *(SOB_CLOSURE_CODE(r_res));
23185 __ret868:
23186         sp = sp-2-stack[sp-2];
23187         if ((SchemeObject*)r_res==&sc_false) goto __else1009;
23188         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23189         r_res = ST_ARG(0);
23190         goto __endIf1009;
23191 __else1009:
23192         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
23193         r_res = ST_ARG(1);
23194 __endIf1009:
23195         fp = pop();
23196         RETURN();
23197 __skipBody262:
23198         r_res = (int)makeSchemeClosure((void*)r[0],&&__body262);
23199         push(r_res);
23200         push(1);
23201         r[0] = (int)extendEnviroment( (int**)NULL, 0);
23202         goto __skipBody263;
23203 __body263:
23204         push(fp);
23205         fp = sp;
23206         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23207         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
23208         goto __skipBody264;
23209 __body264:
23210         push(fp);
23211         fp = sp;
23212         prepareStackForAbsOpt(2);
23213         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23214
23215         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
23216         r_res = ST_ARG(1);
23217         push(r_res);
23218         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23219         r_res = ST_ARG(0);
23220         push(r_res);
23221         r_res = ((int**)ST_ENV())[0][0];
23222         push(r_res);
23223         push(3);
23224         r_res = (int)probeSymbolDefined("foldr",topLevel);
23225         if (r_res==0) goto __else1011;
23226         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1011;
23227         r_res = (int)((SymbolEntry*)r_res)->sob;
23228         goto __endIf1011;
23229 __else1011:
23230         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
23231 __endIf1011:
23232         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23233         push((int)SOB_CLOSURE_ENV(r_res));
23234         push(ST_RET());
23235         shiftActFrmDown();
23236         goto *(SOB_CLOSURE_CODE(r_res));
23237         sp = sp-2-stack[sp-2];
23238         fp = pop();
23239         RETURN();
23240 __skipBody264:
23241         r_res = (int)makeSchemeClosure((void*)r[0],&&__body264);
23242         fp = pop();
23243         RETURN();
23244 __skipBody263:
23245         r_res = (int)makeSchemeClosure((void*)r[0],&&__body263);
23246         if (IS_SOB_CLOSURE(r_res)) goto __app653;
23247         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23248 __app653:
23249         push((int)SOB_CLOSURE_ENV(r_res));
23250         push((int)&&__ret867);
23251         goto *(SOB_CLOSURE_CODE(r_res));
23252 __ret867:
23253         sp = sp-2-stack[sp-2];
23254         r[0] = (int)getSymbol("min",topLevel);
23255         ((SymbolEntry*)r[0])->isDefined = 1;
23256         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
23257         r_res = (int)&sc_void;
23258 __ret866:
23259         /* set return address */
23260         ST_RET() = (int)&&__ret869;
23261
23262         r_res = (int)&sc_false;
23263         push(r_res);
23264         push(1);
23265         r[0] = (int)extendEnviroment( (int**)NULL, 0);
23266         goto __skipBody265;
23267 __body265:
23268         push(fp);
23269         fp = sp;
23270         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23271
23272         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23273         r_res = ST_ARG(0);
23274         push(r_res);
23275         push(1);
23276         r_res = (int)probeSymbolDefined("box",topLevel);
23277         if (r_res==0) goto __else1012;
23278         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1012;
23279         r_res = (int)((SymbolEntry*)r_res)->sob;
23280         goto __endIf1012;
23281 __else1012:
23282         fprintf(stderr,"Symbol box not defined"); exit(-1);
23283 __endIf1012:
23284         if (IS_SOB_CLOSURE(r_res)) goto __app656;
23285         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23286 __app656:
23287         push((int)SOB_CLOSURE_ENV(r_res));
23288         push((int)&&__ret871);
23289         goto *(SOB_CLOSURE_CODE(r_res));
23290 __ret871:
23291         sp = sp-2-stack[sp-2];
23292         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23293         ST_ARG(0) = r_res;
23294         r_res = (int)&sc_void;
23295
23296         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
23297         goto __skipBody266;
23298 __body266:
23299         push(fp);
23300         fp = sp;
23301         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23302
23303         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
23304         r_res = ST_ARG(1);
23305         push(r_res);
23306         push(1);
23307         r_res = (int)probeSymbolDefined("zero?",topLevel);
23308         if (r_res==0) goto __else1014;
23309         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1014;
23310         r_res = (int)((SymbolEntry*)r_res)->sob;
23311         goto __endIf1014;
23312 __else1014:
23313         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
23314 __endIf1014:
23315         if (IS_SOB_CLOSURE(r_res)) goto __app658;
23316         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23317 __app658:
23318         push((int)SOB_CLOSURE_ENV(r_res));
23319         push((int)&&__ret873);
23320         goto *(SOB_CLOSURE_CODE(r_res));
23321 __ret873:
23322         sp = sp-2-stack[sp-2];
23323         if ((SchemeObject*)r_res==&sc_false) goto __else1013;
23324         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23325         r_res = ST_ARG(0);
23326         goto __endIf1013;
23327 __else1013:
23328
23329         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
23330         r_res = ST_ARG(1);
23331         push(r_res);
23332         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23333         r_res = ST_ARG(0);
23334         push(r_res);
23335         push(2);
23336         r_res = (int)probeSymbolDefined("remainder",topLevel);
23337         if (r_res==0) goto __else1015;
23338         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1015;
23339         r_res = (int)((SymbolEntry*)r_res)->sob;
23340         goto __endIf1015;
23341 __else1015:
23342         fprintf(stderr,"Symbol remainder not defined"); exit(-1);
23343 __endIf1015:
23344         if (IS_SOB_CLOSURE(r_res)) goto __app659;
23345         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23346 __app659:
23347         push((int)SOB_CLOSURE_ENV(r_res));
23348         push((int)&&__ret874);
23349         goto *(SOB_CLOSURE_CODE(r_res));
23350 __ret874:
23351         sp = sp-2-stack[sp-2];
23352         push(r_res);
23353         push(1);
23354         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
23355         goto __skipBody267;
23356 __body267:
23357         push(fp);
23358         fp = sp;
23359         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23360
23361         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23362         r_res = ST_ARG(0);
23363         push(r_res);
23364         push(1);
23365         r_res = (int)probeSymbolDefined("zero?",topLevel);
23366         if (r_res==0) goto __else1017;
23367         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1017;
23368         r_res = (int)((SymbolEntry*)r_res)->sob;
23369         goto __endIf1017;
23370 __else1017:
23371         fprintf(stderr,"Symbol zero\? not defined"); exit(-1);
23372 __endIf1017:
23373         if (IS_SOB_CLOSURE(r_res)) goto __app660;
23374         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23375 __app660:
23376         push((int)SOB_CLOSURE_ENV(r_res));
23377         push((int)&&__ret875);
23378         goto *(SOB_CLOSURE_CODE(r_res));
23379 __ret875:
23380         sp = sp-2-stack[sp-2];
23381         if ((SchemeObject*)r_res==&sc_false) goto __else1016;
23382         r_res = ((int**)ST_ENV())[0][1];
23383         goto __endIf1016;
23384 __else1016:
23385         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23386         r_res = ST_ARG(0);
23387         push(r_res);
23388         r_res = ((int**)ST_ENV())[0][1];
23389         push(r_res);
23390         push(2);
23391
23392         r_res = (int)&__sc_number142;
23393         push(r_res);
23394         r_res = ((int**)ST_ENV())[1][0];
23395         push(r_res);
23396         push(2);
23397         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
23398         if (r_res==0) goto __else1018;
23399         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1018;
23400         r_res = (int)((SymbolEntry*)r_res)->sob;
23401         goto __endIf1018;
23402 __else1018:
23403         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
23404 __endIf1018:
23405         if (IS_SOB_CLOSURE(r_res)) goto __app661;
23406         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23407 __app661:
23408         push((int)SOB_CLOSURE_ENV(r_res));
23409         push((int)&&__ret876);
23410         goto *(SOB_CLOSURE_CODE(r_res));
23411 __ret876:
23412         sp = sp-2-stack[sp-2];
23413         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23414         push((int)SOB_CLOSURE_ENV(r_res));
23415         push(ST_RET());
23416         shiftActFrmDown();
23417         goto *(SOB_CLOSURE_CODE(r_res));
23418         sp = sp-2-stack[sp-2];
23419 __endIf1016:
23420         fp = pop();
23421         RETURN();
23422 __skipBody267:
23423         r_res = (int)makeSchemeClosure((void*)r[0],&&__body267);
23424         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23425         push((int)SOB_CLOSURE_ENV(r_res));
23426         push(ST_RET());
23427         shiftActFrmDown();
23428         goto *(SOB_CLOSURE_CODE(r_res));
23429         sp = sp-2-stack[sp-2];
23430 __endIf1013:
23431         fp = pop();
23432         RETURN();
23433 __skipBody266:
23434         r_res = (int)makeSchemeClosure((void*)r[0],&&__body266);
23435         push(r_res);
23436         r_res = (int)&__sc_number143;
23437         push(r_res);
23438         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23439         r_res = ST_ARG(0);
23440         push(r_res);
23441         push(3);
23442         r_res = (int)probeSymbolDefined("vector-set!",topLevel);
23443         if (r_res==0) goto __else1019;
23444         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1019;
23445         r_res = (int)((SymbolEntry*)r_res)->sob;
23446         goto __endIf1019;
23447 __else1019:
23448         fprintf(stderr,"Symbol vector-set! not defined"); exit(-1);
23449 __endIf1019:
23450         if (IS_SOB_CLOSURE(r_res)) goto __app657;
23451         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23452 __app657:
23453         push((int)SOB_CLOSURE_ENV(r_res));
23454         push((int)&&__ret872);
23455         goto *(SOB_CLOSURE_CODE(r_res));
23456 __ret872:
23457         sp = sp-2-stack[sp-2];
23458         push(0);
23459         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 1);
23460         goto __skipBody268;
23461 __body268:
23462         push(fp);
23463         fp = sp;
23464         if (ST_ARG_COUNT()!=0) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",0)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23465         r[0] = (int)extendEnviroment( (int**)ST_ENV(), 2);
23466         goto __skipBody269;
23467 __body269:
23468         push(fp);
23469         fp = sp;
23470         prepareStackForAbsOpt(2);
23471         if (ST_ARG_COUNT()!=2) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",2)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23472
23473         ASSERT_ALWAYS((1>=0) & (1<ST_ARG_COUNT()),"");
23474         r_res = ST_ARG(1);
23475         push(r_res);
23476         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23477         r_res = ST_ARG(0);
23478         push(r_res);
23479
23480         r_res = (int)&__sc_number144;
23481         push(r_res);
23482         r_res = ((int**)ST_ENV())[1][0];
23483         push(r_res);
23484         push(2);
23485         r_res = (int)probeSymbolDefined("vector-ref",topLevel);
23486         if (r_res==0) goto __else1020;
23487         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1020;
23488         r_res = (int)((SymbolEntry*)r_res)->sob;
23489         goto __endIf1020;
23490 __else1020:
23491         fprintf(stderr,"Symbol vector-ref not defined"); exit(-1);
23492 __endIf1020:
23493         if (IS_SOB_CLOSURE(r_res)) goto __app662;
23494         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23495 __app662:
23496         push((int)SOB_CLOSURE_ENV(r_res));
23497         push((int)&&__ret877);
23498         goto *(SOB_CLOSURE_CODE(r_res));
23499 __ret877:
23500         sp = sp-2-stack[sp-2];
23501         push(r_res);
23502         push(3);
23503         r_res = (int)probeSymbolDefined("foldr",topLevel);
23504         if (r_res==0) goto __else1021;
23505         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1021;
23506         r_res = (int)((SymbolEntry*)r_res)->sob;
23507         goto __endIf1021;
23508 __else1021:
23509         fprintf(stderr,"Symbol foldr not defined"); exit(-1);
23510 __endIf1021:
23511         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23512         push((int)SOB_CLOSURE_ENV(r_res));
23513         push(ST_RET());
23514         shiftActFrmDown();
23515         goto *(SOB_CLOSURE_CODE(r_res));
23516         sp = sp-2-stack[sp-2];
23517         fp = pop();
23518         RETURN();
23519 __skipBody269:
23520         r_res = (int)makeSchemeClosure((void*)r[0],&&__body269);
23521         fp = pop();
23522         RETURN();
23523 __skipBody268:
23524         r_res = (int)makeSchemeClosure((void*)r[0],&&__body268);
23525         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23526         push((int)SOB_CLOSURE_ENV(r_res));
23527         push(ST_RET());
23528         shiftActFrmDown();
23529         goto *(SOB_CLOSURE_CODE(r_res));
23530         sp = sp-2-stack[sp-2];
23531         fp = pop();
23532         RETURN();
23533 __skipBody265:
23534         r_res = (int)makeSchemeClosure((void*)r[0],&&__body265);
23535         if (IS_SOB_CLOSURE(r_res)) goto __app655;
23536         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23537 __app655:
23538         push((int)SOB_CLOSURE_ENV(r_res));
23539         push((int)&&__ret870);
23540         goto *(SOB_CLOSURE_CODE(r_res));
23541 __ret870:
23542         sp = sp-2-stack[sp-2];
23543         r[0] = (int)getSymbol("gcd",topLevel);
23544         ((SymbolEntry*)r[0])->isDefined = 1;
23545         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
23546         r_res = (int)&sc_void;
23547 __ret869:
23548         /* set return address */
23549         ST_RET() = (int)&&__ret878;
23550
23551         r[0] = (int)extendEnviroment( (int**)NULL, 0);
23552         goto __skipBody270;
23553 __body270:
23554         push(fp);
23555         fp = sp;
23556         prepareStackForAbsOpt(1);
23557         if (ST_ARG_COUNT()!=1) {fprintf(stderr,MSG_ERR_ARGCOUNT("user-procedure",1)); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23558
23559
23560         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23561         r_res = ST_ARG(0);
23562         push(r_res);
23563         r_res = (int)probeSymbolDefined("gcd",topLevel);
23564         if (r_res==0) goto __else1022;
23565         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1022;
23566         r_res = (int)((SymbolEntry*)r_res)->sob;
23567         goto __endIf1022;
23568 __else1022:
23569         fprintf(stderr,"Symbol gcd not defined"); exit(-1);
23570 __endIf1022:
23571         push(r_res);
23572         push(2);
23573         r_res = (int)probeSymbolDefined("apply",topLevel);
23574         if (r_res==0) goto __else1023;
23575         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1023;
23576         r_res = (int)((SymbolEntry*)r_res)->sob;
23577         goto __endIf1023;
23578 __else1023:
23579         fprintf(stderr,"Symbol apply not defined"); exit(-1);
23580 __endIf1023:
23581         if (IS_SOB_CLOSURE(r_res)) goto __app663;
23582         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23583 __app663:
23584         push((int)SOB_CLOSURE_ENV(r_res));
23585         push((int)&&__ret879);
23586         goto *(SOB_CLOSURE_CODE(r_res));
23587 __ret879:
23588         sp = sp-2-stack[sp-2];
23589         push(r_res);
23590
23591         ASSERT_ALWAYS((0>=0) & (0<ST_ARG_COUNT()),"");
23592         r_res = ST_ARG(0);
23593         push(r_res);
23594         r_res = (int)probeSymbolDefined("*",topLevel);
23595         if (r_res==0) goto __else1024;
23596         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1024;
23597         r_res = (int)((SymbolEntry*)r_res)->sob;
23598         goto __endIf1024;
23599 __else1024:
23600         fprintf(stderr,"Symbol * not defined"); exit(-1);
23601 __endIf1024:
23602         push(r_res);
23603         push(2);
23604         r_res = (int)probeSymbolDefined("apply",topLevel);
23605         if (r_res==0) goto __else1025;
23606         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1025;
23607         r_res = (int)((SymbolEntry*)r_res)->sob;
23608         goto __endIf1025;
23609 __else1025:
23610         fprintf(stderr,"Symbol apply not defined"); exit(-1);
23611 __endIf1025:
23612         if (IS_SOB_CLOSURE(r_res)) goto __app664;
23613         fprintf(stderr,MSG_ERR_APPNONPROC); exit(-1);
23614 __app664:
23615         push((int)SOB_CLOSURE_ENV(r_res));
23616         push((int)&&__ret880);
23617         goto *(SOB_CLOSURE_CODE(r_res));
23618 __ret880:
23619         sp = sp-2-stack[sp-2];
23620         push(r_res);
23621         push(2);
23622         r_res = (int)probeSymbolDefined("/",topLevel);
23623         if (r_res==0) goto __else1026;
23624         if (! ((SymbolEntry*)r_res)->isDefined) goto __else1026;
23625         r_res = (int)((SymbolEntry*)r_res)->sob;
23626         goto __endIf1026;
23627 __else1026:
23628         fprintf(stderr,"Symbol / not defined"); exit(-1);
23629 __endIf1026:
23630         if (! IS_SOB_CLOSURE(r_res)) {fprintf(stderr,MSG_ERR_APPNONPROC); fprintf(stderr,"%s %d\n",__FILE__,__LINE__); exit(-1);}
23631         push((int)SOB_CLOSURE_ENV(r_res));
23632         push(ST_RET());
23633         shiftActFrmDown();
23634         goto *(SOB_CLOSURE_CODE(r_res));
23635         sp = sp-2-stack[sp-2];
23636         fp = pop();
23637         RETURN();
23638 __skipBody270:
23639         r_res = (int)makeSchemeClosure((void*)r[0],&&__body270);
23640         r[0] = (int)getSymbol("lcm",topLevel);
23641         ((SymbolEntry*)r[0])->isDefined = 1;
23642         ((SymbolEntry*)r[0])->sob = (SchemeObject*)r_res;
23643         r_res = (int)&sc_void;
23644 __ret878:
23645         ;
23646 /* End of Support-Code: Code Segment */