#include #include #include #include "pxll.h" static int lookup_field (int tag, int label); static inline pxll_int get_typecode (object * ob) { if (IMMEDIATE(ob)) { if (IS_INTEGER(ob)) { return TC_INT; } else { return (pxll_int)ob & 0xff; } } else { return (pxll_int)*((pxll_int *)ob) & 0xff; } } // for pvcase/nvcase static inline pxll_int get_case (object * ob) { if (is_immediate (ob)) { if (is_int (ob)) { return TC_INT; } else { return (pxll_int) ob; } } else { return (pxll_int)*((pxll_int *)ob) & 0xff; } } // for pvcase/nvcase static inline pxll_int get_case_noint (object * ob) { if (is_immediate (ob)) { return (pxll_int) ob; } else { return (pxll_int) * ((pxll_int*) ob) & 0xff; } } // for pvcase/nvcase static inline pxll_int get_case_imm (object * ob) { return (pxll_int)ob; } static inline pxll_int get_case_tup (object * ob) { return (pxll_int)*((pxll_int *)ob) & 0xff; } static inline pxll_int get_imm_payload (object * ob) { return ((pxll_int) ob) >> 8; } static pxll_int get_tuple_size (object * ob) { header * h = (header *) ob; return (*h)>>8; } static void indent (int n) { while (n--) { fprintf (stdout, " "); } } void print_string (object * ob, int quoted); void print_list (pxll_pair * l); // this is kinda lame, it's part pretty-printer, part not. static object * dump_object (object * ob, int depth) { // indent (depth); if (depth > 100) { fprintf (stdout , "..."); return (object *) PXLL_UNDEFINED; } if (!ob) { fprintf (stdout, ""); } else if (is_int (ob)) { // integer fprintf (stdout, "%zd", unbox (ob)); } else { int tc = is_immediate (ob); switch (tc) { case TC_CHAR: if ((pxll_int)ob>>8 == 257) { // deliberately out-of-range character fprintf (stdout, "#\\eof"); } else { char ch = ((char)((pxll_int)ob>>8)); switch (ch) { case '\000': fprintf (stdout, "#\\nul"); break; case ' ' : fprintf (stdout, "#\\space"); break; case '\n' : fprintf (stdout, "#\\newline"); break; case '\r' : fprintf (stdout, "#\\return"); break; case '\t' : fprintf (stdout, "#\\tab"); break; default : fprintf (stdout, "#\\%c", ch); } } break; case TC_BOOL: fprintf (stdout, ((pxll_int)ob >> 8) & 0xff ? "#t" : "#f"); break; case TC_NIL: fprintf (stdout, "()"); break; case TC_UNDEFINED: fprintf (stdout, "#u"); break; case TC_EMPTY_VECTOR: fprintf (stdout, "#()"); break; case 0: { // structure header h = (header) (ob[0]); int tc = h & 0xff; switch (tc) { case TC_SAVE: { // XXX fix me - now holds saved registers pxll_save * s = (pxll_save* ) ob; fprintf (stdout, "pc); dump_object ((object *) s->lenv, depth+1); fprintf (stdout, "\n"); dump_object ((object *) s->next, depth+1); fprintf (stdout, ">"); } break; case TC_CLOSURE: { pxll_closure * c = (pxll_closure *) ob; //fprintf (stdout, "pc); //dump_object ((object *) c->lenv, depth+1); fprintf (stdout, ">\n"); fprintf (stdout, "", c->pc, c->lenv); } break; case TC_TUPLE: { pxll_tuple * t = (pxll_tuple *) ob; pxll_int n = get_tuple_size (ob); int i; fprintf (stdout, "val[i], depth + 1); fprintf (stdout, "\n"); } dump_object ((object *) t->next, depth + 1); fprintf (stdout, ">"); } break; case TC_VECTOR: { pxll_vector * t = (pxll_vector *) ob; pxll_int n = get_tuple_size (ob); int i; fprintf (stdout, "#("); for (i=0; i < n; i++) { dump_object ((object *) t->val[i], depth+1); if (i < n-1) { fprintf (stdout, " "); } } fprintf (stdout, ")"); } break; case TC_VEC16: { pxll_vec16 * t = (pxll_vec16 *) ob; pxll_int n = t->len; int i; fprintf (stdout, "#16("); for (i=0; i < n; i++) { fprintf (stdout, "%d", t->data[i]); if (i < n-1) { fprintf (stdout, " "); } } fprintf (stdout, ")"); } break; case TC_PAIR: print_list ((pxll_pair *) ob); break; case TC_STRING: print_string (ob, 1); break; case TC_BUFFER: { pxll_int n = get_tuple_size (ob); fprintf (stdout, "", n, n * (sizeof(pxll_int))); break; } case TC_SYMBOL: print_string (ob[1], 0); break; default: { pxll_vector * t = (pxll_vector *) ob; pxll_int n = get_tuple_size (ob); int i; fprintf (stdout, "{u%d ", (tc - TC_USEROBJ)>>2); for (i=0; i < n; i++) { dump_object ((object *) t->val[i], depth+1); if (i < n-1) { fprintf (stdout, " "); } } fprintf (stdout, "}"); } } } break; case TC_USERIMM: // a user immediate unit-type... fprintf (stdout, "", (((pxll_int)ob)>>8)); } } return (object *) PXLL_UNDEFINED; } // for gdb... void DO (object * x) { dump_object (x, 0); fprintf (stdout, "\n"); fflush (stdout); } // for debugging void stack_depth_indent (object * k) { while (k != PXLL_NIL) { k = k[1]; fprintf (stderr, " "); } } void print_string (object * ob, int quoted) { pxll_string * s = (pxll_string *) ob; char * ps = s->data; int i; //fprintf (stderr, "\n", s->len, get_tuple_size (ob)); if (quoted) { fputc ('"', stdout); } for (i=0; i < (s->len); i++, ps++) { if (*ps == '"') { fputc ('\\', stdout); fputc ('"', stdout); } else { if (isprint(*ps)) { fputc (*ps, stdout); } else { fprintf (stdout, "\\0x%02x", *ps); } } if (i > 50) { fprintf (stdout, "..."); break; } } if (quoted) { fputc ('"', stdout); } } void print_list (pxll_pair * l) { fprintf (stdout, "("); while (1) { object * car = l->car; object * cdr = l->cdr; dump_object (car, 0); if (cdr == PXLL_NIL) { fprintf (stdout, ")"); break; } else if (!is_immediate (cdr) && GET_TYPECODE (*cdr) == TC_PAIR) { fprintf (stdout, " "); l = (pxll_pair *) cdr; } else { fprintf (stdout, " . "); dump_object (cdr, 0); fprintf (stdout, ")"); break; } } } int read_header (FILE * file) { int depth = 0; // tiny lisp 'skipper' (as opposed to 'reader') do { char ch = fgetc (file); switch (ch) { case '(': depth++; break; case ')': depth--; break; case '"': while (fgetc (file) != '"') { // empty body } break; default: break; } } while (depth); // read terminating newline fgetc (file); return 0; } #ifndef NO_RANGE_CHECK // used to check array references. some day we might try to teach // the compiler when/how to skip doing this... static void inline range_check (unsigned int length, unsigned int index) { if (index >= length) { fprintf (stderr, "array/string reference out of range: %d[%d]\n", length, index); abort(); } } #else static void inline range_check (unsigned int length, unsigned int index) { } #endif pxll_int verbose_gc = 1; pxll_int clear_fromspace = 0; pxll_int clear_tospace = 0; pxll_int vm (int argc, char * argv[]); #include "rdtsc.h" unsigned long long gc_ticks = 0; static void clear_space (object * p, pxll_int n) { while (n--) { *p++ = PXLL_NIL; } } static object * lenv = PXLL_NIL; static object * k = PXLL_NIL; static object * top = PXLL_NIL; // top-level (i.e. 'global') environment static object * t = 0; // temp - for swaps & building tuples static object * result; static object * limit; // = heap0 + (heap_size - head_room); static object * freep; // = heap0; int main (int argc, char * argv[]) { heap0 = malloc (sizeof (object) * heap_size); heap1 = malloc (sizeof (object) * heap_size); if (!heap0 || !heap1) { fprintf (stderr, "unable to allocate heap\n"); return -1; } else { unsigned long long t0, t1; pxll_int result; if (clear_tospace) { clear_space (heap0, heap_size); } t0 = rdtsc(); result = vm (argc, argv); t1 = rdtsc(); dump_object ((object *) result, 0); fprintf (stdout, "\n"); fprintf (stderr, "{total ticks: %lld gc ticks: %lld}\n", t1 - t0, gc_ticks); return (int) result; } } // REGISTER_DECLARATIONS // pxll_string constructed_0 = {STRING_HEADER(8), 8, "system: " }; pxll_string constructed_1 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_2 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_3 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_4 = {STRING_HEADER(6), 6, ".c -o " }; pxll_string constructed_5 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_6 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_7 = {STRING_HEADER(2), 2, "-O" }; pxll_string constructed_8 = {STRING_HEADER(0), 0, "" }; pxll_string constructed_9 = {STRING_HEADER(6), 6, "CFLAGS" }; pxll_string constructed_10 = {STRING_HEADER(2), 2, "CC" }; pxll_string constructed_11 = {STRING_HEADER(13), 13, "compiling...\n" }; pxll_string constructed_12 = {STRING_HEADER(6), 6, "done.\n" }; pxll_string constructed_13 = {STRING_HEADER(17), 17, " {0, 0, NULL}};" }; pxll_string constructed_14 = {STRING_HEADER(11), 11, " {0, 0, \"" }; pxll_string constructed_15 = {STRING_HEADER(3), 3, "\"}," }; pxll_string constructed_16 = {STRING_HEADER(1), 1, "." }; pxll_int constructed_17[] = {TC_NIL}; pxll_string constructed_18 = {STRING_HEADER(49), 49, "static pxll_prof prof_funs[] = \n {{0, 0, \"top\"}," }; pxll_string constructed_19 = {STRING_HEADER(13), 13, "} return 0; }" }; pxll_string constructed_20 = {STRING_HEADER(10), 10, " } break;" }; pxll_string constructed_21 = {STRING_HEADER(10), 10, " case " }; pxll_string constructed_22 = {STRING_HEADER(9), 9, ": return " }; pxll_string constructed_23 = {STRING_HEADER(8), 8, "; break;" }; pxll_string constructed_24 = {STRING_HEADER(18), 18, " switch (label) {" }; pxll_string constructed_25 = {STRING_HEADER(7), 7, " case " }; pxll_string constructed_26 = {STRING_HEADER(1), 1, ":" }; pxll_string constructed_27 = {STRING_HEADER(16), 16, "{ switch (tag) {" }; pxll_string constructed_28 = {STRING_HEADER(44), 44, "static int lookup_field (int tag, int label)" }; pxll_string constructed_29 = {STRING_HEADER(1), 1, "}" }; pxll_string constructed_30 = {STRING_HEADER(25), 25, "return (pxll_int) result;" }; pxll_string constructed_31 = {STRING_HEADER(12), 12, "prof_dump();" }; pxll_string constructed_32 = {STRING_HEADER(8), 8, "Lreturn:" }; pxll_string constructed_33 = {STRING_HEADER(21), 21, "prof_mark0 = rdtsc();" }; pxll_string constructed_34 = {STRING_HEADER(21), 21, "prof_current_fun = 0;" }; pxll_string constructed_35 = {STRING_HEADER(20), 20, "(pxll_int)PXLL_FALSE" }; pxll_string constructed_36 = {STRING_HEADER(5), 5, "false" }; // symbol false pxll_int constructed_37[] = {UPTR(37,1), SYMBOL_HEADER, UPTR0(36), INTCON(0)}; pxll_string constructed_38 = {STRING_HEADER(19), 19, "(pxll_int)PXLL_TRUE" }; pxll_string constructed_39 = {STRING_HEADER(4), 4, "true" }; // symbol true pxll_int constructed_40[] = {UPTR(40,1), SYMBOL_HEADER, UPTR0(39), INTCON(1)}; pxll_string constructed_41 = {STRING_HEADER(4), 4, "bool" }; // symbol bool pxll_int constructed_42[] = {UPTR(42,1), SYMBOL_HEADER, UPTR0(41), INTCON(2)}; pxll_string constructed_43 = {STRING_HEADER(6), 6, "TC_NIL" }; pxll_string constructed_44 = {STRING_HEADER(3), 3, "nil" }; // symbol nil pxll_int constructed_45[] = {UPTR(45,1), SYMBOL_HEADER, UPTR0(44), INTCON(3)}; pxll_string constructed_46 = {STRING_HEADER(4), 4, "list" }; // symbol list pxll_int constructed_47[] = {UPTR(47,1), SYMBOL_HEADER, UPTR0(46), INTCON(4)}; pxll_string constructed_48 = {STRING_HEADER(6), 6, "UITAG(" }; pxll_string constructed_49 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_50 = {STRING_HEADER(9), 9, "TC_SYMBOL" }; pxll_string constructed_51 = {STRING_HEADER(1), 1, "t" }; // symbol t pxll_int constructed_52[] = {UPTR(52,1), SYMBOL_HEADER, UPTR0(51), INTCON(5)}; pxll_string constructed_53 = {STRING_HEADER(6), 6, "symbol" }; // symbol symbol pxll_int constructed_54[] = {UPTR(54,1), SYMBOL_HEADER, UPTR0(53), INTCON(6)}; pxll_string constructed_55 = {STRING_HEADER(7), 7, "TC_PAIR" }; pxll_string constructed_56 = {STRING_HEADER(4), 4, "cons" }; // symbol cons pxll_int constructed_57[] = {UPTR(57,1), SYMBOL_HEADER, UPTR0(56), INTCON(7)}; pxll_string constructed_58 = {STRING_HEADER(6), 6, "UOTAG(" }; pxll_string constructed_59 = {STRING_HEADER(1), 1, ")" }; pxll_int constructed_60[] = {TC_NIL}; pxll_string constructed_61 = {STRING_HEADER(3), 3, "..." }; // symbol ... pxll_int constructed_62[] = {UPTR(62,1), SYMBOL_HEADER, UPTR0(61), INTCON(8)}; pxll_string constructed_63 = {STRING_HEADER(79), 79, "Why, sometimes I've believed as many as six impossible things before breakfast." }; pxll_string constructed_64 = {STRING_HEADER(29), 29, "\n***\nRuntime Error, halting: " }; pxll_string constructed_65 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_66 = {STRING_HEADER(4), 4, " = r" }; pxll_string constructed_67 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_68 = {STRING_HEADER(12), 12, "PXLL_RETURN(" }; pxll_string constructed_69 = {STRING_HEADER(2), 2, ");" }; pxll_string constructed_70 = {STRING_HEADER(14), 14, " = (object *) " }; pxll_string constructed_71 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_72 = {STRING_HEADER(8), 8, "// dead " }; pxll_string constructed_73 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_74 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_75 = {STRING_HEADER(26), 26, " = (object*) &constructed_" }; pxll_string constructed_76 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_77 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_78 = {STRING_HEADER(26), 26, " = (object *) constructed_" }; pxll_string constructed_79 = {STRING_HEADER(4), 4, "[0];" }; pxll_string constructed_80 = {STRING_HEADER(6), 6, "string" }; // symbol string pxll_int constructed_81[] = {UPTR(81,1), SYMBOL_HEADER, UPTR0(80), INTCON(9)}; pxll_string constructed_82 = {STRING_HEADER(1), 1, "}" }; pxll_string constructed_83 = {STRING_HEADER(8), 8, "} else {" }; pxll_string constructed_84 = {STRING_HEADER(17), 17, "if PXLL_IS_TRUE(r" }; pxll_string constructed_85 = {STRING_HEADER(3), 3, ") {" }; pxll_string constructed_86 = {STRING_HEADER(1), 1, "}" }; pxll_string constructed_87 = {STRING_HEADER(8), 8, "} else {" }; pxll_string constructed_88 = {STRING_HEADER(16), 16, "if PXLL_IS_TRUE(" }; pxll_string constructed_89 = {STRING_HEADER(3), 3, ") {" }; pxll_string constructed_90 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_91 = {STRING_HEADER(5), 5, "arrow" }; // symbol arrow pxll_int constructed_92[] = {UPTR(92,1), SYMBOL_HEADER, UPTR0(91), INTCON(10)}; pxll_string constructed_93 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_94 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_95 = {STRING_HEADER(3), 3, " = " }; pxll_string constructed_96 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_97 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_98 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_99 = {STRING_HEADER(8), 8, "[1] = &&" }; pxll_string constructed_100 = {STRING_HEADER(3), 3, "; r" }; pxll_string constructed_101 = {STRING_HEADER(11), 11, "[2] = lenv;" }; pxll_string constructed_102 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_103 = {STRING_HEADER(28), 28, " = allocate (TC_CLOSURE, 2);" }; pxll_string constructed_104 = {STRING_HEADER(1), 1, ":" }; pxll_string constructed_105 = {STRING_HEADER(3), 3, "pop" }; pxll_string constructed_106 = {STRING_HEADER(21), 21, "prof_mark0 = rdtsc();" }; pxll_string constructed_107 = {STRING_HEADER(15), 15, "check_heap (0);" }; pxll_string constructed_108 = {STRING_HEADER(36), 36, "prof_funs[prof_current_fun].calls++;" }; pxll_string constructed_109 = {STRING_HEADER(19), 19, "prof_current_fun = " }; pxll_string constructed_110 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_111 = {STRING_HEADER(63), 63, "prof_funs[prof_current_fun].ticks += (prof_mark1 - prof_mark0);" }; pxll_string constructed_112 = {STRING_HEADER(21), 21, "prof_mark1 = rdtsc();" }; pxll_string constructed_113 = {STRING_HEADER(49), 49, "stack_depth_indent(k); fprintf (stderr, \">> [%d] " }; pxll_string constructed_114 = {STRING_HEADER(15), 15, "\\n\", __LINE__);" }; pxll_string constructed_115 = {STRING_HEADER(1), 1, ":" }; pxll_string constructed_116 = {STRING_HEADER(5), 5, "goto " }; pxll_string constructed_117 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_118 = {STRING_HEADER(7), 7, "// def " }; pxll_string constructed_119 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_120 = {STRING_HEADER(3), 3, " = " }; pxll_string constructed_121 = {STRING_HEADER(4), 4, "top[" }; pxll_string constructed_122 = {STRING_HEADER(2), 2, "];" }; pxll_string constructed_123 = {STRING_HEADER(9), 9, "((object*" }; pxll_string constructed_124 = {STRING_HEADER(8), 8, ") lenv) " }; pxll_string constructed_125 = {STRING_HEADER(1), 1, "[" }; pxll_string constructed_126 = {STRING_HEADER(2), 2, "];" }; pxll_string constructed_127 = {STRING_HEADER(3), 3, "[1]" }; pxll_string constructed_128 = {STRING_HEADER(1), 1, "*" }; pxll_string constructed_129 = {STRING_HEADER(4), 4, "top[" }; pxll_string constructed_130 = {STRING_HEADER(5), 5, "] = r" }; pxll_string constructed_131 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_132 = {STRING_HEADER(9), 9, "((object*" }; pxll_string constructed_133 = {STRING_HEADER(8), 8, ") lenv) " }; pxll_string constructed_134 = {STRING_HEADER(1), 1, "[" }; pxll_string constructed_135 = {STRING_HEADER(5), 5, "] = r" }; pxll_string constructed_136 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_137 = {STRING_HEADER(3), 3, "[1]" }; pxll_string constructed_138 = {STRING_HEADER(1), 1, "*" }; pxll_string constructed_139 = {STRING_HEADER(7), 7, "top = r" }; pxll_string constructed_140 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_141 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_142 = {STRING_HEADER(23), 23, " = allocate (TC_TUPLE, " }; pxll_string constructed_143 = {STRING_HEADER(2), 2, ");" }; pxll_string constructed_144 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_145 = {STRING_HEADER(12), 12, " = (object*)" }; pxll_string constructed_146 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_147 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_148 = {STRING_HEADER(13), 13, " = allocate (" }; pxll_string constructed_149 = {STRING_HEADER(2), 2, ", " }; pxll_string constructed_150 = {STRING_HEADER(2), 2, ");" }; pxll_string constructed_151 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_152 = {STRING_HEADER(6), 6, "UITAG(" }; pxll_string constructed_153 = {STRING_HEADER(6), 6, "UOTAG(" }; pxll_string constructed_154 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_155 = {STRING_HEADER(1), 1, "[" }; pxll_string constructed_156 = {STRING_HEADER(5), 5, "] = r" }; pxll_string constructed_157 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_158 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_159 = {STRING_HEADER(10), 10, " = result;" }; pxll_string constructed_160 = {STRING_HEADER(24), 24, "; lenv = k[2]; k = k[1];" }; pxll_string constructed_161 = {STRING_HEADER(2), 2, "; " }; pxll_string constructed_162 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_163 = {STRING_HEADER(5), 5, " = k[" }; pxll_string constructed_164 = {STRING_HEADER(1), 1, "]" }; pxll_string constructed_165 = {STRING_HEADER(19), 19, "prof_current_fun = " }; pxll_string constructed_166 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_167 = {STRING_HEADER(24), 24, "prof_mark1 = prof_mark0;" }; pxll_string constructed_168 = {STRING_HEADER(63), 63, "prof_funs[prof_current_fun].ticks += (prof_mark1 - prof_mark0);" }; pxll_string constructed_169 = {STRING_HEADER(21), 21, "prof_mark1 = rdtsc();" }; pxll_string constructed_170 = {STRING_HEADER(1), 1, ":" }; pxll_string constructed_171 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_172 = {STRING_HEADER(7), 7, "[1] = r" }; pxll_string constructed_173 = {STRING_HEADER(13), 13, "[2]; lenv = r" }; pxll_string constructed_174 = {STRING_HEADER(2), 2, "; " }; pxll_string constructed_175 = {STRING_HEADER(8), 8, "lenv = r" }; pxll_string constructed_176 = {STRING_HEADER(5), 5, "[2]; " }; pxll_string constructed_177 = {STRING_HEADER(7), 7, "goto *r" }; pxll_string constructed_178 = {STRING_HEADER(4), 4, "[1];" }; pxll_string constructed_179 = {STRING_HEADER(5), 5, "goto " }; pxll_string constructed_180 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_181 = {STRING_HEADER(32), 32, "t[1] = k; t[2] = lenv; t[3] = &&" }; pxll_string constructed_182 = {STRING_HEADER(2), 2, "; " }; pxll_string constructed_183 = {STRING_HEADER(8), 8, "; k = t;" }; pxll_string constructed_184 = {STRING_HEADER(2), 2, "; " }; pxll_string constructed_185 = {STRING_HEADER(2), 2, "t[" }; pxll_string constructed_186 = {STRING_HEADER(5), 5, "] = r" }; pxll_string constructed_187 = {STRING_HEADER(23), 23, "t = allocate (TC_SAVE, " }; pxll_string constructed_188 = {STRING_HEADER(2), 2, ");" }; pxll_string constructed_189 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_190 = {STRING_HEADER(7), 7, "[1] = r" }; pxll_string constructed_191 = {STRING_HEADER(13), 13, "[2]; lenv = r" }; pxll_string constructed_192 = {STRING_HEADER(2), 2, "; " }; pxll_string constructed_193 = {STRING_HEADER(8), 8, "lenv = r" }; pxll_string constructed_194 = {STRING_HEADER(5), 5, "[2]; " }; pxll_string constructed_195 = {STRING_HEADER(7), 7, "goto *r" }; pxll_string constructed_196 = {STRING_HEADER(4), 4, "[1];" }; pxll_string constructed_197 = {STRING_HEADER(5), 5, "goto " }; pxll_string constructed_198 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_199 = {STRING_HEADER(5), 5, "goto " }; pxll_string constructed_200 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_201 = {STRING_HEADER(5), 5, "lenv[" }; pxll_string constructed_202 = {STRING_HEADER(5), 5, "] = r" }; pxll_string constructed_203 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_204 = {STRING_HEADER(16), 16, "lenv = ((object " }; pxll_string constructed_205 = {STRING_HEADER(6), 6, ")lenv)" }; pxll_string constructed_206 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_207 = {STRING_HEADER(3), 3, "[1]" }; pxll_string constructed_208 = {STRING_HEADER(1), 1, "*" }; pxll_string constructed_209 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_210 = {STRING_HEADER(20), 20, "[1] = lenv; lenv = r" }; pxll_string constructed_211 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_212 = {STRING_HEADER(15), 15, "lenv = lenv[1];" }; pxll_string constructed_213 = {STRING_HEADER(5), 5, "k = r" }; pxll_string constructed_214 = {STRING_HEADER(11), 11, "; // %putcc" }; pxll_string constructed_215 = {STRING_HEADER(6), 6, "primop" }; pxll_string constructed_216 = {STRING_HEADER(6), 6, "%putcc" }; // symbol %putcc pxll_int constructed_217[] = {UPTR(217,1), SYMBOL_HEADER, UPTR0(216), INTCON(11)}; pxll_string constructed_218 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_219 = {STRING_HEADER(15), 15, " = k; // %getcc" }; pxll_string constructed_220 = {STRING_HEADER(6), 6, "%getcc" }; // symbol %getcc pxll_int constructed_221[] = {UPTR(221,1), SYMBOL_HEADER, UPTR0(220), INTCON(12)}; pxll_string constructed_222 = {STRING_HEADER(3), 3, " = " }; pxll_string constructed_223 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_224 = {STRING_HEADER(3), 3, "(((" }; pxll_string constructed_225 = {STRING_HEADER(15), 15, "*)((pxll_int*)r" }; pxll_string constructed_226 = {STRING_HEADER(5), 5, ")+1)[" }; pxll_string constructed_227 = {STRING_HEADER(2), 2, "])" }; pxll_string constructed_228 = {STRING_HEADER(2), 2, "((" }; pxll_string constructed_229 = {STRING_HEADER(7), 7, ")unbox(" }; pxll_string constructed_230 = {STRING_HEADER(2), 2, "))" }; pxll_string constructed_231 = {STRING_HEADER(37), 37, "lookup-cast: can't cast from int to: " }; pxll_string constructed_232 = {STRING_HEADER(3), 3, "int" }; // symbol int pxll_int constructed_233[] = {UPTR(233,1), SYMBOL_HEADER, UPTR0(232), INTCON(13)}; pxll_string constructed_234 = {STRING_HEADER(43), 43, "lookup-cast: unable to cast between types: " }; pxll_string constructed_235 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_236 = {STRING_HEADER(5), 5, "%cset" }; // symbol %cset pxll_int constructed_237[] = {UPTR(237,1), SYMBOL_HEADER, UPTR0(236), INTCON(14)}; pxll_string constructed_238 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_239 = {STRING_HEADER(3), 3, " = " }; pxll_string constructed_240 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_241 = {STRING_HEADER(3), 3, "(((" }; pxll_string constructed_242 = {STRING_HEADER(15), 15, "*)((pxll_int*)r" }; pxll_string constructed_243 = {STRING_HEADER(5), 5, ")+1)[" }; pxll_string constructed_244 = {STRING_HEADER(2), 2, "])" }; pxll_string constructed_245 = {STRING_HEADER(5), 5, "%cget" }; // symbol %cget pxll_int constructed_246[] = {UPTR(246,1), SYMBOL_HEADER, UPTR0(245), INTCON(15)}; pxll_string constructed_247 = {STRING_HEADER(8), 8, "result=r" }; pxll_string constructed_248 = {STRING_HEADER(15), 15, "; goto Lreturn;" }; pxll_string constructed_249 = {STRING_HEADER(5), 5, "%exit" }; // symbol %exit pxll_int constructed_250[] = {UPTR(250,1), SYMBOL_HEADER, UPTR0(249), INTCON(16)}; pxll_string constructed_251 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_252 = {STRING_HEADER(48), 48, " = alloc_no_clear (TC_BUFFER, HOW_MANY (sizeof (" }; pxll_string constructed_253 = {STRING_HEADER(11), 11, ") * unbox(r" }; pxll_string constructed_254 = {STRING_HEADER(21), 21, "), sizeof (object)));" }; pxll_string constructed_255 = {STRING_HEADER(24), 24, "%callocate: dead target?" }; pxll_string constructed_256 = {STRING_HEADER(10), 10, "%callocate" }; // symbol %callocate pxll_int constructed_257[] = {UPTR(257,1), SYMBOL_HEADER, UPTR0(256), INTCON(17)}; pxll_string constructed_258 = {STRING_HEADER(13), 13, "ensure_heap (" }; pxll_string constructed_259 = {STRING_HEADER(9), 9, ", unbox(r" }; pxll_string constructed_260 = {STRING_HEADER(3), 3, "));" }; pxll_string constructed_261 = {STRING_HEADER(12), 12, "%ensure-heap" }; // symbol %ensure-heap pxll_int constructed_262[] = {UPTR(262,1), SYMBOL_HEADER, UPTR0(261), INTCON(18)}; pxll_string constructed_263 = {STRING_HEADER(16), 16, "((pxll_vector*)r" }; pxll_string constructed_264 = {STRING_HEADER(7), 7, ")->val[" }; pxll_string constructed_265 = {STRING_HEADER(5), 5, "] = r" }; pxll_string constructed_266 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_267 = {STRING_HEADER(16), 16, "((pxll_vector*)r" }; pxll_string constructed_268 = {STRING_HEADER(36), 36, ")->val[lookup_field((GET_TYPECODE(*r" }; pxll_string constructed_269 = {STRING_HEADER(17), 17, ")-TC_USEROBJ)>>2," }; pxll_string constructed_270 = {STRING_HEADER(6), 6, ")] = r" }; pxll_string constructed_271 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_272 = {STRING_HEADER(11), 11, "%record-set" }; // symbol %record-set pxll_int constructed_273[] = {UPTR(273,1), SYMBOL_HEADER, UPTR0(272), INTCON(19)}; pxll_string constructed_274 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_275 = {STRING_HEADER(19), 19, " = ((pxll_vector*)r" }; pxll_string constructed_276 = {STRING_HEADER(7), 7, ")->val[" }; pxll_string constructed_277 = {STRING_HEADER(2), 2, "];" }; pxll_string constructed_278 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_279 = {STRING_HEADER(19), 19, " = ((pxll_vector*)r" }; pxll_string constructed_280 = {STRING_HEADER(36), 36, ")->val[lookup_field((GET_TYPECODE(*r" }; pxll_string constructed_281 = {STRING_HEADER(17), 17, ")-TC_USEROBJ)>>2," }; pxll_string constructed_282 = {STRING_HEADER(3), 3, ")];" }; pxll_string constructed_283 = {STRING_HEADER(11), 11, "%record-get" }; // symbol %record-get pxll_int constructed_284[] = {UPTR(284,1), SYMBOL_HEADER, UPTR0(283), INTCON(20)}; pxll_string constructed_285 = {STRING_HEADER(16), 16, "((pxll_vector*)r" }; pxll_string constructed_286 = {STRING_HEADER(14), 14, ")->val[unbox(r" }; pxll_string constructed_287 = {STRING_HEADER(6), 6, ")] = r" }; pxll_string constructed_288 = {STRING_HEADER(1), 1, ";" }; pxll_string constructed_289 = {STRING_HEADER(41), 41, "range_check (GET_TUPLE_LENGTH(*(object*)r" }; pxll_string constructed_290 = {STRING_HEADER(10), 10, "), unbox(r" }; pxll_string constructed_291 = {STRING_HEADER(3), 3, "));" }; pxll_string constructed_292 = {STRING_HEADER(10), 10, "%array-set" }; // symbol %array-set pxll_int constructed_293[] = {UPTR(293,1), SYMBOL_HEADER, UPTR0(292), INTCON(21)}; pxll_string constructed_294 = {STRING_HEADER(1), 1, "r" }; pxll_string constructed_295 = {STRING_HEADER(19), 19, " = ((pxll_vector*)r" }; pxll_string constructed_296 = {STRING_HEADER(14), 14, ")->val[unbox(r" }; pxll_string constructed_297 = {STRING_HEADER(3), 3, ")];" }; pxll_string constructed_298 = {STRING_HEADER(41), 41, "range_check (GET_TUPLE_LENGTH(*(object*)r" }; pxll_string constructed_299 = {STRING_HEADER(10), 10, "), unbox(r" }; pxll_string constructed_300 = {STRING_HEADER(3), 3, "));" }; pxll_string constructed_301 = {STRING_HEADER(10), 10, "%array-ref" }; // symbol %array-ref pxll_int constructed_302[] = {UPTR(302,1), SYMBOL_HEADER, UPTR0(301), INTCON(22)}; pxll_string constructed_303 = {STRING_HEADER(1), 1, "}" }; pxll_string constructed_304 = {STRING_HEADER(3), 3, " r" }; pxll_string constructed_305 = {STRING_HEADER(5), 5, " = t;" }; pxll_string constructed_306 = {STRING_HEADER(21), 21, " for (i=0; i" }; pxll_string constructed_460 = {STRING_HEADER(3), 3, " : " }; pxll_string constructed_461 = {STRING_HEADER(16), 16, "\n-- C output --\n" }; pxll_string constructed_462 = {STRING_HEADER(2), 2, " " }; pxll_string constructed_463 = {STRING_HEADER(3), 3, " : " }; pxll_string constructed_464 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_465 = {STRING_HEADER(18), 18, "\n-- exceptions --\n" }; pxll_string constructed_466 = {STRING_HEADER(2), 2, " " }; pxll_string constructed_467 = {STRING_HEADER(3), 3, " : " }; pxll_string constructed_468 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_469 = {STRING_HEADER(22), 22, "\n-- variant labels --\n" }; pxll_string constructed_470 = {STRING_HEADER(2), 2, " " }; pxll_string constructed_471 = {STRING_HEADER(3), 3, " : " }; pxll_string constructed_472 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_473 = {STRING_HEADER(15), 15, "\n-- symbols --\n" }; pxll_string constructed_474 = {STRING_HEADER(15), 15, "\n-- records --\n" }; pxll_string constructed_475 = {STRING_HEADER(14), 14, "\n-- labels --\n" }; pxll_string constructed_476 = {STRING_HEADER(2), 2, " " }; pxll_string constructed_477 = {STRING_HEADER(3), 3, " : " }; pxll_string constructed_478 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_479 = {STRING_HEADER(19), 19, "\n-- typealiases --\n" }; pxll_string constructed_480 = {STRING_HEADER(17), 17, "\n-- datatypes --\n" }; pxll_string constructed_481 = {STRING_HEADER(11), 11, "\n-- RTL --\n" }; pxll_string constructed_482 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_483 = {STRING_HEADER(2), 2, " " }; pxll_int constructed_484[] = {TC_NIL}; pxll_int constructed_485[] = {TC_NIL}; pxll_int constructed_486[] = {TC_NIL}; pxll_string constructed_487 = {STRING_HEADER(16), 16, "unbound variable" }; pxll_string constructed_488 = {STRING_HEADER(15), 15, "empty sequence?" }; pxll_string constructed_489 = {STRING_HEADER(6), 6, "vector" }; // symbol vector pxll_int constructed_490[] = {UPTR(490,1), SYMBOL_HEADER, UPTR0(489), INTCON(26)}; pxll_string constructed_491 = {STRING_HEADER(11), 11, "constructor" }; // symbol constructor pxll_int constructed_492[] = {UPTR(492,1), SYMBOL_HEADER, UPTR0(491), INTCON(27)}; pxll_string constructed_493 = {STRING_HEADER(13), 13, "c-conditional" }; pxll_string constructed_494 = {STRING_HEADER(3), 3, "pop" }; pxll_int constructed_495[] = {TC_NIL}; pxll_string constructed_496 = {STRING_HEADER(28), 28, "c-call function in register?" }; pxll_string constructed_497 = {STRING_HEADER(20), 20, "c-call: no function?" }; pxll_string constructed_498 = {STRING_HEADER(11), 11, "%exn-handle" }; // symbol %exn-handle pxll_int constructed_499[] = {UPTR(499,1), SYMBOL_HEADER, UPTR0(498), INTCON(28)}; pxll_string constructed_500 = {STRING_HEADER(10), 10, "%exn-raise" }; // symbol %exn-raise pxll_int constructed_501[] = {UPTR(501,1), SYMBOL_HEADER, UPTR0(500), INTCON(29)}; pxll_string constructed_502 = {STRING_HEADER(6), 6, "buffer" }; // symbol buffer pxll_int constructed_503[] = {UPTR(503,1), SYMBOL_HEADER, UPTR0(502), INTCON(30)}; pxll_string constructed_504 = {STRING_HEADER(5), 5, "%rset" }; // symbol %rset pxll_int constructed_505[] = {UPTR(505,1), SYMBOL_HEADER, UPTR0(504), INTCON(31)}; pxll_string constructed_506 = {STRING_HEADER(8), 8, "%raccess" }; // symbol %raccess pxll_int constructed_507[] = {UPTR(507,1), SYMBOL_HEADER, UPTR0(506), INTCON(32)}; pxll_int constructed_508[] = {TC_NIL}; pxll_string constructed_509 = {STRING_HEADER(6), 6, "%rmake" }; // symbol %rmake pxll_int constructed_510[] = {UPTR(510,1), SYMBOL_HEADER, UPTR0(509), INTCON(33)}; pxll_string constructed_511 = {STRING_HEADER(18), 18, "malformed %rextend" }; pxll_string constructed_512 = {STRING_HEADER(8), 8, "%rextend" }; // symbol %rextend pxll_int constructed_513[] = {UPTR(513,1), SYMBOL_HEADER, UPTR0(512), INTCON(34)}; pxll_string constructed_514 = {STRING_HEADER(23), 23, "c-record-extension: NYI" }; pxll_string constructed_515 = {STRING_HEADER(22), 22, "unknown variant label?" }; pxll_string constructed_516 = {STRING_HEADER(16), 16, "bad %vcon params" }; pxll_string constructed_517 = {STRING_HEADER(5), 5, "%vcon" }; // symbol %vcon pxll_int constructed_518[] = {UPTR(518,1), SYMBOL_HEADER, UPTR0(517), INTCON(35)}; pxll_string constructed_519 = {STRING_HEADER(7), 7, "%fatbar" }; // symbol %fatbar pxll_int constructed_520[] = {UPTR(520,1), SYMBOL_HEADER, UPTR0(519), INTCON(36)}; pxll_string constructed_521 = {STRING_HEADER(21), 21, "%fail without fatbar?" }; pxll_string constructed_522 = {STRING_HEADER(5), 5, "%fail" }; // symbol %fail pxll_int constructed_523[] = {UPTR(523,1), SYMBOL_HEADER, UPTR0(522), INTCON(37)}; pxll_string constructed_524 = {STRING_HEADER(12), 12, "%match-error" }; // symbol %match-error pxll_int constructed_525[] = {UPTR(525,1), SYMBOL_HEADER, UPTR0(524), INTCON(38)}; pxll_string constructed_526 = {STRING_HEADER(16), 16, "no such datatype" }; pxll_string constructed_527 = {STRING_HEADER(16), 16, "incomplete match" }; pxll_int constructed_528[] = {TC_NIL}; pxll_string constructed_529 = {STRING_HEADER(13), 13, "add-free-regs" }; pxll_string constructed_530 = {STRING_HEADER(3), 3, "top" }; // symbol top pxll_int constructed_531[] = {UPTR(531,1), SYMBOL_HEADER, UPTR0(530), INTCON(39)}; pxll_int constructed_532[] = {UPTR(532,1),CONS_HEADER,UPTR(531,1),TC_NIL}; pxll_string constructed_533 = {STRING_HEADER(7), 7, "cps...\n" }; pxll_string constructed_534 = {STRING_HEADER(20), 20, "\n-- after typing --\n" }; pxll_string constructed_535 = {STRING_HEADER(6), 6, "rlabel" }; // symbol rlabel pxll_int constructed_536[] = {UPTR(536,1), SYMBOL_HEADER, UPTR0(535), INTCON(40)}; pxll_string constructed_537 = {STRING_HEADER(31), 31, "unify-exception-types: bad type" }; pxll_int constructed_538[] = {TC_NIL}; pxll_string constructed_539 = {STRING_HEADER(28), 28, "apply-tenv: unbound variable" }; pxll_string constructed_540 = {STRING_HEADER(3), 3, "raw" }; // symbol raw pxll_int constructed_541[] = {UPTR(541,1), SYMBOL_HEADER, UPTR0(540), INTCON(41)}; pxll_string constructed_542 = {STRING_HEADER(26), 26, "strange constructor scheme" }; pxll_string constructed_543 = {STRING_HEADER(16), 16, "no such datatype" }; pxll_string constructed_544 = {STRING_HEADER(28), 28, "wrong number of args to cexp" }; pxll_string constructed_545 = {STRING_HEADER(20), 20, "malformed arrow type" }; pxll_string constructed_546 = {STRING_HEADER(21), 21, "malformed conditional" }; pxll_string constructed_547 = {STRING_HEADER(15), 15, "empty sequence?" }; pxll_int constructed_548[] = {TC_NIL}; pxll_int constructed_549[] = {TC_NIL}; pxll_string constructed_550 = {STRING_HEADER(1), 1, "?" }; // symbol ? pxll_int constructed_551[] = {UPTR(551,1), SYMBOL_HEADER, UPTR0(550), INTCON(42)}; pxll_string constructed_552 = {STRING_HEADER(11), 11, "empty call?" }; pxll_int constructed_553[] = {TC_NIL}; pxll_int constructed_554[] = {TC_NIL}; pxll_int constructed_555[] = {TC_NIL}; pxll_int constructed_556[] = {TC_NIL}; pxll_int constructed_557[] = {TC_NIL}; pxll_int constructed_558[] = {TC_NIL}; pxll_int constructed_559[] = {TC_NIL}; pxll_int constructed_560[] = {TC_NIL}; pxll_int constructed_561[] = {TC_NIL}; pxll_string constructed_562 = {STRING_HEADER(4), 4, "rsum" }; // symbol rsum pxll_int constructed_563[] = {UPTR(563,1), SYMBOL_HEADER, UPTR0(562), INTCON(43)}; pxll_string constructed_564 = {STRING_HEADER(37), 37, "unify-handlers: expected row sum type" }; pxll_string constructed_565 = {STRING_HEADER(16), 16, "type-of-handle: " }; pxll_string constructed_566 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_567 = {STRING_HEADER(22), 22, "%exn-handle: bad arity" }; pxll_string constructed_568 = {STRING_HEADER(19), 19, "bad exception type:" }; pxll_string constructed_569 = {STRING_HEADER(20), 20, "bad exception type:\n" }; pxll_string constructed_570 = {STRING_HEADER(21), 21, "%exn-raise: bad arity" }; pxll_string constructed_571 = {STRING_HEADER(31), 31, "wrong number of args to primapp" }; pxll_string constructed_572 = {STRING_HEADER(15), 15, "type-of-primapp" }; pxll_string constructed_573 = {STRING_HEADER(12), 12, "continuation" }; // symbol continuation pxll_int constructed_574[] = {UPTR(574,1), SYMBOL_HEADER, UPTR0(573), INTCON(44)}; pxll_int constructed_575[] = {TC_NIL}; pxll_string constructed_576 = {STRING_HEADER(3), 3, "pre" }; // symbol pre pxll_int constructed_577[] = {UPTR(577,1), SYMBOL_HEADER, UPTR0(576), INTCON(45)}; pxll_string constructed_578 = {STRING_HEADER(7), 7, "product" }; // symbol product pxll_int constructed_579[] = {UPTR(579,1), SYMBOL_HEADER, UPTR0(578), INTCON(46)}; pxll_int constructed_580[] = {TC_NIL}; pxll_string constructed_581 = {STRING_HEADER(32), 32, "lookup-primapp: no such datatype" }; pxll_string constructed_582 = {STRING_HEADER(24), 24, "bad parameters to primop" }; pxll_int constructed_583[] = {TC_NIL}; pxll_int constructed_584[] = {TC_NIL}; pxll_string constructed_585 = {STRING_HEADER(32), 32, "lookup-primapp: no such datatype" }; pxll_string constructed_586 = {STRING_HEADER(8), 8, "rproduct" }; // symbol rproduct pxll_int constructed_587[] = {UPTR(587,1), SYMBOL_HEADER, UPTR0(586), INTCON(47)}; pxll_int constructed_588[] = {TC_NIL}; pxll_int constructed_589[] = {TC_NIL}; pxll_string constructed_590 = {STRING_HEADER(8), 8, "rdefault" }; // symbol rdefault pxll_int constructed_591[] = {UPTR(591,1), SYMBOL_HEADER, UPTR0(590), INTCON(48)}; pxll_int constructed_592[] = {TC_NIL}; pxll_string constructed_593 = {STRING_HEADER(3), 3, "abs" }; // symbol abs pxll_int constructed_594[] = {UPTR(594,1), SYMBOL_HEADER, UPTR0(593), INTCON(49)}; pxll_int constructed_595[] = {TC_NIL}; pxll_int constructed_596[] = {TC_NIL}; pxll_int constructed_597[] = {TC_NIL}; pxll_string constructed_598 = {STRING_HEADER(14), 14, "lookup-primapp" }; pxll_string constructed_599 = {STRING_HEADER(16), 16, "malformed pvcase" }; pxll_string constructed_600 = {STRING_HEADER(16), 16, "no such datatype" }; pxll_string constructed_601 = {STRING_HEADER(10), 10, "typing NYI" }; pxll_int constructed_602[] = {TC_NIL}; pxll_string constructed_603 = {STRING_HEADER(23), 23, "instantiate-type-scheme" }; pxll_string constructed_604 = {STRING_HEADER(3), 3, "moo" }; // symbol moo pxll_int constructed_605[] = {UPTR(605,1), SYMBOL_HEADER, UPTR0(604), INTCON(50)}; pxll_string constructed_606 = {STRING_HEADER(10), 10, "type error" }; pxll_string constructed_607 = {STRING_HEADER(14), 14, "\nType Error:\n\t" }; pxll_string constructed_608 = {STRING_HEADER(2), 2, "\n\t" }; pxll_string constructed_609 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_610 = {STRING_HEADER(8), 8, "node id=" }; pxll_string constructed_611 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_612 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_613 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_614 = {STRING_HEADER(0), 0, "" }; pxll_string constructed_615 = {STRING_HEADER(10), 10, "typing...\n" }; pxll_int constructed_616[] = {TC_NIL}; pxll_string constructed_617 = {STRING_HEADER(3), 3, "pop" }; pxll_int constructed_618[] = {TC_NIL}; pxll_int constructed_619[] = {TC_NIL}; pxll_int constructed_620[] = {TC_NIL}; pxll_int constructed_621[] = {TC_NIL}; pxll_int constructed_622[] = {TC_NIL}; pxll_int constructed_623[] = {TC_NIL}; pxll_string constructed_624 = {STRING_HEADER(31), 31, "strongly-connected components:\n" }; pxll_string constructed_625 = {STRING_HEADER(20), 20, "after second round:\n" }; pxll_int constructed_626[] = {TC_NIL}; pxll_int constructed_627[] = {TC_NIL}; pxll_int constructed_628[] = {TC_NIL}; pxll_int constructed_629[] = {TC_NIL}; pxll_string constructed_630 = {STRING_HEADER(7), 7, "lambda_" }; pxll_string constructed_631 = {STRING_HEADER(6), 6, "lambda" }; // symbol lambda pxll_int constructed_632[] = {UPTR(632,1), SYMBOL_HEADER, UPTR0(631), INTCON(51)}; pxll_int constructed_633[] = {TC_NIL}; pxll_int constructed_634[] = {TC_NIL}; pxll_int constructed_635[] = {TC_NIL}; pxll_int constructed_636[] = {TC_NIL}; pxll_string constructed_637 = {STRING_HEADER(2), 2, ".c" }; pxll_string constructed_638 = {STRING_HEADER(9), 9, "find-base" }; pxll_string constructed_639 = {STRING_HEADER(1), 1, "." }; pxll_string constructed_640 = {STRING_HEADER(3), 3, "scm" }; pxll_string constructed_641 = {STRING_HEADER(2), 2, "if" }; // symbol if pxll_int constructed_642[] = {UPTR(642,1), SYMBOL_HEADER, UPTR0(641), INTCON(52)}; pxll_string constructed_643 = {STRING_HEADER(4), 4, "set!" }; // symbol set! pxll_int constructed_644[] = {UPTR(644,1), SYMBOL_HEADER, UPTR0(643), INTCON(53)}; pxll_string constructed_645 = {STRING_HEADER(5), 5, "begin" }; // symbol begin pxll_int constructed_646[] = {UPTR(646,1), SYMBOL_HEADER, UPTR0(645), INTCON(54)}; pxll_string constructed_647 = {STRING_HEADER(8), 8, "function" }; // symbol function pxll_int constructed_648[] = {UPTR(648,1), SYMBOL_HEADER, UPTR0(647), INTCON(55)}; pxll_string constructed_649 = {STRING_HEADER(5), 5, "vcase" }; // symbol vcase pxll_int constructed_650[] = {UPTR(650,1), SYMBOL_HEADER, UPTR0(649), INTCON(56)}; pxll_string constructed_651 = {STRING_HEADER(9), 9, "let-splat" }; // symbol let-splat pxll_int constructed_652[] = {UPTR(652,1), SYMBOL_HEADER, UPTR0(651), INTCON(57)}; pxll_string constructed_653 = {STRING_HEADER(5), 5, "match" }; // symbol match pxll_int constructed_654[] = {UPTR(654,1), SYMBOL_HEADER, UPTR0(653), INTCON(58)}; pxll_string constructed_655 = {STRING_HEADER(8), 8, "cinclude" }; // symbol cinclude pxll_int constructed_656[] = {UPTR(656,1), SYMBOL_HEADER, UPTR0(655), INTCON(59)}; pxll_string constructed_657 = {STRING_HEADER(9), 9, "cverbatim" }; // symbol cverbatim pxll_int constructed_658[] = {UPTR(658,1), SYMBOL_HEADER, UPTR0(657), INTCON(60)}; pxll_string constructed_659 = {STRING_HEADER(7), 7, "%nvcase" }; // symbol %nvcase pxll_int constructed_660[] = {UPTR(660,1), SYMBOL_HEADER, UPTR0(659), INTCON(61)}; pxll_string constructed_661 = {STRING_HEADER(6), 6, "%%cexp" }; // symbol %%cexp pxll_int constructed_662[] = {UPTR(662,1), SYMBOL_HEADER, UPTR0(661), INTCON(62)}; pxll_string constructed_663 = {STRING_HEADER(16), 16, "malformed %%cexp" }; pxll_string constructed_664 = {STRING_HEADER(21), 21, "malformed " }; pxll_string constructed_665 = {STRING_HEADER(20), 20, "malformed " }; pxll_int constructed_666[] = {TC_NIL}; pxll_int constructed_667[] = {TC_NIL}; pxll_string constructed_668 = {STRING_HEADER(3), 3, "let" }; // symbol let pxll_int constructed_669[] = {UPTR(669,1), SYMBOL_HEADER, UPTR0(668), INTCON(63)}; pxll_string constructed_670 = {STRING_HEADER(4), 4, "with" }; // symbol with pxll_int constructed_671[] = {UPTR(671,1), SYMBOL_HEADER, UPTR0(670), INTCON(64)}; pxll_string constructed_672 = {STRING_HEADER(26), 26, "malformed match expression" }; pxll_string constructed_673 = {STRING_HEADER(10), 10, " parsed: " }; pxll_string constructed_674 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_675 = {STRING_HEADER(21), 21, "user type in define: " }; pxll_string constructed_676 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_677 = {STRING_HEADER(1), 1, ":" }; pxll_string constructed_678 = {STRING_HEADER(3), 3, "arg" }; pxll_string constructed_679 = {STRING_HEADER(1), 1, ":" }; pxll_int constructed_680[] = {TC_NIL}; pxll_int constructed_681[] = {TC_NIL}; pxll_int constructed_682[] = {TC_NIL}; pxll_int constructed_683[] = {TC_NIL}; pxll_int constructed_684[] = {TC_NIL}; pxll_string constructed_685 = {STRING_HEADER(4), 4, "else" }; // symbol else pxll_int constructed_686[] = {UPTR(686,1), SYMBOL_HEADER, UPTR0(685), INTCON(65)}; pxll_string constructed_687 = {STRING_HEADER(10), 10, "split-alts" }; pxll_int constructed_688[] = {TC_NIL}; pxll_string constructed_689 = {STRING_HEADER(1), 1, "_" }; // symbol _ pxll_int constructed_690[] = {UPTR(690,1), SYMBOL_HEADER, UPTR0(689), INTCON(66)}; pxll_int constructed_691[] = {TC_NIL}; pxll_int constructed_692[] = {TC_NIL}; pxll_string constructed_693 = {STRING_HEADER(12), 12, "expand-vcase" }; pxll_string constructed_694 = {STRING_HEADER(18), 18, "malformed FUNCTION" }; pxll_string constructed_695 = {STRING_HEADER(16), 16, "malformed LAMBDA" }; pxll_string constructed_696 = {STRING_HEADER(30), 30, "malformed binding in LET-SPLAT" }; pxll_string constructed_697 = {STRING_HEADER(19), 19, "malformed LET-SPLAT" }; pxll_string constructed_698 = {STRING_HEADER(11), 11, "empty BEGIN" }; pxll_string constructed_699 = {STRING_HEADER(14), 14, "malformed set!" }; pxll_string constructed_700 = {STRING_HEADER(14), 14, "malformed set!" }; pxll_string constructed_701 = {STRING_HEADER(14), 14, "malformed " }; pxll_int constructed_702[] = {TC_NIL}; pxll_string constructed_703 = {STRING_HEADER(1), 1, "o" }; // symbol o pxll_int constructed_704[] = {UPTR(704,1), SYMBOL_HEADER, UPTR0(703), INTCON(67)}; pxll_string constructed_705 = {STRING_HEADER(7), 7, "%method" }; // symbol %method pxll_int constructed_706[] = {UPTR(706,1), SYMBOL_HEADER, UPTR0(705), INTCON(68)}; pxll_int constructed_707[] = {TC_NIL}; pxll_int constructed_708[] = {TC_NIL}; pxll_int constructed_709[] = {TC_NIL}; pxll_string constructed_710 = {STRING_HEADER(20), 20, "malformed definition" }; pxll_string constructed_711 = {STRING_HEADER(2), 2, "->" }; // symbol -> pxll_int constructed_712[] = {UPTR(712,1), SYMBOL_HEADER, UPTR0(711), INTCON(69)}; pxll_string constructed_713 = {STRING_HEADER(6), 6, "%typed" }; // symbol %typed pxll_int constructed_714[] = {UPTR(714,1), SYMBOL_HEADER, UPTR0(713), INTCON(70)}; pxll_string constructed_715 = {STRING_HEADER(18), 18, "malformed " }; pxll_string constructed_716 = {STRING_HEADER(6), 6, "define" }; // symbol define pxll_int constructed_717[] = {UPTR(717,1), SYMBOL_HEADER, UPTR0(716), INTCON(71)}; pxll_int constructed_718[] = {TC_NIL}; pxll_string constructed_719 = {STRING_HEADER(2), 2, ")\n" }; pxll_string constructed_720 = {STRING_HEADER(2), 2, "\n\t" }; pxll_string constructed_721 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_722 = {STRING_HEADER(3), 3, ">\n\t" }; pxll_string constructed_723 = {STRING_HEADER(8), 8, "(macro <" }; pxll_string constructed_724 = {STRING_HEADER(5), 5, " -> " }; pxll_string constructed_725 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_726 = {STRING_HEADER(16), 16, "expanding macro " }; pxll_string constructed_727 = {STRING_HEADER(4), 4, " in " }; pxll_string constructed_728 = {STRING_HEADER(1), 1, "\n" }; pxll_string constructed_729 = {STRING_HEADER(28), 28, "no matching clause for macro" }; pxll_int constructed_730[] = {TC_NIL}; pxll_string constructed_731 = {STRING_HEADER(27), 27, "malformed macro definition:" }; pxll_string constructed_732 = {STRING_HEADER(27), 27, "malformed macro definition:" }; pxll_string constructed_733 = {STRING_HEADER(8), 8, "defmacro" }; // symbol defmacro pxll_int constructed_734[] = {UPTR(734,1), SYMBOL_HEADER, UPTR0(733), INTCON(72)}; pxll_string constructed_735 = {STRING_HEADER(25), 25, "malformed alt in datatype" }; pxll_string constructed_736 = {STRING_HEADER(23), 23, "no such alt in datatype" }; pxll_string constructed_737 = {STRING_HEADER(23), 23, "no such alt in datatype" }; pxll_string constructed_738 = {STRING_HEADER(18), 18, "malformed datatype" }; pxll_string constructed_739 = {STRING_HEADER(8), 8, "datatype" }; // symbol datatype pxll_int constructed_740[] = {UPTR(740,1), SYMBOL_HEADER, UPTR0(739), INTCON(73)}; pxll_string constructed_741 = {STRING_HEADER(19), 19, "malformed typealias" }; pxll_string constructed_742 = {STRING_HEADER(9), 9, "typealias" }; // symbol typealias pxll_int constructed_743[] = {UPTR(743,1), SYMBOL_HEADER, UPTR0(742), INTCON(74)}; pxll_int constructed_744[] = {TC_NIL}; pxll_int constructed_745[] = {TC_NIL}; pxll_string constructed_746 = {STRING_HEADER(3), 3, "fix" }; // symbol fix pxll_int constructed_747[] = {UPTR(747,1), SYMBOL_HEADER, UPTR0(746), INTCON(75)}; pxll_int constructed_748[] = {TC_NIL}; pxll_string constructed_749 = {STRING_HEADER(39), 39, "unexpected s-expression in transformer:" }; pxll_string constructed_750 = {STRING_HEADER(2), 2, "-p" }; pxll_string constructed_751 = {STRING_HEADER(2), 2, "-O" }; pxll_string constructed_752 = {STRING_HEADER(2), 2, "-m" }; pxll_string constructed_753 = {STRING_HEADER(2), 2, "-f" }; pxll_string constructed_754 = {STRING_HEADER(2), 2, "-t" }; pxll_string constructed_755 = {STRING_HEADER(2), 2, "-v" }; pxll_string constructed_756 = {STRING_HEADER(2), 2, "-c" }; pxll_string constructed_757 = {STRING_HEADER(16), 16, "self/selfmac.scm" }; pxll_int constructed_758[] = {TC_NIL}; pxll_int constructed_759[] = {TC_NIL}; pxll_int constructed_760[] = {TC_NIL}; pxll_string constructed_761 = {STRING_HEADER(0), 0, "" }; pxll_int constructed_762[] = {TC_NIL}; pxll_int constructed_763[] = {TC_NIL}; pxll_int constructed_764[] = {TC_NIL}; pxll_int constructed_765[] = {TC_NIL}; pxll_string constructed_766 = {STRING_HEADER(259), 259, "\nUsage: compile [options]\n -c : don't compile .c file\n -v : verbose (very!) output\n -t : generate trace-printing code\n -f : set CFLAGS for C compiler\n -m : debug macro expansion\n -O : tell gcc to optimize\n -p : generate profile-printing code\n" }; pxll_string constructed_767 = {STRING_HEADER(3), 3, "-I." }; pxll_string constructed_768 = {STRING_HEADER(5), 5, "clang" }; pxll_string constructed_769 = {STRING_HEADER(27), 27, "// CONSTRUCTED LITERALS //\n" }; pxll_string constructed_770 = {STRING_HEADER(28), 28, "// REGISTER_DECLARATIONS //\n" }; pxll_string constructed_771 = {STRING_HEADER(95), 95, "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~ " }; pxll_string constructed_772 = {STRING_HEADER(7), 7, "uint8_t" }; // symbol uint8_t pxll_int constructed_773[] = {UPTR(773,1), SYMBOL_HEADER, UPTR0(772), INTCON(76)}; pxll_string constructed_774 = {STRING_HEADER(8), 8, "uint16_t" }; // symbol uint16_t pxll_int constructed_775[] = {UPTR(775,1), SYMBOL_HEADER, UPTR0(774), INTCON(77)}; pxll_string constructed_776 = {STRING_HEADER(8), 8, "uint32_t" }; // symbol uint32_t pxll_int constructed_777[] = {UPTR(777,1), SYMBOL_HEADER, UPTR0(776), INTCON(78)}; pxll_string constructed_778 = {STRING_HEADER(8), 8, "uint64_t" }; // symbol uint64_t pxll_int constructed_779[] = {UPTR(779,1), SYMBOL_HEADER, UPTR0(778), INTCON(79)}; pxll_string constructed_780 = {STRING_HEADER(6), 6, "int8_t" }; // symbol int8_t pxll_int constructed_781[] = {UPTR(781,1), SYMBOL_HEADER, UPTR0(780), INTCON(80)}; pxll_string constructed_782 = {STRING_HEADER(7), 7, "int16_t" }; // symbol int16_t pxll_int constructed_783[] = {UPTR(783,1), SYMBOL_HEADER, UPTR0(782), INTCON(81)}; pxll_string constructed_784 = {STRING_HEADER(7), 7, "int32_t" }; // symbol int32_t pxll_int constructed_785[] = {UPTR(785,1), SYMBOL_HEADER, UPTR0(784), INTCON(82)}; pxll_string constructed_786 = {STRING_HEADER(7), 7, "int64_t" }; // symbol int64_t pxll_int constructed_787[] = {UPTR(787,1), SYMBOL_HEADER, UPTR0(786), INTCON(83)}; pxll_int constructed_788[] = {UPTR(788,22),CONS_HEADER,UPTR(787,1),TC_NIL,CONS_HEADER,UPTR(785,1),UPTR(788,1),CONS_HEADER,UPTR(783,1),UPTR(788,4),CONS_HEADER,UPTR(781,1),UPTR(788,7),CONS_HEADER,UPTR(779,1),UPTR(788,10),CONS_HEADER,UPTR(777,1),UPTR(788,13),CONS_HEADER,UPTR(775,1),UPTR(788,16),CONS_HEADER,UPTR(773,1),UPTR(788,19)}; pxll_string constructed_789 = {STRING_HEADER(1), 1, "L" }; pxll_string constructed_790 = {STRING_HEADER(37), 37, "abcdefghijklmnopqrstuvwxyz_0123456789" }; pxll_string constructed_791 = {STRING_HEADER(5), 5, "_bang" }; pxll_string constructed_792 = {STRING_HEADER(6), 6, "_splat" }; pxll_string constructed_793 = {STRING_HEADER(9), 9, "_question" }; pxll_string constructed_794 = {STRING_HEADER(1), 1, "_" }; pxll_string constructed_795 = {STRING_HEADER(5), 5, "_plus" }; pxll_string constructed_796 = {STRING_HEADER(8), 8, "_percent" }; pxll_int constructed_797[] = {UPTR(797,21),UOHEAD(3,1),9474,UPTR0(796),UITAG(0),UOHEAD(3,1),11010,UPTR0(795),UPTR(797,1),UOHEAD(3,1),11522,UPTR0(794),UPTR(797,5),UOHEAD(3,1),16130,UPTR0(793),UPTR(797,9),UOHEAD(3,1),10754,UPTR0(792),UPTR(797,13),UOHEAD(3,1),8450,UPTR0(791),UPTR(797,17)}; pxll_string constructed_798 = {STRING_HEADER(5), 5, "minus" }; pxll_string constructed_799 = {STRING_HEADER(1), 1, "_" }; pxll_int constructed_800[] = {TC_NIL}; pxll_string constructed_801 = {STRING_HEADER(1), 1, "_" }; pxll_int constructed_802[] = {TC_NIL}; pxll_string constructed_803 = {STRING_HEADER(26), 26, "key already present in map" }; pxll_int constructed_804[] = {TC_NIL}; pxll_int constructed_805[] = {TC_NIL}; pxll_int constructed_806[] = {TC_NIL}; pxll_int constructed_807[] = {TC_NIL}; pxll_string constructed_808 = {STRING_HEADER(4), 4, "char" }; // symbol char pxll_int constructed_809[] = {UPTR(809,1), SYMBOL_HEADER, UPTR0(808), INTCON(84)}; pxll_string constructed_810 = {STRING_HEADER(9), 9, "undefined" }; // symbol undefined pxll_int constructed_811[] = {UPTR(811,1), SYMBOL_HEADER, UPTR0(810), INTCON(85)}; pxll_int constructed_812[] = {TC_NIL}; pxll_int constructed_813[] = {TC_NIL}; pxll_int constructed_814[] = {TC_NIL}; pxll_int constructed_815[] = {TC_NIL}; pxll_int constructed_816[] = {TC_NIL}; pxll_int constructed_817[] = {TC_NIL}; pxll_int constructed_818[] = {UPTR(818,10),CONS_HEADER,3330,TC_NIL,CONS_HEADER,2562,UPTR(818,1),CONS_HEADER,2306,UPTR(818,4),CONS_HEADER,8194,UPTR(818,7)}; pxll_string constructed_819 = {STRING_HEADER(10), 10, "0123456789" }; pxll_string constructed_820 = {STRING_HEADER(52), 52, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" }; pxll_string constructed_821 = {STRING_HEADER(7), 7, "()[]{}:" }; pxll_int constructed_822[] = {UPTR(822,10),CONS_HEADER,3330,TC_NIL,CONS_HEADER,2562,UPTR(822,1),CONS_HEADER,2306,UPTR(822,4),CONS_HEADER,8194,UPTR(822,7)}; pxll_int constructed_823[] = {UPTR(823,29),UOHEAD(3,1),14082,15,UITAG(0),UOHEAD(3,1),13826,13,UPTR(823,1),UOHEAD(3,1),13570,11,UPTR(823,5),UOHEAD(3,1),13314,9,UPTR(823,9),UOHEAD(3,1),13058,7,UPTR(823,13),UOHEAD(3,1),12802,5,UPTR(823,17),UOHEAD(3,1),12546,3,UPTR(823,21),UOHEAD(3,1),12290,1,UPTR(823,25)}; pxll_int constructed_824[] = {UPTR(824,37),UOHEAD(3,1),14594,19,UITAG(0),UOHEAD(3,1),14338,17,UPTR(824,1),UOHEAD(3,1),14082,15,UPTR(824,5),UOHEAD(3,1),13826,13,UPTR(824,9),UOHEAD(3,1),13570,11,UPTR(824,13),UOHEAD(3,1),13314,9,UPTR(824,17),UOHEAD(3,1),13058,7,UPTR(824,21),UOHEAD(3,1),12802,5,UPTR(824,25),UOHEAD(3,1),12546,3,UPTR(824,29),UOHEAD(3,1),12290,1,UPTR(824,33)}; pxll_int constructed_825[] = {UPTR(825,85),UOHEAD(3,1),17922,31,UITAG(0),UOHEAD(3,1),17666,29,UPTR(825,1),UOHEAD(3,1),17410,27,UPTR(825,5),UOHEAD(3,1),17154,25,UPTR(825,9),UOHEAD(3,1),16898,23,UPTR(825,13),UOHEAD(3,1),16642,21,UPTR(825,17),UOHEAD(3,1),26114,31,UPTR(825,21),UOHEAD(3,1),25858,29,UPTR(825,25),UOHEAD(3,1),25602,27,UPTR(825,29),UOHEAD(3,1),25346,25,UPTR(825,33),UOHEAD(3,1),25090,23,UPTR(825,37),UOHEAD(3,1),24834,21,UPTR(825,41),UOHEAD(3,1),14594,19,UPTR(825,45),UOHEAD(3,1),14338,17,UPTR(825,49),UOHEAD(3,1),14082,15,UPTR(825,53),UOHEAD(3,1),13826,13,UPTR(825,57),UOHEAD(3,1),13570,11,UPTR(825,61),UOHEAD(3,1),13314,9,UPTR(825,65),UOHEAD(3,1),13058,7,UPTR(825,69),UOHEAD(3,1),12802,5,UPTR(825,73),UOHEAD(3,1),12546,3,UPTR(825,77),UOHEAD(3,1),12290,1,UPTR(825,81)}; pxll_string constructed_826 = {STRING_HEADER(0), 0, "" }; pxll_int constructed_827[] = {UPTR(827,1),(16<<8)|TC_VECTOR,12290,12546,12802,13058,13314,13570,13826,14082,14338,14594,24834,25090,25346,25602,25858,26114}; pxll_string constructed_828 = {STRING_HEADER(0), 0, "" }; pxll_string constructed_829 = {STRING_HEADER(30), 30, "malformed cexp template string" }; pxll_string constructed_830 = {STRING_HEADER(1), 1, "%" }; pxll_string constructed_831 = {STRING_HEADER(0), 0, "" }; pxll_string constructed_832 = {STRING_HEADER(30), 30, "malformed cexp template string" }; pxll_string constructed_833 = {STRING_HEADER(9), 9, "(object*)" }; pxll_string constructed_834 = {STRING_HEADER(3), 3, "ptr" }; // symbol ptr pxll_int constructed_835[] = {UPTR(835,1), SYMBOL_HEADER, UPTR0(834), INTCON(86)}; pxll_string constructed_836 = {STRING_HEADER(9), 9, "(object*)" }; pxll_string constructed_837 = {STRING_HEADER(7), 7, "cstring" }; // symbol cstring pxll_int constructed_838[] = {UPTR(838,1), SYMBOL_HEADER, UPTR0(837), INTCON(87)}; pxll_string constructed_839 = {STRING_HEADER(10), 10, "PXLL_TEST(" }; pxll_string constructed_840 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_841 = {STRING_HEADER(14), 14, "box((pxll_int)" }; pxll_string constructed_842 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_843 = {STRING_HEADER(14), 14, "box((pxll_int)" }; pxll_string constructed_844 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_845 = {STRING_HEADER(7), 7, "struct " }; pxll_string constructed_846 = {STRING_HEADER(6), 6, "struct" }; // symbol struct pxll_int constructed_847[] = {UPTR(847,1), SYMBOL_HEADER, UPTR0(846), INTCON(88)}; pxll_string constructed_848 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_849 = {STRING_HEADER(2), 2, "*)" }; pxll_string constructed_850 = {STRING_HEADER(15), 15, "malformed ctype" }; pxll_string constructed_851 = {STRING_HEADER(16), 16, "((pxll_string*)(" }; pxll_string constructed_852 = {STRING_HEADER(2), 2, "))" }; pxll_string constructed_853 = {STRING_HEADER(25), 25, "unknown raw type in %cexp" }; pxll_string constructed_854 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_855 = {STRING_HEADER(16), 16, "(((pxll_vector*)" }; pxll_string constructed_856 = {STRING_HEADER(5), 5, ")+1))" }; pxll_string constructed_857 = {STRING_HEADER(7), 7, "(char*)" }; pxll_string constructed_858 = {STRING_HEADER(16), 16, "((pxll_string*)(" }; pxll_string constructed_859 = {STRING_HEADER(8), 8, "))->data" }; pxll_string constructed_860 = {STRING_HEADER(6), 6, "unbox(" }; pxll_string constructed_861 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_862 = {STRING_HEADER(6), 6, "unbox(" }; pxll_string constructed_863 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_864 = {STRING_HEADER(8), 8, "wrap-in:" }; pxll_string constructed_865 = {STRING_HEADER(27), 27, "expected immediate literal " }; pxll_string constructed_866 = {STRING_HEADER(4), 4, "FUN_" }; pxll_string constructed_867 = {STRING_HEADER(17), 17, "inline: bad arity" }; pxll_int constructed_868[] = {TC_NIL}; pxll_string constructed_869 = {STRING_HEADER(2), 2, "_i" }; pxll_int constructed_870[] = {TC_NIL}; pxll_int constructed_871[] = {TC_NIL}; pxll_int constructed_872[] = {TC_NIL}; pxll_int constructed_873[] = {TC_NIL}; pxll_string constructed_874 = {STRING_HEADER(2), 2, "_i" }; pxll_int constructed_875[] = {TC_NIL}; pxll_string constructed_876 = {STRING_HEADER(43), 43, "inline-application - inlining non-function?" }; pxll_int constructed_877[] = {TC_NIL}; pxll_int constructed_878[] = {TC_NIL}; pxll_int constructed_879[] = {TC_NIL}; pxll_int constructed_880[] = {TC_NIL}; pxll_int constructed_881[] = {TC_NIL}; pxll_int constructed_882[] = {TC_NIL}; pxll_int constructed_883[] = {TC_NIL}; pxll_string constructed_884 = {STRING_HEADER(33), 33, "find-escaping-funs: failed lookup" }; pxll_int constructed_885[] = {TC_NIL}; pxll_int constructed_886[] = {TC_NIL}; pxll_int constructed_887[] = {TC_NIL}; pxll_string constructed_888 = {STRING_HEADER(11), 11, "simpleopt: " }; pxll_string constructed_889 = {STRING_HEADER(1), 1, "\n" }; pxll_int constructed_890[] = {TC_NIL}; pxll_int constructed_891[] = {TC_NIL}; pxll_string constructed_892 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_893 = {STRING_HEADER(5), 5, "- ret" }; pxll_string constructed_894 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_895 = {STRING_HEADER(4), 4, "tail" }; pxll_string constructed_896 = {STRING_HEADER(6), 6, "trcall" }; pxll_string constructed_897 = {STRING_HEADER(3), 3, "lit" }; pxll_string constructed_898 = {STRING_HEADER(6), 6, "litcon" }; pxll_string constructed_899 = {STRING_HEADER(4), 4, "cexp" }; pxll_string constructed_900 = {STRING_HEADER(4), 4, "test" }; pxll_string constructed_901 = {STRING_HEADER(3), 3, "jmp" }; pxll_string constructed_902 = {STRING_HEADER(5), 5, "close" }; pxll_string constructed_903 = {STRING_HEADER(3), 3, "ref" }; pxll_string constructed_904 = {STRING_HEADER(3), 3, "set" }; pxll_string constructed_905 = {STRING_HEADER(4), 4, "stor" }; pxll_string constructed_906 = {STRING_HEADER(6), 6, "invoke" }; pxll_string constructed_907 = {STRING_HEADER(3), 3, "env" }; pxll_string constructed_908 = {STRING_HEADER(5), 5, "alloc" }; pxll_string constructed_909 = {STRING_HEADER(4), 4, "push" }; pxll_string constructed_910 = {STRING_HEADER(3), 3, "pop" }; pxll_string constructed_911 = {STRING_HEADER(6), 6, "primop" }; pxll_string constructed_912 = {STRING_HEADER(4), 4, "move" }; pxll_string constructed_913 = {STRING_HEADER(6), 6, "fatbar" }; pxll_string constructed_914 = {STRING_HEADER(4), 4, "fail" }; pxll_string constructed_915 = {STRING_HEADER(8), 8, "testcexp" }; pxll_string constructed_916 = {STRING_HEADER(6), 6, "nvcase" }; pxll_string constructed_917 = {STRING_HEADER(6), 6, "pvcase" }; pxll_string constructed_918 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_919 = {STRING_HEADER(1), 1, "-" }; pxll_string constructed_920 = {STRING_HEADER(2), 2, "- " }; pxll_string constructed_921 = {STRING_HEADER(8), 8, "k/target" }; pxll_string constructed_922 = {STRING_HEADER(6), 6, "k/free" }; pxll_int constructed_923[] = {TC_NIL}; pxll_int constructed_924[] = {TC_NIL}; pxll_string constructed_925 = {STRING_HEADER(1), 1, "_" }; pxll_string constructed_926 = {STRING_HEADER(22), 22, "unhandled literal type" }; pxll_int constructed_927[] = {TC_NIL}; pxll_int constructed_928[] = {TC_NIL}; pxll_int constructed_929[] = {TC_NIL}; pxll_string constructed_930 = {STRING_HEADER(1), 1, ":" }; pxll_string constructed_931 = {STRING_HEADER(9), 9, "let_subst" }; // symbol let_subst pxll_int constructed_932[] = {UPTR(932,1), SYMBOL_HEADER, UPTR0(931), INTCON(89)}; pxll_string constructed_933 = {STRING_HEADER(6), 6, "letrec" }; // symbol letrec pxll_int constructed_934[] = {UPTR(934,1), SYMBOL_HEADER, UPTR0(933), INTCON(90)}; pxll_string constructed_935 = {STRING_HEADER(7), 7, "literal" }; // symbol literal pxll_int constructed_936[] = {UPTR(936,1), SYMBOL_HEADER, UPTR0(935), INTCON(91)}; pxll_string constructed_937 = {STRING_HEADER(5), 5, "quote" }; // symbol quote pxll_int constructed_938[] = {UPTR(938,1), SYMBOL_HEADER, UPTR0(937), INTCON(92)}; pxll_string constructed_939 = {STRING_HEADER(28), 28, "null primapp missing params?" }; pxll_string constructed_940 = {STRING_HEADER(14), 14, "syntax error: " }; pxll_string constructed_941 = {STRING_HEADER(16), 16, "syntax error 2: " }; pxll_int constructed_942[] = {TC_NIL}; pxll_int constructed_943[] = {TC_NIL}; pxll_int constructed_944[] = {TC_NIL}; pxll_int constructed_945[] = {TC_NIL}; pxll_string constructed_946 = {STRING_HEADER(2), 2, ", " }; pxll_string constructed_947 = {STRING_HEADER(39), 39, "cexp template must be a list of strings" }; pxll_string constructed_948 = {STRING_HEADER(23), 23, "malformed cexp template" }; pxll_int constructed_949[] = {TC_NIL}; pxll_int constructed_950[] = {TC_NIL}; pxll_string constructed_951 = {STRING_HEADER(15), 15, "unpack-bindings" }; pxll_int constructed_952[] = {TC_NIL}; pxll_string constructed_953 = {STRING_HEADER(16), 16, "malformed formal" }; pxll_string constructed_954 = {STRING_HEADER(3), 3, " : " }; pxll_string constructed_955 = {STRING_HEADER(7), 7, "varref " }; pxll_string constructed_956 = {STRING_HEADER(7), 7, "varset " }; pxll_string constructed_957 = {STRING_HEADER(8), 8, "literal " }; pxll_string constructed_958 = {STRING_HEADER(5), 5, "cexp " }; pxll_string constructed_959 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_960 = {STRING_HEADER(8), 8, "sequence" }; pxll_string constructed_961 = {STRING_HEADER(11), 11, "conditional" }; pxll_string constructed_962 = {STRING_HEADER(4), 4, "call" }; pxll_string constructed_963 = {STRING_HEADER(9), 9, "function " }; pxll_string constructed_964 = {STRING_HEADER(2), 2, " (" }; pxll_string constructed_965 = {STRING_HEADER(2), 2, ") " }; pxll_string constructed_966 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_967 = {STRING_HEADER(5), 5, "fix (" }; pxll_string constructed_968 = {STRING_HEADER(2), 2, ") " }; pxll_string constructed_969 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_970 = {STRING_HEADER(6), 6, "subst " }; pxll_string constructed_971 = {STRING_HEADER(2), 2, "->" }; pxll_string constructed_972 = {STRING_HEADER(8), 8, "primapp " }; pxll_string constructed_973 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_974 = {STRING_HEADER(5), 5, "let (" }; pxll_string constructed_975 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_976 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_977 = {STRING_HEADER(7), 7, "nvcase " }; pxll_string constructed_978 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_979 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_980 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_981 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_982 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_983 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_984 = {STRING_HEADER(2), 2, " " }; pxll_string constructed_985 = {STRING_HEADER(1), 1, " " }; pxll_int constructed_986[] = {TC_NIL}; pxll_string constructed_987 = {STRING_HEADER(2), 2, "#u" }; pxll_string constructed_988 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_989 = {STRING_HEADER(1), 1, ":" }; pxll_string constructed_990 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_991 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_992 = {STRING_HEADER(1), 1, ":" }; pxll_string constructed_993 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_994 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_995 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_996 = {STRING_HEADER(2), 2, "#(" }; pxll_string constructed_997 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_998 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_999 = {STRING_HEADER(20), 20, "unpack-fix: no body?" }; pxll_string constructed_1000 = {STRING_HEADER(12), 12, "varref->name" }; pxll_string constructed_1001 = {STRING_HEADER(4), 4, " )\n" }; pxll_string constructed_1002 = {STRING_HEADER(4), 4, " (:" }; pxll_string constructed_1003 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_1004 = {STRING_HEADER(2), 2, ")\n" }; pxll_string constructed_1005 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_1006 = {STRING_HEADER(10), 10, "(datatype " }; pxll_int constructed_1007[] = {TC_NIL}; pxll_int constructed_1008[] = {TC_NIL}; pxll_int constructed_1009[] = {TC_NIL}; pxll_int constructed_1010[] = {TC_NIL}; pxll_int constructed_1011[] = {TC_NIL}; pxll_string constructed_1012 = {STRING_HEADER(1), 1, "." }; // symbol . pxll_int constructed_1013[] = {UPTR(1013,1), SYMBOL_HEADER, UPTR0(1012), INTCON(93)}; pxll_string constructed_1014 = {STRING_HEADER(17), 17, "malformed pattern" }; pxll_int constructed_1015[] = {TC_NIL}; pxll_string constructed_1016 = {STRING_HEADER(25), 25, "not a constructor pattern" }; pxll_string constructed_1017 = {STRING_HEADER(25), 25, "not a constructor pattern" }; pxll_string constructed_1018 = {STRING_HEADER(25), 25, "not a constructor pattern" }; pxll_string constructed_1019 = {STRING_HEADER(15), 15, "stack underflow" }; pxll_string constructed_1020 = {STRING_HEADER(15), 15, "stack underflow" }; pxll_int constructed_1021[] = {TC_NIL}; pxll_string constructed_1022 = {STRING_HEADER(21), 21, "not a literal pattern" }; pxll_string constructed_1023 = {STRING_HEADER(20), 20, "not a record pattern" }; pxll_string constructed_1024 = {STRING_HEADER(1), 1, "_" }; pxll_string constructed_1025 = {STRING_HEADER(40), 40, "record pattern with different label sigs" }; pxll_string constructed_1026 = {STRING_HEADER(6), 6, "record" }; // symbol record pxll_int constructed_1027[] = {UPTR(1027,1), SYMBOL_HEADER, UPTR0(1026), INTCON(94)}; pxll_string constructed_1028 = {STRING_HEADER(33), 33, "arity mismatch in variant pattern" }; pxll_int constructed_1029[] = {TC_NIL}; pxll_int constructed_1030[] = {TC_NIL}; pxll_string constructed_1031 = {STRING_HEADER(39), 39, "more than one datatype in pattern match" }; pxll_string constructed_1032 = {STRING_HEADER(8), 8, "variable" }; // symbol variable pxll_int constructed_1033[] = {UPTR(1033,1), SYMBOL_HEADER, UPTR0(1032), INTCON(95)}; pxll_string constructed_1034 = {STRING_HEADER(8), 8, "string=?" }; // symbol string=? pxll_int constructed_1035[] = {UPTR(1035,1), SYMBOL_HEADER, UPTR0(1034), INTCON(96)}; pxll_string constructed_1036 = {STRING_HEADER(3), 3, "eq?" }; // symbol eq? pxll_int constructed_1037[] = {UPTR(1037,1), SYMBOL_HEADER, UPTR0(1036), INTCON(97)}; pxll_string constructed_1038 = {STRING_HEADER(19), 19, "empty pattern list?" }; pxll_string constructed_1039 = {STRING_HEADER(29), 29, "remove-first-pat: empty pats?" }; pxll_string constructed_1040 = {STRING_HEADER(1), 1, "m" }; pxll_int constructed_1041[] = {TC_NIL}; pxll_int constructed_1042[] = {TC_NIL}; pxll_string constructed_1043 = {STRING_HEADER(14), 14, "bad record sig" }; pxll_string constructed_1044 = {STRING_HEADER(26), 26, "unable to get record sig: " }; pxll_string constructed_1045 = {STRING_HEADER(1), 1, "\n" }; pxll_int constructed_1046[] = {TC_NIL}; pxll_string constructed_1047 = {STRING_HEADER(8), 8, "bad type" }; pxll_string constructed_1048 = {STRING_HEADER(15), 15, "malformed type?" }; pxll_int constructed_1049[] = {TC_NIL}; pxll_string constructed_1050 = {STRING_HEADER(14), 14, "bad arrow type" }; pxll_string constructed_1051 = {STRING_HEADER(19), 19, "malformed predicate" }; pxll_string constructed_1052 = {STRING_HEADER(1), 1, "t" }; pxll_string constructed_1053 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_1054 = {STRING_HEADER(2), 2, "->" }; pxll_string constructed_1055 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_1056 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_1057 = {STRING_HEADER(3), 3, ")->" }; pxll_string constructed_1058 = {STRING_HEADER(2), 2, ", " }; pxll_string constructed_1059 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_1060 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_1061 = {STRING_HEADER(2), 2, ", " }; pxll_string constructed_1062 = {STRING_HEADER(18), 18, "expected sexp:list" }; pxll_string constructed_1063 = {STRING_HEADER(13), 13, "expected list" }; pxll_int constructed_1064[] = {TC_NIL}; pxll_int constructed_1065[] = {TC_NIL}; pxll_int constructed_1066[] = {TC_NIL}; pxll_string constructed_1067 = {STRING_HEADER(36), 36, "unexpected args to ellipsis-sub-envs" }; pxll_int constructed_1068[] = {TC_NIL}; pxll_int constructed_1069[] = {TC_NIL}; pxll_string constructed_1070 = {STRING_HEADER(2), 2, "()" }; pxll_string constructed_1071 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_1072 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_1073 = {STRING_HEADER(2), 2, " " }; pxll_string constructed_1074 = {STRING_HEADER(1), 1, "'" }; pxll_string constructed_1075 = {STRING_HEADER(1), 1, "(" }; pxll_string constructed_1076 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_1077 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_1078 = {STRING_HEADER(1), 1, "\"" }; pxll_string constructed_1079 = {STRING_HEADER(1), 1, "\"" }; pxll_string constructed_1080 = {STRING_HEADER(2), 2, "#\\" }; pxll_string constructed_1081 = {STRING_HEADER(2), 2, "#t" }; pxll_string constructed_1082 = {STRING_HEADER(2), 2, "#f" }; pxll_string constructed_1083 = {STRING_HEADER(2), 2, "#u" }; pxll_string constructed_1084 = {STRING_HEADER(2), 2, "#(" }; pxll_string constructed_1085 = {STRING_HEADER(1), 1, ")" }; pxll_string constructed_1086 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_1087 = {STRING_HEADER(1), 1, "{" }; pxll_string constructed_1088 = {STRING_HEADER(1), 1, "}" }; pxll_string constructed_1089 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_1090 = {STRING_HEADER(1), 1, ":" }; pxll_string constructed_1091 = {STRING_HEADER(0), 0, "" }; pxll_string constructed_1092 = {STRING_HEADER(1), 1, "." }; pxll_string constructed_1093 = {STRING_HEADER(3), 3, "..." }; pxll_string constructed_1094 = {STRING_HEADER(1), 1, "=" }; pxll_string constructed_1095 = {STRING_HEADER(9), 9, "sexp->int" }; pxll_string constructed_1096 = {STRING_HEADER(12), 12, "sexp->symbol" }; pxll_int constructed_1097[] = {TC_NIL}; pxll_string constructed_1098 = {STRING_HEADER(7), 7, "include" }; // symbol include pxll_int constructed_1099[] = {UPTR(1099,1), SYMBOL_HEADER, UPTR0(1098), INTCON(98)}; pxll_int constructed_1100[] = {TC_NIL}; pxll_string constructed_1101 = {STRING_HEADER(13), 13, "bad hex digit" }; pxll_string constructed_1102 = {STRING_HEADER(30), 30, "expected closing ]/} character" }; pxll_string constructed_1103 = {STRING_HEADER(22), 22, "unexpected close-paren" }; pxll_string constructed_1104 = {STRING_HEADER(3), 3, "nul" }; pxll_string constructed_1105 = {STRING_HEADER(3), 3, "eof" }; pxll_string constructed_1106 = {STRING_HEADER(3), 3, "tab" }; pxll_string constructed_1107 = {STRING_HEADER(6), 6, "return" }; pxll_string constructed_1108 = {STRING_HEADER(5), 5, "space" }; pxll_string constructed_1109 = {STRING_HEADER(7), 7, "newline" }; pxll_string constructed_1110 = {STRING_HEADER(22), 22, "bad character constant" }; pxll_string constructed_1111 = {STRING_HEADER(12), 12, "syntax error" }; pxll_string constructed_1112 = {STRING_HEADER(15), 15, "expected symbol" }; pxll_string constructed_1113 = {STRING_HEADER(36), 36, "no dots allowed in constructor names" }; pxll_string constructed_1114 = {STRING_HEADER(5), 5, "comma" }; // symbol comma pxll_int constructed_1115[] = {UPTR(1115,1), SYMBOL_HEADER, UPTR0(1114), INTCON(99)}; pxll_int constructed_1116[] = {TC_NIL}; pxll_string constructed_1117 = {STRING_HEADER(30), 30, "bad backslash escape in string" }; pxll_int constructed_1118[] = {TC_NIL}; pxll_string constructed_1119 = {STRING_HEADER(30), 30, "expected '=' in record literal" }; pxll_int constructed_1120[] = {TC_NIL}; pxll_string constructed_1121 = {STRING_HEADER(22), 22, "unexpected end of file" }; pxll_string constructed_1122 = {STRING_HEADER(18), 18, "bad decimal digit?" }; pxll_int constructed_1123[] = {TC_NIL}; pxll_string constructed_1124 = {STRING_HEADER(22), 22, "unexpected end-of-file" }; pxll_string constructed_1125 = {STRING_HEADER(13), 13, "reading file " }; pxll_int constructed_1126[] = {TC_NIL}; pxll_int constructed_1127[] = {TC_NIL}; pxll_string constructed_1128 = {STRING_HEADER(0), 0, "" }; pxll_string constructed_1129 = {STRING_HEADER(13), 13, "open() failed" }; pxll_int constructed_1130[] = {TC_NIL}; pxll_int constructed_1131[] = {TC_NIL}; pxll_int constructed_1132[] = {TC_NIL}; pxll_int constructed_1133[] = {TC_NIL}; pxll_int constructed_1134[] = {TC_NIL}; pxll_int constructed_1135[] = {TC_NIL}; pxll_int constructed_1136[] = {UPTR(1136,1),(0<<8)|TC_VECTOR}; pxll_int constructed_1137[] = {TC_NIL}; pxll_string constructed_1138 = {STRING_HEADER(29), 29, "every2?: unequal-length lists" }; pxll_string constructed_1139 = {STRING_HEADER(31), 31, "for-each2: unequal-length lists" }; pxll_int constructed_1140[] = {TC_NIL}; pxll_int constructed_1141[] = {TC_NIL}; pxll_string constructed_1142 = {STRING_HEADER(26), 26, "map2: unequal-length lists" }; pxll_int constructed_1143[] = {TC_NIL}; pxll_int constructed_1144[] = {TC_NIL}; pxll_int constructed_1145[] = {TC_NIL}; pxll_string constructed_1146 = {STRING_HEADER(23), 23, "list index out of range" }; pxll_string constructed_1147 = {STRING_HEADER(23), 23, "list index out of range" }; pxll_int constructed_1148[] = {TC_NIL}; pxll_string constructed_1149 = {STRING_HEADER(4), 4, "last" }; pxll_string constructed_1150 = {STRING_HEADER(3), 3, "cdr" }; pxll_string constructed_1151 = {STRING_HEADER(3), 3, "car" }; pxll_string constructed_1152 = {STRING_HEADER(18), 18, "uncaught exception" }; pxll_string constructed_1153 = {STRING_HEADER(1), 1, " " }; pxll_string constructed_1154 = {STRING_HEADER(17), 17, "lookup-label-code" }; pxll_string constructed_1155 = {STRING_HEADER(25), 25, "vars-get-var: no such var" }; pxll_int pxll_internal_symbols[] = {(100<<8)|TC_VECTOR, UPTR(37,1), UPTR(40,1), UPTR(42,1), UPTR(45,1), UPTR(47,1), UPTR(52,1), UPTR(54,1), UPTR(57,1), UPTR(62,1), UPTR(81,1), UPTR(92,1), UPTR(217,1), UPTR(221,1), UPTR(233,1), UPTR(237,1), UPTR(246,1), UPTR(250,1), UPTR(257,1), UPTR(262,1), UPTR(273,1), UPTR(284,1), UPTR(293,1), UPTR(302,1), UPTR(315,1), UPTR(321,1), UPTR(335,1), UPTR(490,1), UPTR(492,1), UPTR(499,1), UPTR(501,1), UPTR(503,1), UPTR(505,1), UPTR(507,1), UPTR(510,1), UPTR(513,1), UPTR(518,1), UPTR(520,1), UPTR(523,1), UPTR(525,1), UPTR(531,1), UPTR(536,1), UPTR(541,1), UPTR(551,1), UPTR(563,1), UPTR(574,1), UPTR(577,1), UPTR(579,1), UPTR(587,1), UPTR(591,1), UPTR(594,1), UPTR(605,1), UPTR(632,1), UPTR(642,1), UPTR(644,1), UPTR(646,1), UPTR(648,1), UPTR(650,1), UPTR(652,1), UPTR(654,1), UPTR(656,1), UPTR(658,1), UPTR(660,1), UPTR(662,1), UPTR(669,1), UPTR(671,1), UPTR(686,1), UPTR(690,1), UPTR(704,1), UPTR(706,1), UPTR(712,1), UPTR(714,1), UPTR(717,1), UPTR(734,1), UPTR(740,1), UPTR(743,1), UPTR(747,1), UPTR(773,1), UPTR(775,1), UPTR(777,1), UPTR(779,1), UPTR(781,1), UPTR(783,1), UPTR(785,1), UPTR(787,1), UPTR(809,1), UPTR(811,1), UPTR(835,1), UPTR(838,1), UPTR(847,1), UPTR(932,1), UPTR(934,1), UPTR(936,1), UPTR(938,1), UPTR(1013,1), UPTR(1027,1), UPTR(1033,1), UPTR(1035,1), UPTR(1037,1), UPTR(1099,1), UPTR(1115,1)}; static object * r0; static object * r1; static object * r2; static object * r3; static object * r4; static object * r5; static object * r6; static object * r7; static object * r8; static object * r9; static object * r10; static object * r11; static object * r12; void gc_regs_in (int n) { switch (n) { case 13: heap1[15] = r12; case 12: heap1[14] = r11; case 11: heap1[13] = r10; case 10: heap1[12] = r9; case 9: heap1[11] = r8; case 8: heap1[10] = r7; case 7: heap1[9] = r6; case 6: heap1[8] = r5; case 5: heap1[7] = r4; case 4: heap1[6] = r3; case 3: heap1[5] = r2; case 2: heap1[4] = r1; case 1: heap1[3] = r0; }} void gc_regs_out (int n) { switch (n) { case 13: r12 = heap0[15]; case 12: r11 = heap0[14]; case 11: r10 = heap0[13]; case 10: r9 = heap0[12]; case 9: r8 = heap0[11]; case 8: r7 = heap0[10]; case 7: r6 = heap0[9]; case 6: r5 = heap0[8]; case 5: r4 = heap0[7]; case 4: r3 = heap0[6]; case 3: r2 = heap0[5]; case 2: r1 = heap0[4]; case 1: r0 = heap0[3]; }} // CONSTRUCTED LITERALS // #include "gc.c" // check heap is called at the top of each allocating function. // [by locating the check at the top, we avoid considering any // registers as roots of the gc...] static void check_heap (int nfree) { if (freep >= limit) { uint64_t t0, t1; t0 = rdtsc(); gc_flip (nfree); t1 = rdtsc(); gc_ticks += t1 - t0; } } static void ensure_heap (int nfree, pxll_int size) { if (freep + size + 1 >= limit) { uint64_t t0, t1; t0 = rdtsc(); gc_flip (nfree); t1 = rdtsc(); gc_ticks += t1 - t0; } } static object * allocate (pxll_int tc, pxll_int size) { object * save = freep; *freep = (object*) (size<<8 | (tc & 0xff)); #if 1 // at least on the g5, this technique is considerably faster than using memset // in gc_flip() to 'pre-clear' the heap... probably a cache effect... while (size--) { // this keeps gc from being confused by partially-filled objects. *(++freep) = PXLL_NIL; } ++freep; #else // if you use this version, be sure to set ! freep += size + 1; #endif return save; } // this is emitted by the backend for %make-tuple static object * alloc_no_clear (pxll_int tc, pxll_int size) { object * save = freep; *freep = (object*) (size<<8 | (tc & 0xff)); freep += size + 1; return save; } pxll_int vm (int argc, char * argv[]) { int i; // loop counter limit = heap0 + (heap_size - head_room); freep = heap0; #define PXLL_RETURN(d) result = r##d; goto *k[3] k = allocate (TC_SAVE, 3); k[1] = (object *) PXLL_NIL; // top of stack k[2] = (object *) PXLL_NIL; // null environment k[3] = &&Lreturn; // continuation that will return from this function. // --- BEGIN USER PROGRAM --- r0 = allocate (TC_TUPLE, 219); top = r0; r0[1] = lenv; lenv = r0; // def list:cons_3 goto L0; FUN_list_3acons_3: check_heap (0); r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L0: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_list_3acons_3; r1[2] = lenv; r0[2] = r1; // def sexp:symbol_15 goto L1; FUN_sexp_3asymbol_15: check_heap (0); r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r0; r0 = t; PXLL_RETURN(0); L1: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_sexp_3asymbol_15; r1[2] = lenv; r0[3] = r1; // def sexp:int_19 goto L2; FUN_sexp_3aint_19: check_heap (0); r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),1); t[1] = r0; r0 = t; PXLL_RETURN(0); L2: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_sexp_3aint_19; r1[2] = lenv; r0[4] = r1; // def vars-get-var_247 goto L3; FUN_vars_get_var_247: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[19]; r1[2] = r2; r2 = top[86]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L4; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L4: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1155; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L3: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_vars_get_var_247; r1[2] = lenv; r0[5] = r1; // def vars-set-flag!_249 goto L5; FUN_vars_set_flag_bang_249: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L6; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L6: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[lookup_field((GET_TYPECODE(*r0)-TC_USEROBJ)>>2,78)]; r1 = ((object**) lenv) [1][4]; r2 = r0; r0 = box((pxll_int)unbox(r2)|(1<val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,78)] = r0; PXLL_RETURN(0); L5: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_vars_set_flag_bang_249; r1[2] = lenv; r0[6] = r1; // def add-var_251 goto L7; FUN_add_var_251: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][3]; r2 = ((pxll_vector*)r2)->val[19]; r1[2] = r2; r2 = top[86]; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L8; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L8: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 5); r1 = ((object**) lenv) [1][3]; r1 = ((pxll_vector*)r1)->val[19]; r0[2] = r1; r1 = top[86]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[4] = r1; r1 = allocate (UOTAG(25), 5); r2 = (object *) 1; r1[1] = r2; r2 = (object *) 1; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = (object *) 1; r1[4] = r2; r2 = (object *) 1; r1[5] = r2; r0[5] = r1; r1 = top[76]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L9; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finsert_409; L9: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object**) lenv) [1][3]; ((pxll_vector*)r1)->val[19] = r0; PXLL_RETURN(0); } break; default: { r0 = (object *) 14; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L7: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_add_var_251; r1[2] = lenv; r0[7] = r1; // def add-vars_252 goto L10; FUN_add_vars_252: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; // def add_675 goto L11; FUN_add_675: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = top[7]; r0[1] = r1[2]; lenv = r0; goto FUN_add_var_251; L11: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_add_675; r1[2] = lenv; r0[2] = r1; // def search_676 goto L12; FUN_search_676: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L13; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L13: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L14; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L14: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L15; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L15: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[3] = r1; r1 = top[7]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L16; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_add_var_251; L16: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; default: { goto fatbar_443; } } goto fatbar_443_over; fatbar_443: r0 = (object *) 14; fatbar_443_over: ; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L12: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_search_676; r1[2] = lenv; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[1] = r1[2]; lenv = r0; goto FUN_search_676; L10: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_add_vars_252; r1[2] = lenv; r0[8] = r1; // def lookup-label-code_254 goto L17; FUN_lookup_label_code_254: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_688 goto L18; FUN_loop_688: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1154; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case_noint (r2)) { default: { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r0; r3 = UOBJ_GET(r3,1); r4 = ((object***) lenv) [1][1][2]; r5 = r2; if PXLL_IS_TRUE(PXLL_TEST(r5==r4)) { r4 = r3; PXLL_RETURN(4); } else { r4 = r1; lenv[2] = r4; goto FUN_loop_688; } PXLL_RETURN(4); } break; } PXLL_RETURN(2); } break; } PXLL_RETURN(0); L18: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_688; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][3]; r1 = ((pxll_vector*)r1)->val[7]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_688; L17: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lookup_label_code_254; r1[2] = lenv; r0[9] = r1; // def terpri_261 goto L19; FUN_terpri_261: r0 = (object *) 2562; r0 = box((pxll_int)fputc (GET_CHAR(r0), stdout)); PXLL_RETURN(0); L19: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_terpri_261; r1[2] = lenv; r0[10] = r1; // def =_262 goto L20; FUN__3d_262: r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); PXLL_RETURN(0); L20: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__3d_262; r1[2] = lenv; r0[11] = r1; // def <_264 goto L21; FUN__3c_264: r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1153; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_1153; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = ((object*) lenv) [3]; result=r0; goto Lreturn; PXLL_RETURN(0); L24: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_error1_294; r1[2] = lenv; r0[15] = r1; // def id_297 goto L26; FUN_id_297: r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L26: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_id_297; r1[2] = lenv; r0[16] = r1; // def callcc_298 goto L27; FUN_callcc_298: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = k; // %getcc r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L27: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_callcc_298; r1[2] = lenv; r0[17] = r1; // def throw_299 goto L28; FUN_throw_299: r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; k = r1; // %putcc PXLL_RETURN(0); L28: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_throw_299; r1[2] = lenv; r0[18] = r1; // def pair->first_300 goto L29; FUN_pair__3efirst_300: r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L29: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pair__3efirst_300; r1[2] = lenv; r0[19] = r1; // def pair->second_301 goto L30; FUN_pair__3esecond_301: r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,1); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L30: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pair__3esecond_301; r1[2] = lenv; r0[20] = r1; // def make-generator_306 goto L31; FUN_make_generator_306: check_heap (0); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = (object *) 6; r0[2] = r1; r1 = k; // %getcc r0[3] = r1; r1 = k; // %getcc r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; // def entry-point_780 goto L32; FUN_entry_point_780: check_heap (0); r0 = k; // %getcc ((object**) lenv) [1][3] = r0; r0 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(r0) { r0 = (object *) 14; r1 = ((object**) lenv) [1][4]; k = r1; // %putcc PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } PXLL_RETURN(0); L32: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_entry_point_780; r1[2] = lenv; r0[2] = r1; // def yield_781 goto L33; FUN_yield_781: r0 = k; // %getcc ((object***) lenv) [1][1][4] = r0; r0 = (object *) 262; ((object***) lenv) [1][1][2] = r0; r0 = ((object*) lenv) [2]; r1 = ((object***) lenv) [1][1][3]; k = r1; // %putcc PXLL_RETURN(0); L33: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_yield_781; r1[2] = lenv; r0[3] = r1; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L31: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_make_generator_306; r1[2] = lenv; r0[21] = r1; // def base-exception-handler_307 goto L34; FUN_base_exception_handler_307: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1152; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; L34: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_base_exception_handler_307; r1[2] = lenv; r0[22] = r1; // def car_311 goto L35; FUN_car_311: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1151; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1151; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L35: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_car_311; r1[2] = lenv; r0[23] = r1; // def cdr_312 goto L36; FUN_cdr_312: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1150; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1150; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,1); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L36: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_cdr_312; r1[2] = lenv; r0[24] = r1; // def reverse-onto_313 goto L37; FUN_reverse_onto_313: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = allocate (TC_TUPLE, 3); r3 = r1; r2[2] = r3; r3 = ((object*) lenv) [3]; r4 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[25]; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; } break; } PXLL_RETURN(0); L37: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_reverse_onto_313; r1[2] = lenv; r0[25] = r1; // def length_316 goto L38; FUN_length_316: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def fun_800 goto L39; FUN_fun_800: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [3]; r3 = (object *) 3; r2 = box((pxll_int)unbox(r3)+unbox(r2)); r3 = r1; lenv[2] = r3; lenv[3] = r2; goto FUN_fun_800; } break; } PXLL_RETURN(0); L39: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_fun_800; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_fun_800; L38: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_length_316; r1[2] = lenv; r0[26] = r1; // def last_319 goto L40; FUN_last_319: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1149; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1149; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r1; switch (get_case (r2)) { case (TC_NIL): { r2 = r0; PXLL_RETURN(2); } break; default: { goto fatbar_442; } } PXLL_RETURN(2); goto fatbar_442_over; fatbar_442: r2 = allocate (TC_TUPLE, 2); r3 = r1; r2[2] = r3; r3 = top[27]; r2[1] = r3[2]; lenv = r2; goto FUN_last_319; fatbar_442_over: ; PXLL_RETURN(2); } break; } PXLL_RETURN(0); L40: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_last_319; r1[2] = lenv; r0[27] = r1; // def member?_320 goto L41; FUN_member_question_320: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 6; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object**) lenv) [1][4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L42; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L42: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 4); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object**) lenv) [1][4]; r0[4] = r1; r1 = top[28]; r0[1] = r1[2]; lenv = r0; goto FUN_member_question_320; } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L41: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_member_question_320; r1[2] = lenv; r0[28] = r1; // def member-eq?_321 goto L43; FUN_member_eq_question_321: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 6; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = r0; r3 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = (object *) 262; PXLL_RETURN(2); } else { r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = r1; r2[3] = r3; r3 = top[29]; r2[1] = r3[2]; lenv = r2; goto FUN_member_eq_question_321; } PXLL_RETURN(2); } break; } PXLL_RETURN(0); L43: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_member_eq_question_321; r1[2] = lenv; r0[29] = r1; // def remove-eq_322 goto L44; FUN_remove_eq_322: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) constructed_1148[0]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [2]; r3 = r0; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = r1; PXLL_RETURN(2); } else { r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = r1; r2[3] = r3; r3 = top[30]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L45; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_remove_eq_322; L45: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r3 = r2; r4 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; PXLL_RETURN(3); } PXLL_RETURN(2); } break; } PXLL_RETURN(0); L44: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_remove_eq_322; r1[2] = lenv; r0[30] = r1; // def nth_323 goto L46; FUN_nth_323: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1147; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1147; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = (object *) 1; r3 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = r0; PXLL_RETURN(2); } else { goto fatbar_441; } PXLL_RETURN(2); goto fatbar_441_over; fatbar_441: r2 = allocate (TC_TUPLE, 3); r3 = r1; r2[2] = r3; r3 = (object *) 3; r4 = ((object*) lenv) [3]; r3 = box((pxll_int)unbox(r4)-unbox(r3)); r2[3] = r3; r3 = top[31]; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; fatbar_441_over: ; PXLL_RETURN(2); } break; } PXLL_RETURN(0); L46: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_nth_323; r1[2] = lenv; r0[31] = r1; // def index-eq_324 goto L47; FUN_index_eq_324: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_829 goto L48; FUN_loop_829: r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1146; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1146; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = ((object***) lenv) [1][1][2]; r3 = r0; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = ((object*) lenv) [2]; PXLL_RETURN(2); } else { r2 = (object *) 3; r3 = ((object*) lenv) [2]; r2 = box((pxll_int)unbox(r3)+unbox(r2)); r3 = r1; lenv[2] = r2; lenv[3] = r3; goto FUN_loop_829; } PXLL_RETURN(2); } break; } PXLL_RETURN(0); L48: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_829; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) 1; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_829; L47: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_index_eq_324; r1[2] = lenv; r0[32] = r1; // def slice_325 goto L49; FUN_slice_325: check_heap (0); r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [4]; r0 = box((pxll_int)unbox(r1)-unbox(r0)); r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1139; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1139; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_439_over: ; PXLL_RETURN(0); L69: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_for_each2_332; r1[2] = lenv; r0[40] = r1; // def fold_333 goto L71; FUN_fold_333: check_heap (0); r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L72; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L72: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object*) lenv) [3]; r2 = ((object**) lenv) [1][2]; lenv = ((object *)lenv)[1]; lenv[2] = r2; lenv[3] = r0; lenv[4] = r1; goto FUN_fold_333; } break; } PXLL_RETURN(0); L71: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_fold_333; r1[2] = lenv; r0[41] = r1; // def foldr_334 goto L73; FUN_foldr_334: check_heap (0); r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object*) lenv) [3]; r1[4] = r2; r2 = top[42]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L74; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_foldr_334; L74: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; } PXLL_RETURN(0); L73: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_foldr_334; r1[2] = lenv; r0[42] = r1; // def some?_335 goto L75; FUN_some_question_335: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 6; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L76; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L76: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[43]; r0[1] = r1[2]; lenv = r0; goto FUN_some_question_335; } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L75: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_some_question_335; r1[2] = lenv; r0[43] = r1; // def every?_336 goto L77; FUN_every_question_336: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 262; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L78; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L78: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[44]; r0[1] = r1[2]; lenv = r0; goto FUN_every_question_336; } else { r0 = (object *) 6; PXLL_RETURN(0); } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L77: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_every_question_336; r1[2] = lenv; r0[44] = r1; // def every2?_337 goto L79; FUN_every2_question_337: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 262; PXLL_RETURN(0); } break; default: { goto fatbar_438; } } PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object**) lenv) [1][4]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L80; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L80: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object*) lenv) [3]; r0[4] = r1; r1 = top[45]; r0[1] = r1[2]; lenv = r0; goto FUN_every2_question_337; } else { r0 = (object *) 6; PXLL_RETURN(0); } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_438; } } PXLL_RETURN(0); } break; } PXLL_RETURN(0); goto fatbar_438_over; fatbar_438: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1138; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1138; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_438_over: ; PXLL_RETURN(0); L79: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_every2_question_337; r1[2] = lenv; r0[45] = r1; // def pack_339 goto L81; FUN_pack_339: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def pack2_908 goto L82; FUN_pack2_908: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L83; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L83: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = (object*)TC_NIL; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][4]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L84; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L84: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; r1 = ((object**) lenv) [1][4]; r2 = ((object*) lenv) [3]; lenv = ((object *)lenv)[1]; lenv[2] = r2; lenv[3] = r0; lenv[4] = r1; goto FUN_pack2_908; } else { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L85; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L85: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = (object*)TC_NIL; r3 = r2; r4 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r1[4] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L86; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pack2_908; L86: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L82: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pack2_908; r1[2] = lenv; r0[2] = r1; r0 = ((object**) lenv) [1][2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) constructed_1137[0]; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = ((object**) lenv) [1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_pack2_908; } break; } PXLL_RETURN(0); L81: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pack_339; r1[2] = lenv; r0[46] = r1; // def list->vector_341 goto L87; FUN_list__3evector_341: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def recur_921 goto L88; FUN_recur_921: r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [4]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [4]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [3]; r3 = r0; r4 = ((object*) lenv) [2]; range_check (GET_TUPLE_LENGTH(*(object*)r4), unbox(r2)); ((pxll_vector*)r4)->val[unbox(r2)] = r3; r2 = (object *) 3; r3 = ((object*) lenv) [3]; r2 = box((pxll_int)unbox(r3)+unbox(r2)); r3 = r1; r4 = ((object*) lenv) [2]; lenv[2] = r4; lenv[3] = r2; lenv[4] = r3; goto FUN_recur_921; } break; } PXLL_RETURN(0); L88: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_recur_921; r1[2] = lenv; r0[2] = r1; r0 = ((object**) lenv) [1][2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) constructed_1136[0]; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L89; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L89: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; ensure_heap (1, unbox(r1)); r1 = ((object*) lenv) [2]; r2 = ((object*) lenv) [3]; if (unbox(r2) == 0) { r1 = (object *) TC_EMPTY_VECTOR; } else { t = alloc_no_clear (TC_VECTOR, unbox(r2)); for (i=0; ilen = unbox(r1), t); r2 = ((object*) lenv) [3]; r3 = (object *) 1; r4 = ((object*) lenv) [2]; r5 = r0; r6 = r1; memcpy (((pxll_string*)(r6))->data+unbox(r3), ((pxll_string*)(r4))->data+unbox(r2), unbox(r5)); r2 = r1; PXLL_RETURN(2); L101: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_substring_347; r1[2] = lenv; r0[49] = r1; // def char->string_350 goto L102; FUN_char__3estring_350: r0 = (object *) 3; r0 = box((pxll_int)string_tuple_length (unbox(r0))); ensure_heap (0, unbox(r0)); r0 = (object *) 3; r0 = (t=alloc_no_clear (TC_STRING, string_tuple_length (unbox(r0))), ((pxll_string*)(t))->len = unbox(r0), t); r1 = (object *) 1; r2 = r0; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = (object *) 1; r2 = ((object*) lenv) [2]; r3 = r0; ((pxll_string*)(r3))->data[unbox(r1)] = GET_CHAR (r2); r1 = r0; PXLL_RETURN(1); L102: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_char__3estring_350; r1[2] = lenv; r0[50] = r1; // def string-concat_354 goto L103; FUN_string_concat_354: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_982 goto L104; FUN_loop_982: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; r2 = box((pxll_int)((pxll_string*)(r2))->len); r3 = r2; r4 = ((object*) lenv) [3]; r2 = box((pxll_int)unbox(r4)+unbox(r3)); r3 = r1; lenv[2] = r3; lenv[3] = r2; goto FUN_loop_982; } break; } PXLL_RETURN(0); L104: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_982; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L105; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_982; L105: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = box((pxll_int)string_tuple_length (unbox(r1))); ensure_heap (1, unbox(r1)); r1 = ((object*) lenv) [2]; r1 = (t=alloc_no_clear (TC_STRING, string_tuple_length (unbox(r1))), ((pxll_string*)(t))->len = unbox(r1), t); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_989 goto L106; FUN_loop_989: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object***) lenv) [1][1][3]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; r2 = box((pxll_int)((pxll_string*)(r2))->len); r3 = (object *) 1; r4 = ((object*) lenv) [3]; r5 = r0; r6 = r2; r7 = ((object***) lenv) [1][1][3]; memcpy (((pxll_string*)(r7))->data+unbox(r4), ((pxll_string*)(r5))->data+unbox(r3), unbox(r6)); r2 = r0; r2 = box((pxll_int)((pxll_string*)(r2))->len); r3 = r2; r4 = ((object*) lenv) [3]; r2 = box((pxll_int)unbox(r4)+unbox(r3)); r3 = r1; lenv[2] = r3; lenv[3] = r2; goto FUN_loop_989; } break; } PXLL_RETURN(0); L106: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_989; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_989; L103: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_string_concat_354; r1[2] = lenv; r0[51] = r1; // def string-join_355 goto L107; FUN_string_join_355: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def sj_996 goto L108; FUN_sj_996: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L109; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L109: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L110; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L110: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { goto fatbar_435; } } PXLL_RETURN(0); goto fatbar_435_over; fatbar_435: r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; r1 = r0; r2 = ((object****) lenv) [1][1][1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; r1 = ((object*) lenv) [3]; lenv = ((object *)lenv)[1]; lenv[2] = r1; lenv[3] = r0; goto FUN_sj_996; fatbar_435_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L108: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_sj_996; r1[2] = lenv; r0[2] = r1; r0 = ((object**) lenv) [1][3]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } else { r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = (object *) constructed_1133[0]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_sj_996; } PXLL_RETURN(0); L107: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_string_join_355; r1[2] = lenv; r0[52] = r1; // def string-split_356 goto L111; FUN_string_split_356: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1003 goto L112; FUN_loop_1003: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = r0; r2 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r1[4] = r2; r2 = top[49]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L113; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_substring_347; L113: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**) lenv) [1][4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = ((object*) lenv) [2]; r1 = ((object***) lenv) [1][1][2]; range_check (((pxll_string *)(((pxll_string*)(r1))))->len, unbox(r0)); r0 = ((object*) lenv) [2]; r1 = ((object***) lenv) [1][1][2]; r0 = TO_CHAR(((unsigned char *)((pxll_string*)(r1))->data)[unbox(r0)]); r1 = ((object***) lenv) [1][1][3]; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r1[4] = r2; r2 = top[49]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L114; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_substring_347; L114: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][4]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r2 = (object *) 3; r3 = ((object*) lenv) [2]; r2 = box((pxll_int)unbox(r3)+unbox(r2)); lenv[2] = r2; lenv[3] = r1; lenv[4] = r0; goto FUN_loop_1003; } else { r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [4]; lenv[2] = r0; lenv[3] = r1; lenv[4] = r2; goto FUN_loop_1003; } PXLL_RETURN(0); } PXLL_RETURN(0); L112: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1003; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = (object *) 1; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = (object *) constructed_1132[0]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1003; L111: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_string_split_356; r1[2] = lenv; r0[53] = r1; // def string-compare_357 goto L115; FUN_string_compare_357: r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [3]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = r1; r3 = r0; if PXLL_IS_TRUE(PXLL_TEST(unbox(r3)data, ((pxll_string*)(r3))->data, unbox(r2))); r3 = (object *) 1; r4 = r2; if PXLL_IS_TRUE(PXLL_TEST(unbox(r4)==unbox(r3))) { r3 = r1; r4 = r0; if PXLL_IS_TRUE(PXLL_TEST(unbox(r4)==unbox(r3))) { r3 = (object *) 1; PXLL_RETURN(3); } else { r3 = r1; r4 = r0; if PXLL_IS_TRUE(PXLL_TEST(unbox(r4)len); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r0[3] = r1; r0 = ((object*) lenv) [2]; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)len, unbox(r0)); r0 = ((object*) lenv) [3]; r1 = ((object****) lenv) [1][1][1][2]; r0 = TO_CHAR(((unsigned char *)((pxll_string*)(r1))->data)[unbox(r0)]); r1 = ((object*) lenv) [2]; r2 = ((object****) lenv) [1][1][1][3]; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = ((object*) lenv) [2]; r2 = ((object****) lenv) [1][1][1][3]; r1 = TO_CHAR(((unsigned char *)((pxll_string*)(r2))->data)[unbox(r1)]); r2 = r1; r3 = r0; r0 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r0) { r0 = (object *) 3; r1 = ((object*) lenv) [3]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN_loop_1016; } else { r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); r1 = (object *) 1; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1016; } PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L117: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1016; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) 1; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1016; } PXLL_RETURN(0); L116: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_string_find_358; r1[2] = lenv; r0[55] = r1; // def stringlen); r1 = (object *) 3; r2 = r0; r1 = box((pxll_int)unbox(r2)-unbox(r1)); r2 = r1; r3 = ((object*) lenv) [2]; range_check (((pxll_string *)(((pxll_string*)(r3))))->len, unbox(r2)); r2 = r1; r3 = ((object*) lenv) [2]; r2 = TO_CHAR(((unsigned char *)((pxll_string*)(r3))->data)[unbox(r2)]); r3 = (object *) 2; r4 = r2; r0 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } else { r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object *) 3; r2 = r0; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r2 = r1; r2 = box((pxll_int)string_tuple_length (unbox(r2))); ensure_heap (2, unbox(r2)); r2 = r1; r2 = (t=alloc_no_clear (TC_STRING, string_tuple_length (unbox(r2))), ((pxll_string*)(t))->len = unbox(r2), t); r3 = (object *) 1; r4 = (object *) 1; r5 = ((object*) lenv) [2]; r6 = r0; r7 = r2; memcpy (((pxll_string*)(r7))->data+unbox(r4), ((pxll_string*)(r5))->data+unbox(r3), unbox(r6)); r3 = r0; r4 = r2; range_check (((pxll_string *)(((pxll_string*)(r4))))->len, unbox(r3)); r3 = r0; r4 = (object *) 2; r5 = r2; ((pxll_string*)(r5))->data[unbox(r3)] = GET_CHAR (r4); r3 = r2; PXLL_RETURN(3); } PXLL_RETURN(0); L120: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_zero_terminate_362; r1[2] = lenv; r0[57] = r1; // def list->string_363 goto L121; FUN_list__3estring_363: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L122; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L122: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = box((pxll_int)string_tuple_length (unbox(r1))); ensure_heap (1, unbox(r1)); r1 = ((object*) lenv) [2]; r1 = (t=alloc_no_clear (TC_STRING, string_tuple_length (unbox(r1))), ((pxll_string*)(t))->len = unbox(r1), t); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1030 goto L123; FUN_loop_1030: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object***) lenv) [1][1][3]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [3]; r3 = ((object***) lenv) [1][1][3]; range_check (((pxll_string *)(((pxll_string*)(r3))))->len, unbox(r2)); r2 = ((object*) lenv) [3]; r3 = r0; r4 = ((object***) lenv) [1][1][3]; ((pxll_string*)(r4))->data[unbox(r2)] = GET_CHAR (r3); r2 = (object *) 3; r3 = ((object*) lenv) [3]; r2 = box((pxll_int)unbox(r3)+unbox(r2)); r3 = r1; lenv[2] = r3; lenv[3] = r2; goto FUN_loop_1030; } break; } PXLL_RETURN(0); L123: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1030; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1030; L121: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_list__3estring_363; r1[2] = lenv; r0[58] = r1; // def string->list_364 goto L124; FUN_string__3elist_364: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1036 goto L125; FUN_loop_1036: check_heap (0); r0 = (object *) 1; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } else { r0 = (object *) 3; r1 = ((object*) lenv) [3]; r0 = box((pxll_int)unbox(r1)-unbox(r0)); r1 = r0; r2 = ((object***) lenv) [1][1][2]; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = r0; r2 = ((object***) lenv) [1][1][2]; r1 = TO_CHAR(((unsigned char *)((pxll_string*)(r2))->data)[unbox(r1)]); r2 = ((object*) lenv) [2]; r3 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r0 = t; r1 = (object *) 3; r2 = ((object*) lenv) [3]; r1 = box((pxll_int)unbox(r2)-unbox(r1)); lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1036; } PXLL_RETURN(0); L125: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1036; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object*)TC_NIL; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1036; L124: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_string__3elist_364; r1[2] = lenv; r0[59] = r1; // def int->string_366 goto L126; FUN_int__3estring_366: check_heap (0); r0 = ((object*) lenv) [2]; r1 = (object *) 1; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 2); r1 = (object *) 12290; r0[2] = r1; r1 = top[50]; r0[1] = r1[2]; lenv = r0; goto FUN_char__3estring_350; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1045 goto L127; FUN_loop_1045: check_heap (0); r0 = ((object*) lenv) [2]; r1 = (object *) 1; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)hex-string_367 goto L128; FUN_int__3ehex_string_367: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1049 goto L129; FUN_loop_1049: check_heap (0); r0 = ((object*) lenv) [2]; r1 = (object *) 1; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)val[unbox(r0)]; r1 = ((object*) lenv) [3]; r2 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; r1 = (object *) 9; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)>>unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN_loop_1049; } PXLL_RETURN(0); L129: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1049; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) 1; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)len); r0[2] = r1; r0 = ((object**) lenv) [1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)>unbox(r0))) { r0 = ((object**) lenv) [1][3]; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r2 = ((object***) lenv) [1][1][2]; r1 = box((pxll_int)unbox(r2)-unbox(r1)); r0[2] = r1; r0 = ((object***) lenv) [1][1][4]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 3); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = (object *) 8194; r3[3] = r4; r4 = top[35]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L131; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_n_of_327; L131: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = top[58]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L132; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_list__3estring_363; L132: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object****) lenv) [1][1][1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 3); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = (object *) 8194; r3[3] = r4; r4 = top[35]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L133; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_n_of_327; L133: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = top[58]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L134; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_list__3estring_363; L134: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r1 = ((object*) lenv) [4]; r2 = ((object****) lenv) [1][1][1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } PXLL_RETURN(0); } PXLL_RETURN(0); L130: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pad_369; r1[2] = lenv; r0[62] = r1; // def copy-cstring_374 goto L135; FUN_copy_cstring_374: r0 = ((object*) lenv) [2]; r0 = box((pxll_int)strlen((char*)r0)); r1 = r0; r1 = box((pxll_int)string_tuple_length (unbox(r1))); ensure_heap (1, unbox(r1)); r1 = r0; r1 = (t=alloc_no_clear (TC_STRING, string_tuple_length (unbox(r1))), ((pxll_string*)(t))->len = unbox(r1), t); r2 = ((object*) lenv) [2]; r3 = r0; r4 = r1; memcpy (((pxll_string*)(r4))->data, (char*)r2, unbox(r3)); r2 = r1; PXLL_RETURN(2); L135: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_copy_cstring_374; r1[2] = lenv; r0[63] = r1; // def open_375 goto L136; FUN_open_375: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[57]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L137; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_zero_terminate_362; L137: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = ((object**) lenv) [1][3]; r3 = ((object**) lenv) [1][4]; r1 = box((pxll_int)open (((pxll_string*)(r1))->data, unbox(r2), unbox(r3))); r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)>=unbox(r0))) { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1129; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[57]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L138; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_zero_terminate_362; L138: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } PXLL_RETURN(0); L136: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_open_375; r1[2] = lenv; r0[64] = r1; // def file/open-read_382 goto L139; FUN_file_2fopen_read_382: check_heap (0); r0 = allocate (UOTAG(24), 4); r1 = (object *) 32769; r1 = box((pxll_int)string_tuple_length (unbox(r1))); ensure_heap (1, unbox(r1)); r1 = (object *) 32769; r1 = (t=alloc_no_clear (TC_STRING, string_tuple_length (unbox(r1))), ((pxll_string*)(t))->len = unbox(r1), t); r0[1] = r1; r1 = (object *) 1; r0[2] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[170]; r1[3] = r2; r2 = (object *) 1; r1[4] = r2; r2 = top[64]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L140; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_open_375; L140: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = (object *) 1; r0[4] = r1; PXLL_RETURN(0); L139: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_file_2fopen_read_382; r1[2] = lenv; r0[65] = r1; // def file/fill-buffer_387 goto L141; FUN_file_2ffill_buffer_387: check_heap (0); r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[3] = r1; r1 = ((object*) lenv) [3]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r0[4] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; r1 = box((pxll_int)read (unbox(r3), ((pxll_string*)(r1))->data, unbox(r2))); r0[5] = r1; r1 = ((object*) lenv) [5]; r0[6] = r1; r0 = ((object*) lenv) [6]; r1 = ((object**) lenv) [1][2]; ((pxll_vector*)r1)->val[1] = r0; r0 = (object *) 1; r1 = ((object**) lenv) [1][2]; ((pxll_vector*)r1)->val[3] = r0; r0 = ((object*) lenv) [6]; PXLL_RETURN(0); L141: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_file_2ffill_buffer_387; r1[2] = lenv; r0[66] = r1; // def file/read-buffer_388 goto L142; FUN_file_2fread_buffer_388: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[3]; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[1]; r2 = r1; r3 = r0; r0 = PXLL_TEST(unbox(r3)val[3]; r0[2] = r1; r0 = ((object**) lenv) [1][2]; r0 = ((pxll_vector*)r0)->val[1]; r1 = ((object**) lenv) [1][2]; ((pxll_vector*)r1)->val[3] = r0; r0 = allocate (TC_TUPLE, 4); r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[1]; r0[4] = r1; r1 = top[49]; r0[1] = r1[2]; lenv = r0; goto FUN_substring_347; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[66]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L143; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_file_2ffill_buffer_387; L143: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object*) &constructed_1128; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[0]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[1]; r1[4] = r2; r2 = top[49]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L144; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_substring_347; L144: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object**) lenv) [1][2]; ((pxll_vector*)r1)->val[1] = r0; r0 = (object *) 1; r1 = ((object**) lenv) [1][2]; ((pxll_vector*)r1)->val[3] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L142: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_file_2fread_buffer_388; r1[2] = lenv; r0[67] = r1; // def file/read-char_389 goto L145; FUN_file_2fread_char_389: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[3]; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[1]; r2 = r1; r3 = r0; r0 = PXLL_TEST(unbox(r3)val[3]; r1 = (object *) 3; r2 = r0; r0 = box((pxll_int)unbox(r2)+unbox(r1)); r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[3] = r0; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[0]; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r2 = (object *) 3; r3 = r1; r2 = box((pxll_int)unbox(r3)-unbox(r2)); r3 = r2; r4 = r0; range_check (((pxll_string *)(((pxll_string*)(r4))))->len, unbox(r3)); r3 = r2; r4 = r0; r3 = TO_CHAR(((unsigned char *)((pxll_string*)(r4))->data)[unbox(r3)]); PXLL_RETURN(3); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[66]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L146; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_file_2ffill_buffer_387; L146: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object *) 65794; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[68]; r0[1] = r1[2]; lenv = r0; goto FUN_file_2fread_char_389; } PXLL_RETURN(0); } PXLL_RETURN(0); L145: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_file_2fread_char_389; r1[2] = lenv; r0[68] = r1; // def alist/lookup_396 goto L147; FUN_alist_2flookup_396: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(0)): { r0 = (object*)UITAG(1); PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [2]; r2 = UOBJ_GET(r2,2); r3 = ((object*) lenv) [3]; r4 = r0; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = r1; t = alloc_no_clear (UOTAG(0),1); t[1] = r3; r3 = t; PXLL_RETURN(3); } else { r3 = allocate (TC_TUPLE, 3); r4 = r2; r3[2] = r4; r4 = ((object*) lenv) [3]; r3[3] = r4; r4 = top[69]; r3[1] = r4[2]; lenv = r3; goto FUN_alist_2flookup_396; } PXLL_RETURN(3); } break; } PXLL_RETURN(0); L147: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_alist_2flookup_396; r1[2] = lenv; r0[69] = r1; // def alist/get_398 goto L148; FUN_alist_2fget_398: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L149; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L149: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][4]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; } PXLL_RETURN(0); L148: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_alist_2fget_398; r1[2] = lenv; r0[70] = r1; // def alist/iterate_399 goto L150; FUN_alist_2fiterate_399: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(0)): { r0 = (object *) 14; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L151; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L151: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[71]; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; } break; } PXLL_RETURN(0); L150: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_alist_2fiterate_399; r1[2] = lenv; r0[71] = r1; // def alist->keys_401 goto L152; FUN_alist__3ekeys_401: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(0)): { r0 = (object*)TC_NIL; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,2); r2 = allocate (TC_TUPLE, 2); r3 = r1; r2[2] = r3; r3 = top[72]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L153; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_alist__3ekeys_401; L153: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r3 = r2; r4 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; PXLL_RETURN(3); } break; } PXLL_RETURN(0); L152: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_alist__3ekeys_401; r1[2] = lenv; r0[72] = r1; // def alist/length_403 goto L154; FUN_alist_2flength_403: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(0)): { r0 = (object *) 1; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,2); r1 = allocate (TC_TUPLE, 2); r2 = r0; r1[2] = r2; r2 = top[73]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L155; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flength_403; L155: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = r1; r3 = (object *) 3; r2 = box((pxll_int)unbox(r3)+unbox(r2)); PXLL_RETURN(2); } break; } PXLL_RETURN(0); L154: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_alist_2flength_403; r1[2] = lenv; r0[73] = r1; // def tree/skew_407 goto L156; FUN_tree_2fskew_407: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)>unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[1]; r0 = ((pxll_vector*)r0)->val[2]; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[2]; r2 = r1; r3 = r0; r0 = PXLL_TEST(unbox(r3)==unbox(r2)); } else { r0 = (object *) 6; } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 11); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[0]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[4]; r0[4] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[1]; r0[5] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[2]; r0[6] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[7] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[8] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[3]; r0[9] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[74]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L157; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fskew_407; L157: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[10] = r1; r1 = allocate (UOTAG(17), 5); r2 = ((object*) lenv) [7]; r1[1] = r2; r2 = ((object*) lenv) [9]; r1[2] = r2; r2 = ((object*) lenv) [6]; r1[3] = r2; r2 = ((object*) lenv) [10]; r1[4] = r2; r2 = ((object*) lenv) [8]; r1[5] = r2; r0[11] = r1; r0 = allocate (UOTAG(17), 5); r1 = ((object*) lenv) [3]; r0[1] = r1; r1 = ((object*) lenv) [5]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object*) lenv) [11]; r0[4] = r1; r1 = ((object*) lenv) [4]; r0[5] = r1; PXLL_RETURN(0); } else { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } PXLL_RETURN(0); L156: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_tree_2fskew_407; r1[2] = lenv; r0[74] = r1; // def tree/split_408 goto L158; FUN_tree_2fsplit_408: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[3]; r0 = ((pxll_vector*)r0)->val[3]; r0 = ((pxll_vector*)r0)->val[2]; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[2]; r2 = r1; r3 = r0; r0 = PXLL_TEST(unbox(r3)==unbox(r2)); if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; r1 = (object *) 1; r2 = r0; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); r2 = (object *) 6; r3 = r1; r0 = PXLL_TEST(r3==r2); } else { r0 = (object *) 6; } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 12); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = (object *) 3; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[3]; r1 = ((pxll_vector*)r1)->val[0]; r0[4] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[3]; r1 = ((pxll_vector*)r1)->val[4]; r0[5] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[2]; r0[6] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[7] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[8] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[1]; r0[9] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[3]; r1 = ((pxll_vector*)r1)->val[1]; r0[10] = r1; r1 = allocate (UOTAG(17), 5); r2 = ((object*) lenv) [7]; r1[1] = r2; r2 = ((object*) lenv) [9]; r1[2] = r2; r2 = ((object*) lenv) [6]; r1[3] = r2; r2 = ((object*) lenv) [10]; r1[4] = r2; r2 = ((object*) lenv) [8]; r1[5] = r2; r0[11] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[3]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[75]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L159; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fsplit_408; L159: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[12] = r1; r0 = allocate (UOTAG(17), 5); r1 = ((object*) lenv) [4]; r0[1] = r1; r1 = ((object*) lenv) [11]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object*) lenv) [12]; r0[4] = r1; r1 = ((object*) lenv) [5]; r0[5] = r1; PXLL_RETURN(0); } else { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } PXLL_RETURN(0); L158: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_tree_2fsplit_408; r1[2] = lenv; r0[75] = r1; // def tree/insert_409 goto L160; FUN_tree_2finsert_409: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1204 goto L161; FUN_loop_1204: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = allocate (UOTAG(17), 5); r1 = ((object***) lenv) [1][1][4]; r0[1] = r1; r1 = top[175]; r0[2] = r1; r1 = (object *) 3; r0[3] = r1; r1 = top[175]; r0[4] = r1; r1 = ((object***) lenv) [1][1][5]; r0[5] = r1; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object***) lenv) [1][1][4]; r2[2] = r3; r3 = ((object*) lenv) [2]; r3 = ((pxll_vector*)r3)->val[0]; r2[3] = r3; r3 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L162; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L162: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; if PXLL_IS_TRUE(r2) { r2 = allocate (TC_TUPLE, 6); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[2]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[0]; r2[3] = r3; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[4]; r2[4] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r4 = ((pxll_vector*)r4)->val[1]; r3[2] = r4; r4 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L163; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_loop_1204; L163: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[5] = r3; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[6] = r3; r2 = allocate (UOTAG(17), 5); r3 = ((object*) lenv) [3]; r2[1] = r3; r3 = ((object*) lenv) [5]; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = ((object*) lenv) [6]; r2[4] = r3; r3 = ((object*) lenv) [4]; r2[5] = r3; lenv = lenv[1]; } else { r2 = allocate (TC_TUPLE, 6); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[2]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[0]; r2[3] = r3; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[4]; r2[4] = r3; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[1]; r2[5] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r4 = ((pxll_vector*)r4)->val[3]; r3[2] = r4; r4 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L164; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_loop_1204; L164: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[6] = r3; r2 = allocate (UOTAG(17), 5); r3 = ((object*) lenv) [3]; r2[1] = r3; r3 = ((object*) lenv) [5]; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = ((object*) lenv) [6]; r2[4] = r3; r3 = ((object*) lenv) [4]; r2[5] = r3; lenv = lenv[1]; } r1[2] = r2; r2 = top[74]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L165; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fskew_407; L165: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[75]; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2fsplit_408; } PXLL_RETURN(0); L161: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1204; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1204; L160: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_tree_2finsert_409; r1[2] = lenv; r0[76] = r1; // def tree/member_411 goto L166; FUN_tree_2fmember_411: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def member0_1218 goto L167; FUN_member0_1218: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object*)UITAG(1); PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[0]; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L168; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L168: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[1]; lenv[2] = r0; goto FUN_member0_1218; } else { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[0]; r0[2] = r1; r1 = ((object***) lenv) [1][1][4]; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L169; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L169: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[3]; lenv[2] = r0; goto FUN_member0_1218; } else { r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[4]; r1 = r0; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; PXLL_RETURN(1); } PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L167: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_member0_1218; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_member0_1218; L166: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_tree_2fmember_411; r1[2] = lenv; r0[77] = r1; // def tree/inorder_412 goto L170; FUN_tree_2finorder_412: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def recur_1222 goto L171; FUN_recur_1222: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[1]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L172; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_recur_1222; L172: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L173; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L173: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[3]; lenv[2] = r0; goto FUN_recur_1222; } PXLL_RETURN(0); L171: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_recur_1222; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_recur_1222; L170: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_tree_2finorder_412; r1[2] = lenv; r0[78] = r1; // def tree/reverse_413 goto L174; FUN_tree_2freverse_413: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def recur_1226 goto L175; FUN_recur_1226: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L176; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_recur_1226; L176: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L177; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L177: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[1]; lenv[2] = r0; goto FUN_recur_1226; } PXLL_RETURN(0); L175: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_recur_1226; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_recur_1226; L174: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_tree_2freverse_413; r1[2] = lenv; r0[79] = r1; // def tree/keys_414 goto L178; FUN_tree_2fkeys_414: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_1127[0]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_4482 goto L179; FUN_lambda_4482: check_heap (0); r0 = ((object**) lenv) [1][2]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object**) lenv) [1][2] = r0; PXLL_RETURN(0); L179: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_4482; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[79]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L180; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2freverse_413; L180: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L178: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_tree_2fkeys_414; r1[2] = lenv; r0[80] = r1; // def tree/values_415 goto L181; FUN_tree_2fvalues_415: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_1126[0]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_4499 goto L182; FUN_lambda_4499: check_heap (0); r0 = ((object**) lenv) [1][2]; r1 = r0; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object**) lenv) [1][2] = r0; PXLL_RETURN(0); L182: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_4499; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[79]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L183; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2freverse_413; L183: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L181: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_tree_2fvalues_415; r1[2] = lenv; r0[81] = r1; // def symbol->string_418 goto L184; FUN_symbol__3estring_418: r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); PXLL_RETURN(0); L184: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_symbol__3estring_418; r1[2] = lenv; r0[82] = r1; // def intern-symbol_420 goto L185; FUN_intern_symbol_420: check_heap (0); r0 = allocate (TC_TUPLE, 5); r1 = top[177]; r0[2] = r1; r1 = top[56]; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,0); r0[4] = r1; r1 = ((object*) lenv) [2]; r0[5] = r1; r1 = top[76]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L186; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finsert_409; L186: ; lenv = k[2]; k = k[1]; r0 = result; top[177] = r0; r0 = top[176]; r1 = r0; r2 = (object *) 3; r0 = box((pxll_int)unbox(r2)+unbox(r1)); top[176] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L185: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_intern_symbol_420; r1[2] = lenv; r0[83] = r1; // def string->symbol_421 goto L187; FUN_string__3esymbol_421: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = top[177]; r1[2] = r2; r2 = top[56]; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L188; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L188: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 2); r1 = top[176]; r2 = r1; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_SYMBOL,2); t[1] = r3; t[2] = r2; r1 = t; r0[2] = r1; r1 = top[83]; r0[1] = r1[2]; lenv = r0; goto FUN_intern_symbol_420; } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L187: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_string__3esymbol_421; r1[2] = lenv; r0[84] = r1; // def symbolval[unbox(r0)]; PXLL_RETURN(0); L193: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_in_class_question_1264; r1[2] = lenv; r0[2] = r1; // def loop_1266 goto L194; FUN_loop_1266: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; r2 = box((pxll_int)GET_CHAR(r2)); r3 = (object *) 262; r4 = ((object***) lenv) [1][1][2]; range_check (GET_TUPLE_LENGTH(*(object*)r4), unbox(r2)); ((pxll_vector*)r4)->val[unbox(r2)] = r3; r2 = r1; lenv[2] = r2; goto FUN_loop_1266; } break; } PXLL_RETURN(0); L194: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1266; r1[2] = lenv; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1266; L192: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_char_class_425; r1[2] = lenv; r0[87] = r1; // def reader_426 goto L195; FUN_reader_426: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) 65794; r0[2] = r1; r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; // def skip-whitespace_1276 goto L196; FUN_skip_whitespace_1276: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1297 goto L197; FUN_loop_1297: check_heap (0); r0 = (object *) 65794; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = (object *) 15106; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1295_i259 goto L198; FUN_loop_1295_i259: check_heap (0); r0 = (object *) 2562; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 14; PXLL_RETURN(0); } else { goto fatbar_433; } PXLL_RETURN(0); goto fatbar_433_over; fatbar_433: r0 = (object *) 3330; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 14; PXLL_RETURN(0); } else { goto fatbar_434; } PXLL_RETURN(0); goto fatbar_434_over; fatbar_434: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[2] = r1; r0 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L199; ; k = t; lenv = r0[2]; goto *r0[1]; L199: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L200; ; k = t; lenv = r0[2]; goto *r0[1]; L200: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][2]; lenv[2] = r0; goto FUN_loop_1295_i259; fatbar_434_over: ; PXLL_RETURN(0); fatbar_433_over: ; PXLL_RETURN(0); L198: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1295_i259; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[2] = r2; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L201; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L201: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object******) lenv) [1][1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L202; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1295_i259; L202: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = ((object****) lenv) [1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L203; ; k = t; lenv = r0[2]; goto *r0[1]; L203: ; lenv = k[2]; k = k[1]; r0 = result; ((object****) lenv) [1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object****) lenv) [1][1][1][2]; lenv[2] = r0; goto FUN_loop_1297; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[186]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L204; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L204: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r0 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L205; ; k = t; lenv = r0[2]; goto *r0[1]; L205: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object****) lenv) [1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L206; ; k = t; lenv = r0[2]; goto *r0[1]; L206: ; lenv = k[2]; k = k[1]; r0 = result; ((object****) lenv) [1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object****) lenv) [1][1][1][2]; lenv[2] = r0; goto FUN_loop_1297; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L197: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1297; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][2]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L207; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L207: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object***) lenv) [1][1][2] = r1; } else { r1 = (object *) 14; } r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1297; L196: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_skip_whitespace_1276; r1[2] = lenv; r0[2] = r1; // def read-atom_1277 goto L208; FUN_read_atom_1277: check_heap (0); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = (object *) 1; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = (object *) 12290; r0[4] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1302 goto L209; FUN_loop_1302: check_heap (0); r0 = ((object*****) lenv) [1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L210; ; k = t; lenv = r0[2]; goto *r0[1]; L210: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object*****) lenv) [1][1][1][1][2]; ((object***) lenv) [1][1][4] = r0; r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 11778; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][3]; r1 = (object *) 3; r2 = r0; r0 = box((pxll_int)unbox(r2)+unbox(r1)); ((object***) lenv) [1][1][3] = r0; } else { r0 = (object *) 14; } r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 7; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 11; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[187]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L211; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L211: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 11; } else { r0 = (object *) 7; } } } else { goto fatbar_429; } goto fatbar_429_over; fatbar_429: r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 5; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 13; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[187]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L212; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L212: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 13; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[188]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L213; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L213: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 5; } else { r0 = (object *) 7; } } } } else { goto fatbar_430; } goto fatbar_430_over; fatbar_430: r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 3; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 11; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[187]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L214; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L214: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 11; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[188]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L215; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L215: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 5; } else { r0 = (object *) 7; } } } } else { goto fatbar_431; } goto fatbar_431_over; fatbar_431: r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 9; } else { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 11522; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 3; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[188]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L216; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L216: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 5; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[187]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L217; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L217: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 15; } else { r0 = (object *) 7; } } } } } else { goto fatbar_432; } goto fatbar_432_over; fatbar_432: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; fatbar_432_over: ; fatbar_431_over: ; fatbar_430_over: ; fatbar_429_over: ; ((object***) lenv) [1][1][2] = r0; r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 9; r2 = r0; r0 = PXLL_TEST(unbox(r2)len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1124; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1124; result=r0; goto Lreturn; PXLL_RETURN(0); } else { r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 15; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[2] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L219; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L219: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object******) lenv) [1][1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[4] = r1; r0 = ((object*) lenv) [4]; r1 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object*) lenv) [2] = r0; } else { r0 = (object *) 14; } r0 = allocate (UOTAG(0), 4); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][2]; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L220; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L220: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = top[58]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L221; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_list__3estring_363; L221: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[1] = r1; r1 = ((object***) lenv) [1][1][2]; r2 = (object *) 13; r3 = r1; r1 = PXLL_TEST(unbox(r3)==unbox(r2)); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L222; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L222: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r0[4] = r1; PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L209: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1302; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) constructed_1123[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1302; L208: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_read_atom_1277; r1[2] = lenv; r0[3] = r1; // def read_1281 goto L223; FUN_read_1281: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L224; t[4] = r0; k = t; lenv = r1[2]; goto FUN_skip_whitespace_1276; L224: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][2]; r3 = (object *) 65794; r4 = r2; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L225; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L225: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object****) lenv) [1][1][1][2] = r2; } else { r2 = (object *) 14; } r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r1 = ((object*) lenv) [2]; r2 = (object *) 10498; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_1103; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_1103; result=r1; goto Lreturn; } else { goto fatbar_389; } goto fatbar_389_over; fatbar_389: r1 = ((object*) lenv) [2]; r2 = (object *) 8962; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L226; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L226: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][2]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L227; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L227: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object****) lenv) [1][1][1][2] = r1; } else { r1 = (object *) 14; } r1 = ((object****) lenv) [1][1][1][2]; ((object*) lenv) [2] = r1; r1 = ((object*) lenv) [2]; r2 = (object *) 10242; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][7]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L228; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_list_1286; L228: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(7),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_391; } goto fatbar_391_over; fatbar_391: r1 = ((object*) lenv) [2]; r2 = (object *) 29954; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L229; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L229: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object*)UITAG(6); } else { goto fatbar_392; } goto fatbar_392_over; fatbar_392: r1 = ((object*) lenv) [2]; r2 = (object *) 21762; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L230; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L230: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object*)UITAG(6); } else { goto fatbar_393; } goto fatbar_393_over; fatbar_393: r1 = ((object*) lenv) [2]; r2 = (object *) 26114; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L231; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L231: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; } else { goto fatbar_394; } goto fatbar_394_over; fatbar_394: r1 = ((object*) lenv) [2]; r2 = (object *) 17922; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L232; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L232: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; } else { goto fatbar_395; } goto fatbar_395_over; fatbar_395: r1 = ((object*) lenv) [2]; r2 = (object *) 29698; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L233; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L233: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object *) 262; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; } else { goto fatbar_396; } goto fatbar_396_over; fatbar_396: r1 = ((object*) lenv) [2]; r2 = (object *) 21506; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L234; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L234: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object *) 262; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; } else { goto fatbar_397; } goto fatbar_397_over; fatbar_397: r1 = ((object*) lenv) [2]; r2 = (object *) 28418; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L235; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L235: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][9]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L236; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_oct_int_1291; L236: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_398; } goto fatbar_398_over; fatbar_398: r1 = ((object*) lenv) [2]; r2 = (object *) 20226; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L237; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L237: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][9]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L238; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_oct_int_1291; L238: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_399; } goto fatbar_399_over; fatbar_399: r1 = ((object*) lenv) [2]; r2 = (object *) 30722; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L239; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L239: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][8]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L240; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_hex_int_1290; L240: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_400; } goto fatbar_400_over; fatbar_400: r1 = ((object*) lenv) [2]; r2 = (object *) 22530; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L241; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L241: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][8]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L242; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_hex_int_1290; L242: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_401; } goto fatbar_401_over; fatbar_401: r1 = ((object*) lenv) [2]; r2 = (object *) 23554; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L243; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L243: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L244; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_atom_1277; L244: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case_noint (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,2); r1[3] = r2; r1 = (object *) 3; r2 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object *) 1; r2 = ((object*) lenv) [2]; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = TO_CHAR(((unsigned char *)((pxll_string*)(r2))->data)[unbox(r1)]); r2 = r1; t = alloc_no_clear (UOTAG(3),1); t[1] = r2; r1 = t; } else { goto fatbar_404; } goto fatbar_404_over; fatbar_404: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1104; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L245; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L245: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 2; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_405; } goto fatbar_405_over; fatbar_405: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1105; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L246; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L246: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 65794; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_406; } goto fatbar_406_over; fatbar_406: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1106; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L247; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L247: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 2306; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_407; } goto fatbar_407_over; fatbar_407: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1107; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L248; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L248: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 3330; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_408; } goto fatbar_408_over; fatbar_408: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1108; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L249; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L249: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 8194; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_409; } goto fatbar_409_over; fatbar_409: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1109; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L250; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L250: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 2562; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { lenv = ((object *)lenv)[1]; goto fatbar_403; } fatbar_409_over: ; fatbar_408_over: ; fatbar_407_over: ; fatbar_406_over: ; fatbar_405_over: ; fatbar_404_over: ; lenv = lenv[1]; } break; default: { goto fatbar_403; }; } goto fatbar_403_over; fatbar_403: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_1110; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L251; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L251: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_403_over: ; lenv = lenv[1]; } else { goto fatbar_402; } goto fatbar_402_over; fatbar_402: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_1111; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L252; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L252: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_402_over: ; fatbar_401_over: ; fatbar_400_over: ; fatbar_399_over: ; fatbar_398_over: ; fatbar_397_over: ; fatbar_396_over: ; fatbar_395_over: ; fatbar_394_over: ; fatbar_393_over: ; fatbar_392_over: ; fatbar_391_over: ; } else { goto fatbar_390; } goto fatbar_390_over; fatbar_390: r1 = ((object*) lenv) [2]; r2 = (object *) 14850; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L253; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L253: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L254; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_atom_1277; L254: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [2]; switch (get_case_noint (r2)) { default: { r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object**) lenv) [1][2]; r3 = UOBJ_GET(r3,1); r2[3] = r3; r3 = ((object**) lenv) [1][2]; r3 = UOBJ_GET(r3,3); r2[4] = r3; r2 = ((object*) lenv) [3]; switch (get_case (r2)) { case ((pxll_int)PXLL_TRUE): { r2 = allocate (TC_TUPLE, 3); r3 = (object*) &constructed_1112; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[15]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L255; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_error1_294; L255: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } break; default: { r2 = (object *) 1; r3 = ((object*) lenv) [4]; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[84]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L256; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string__3esymbol_421; L256: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } else { goto fatbar_411; } goto fatbar_411_over; fatbar_411: r2 = allocate (TC_TUPLE, 3); r3 = (object*) &constructed_1113; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[15]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L257; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_error1_294; L257: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; fatbar_411_over: ; } break; } lenv = lenv[1]; } break; } r1[3] = r2; r1 = ((object*) lenv) [3]; r2 = (object *) constructed_45[0]; t = alloc_no_clear (UOTAG(9),2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_410; } goto fatbar_410_over; fatbar_410: r1 = ((object*) lenv) [2]; r2 = (object *) 11266; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L258; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L258: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_1115[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L259; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_1281; L259: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_412; } goto fatbar_412_over; fatbar_412: r1 = ((object*) lenv) [2]; r2 = (object *) 9986; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L260; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L260: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_938[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L261; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_1281; L261: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_413; } goto fatbar_413_over; fatbar_413: r1 = ((object*) lenv) [2]; r2 = (object *) 8706; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L262; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L262: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1337_i368_i442 goto L263; FUN_loop_1337_i368_i442: check_heap (0); r0 = (object *) 23554; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[2] = r1; r0 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L264; ; k = t; lenv = r0[2]; goto *r0[1]; L264: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[2] = r1; r0 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L265; ; k = t; lenv = r0[2]; goto *r0[1]; L265: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; ((object*) lenv) [2] = r0; r0 = (object *) 23554; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L266; ; k = t; lenv = r0[2]; goto *r0[1]; L266: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((object*) lenv) [3]; r2 = (object *) 23554; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442; } else { goto fatbar_416; } PXLL_RETURN(0); goto fatbar_416_over; fatbar_416: r0 = (object *) 8706; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L267; ; k = t; lenv = r0[2]; goto *r0[1]; L267: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((object*) lenv) [3]; r2 = (object *) 8706; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442; } else { goto fatbar_417; } PXLL_RETURN(0); goto fatbar_417_over; fatbar_417: r0 = (object *) 29698; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L268; ; k = t; lenv = r0[2]; goto *r0[1]; L268: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((object*) lenv) [3]; r2 = (object *) 2306; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442; } else { goto fatbar_418; } PXLL_RETURN(0); goto fatbar_418_over; fatbar_418: r0 = (object *) 28162; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L269; ; k = t; lenv = r0[2]; goto *r0[1]; L269: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((object*) lenv) [3]; r2 = (object *) 2562; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442; } else { goto fatbar_419; } PXLL_RETURN(0); goto fatbar_419_over; fatbar_419: r0 = (object *) 29186; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L270; ; k = t; lenv = r0[2]; goto *r0[1]; L270: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((object*) lenv) [3]; r2 = (object *) 3330; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442; } else { goto fatbar_420; } PXLL_RETURN(0); goto fatbar_420_over; fatbar_420: r0 = (object *) 22530; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L271; ; k = t; lenv = r0[2]; goto *r0[1]; L271: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object******) lenv) [1][1][1][1][1][6]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L272; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_hex_code_1284; L272: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object**) lenv) [1][3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442; } else { goto fatbar_421; } PXLL_RETURN(0); goto fatbar_421_over; fatbar_421: r0 = (object *) 30722; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L273; ; k = t; lenv = r0[2]; goto *r0[1]; L273: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object******) lenv) [1][1][1][1][1][6]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L274; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_hex_code_1284; L274: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object**) lenv) [1][3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442; } else { goto fatbar_422; } PXLL_RETURN(0); goto fatbar_422_over; fatbar_422: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1117; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_422_over: ; PXLL_RETURN(0); fatbar_421_over: ; PXLL_RETURN(0); fatbar_420_over: ; PXLL_RETURN(0); fatbar_419_over: ; PXLL_RETURN(0); fatbar_418_over: ; PXLL_RETURN(0); fatbar_417_over: ; PXLL_RETURN(0); fatbar_416_over: ; PXLL_RETURN(0); } else { goto fatbar_415; } PXLL_RETURN(0); goto fatbar_415_over; fatbar_415: r0 = (object *) 8706; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[2] = r1; r0 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L275; ; k = t; lenv = r0[2]; goto *r0[1]; L275: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L276; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L276: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[58]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L277; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_list__3estring_363; L277: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } else { goto fatbar_423; } PXLL_RETURN(0); goto fatbar_423_over; fatbar_423: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[2] = r1; r0 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L278; ; k = t; lenv = r0[2]; goto *r0[1]; L278: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L279; ; k = t; lenv = r0[2]; goto *r0[1]; L279: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442; fatbar_423_over: ; PXLL_RETURN(0); fatbar_415_over: ; PXLL_RETURN(0); L263: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1337_i368_i442; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][2]; r3 = (object *) 65794; r4 = r2; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L280; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L280: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object*****) lenv) [1][1][1][1][2] = r2; } else { r2 = (object *) 14; } r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r2 = (object *) constructed_1116[0]; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L281; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_1337_i368_i442; L281: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } else { goto fatbar_414; } goto fatbar_414_over; fatbar_414: r1 = ((object*) lenv) [2]; r2 = (object *) 31490; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L282; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L282: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1344_i402_i442 goto L283; FUN_loop_1344_i402_i442: check_heap (0); r0 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L284; ; k = t; lenv = r0[2]; goto FUN_skip_whitespace_1276; L284: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L285; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L285: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*******) lenv) [1][1][1][1][1][1][2] = r1; } else { r1 = (object *) 14; } r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[2] = r1; r0 = (object *) 32002; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r0[2] = r1; r0 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L286; ; k = t; lenv = r0[2]; goto *r0[1]; L286: ; lenv = k[2]; k = k[1]; r0 = result; ((object********) lenv) [1][1][1][1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L287; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L287: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(8),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1349_i409_i442 goto L288; FUN_loop_1349_i409_i442: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = top[189]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L289; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L289: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; } else { r0 = (object *) 11778; r1 = ((object*) lenv) [3]; r0 = PXLL_TEST(r1==r0); } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r0[2] = r1; r0 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L290; ; k = t; lenv = r0[2]; goto *r0[1]; L290: ; lenv = k[2]; k = k[1]; r0 = result; ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L291; ; k = t; lenv = r0[2]; goto *r0[1]; L291: ; lenv = k[2]; k = k[1]; r0 = result; ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } r0 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; r1 = ((object*) lenv) [2]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r2 = (object *) 6; lenv[2] = r1; lenv[3] = r0; lenv[4] = r2; goto FUN_loop_1349_i409_i442; } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L292; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L292: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[58]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L293; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_list__3estring_363; L293: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[84]; r0[1] = r1[2]; lenv = r0; goto FUN_string__3esymbol_421; } PXLL_RETURN(0); L288: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1349_i409_i442; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 4); r2 = (object *) constructed_1120[0]; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r3 = (object *) 65794; r4 = r2; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L294; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L294: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object*********) lenv) [1][1][1][1][1][1][1][1][2] = r2; } else { r2 = (object *) 14; } r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1[3] = r2; r2 = (object *) 6; r1[4] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L295; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_1349_i409_i442; L295: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; r0 = (object *) constructed_62[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r0; r0 = t; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),2); t[1] = r2; t[2] = r1; r1 = t; r2 = ((object***) lenv) [1][1][2]; r3 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r0 = t; lenv = ((object **)lenv)[1][1]; lenv[2] = r0; goto FUN_loop_1344_i402_i442; } else { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L296; ; k = t; lenv = r0[2]; goto FUN_skip_whitespace_1276; L296: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L297; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L297: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*********) lenv) [1][1][1][1][1][1][1][1][2] = r1; } else { r1 = (object *) 14; } r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r0[2] = r1; r1 = (object *) 15618; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(r2==r1); r0[3] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [3]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1119; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r0[2] = r1; r0 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L298; ; k = t; lenv = r0[2]; goto *r0[1]; L298: ; lenv = k[2]; k = k[1]; r0 = result; ((object*********) lenv) [1][1][1][1][1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object*******) lenv) [1][1][1][1][1][1][4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L299; ; k = t; lenv = r0[2]; goto FUN_read_1281; L299: ; lenv = k[2]; k = k[1]; r0 = result; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),2); t[1] = r2; t[2] = r1; r1 = t; r2 = ((object***) lenv) [1][1][2]; r3 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; lenv = ((object **)lenv)[1][1]; lenv[2] = r1; goto FUN_loop_1344_i402_i442; } PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L283: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1344_i402_i442; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_1118[0]; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L300; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_1344_i402_i442; L300: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } else { goto fatbar_424; } goto fatbar_424_over; fatbar_424: r1 = ((object*) lenv) [2]; r2 = (object *) 10242; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][7]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L301; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_list_1286; L301: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_425; } goto fatbar_425_over; fatbar_425: r1 = ((object*) lenv) [2]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_1121; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_1121; result=r1; goto Lreturn; } else { goto fatbar_426; } goto fatbar_426_over; fatbar_426: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L302; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_atom_1277; L302: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case_noint (r1)) { default: { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case ((pxll_int)PXLL_TRUE): { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = (object *) 1; r3 = ((object**) lenv) [1][2]; range_check (((pxll_string *)(((pxll_string*)(r3))))->len, unbox(r2)); r2 = (object *) 1; r3 = ((object**) lenv) [1][2]; r2 = TO_CHAR(((unsigned char *)((pxll_string*)(r3))->data)[unbox(r2)]); r1[2] = r2; r2 = (object *) 11522; r3 = ((object*) lenv) [2]; r2 = PXLL_TEST(r3==r2); r1[3] = r2; r2 = ((object*) lenv) [3]; if PXLL_IS_TRUE(r2) { r2 = (object *) 3; } else { r2 = (object *) 1; } r1[4] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; // def loop_1357_i430_i442 goto L303; FUN_loop_1357_i430_i442: check_heap (0); r0 = ((object****) lenv) [1][1][1][4]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = ((object***) lenv) [1][1][3]; if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [3]; r1 = (object *) 1; r0 = box((pxll_int)unbox(r1)-unbox(r0)); PXLL_RETURN(0); } else { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = top[179]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r3 = ((object*****) lenv) [1][1][1][1][2]; range_check (((pxll_string *)(((pxll_string*)(r3))))->len, unbox(r2)); r2 = ((object**) lenv) [1][2]; r3 = ((object*****) lenv) [1][1][1][1][2]; r2 = TO_CHAR(((unsigned char *)((pxll_string*)(r3))->data)[unbox(r2)]); r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L304; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L304: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1122; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = (object *) 21; r2 = ((object**) lenv) [1][3]; r1 = box((pxll_int)unbox(r2)*unbox(r1)); r2 = r0; r3 = r1; r1 = box((pxll_int)unbox(r3)+unbox(r2)); r2 = (object *) 3; r3 = ((object**) lenv) [1][2]; r2 = box((pxll_int)unbox(r3)+unbox(r2)); lenv = ((object *)lenv)[1]; lenv[2] = r2; lenv[3] = r1; goto FUN_loop_1357_i430_i442; } break; } PXLL_RETURN(0); } PXLL_RETURN(0); L303: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_loop_1357_i430_i442; r3[2] = lenv; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = (object *) 1; r2[3] = r3; r3 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L305; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_loop_1357_i430_i442; L305: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[5] = r2; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } break; default: { r1 = (object *) 1; r2 = ((object*) lenv) [5]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[84]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L306; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string__3esymbol_421; L306: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_427; } goto fatbar_427_over; fatbar_427: r1 = ((object*) lenv) [2]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = r1; r3 = ((object*) lenv) [5]; r1 = PXLL_TEST(unbox(r3)==unbox(r2)); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[84]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L307; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string__3esymbol_421; L307: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1306_i441_i442 goto L308; FUN_loop_1306_i441_i442: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L309; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L309: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { goto fatbar_428; } } PXLL_RETURN(0); goto fatbar_428_over; fatbar_428: r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L310; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_1306_i441_i442; L310: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L311; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L311: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(10),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); fatbar_428_over: ; PXLL_RETURN(0); } break; default: { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L308: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1306_i441_i442; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = ((object***) lenv) [1][1][2]; r3[2] = r4; r4 = (object *) 11778; r3[3] = r4; r4 = top[53]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L312; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_string_split_356; L312: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L313; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L313: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L314; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_1306_i441_i442; L314: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } fatbar_427_over: ; } break; } lenv = lenv[1]; } break; } lenv = lenv[1]; fatbar_426_over: ; fatbar_425_over: ; fatbar_424_over: ; fatbar_414_over: ; fatbar_413_over: ; fatbar_412_over: ; fatbar_410_over: ; fatbar_390_over: ; fatbar_389_over: ; lenv = lenv[1]; r0[2] = r1; r0 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L315; ; k = t; lenv = r0[2]; goto FUN_skip_whitespace_1276; L315: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][2]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L316; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L316: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object****) lenv) [1][1][1][2] = r1; } else { r1 = (object *) 14; } r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r0 = (object *) 14850; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r0 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L317; ; k = t; lenv = r0[2]; goto *r0[1]; L317: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object***) lenv) [1][1][4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L318; ; k = t; lenv = r0[2]; goto FUN_read_1281; L318: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object**) lenv) [1][2]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r2 = r0; switch (get_case (r2)) { case (UOTAG(1)): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r2; r4 = r1; t = alloc_no_clear (UOTAG(9),2); t[1] = r4; t[2] = r3; r3 = t; PXLL_RETURN(3); } break; default: { goto fatbar_386; } } PXLL_RETURN(2); } break; default: { goto fatbar_386; } } PXLL_RETURN(1); goto fatbar_386_over; fatbar_386: r1 = r0; switch (get_case (r1)) { case (UOTAG(9)): { r1 = r0; r1 = UOBJ_GET(r1,0); r2 = r0; r2 = UOBJ_GET(r2,1); r3 = (object *) constructed_45[0]; r4 = r1; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = (object *) constructed_706[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r4; r4 = t; r3[2] = r4; r4 = r2; t = alloc_no_clear (UOTAG(1),1); t[1] = r4; r4 = t; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; t = alloc_no_clear (UOTAG(0),1); t[1] = r3; r3 = t; PXLL_RETURN(3); } else { goto fatbar_387; } PXLL_RETURN(3); } break; default: { goto fatbar_387; } } PXLL_RETURN(1); goto fatbar_387_over; fatbar_387: r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_714[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; PXLL_RETURN(1); fatbar_387_over: ; PXLL_RETURN(1); fatbar_386_over: ; PXLL_RETURN(1); } else { goto fatbar_385; } PXLL_RETURN(0); goto fatbar_385_over; fatbar_385: r0 = (object *) 23298; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 9); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[2] = r2; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L319; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L319: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object******) lenv) [1][1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L320; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_read_1281; L320: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L321; t[4] = r0; k = t; lenv = r1[2]; goto FUN_skip_whitespace_1276; L321: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r3 = (object *) 65794; r4 = r2; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L322; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L322: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object*******) lenv) [1][1][1][1][1][1][2] = r2; } else { r2 = (object *) 14; } r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r1[2] = r2; r1 = (object *) 23810; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(r2==r1); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r1[2] = r2; r1 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L323; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L323: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*******) lenv) [1][1][1][1][1][1][2] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = ((object*) lenv) [2]; } else { r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_1102; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_1102; result=r1; goto Lreturn; } lenv = lenv[1]; r0[2] = r1; r1 = (object *) constructed_302[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[3] = r1; r1 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = (object*)TC_NIL; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[9] = r1; r0 = ((object*) lenv) [9]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } else { goto fatbar_388; } PXLL_RETURN(0); goto fatbar_388_over; fatbar_388: r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); fatbar_388_over: ; PXLL_RETURN(0); fatbar_385_over: ; PXLL_RETURN(0); L223: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_read_1281; r1[2] = lenv; r0[4] = r1; // def read-hex-digit_1283 goto L324; FUN_read_hex_digit_1283: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = top[178]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L325; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L325: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1101; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1101; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L324: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_read_hex_digit_1283; r1[2] = lenv; r0[5] = r1; // def read-hex-code_1284 goto L326; FUN_read_hex_code_1284: check_heap (0); r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object****) lenv) [1][1][1][2]; r2[2] = r3; r2 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L327; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L327: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object****) lenv) [1][1][1][2] = r2; r2 = ((object*) lenv) [2]; lenv = lenv[1]; r1[2] = r2; r2 = ((object**) lenv) [1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L328; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_read_hex_digit_1283; L328: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object****) lenv) [1][1][1][2]; r2[2] = r3; r2 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L329; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L329: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object****) lenv) [1][1][1][2] = r2; r2 = ((object*) lenv) [2]; lenv = lenv[1]; r1[2] = r2; r2 = ((object**) lenv) [1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L330; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_read_hex_digit_1283; L330: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = (object *) 17; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)<len); r1 = (object*) &constructed_1125; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[65]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L363; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_file_2fopen_read_382; L363: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; // def lambda_6415 goto L364; FUN_lambda_6415: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[68]; r0[1] = r1[2]; lenv = r0; goto FUN_file_2fread_char_389; L364: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_6415; r1[2] = lenv; r0[3] = r1; r1 = (object *) 65794; r0[4] = r1; r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; // def skip-whitespace_1276_i0 goto L365; FUN_skip_whitespace_1276_i0: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1297_i0 goto L366; FUN_loop_1297_i0: check_heap (0); r0 = (object *) 65794; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = (object *) 15106; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1295_i259_i0 goto L367; FUN_loop_1295_i259_i0: check_heap (0); r0 = (object *) 2562; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 14; PXLL_RETURN(0); } else { goto fatbar_382; } PXLL_RETURN(0); goto fatbar_382_over; fatbar_382: r0 = (object *) 3330; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 14; PXLL_RETURN(0); } else { goto fatbar_383; } PXLL_RETURN(0); goto fatbar_383_over; fatbar_383: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[2] = r1; r0 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L368; ; k = t; lenv = r0[2]; goto *r0[1]; L368: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L369; ; k = t; lenv = r0[2]; goto *r0[1]; L369: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][4]; lenv[2] = r0; goto FUN_loop_1295_i259_i0; fatbar_383_over: ; PXLL_RETURN(0); fatbar_382_over: ; PXLL_RETURN(0); L367: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1295_i259_i0; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object******) lenv) [1][1][1][1][1][4]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L370; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L370: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object******) lenv) [1][1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L371; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L371: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = ((object****) lenv) [1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L372; ; k = t; lenv = r0[2]; goto *r0[1]; L372: ; lenv = k[2]; k = k[1]; r0 = result; ((object****) lenv) [1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object****) lenv) [1][1][1][4]; lenv[2] = r0; goto FUN_loop_1297_i0; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[186]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L373; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L373: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[2] = r1; r0 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L374; ; k = t; lenv = r0[2]; goto *r0[1]; L374: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object****) lenv) [1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L375; ; k = t; lenv = r0[2]; goto *r0[1]; L375: ; lenv = k[2]; k = k[1]; r0 = result; ((object****) lenv) [1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object****) lenv) [1][1][1][4]; lenv[2] = r0; goto FUN_loop_1297_i0; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L366: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1297_i0; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L376; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L376: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object***) lenv) [1][1][4] = r1; } else { r1 = (object *) 14; } r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L365: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_skip_whitespace_1276_i0; r1[2] = lenv; r0[2] = r1; // def read-atom_1277_i0 goto L377; FUN_read_atom_1277_i0: check_heap (0); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = (object *) 1; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = (object *) 12290; r0[4] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1302_i0 goto L378; FUN_loop_1302_i0: check_heap (0); r0 = ((object*****) lenv) [1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L379; ; k = t; lenv = r0[2]; goto *r0[1]; L379: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object*****) lenv) [1][1][1][1][4]; ((object***) lenv) [1][1][4] = r0; r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 11778; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][3]; r1 = (object *) 3; r2 = r0; r0 = box((pxll_int)unbox(r2)+unbox(r1)); ((object***) lenv) [1][1][3] = r0; } else { r0 = (object *) 14; } r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 7; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 11; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[187]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L380; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L380: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 11; } else { r0 = (object *) 7; } } } else { goto fatbar_378; } goto fatbar_378_over; fatbar_378: r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 5; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 13; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[187]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L381; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L381: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 13; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[188]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L382; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L382: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 5; } else { r0 = (object *) 7; } } } } else { goto fatbar_379; } goto fatbar_379_over; fatbar_379: r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 3; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 11; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[187]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L383; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L383: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 11; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[188]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L384; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L384: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 5; } else { r0 = (object *) 7; } } } } else { goto fatbar_380; } goto fatbar_380_over; fatbar_380: r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 9; } else { r0 = ((object***) lenv) [1][1][4]; r1 = (object *) 11522; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object *) 3; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[188]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L385; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L385: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 5; } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = top[187]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L386; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L386: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 15; } else { r0 = (object *) 7; } } } } } else { goto fatbar_381; } goto fatbar_381_over; fatbar_381: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; fatbar_381_over: ; fatbar_380_over: ; fatbar_379_over: ; fatbar_378_over: ; ((object***) lenv) [1][1][2] = r0; r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 9; r2 = r0; r0 = PXLL_TEST(unbox(r2)len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1124; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1124; result=r0; goto Lreturn; PXLL_RETURN(0); } else { r0 = ((object***) lenv) [1][1][2]; r1 = (object *) 15; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object******) lenv) [1][1][1][1][1][4]; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L388; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L388: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object******) lenv) [1][1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[4] = r1; r0 = ((object*) lenv) [4]; r1 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object*) lenv) [2] = r0; } else { r0 = (object *) 14; } r0 = allocate (UOTAG(0), 4); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][2]; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L389; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L389: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = top[58]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L390; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_list__3estring_363; L390: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[1] = r1; r1 = ((object***) lenv) [1][1][2]; r2 = (object *) 13; r3 = r1; r1 = PXLL_TEST(unbox(r3)==unbox(r2)); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L391; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L391: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r0[4] = r1; PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L378: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1302_i0; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) constructed_1123[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L377: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_read_atom_1277_i0; r1[2] = lenv; r0[3] = r1; // def read_1281_i0 goto L392; FUN_read_1281_i0: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L393; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L393: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][4]; r3 = (object *) 65794; r4 = r2; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L394; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L394: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object****) lenv) [1][1][1][4] = r2; } else { r2 = (object *) 14; } r2 = ((object****) lenv) [1][1][1][4]; r1[2] = r2; r1 = ((object*) lenv) [2]; r2 = (object *) 10498; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_1103; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_1103; result=r1; goto Lreturn; } else { goto fatbar_338; } goto fatbar_338_over; fatbar_338: r1 = ((object*) lenv) [2]; r2 = (object *) 8962; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L395; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L395: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][4]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L396; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L396: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object****) lenv) [1][1][1][4] = r1; } else { r1 = (object *) 14; } r1 = ((object****) lenv) [1][1][1][4]; ((object*) lenv) [2] = r1; r1 = ((object*) lenv) [2]; r2 = (object *) 10242; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][7]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L397; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L397: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(7),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_340; } goto fatbar_340_over; fatbar_340: r1 = ((object*) lenv) [2]; r2 = (object *) 29954; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L398; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L398: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object*)UITAG(6); } else { goto fatbar_341; } goto fatbar_341_over; fatbar_341: r1 = ((object*) lenv) [2]; r2 = (object *) 21762; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L399; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L399: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object*)UITAG(6); } else { goto fatbar_342; } goto fatbar_342_over; fatbar_342: r1 = ((object*) lenv) [2]; r2 = (object *) 26114; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L400; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L400: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; } else { goto fatbar_343; } goto fatbar_343_over; fatbar_343: r1 = ((object*) lenv) [2]; r2 = (object *) 17922; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L401; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L401: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; } else { goto fatbar_344; } goto fatbar_344_over; fatbar_344: r1 = ((object*) lenv) [2]; r2 = (object *) 29698; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L402; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L402: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object *) 262; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; } else { goto fatbar_345; } goto fatbar_345_over; fatbar_345: r1 = ((object*) lenv) [2]; r2 = (object *) 21506; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L403; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L403: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = (object *) 262; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; } else { goto fatbar_346; } goto fatbar_346_over; fatbar_346: r1 = ((object*) lenv) [2]; r2 = (object *) 28418; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L404; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L404: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][9]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L405; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L405: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_347; } goto fatbar_347_over; fatbar_347: r1 = ((object*) lenv) [2]; r2 = (object *) 20226; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L406; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L406: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][9]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L407; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L407: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_348; } goto fatbar_348_over; fatbar_348: r1 = ((object*) lenv) [2]; r2 = (object *) 30722; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L408; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L408: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][8]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L409; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L409: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_349; } goto fatbar_349_over; fatbar_349: r1 = ((object*) lenv) [2]; r2 = (object *) 22530; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L410; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L410: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][8]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L411; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L411: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_350; } goto fatbar_350_over; fatbar_350: r1 = ((object*) lenv) [2]; r2 = (object *) 23554; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L412; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L412: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L413; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L413: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case_noint (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,2); r1[3] = r2; r1 = (object *) 3; r2 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object *) 1; r2 = ((object*) lenv) [2]; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = TO_CHAR(((unsigned char *)((pxll_string*)(r2))->data)[unbox(r1)]); r2 = r1; t = alloc_no_clear (UOTAG(3),1); t[1] = r2; r1 = t; } else { goto fatbar_353; } goto fatbar_353_over; fatbar_353: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1104; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L414; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L414: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 2; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_354; } goto fatbar_354_over; fatbar_354: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1105; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L415; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L415: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 65794; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_355; } goto fatbar_355_over; fatbar_355: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1106; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L416; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L416: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 2306; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_356; } goto fatbar_356_over; fatbar_356: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1107; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L417; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L417: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 3330; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_357; } goto fatbar_357_over; fatbar_357: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1108; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L418; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L418: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 8194; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { goto fatbar_358; } goto fatbar_358_over; fatbar_358: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object*) &constructed_1109; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L419; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L419: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = (object *) 2562; t = alloc_no_clear (UOTAG(3),1); t[1] = r1; r1 = t; } else { lenv = ((object *)lenv)[1]; goto fatbar_352; } fatbar_358_over: ; fatbar_357_over: ; fatbar_356_over: ; fatbar_355_over: ; fatbar_354_over: ; fatbar_353_over: ; lenv = lenv[1]; } break; default: { goto fatbar_352; }; } goto fatbar_352_over; fatbar_352: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_1110; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L420; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L420: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_352_over: ; lenv = lenv[1]; } else { goto fatbar_351; } goto fatbar_351_over; fatbar_351: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_1111; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L421; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L421: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_351_over: ; fatbar_350_over: ; fatbar_349_over: ; fatbar_348_over: ; fatbar_347_over: ; fatbar_346_over: ; fatbar_345_over: ; fatbar_344_over: ; fatbar_343_over: ; fatbar_342_over: ; fatbar_341_over: ; fatbar_340_over: ; } else { goto fatbar_339; } goto fatbar_339_over; fatbar_339: r1 = ((object*) lenv) [2]; r2 = (object *) 14850; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L422; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L422: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L423; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L423: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [2]; switch (get_case_noint (r2)) { default: { r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object**) lenv) [1][2]; r3 = UOBJ_GET(r3,1); r2[3] = r3; r3 = ((object**) lenv) [1][2]; r3 = UOBJ_GET(r3,3); r2[4] = r3; r2 = ((object*) lenv) [3]; switch (get_case (r2)) { case ((pxll_int)PXLL_TRUE): { r2 = allocate (TC_TUPLE, 3); r3 = (object*) &constructed_1112; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[15]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L424; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_error1_294; L424: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } break; default: { r2 = (object *) 1; r3 = ((object*) lenv) [4]; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[84]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L425; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string__3esymbol_421; L425: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } else { goto fatbar_360; } goto fatbar_360_over; fatbar_360: r2 = allocate (TC_TUPLE, 3); r3 = (object*) &constructed_1113; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[15]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L426; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_error1_294; L426: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; fatbar_360_over: ; } break; } lenv = lenv[1]; } break; } r1[3] = r2; r1 = ((object*) lenv) [3]; r2 = (object *) constructed_45[0]; t = alloc_no_clear (UOTAG(9),2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_359; } goto fatbar_359_over; fatbar_359: r1 = ((object*) lenv) [2]; r2 = (object *) 11266; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L427; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L427: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_1115[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L428; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L428: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_361; } goto fatbar_361_over; fatbar_361: r1 = ((object*) lenv) [2]; r2 = (object *) 9986; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L429; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L429: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_938[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L430; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L430: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_362; } goto fatbar_362_over; fatbar_362: r1 = ((object*) lenv) [2]; r2 = (object *) 8706; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L431; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L431: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1337_i368_i442_i0 goto L432; FUN_loop_1337_i368_i442_i0: check_heap (0); r0 = (object *) 23554; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[2] = r1; r0 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L433; ; k = t; lenv = r0[2]; goto *r0[1]; L433: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[2] = r1; r0 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L434; ; k = t; lenv = r0[2]; goto *r0[1]; L434: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; ((object*) lenv) [2] = r0; r0 = (object *) 23554; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L435; ; k = t; lenv = r0[2]; goto *r0[1]; L435: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = ((object*) lenv) [3]; r2 = (object *) 23554; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442_i0; } else { goto fatbar_365; } PXLL_RETURN(0); goto fatbar_365_over; fatbar_365: r0 = (object *) 8706; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L436; ; k = t; lenv = r0[2]; goto *r0[1]; L436: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = ((object*) lenv) [3]; r2 = (object *) 8706; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442_i0; } else { goto fatbar_366; } PXLL_RETURN(0); goto fatbar_366_over; fatbar_366: r0 = (object *) 29698; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L437; ; k = t; lenv = r0[2]; goto *r0[1]; L437: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = ((object*) lenv) [3]; r2 = (object *) 2306; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442_i0; } else { goto fatbar_367; } PXLL_RETURN(0); goto fatbar_367_over; fatbar_367: r0 = (object *) 28162; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L438; ; k = t; lenv = r0[2]; goto *r0[1]; L438: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = ((object*) lenv) [3]; r2 = (object *) 2562; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442_i0; } else { goto fatbar_368; } PXLL_RETURN(0); goto fatbar_368_over; fatbar_368: r0 = (object *) 29186; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L439; ; k = t; lenv = r0[2]; goto *r0[1]; L439: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = ((object*) lenv) [3]; r2 = (object *) 3330; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442_i0; } else { goto fatbar_369; } PXLL_RETURN(0); goto fatbar_369_over; fatbar_369: r0 = (object *) 22530; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L440; ; k = t; lenv = r0[2]; goto *r0[1]; L440: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object******) lenv) [1][1][1][1][1][6]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L441; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L441: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object**) lenv) [1][3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442_i0; } else { goto fatbar_370; } PXLL_RETURN(0); goto fatbar_370_over; fatbar_370: r0 = (object *) 30722; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L442; ; k = t; lenv = r0[2]; goto *r0[1]; L442: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object******) lenv) [1][1][1][1][1][6]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L443; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L443: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object**) lenv) [1][3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442_i0; } else { goto fatbar_371; } PXLL_RETURN(0); goto fatbar_371_over; fatbar_371: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1117; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_371_over: ; PXLL_RETURN(0); fatbar_370_over: ; PXLL_RETURN(0); fatbar_369_over: ; PXLL_RETURN(0); fatbar_368_over: ; PXLL_RETURN(0); fatbar_367_over: ; PXLL_RETURN(0); fatbar_366_over: ; PXLL_RETURN(0); fatbar_365_over: ; PXLL_RETURN(0); } else { goto fatbar_364; } PXLL_RETURN(0); goto fatbar_364_over; fatbar_364: r0 = (object *) 8706; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[2] = r1; r0 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L444; ; k = t; lenv = r0[2]; goto *r0[1]; L444: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L445; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L445: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[58]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L446; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_list__3estring_363; L446: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } else { goto fatbar_372; } PXLL_RETURN(0); goto fatbar_372_over; fatbar_372: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[2] = r1; r0 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L447; ; k = t; lenv = r0[2]; goto *r0[1]; L447: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L448; ; k = t; lenv = r0[2]; goto *r0[1]; L448: ; lenv = k[2]; k = k[1]; r0 = result; ((object******) lenv) [1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1337_i368_i442_i0; fatbar_372_over: ; PXLL_RETURN(0); fatbar_364_over: ; PXLL_RETURN(0); L432: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1337_i368_i442_i0; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][4]; r3 = (object *) 65794; r4 = r2; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L449; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L449: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object*****) lenv) [1][1][1][1][4] = r2; } else { r2 = (object *) 14; } r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r2 = (object *) constructed_1116[0]; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L450; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L450: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } else { goto fatbar_363; } goto fatbar_363_over; fatbar_363: r1 = ((object*) lenv) [2]; r2 = (object *) 31490; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L451; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L451: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*****) lenv) [1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1344_i402_i442_i0 goto L452; FUN_loop_1344_i402_i442_i0: check_heap (0); r0 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L453; ; k = t; lenv = r0[2]; goto *r0[1]; L453: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L454; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L454: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*******) lenv) [1][1][1][1][1][1][4] = r1; } else { r1 = (object *) 14; } r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[2] = r1; r0 = (object *) 32002; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object********) lenv) [1][1][1][1][1][1][1][4]; r0[2] = r1; r0 = ((object********) lenv) [1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L455; ; k = t; lenv = r0[2]; goto *r0[1]; L455: ; lenv = k[2]; k = k[1]; r0 = result; ((object********) lenv) [1][1][1][1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L456; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L456: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(8),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1349_i409_i442_i0 goto L457; FUN_loop_1349_i409_i442_i0: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = top[189]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L458; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L458: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; } else { r0 = (object *) 11778; r1 = ((object*) lenv) [3]; r0 = PXLL_TEST(r1==r0); } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][4]; r0[2] = r1; r0 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L459; ; k = t; lenv = r0[2]; goto *r0[1]; L459: ; lenv = k[2]; k = k[1]; r0 = result; ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][4]; r1 = (object *) 65794; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L460; ; k = t; lenv = r0[2]; goto *r0[1]; L460: ; lenv = k[2]; k = k[1]; r0 = result; ((object**********) lenv) [1][1][1][1][1][1][1][1][1][4] = r0; } else { r0 = (object *) 14; } r0 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][4]; r1 = ((object*) lenv) [2]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r2 = (object *) 6; lenv[2] = r1; lenv[3] = r0; lenv[4] = r2; goto FUN_loop_1349_i409_i442_i0; } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L461; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L461: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[58]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L462; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_list__3estring_363; L462: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[84]; r0[1] = r1[2]; lenv = r0; goto FUN_string__3esymbol_421; } PXLL_RETURN(0); L457: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1349_i409_i442_i0; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 4); r2 = (object *) constructed_1120[0]; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r3 = (object *) 65794; r4 = r2; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L463; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L463: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object*********) lenv) [1][1][1][1][1][1][1][1][4] = r2; } else { r2 = (object *) 14; } r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r1[3] = r2; r2 = (object *) 6; r1[4] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L464; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L464: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; r0 = (object *) constructed_62[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r0; r0 = t; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),2); t[1] = r2; t[2] = r1; r1 = t; r2 = ((object***) lenv) [1][1][2]; r3 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r0 = t; lenv = ((object **)lenv)[1][1]; lenv[2] = r0; goto FUN_loop_1344_i402_i442_i0; } else { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L465; ; k = t; lenv = r0[2]; goto *r0[1]; L465: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L466; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L466: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*********) lenv) [1][1][1][1][1][1][1][1][4] = r1; } else { r1 = (object *) 14; } r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r0[2] = r1; r1 = (object *) 15618; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(r2==r1); r0[3] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [3]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1119; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r0[2] = r1; r0 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L467; ; k = t; lenv = r0[2]; goto *r0[1]; L467: ; lenv = k[2]; k = k[1]; r0 = result; ((object*********) lenv) [1][1][1][1][1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object*******) lenv) [1][1][1][1][1][1][4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L468; ; k = t; lenv = r0[2]; goto *r0[1]; L468: ; lenv = k[2]; k = k[1]; r0 = result; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),2); t[1] = r2; t[2] = r1; r1 = t; r2 = ((object***) lenv) [1][1][2]; r3 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; lenv = ((object **)lenv)[1][1]; lenv[2] = r1; goto FUN_loop_1344_i402_i442_i0; } PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L452: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1344_i402_i442_i0; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_1118[0]; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L469; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L469: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } else { goto fatbar_373; } goto fatbar_373_over; fatbar_373: r1 = ((object*) lenv) [2]; r2 = (object *) 10242; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][7]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L470; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L470: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_374; } goto fatbar_374_over; fatbar_374: r1 = ((object*) lenv) [2]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_1121; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_1121; result=r1; goto Lreturn; } else { goto fatbar_375; } goto fatbar_375_over; fatbar_375: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L471; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L471: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case_noint (r1)) { default: { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case ((pxll_int)PXLL_TRUE): { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = (object *) 1; r3 = ((object**) lenv) [1][2]; range_check (((pxll_string *)(((pxll_string*)(r3))))->len, unbox(r2)); r2 = (object *) 1; r3 = ((object**) lenv) [1][2]; r2 = TO_CHAR(((unsigned char *)((pxll_string*)(r3))->data)[unbox(r2)]); r1[2] = r2; r2 = (object *) 11522; r3 = ((object*) lenv) [2]; r2 = PXLL_TEST(r3==r2); r1[3] = r2; r2 = ((object*) lenv) [3]; if PXLL_IS_TRUE(r2) { r2 = (object *) 3; } else { r2 = (object *) 1; } r1[4] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; // def loop_1357_i430_i442_i0 goto L472; FUN_loop_1357_i430_i442_i0: check_heap (0); r0 = ((object****) lenv) [1][1][1][4]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = ((object***) lenv) [1][1][3]; if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [3]; r1 = (object *) 1; r0 = box((pxll_int)unbox(r1)-unbox(r0)); PXLL_RETURN(0); } else { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = top[179]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r3 = ((object*****) lenv) [1][1][1][1][2]; range_check (((pxll_string *)(((pxll_string*)(r3))))->len, unbox(r2)); r2 = ((object**) lenv) [1][2]; r3 = ((object*****) lenv) [1][1][1][1][2]; r2 = TO_CHAR(((unsigned char *)((pxll_string*)(r3))->data)[unbox(r2)]); r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L473; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L473: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1122; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = (object *) 21; r2 = ((object**) lenv) [1][3]; r1 = box((pxll_int)unbox(r2)*unbox(r1)); r2 = r0; r3 = r1; r1 = box((pxll_int)unbox(r3)+unbox(r2)); r2 = (object *) 3; r3 = ((object**) lenv) [1][2]; r2 = box((pxll_int)unbox(r3)+unbox(r2)); lenv = ((object *)lenv)[1]; lenv[2] = r2; lenv[3] = r1; goto FUN_loop_1357_i430_i442_i0; } break; } PXLL_RETURN(0); } PXLL_RETURN(0); L472: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_loop_1357_i430_i442_i0; r3[2] = lenv; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = (object *) 1; r2[3] = r3; r3 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L474; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L474: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[5] = r2; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; lenv = lenv[1]; } break; default: { r1 = (object *) 1; r2 = ((object*) lenv) [5]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[84]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L475; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string__3esymbol_421; L475: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { goto fatbar_376; } goto fatbar_376_over; fatbar_376: r1 = ((object*) lenv) [2]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = r1; r3 = ((object*) lenv) [5]; r1 = PXLL_TEST(unbox(r3)==unbox(r2)); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[84]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L476; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string__3esymbol_421; L476: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; lenv = lenv[1]; } else { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1306_i441_i442_i0 goto L477; FUN_loop_1306_i441_i442_i0: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L478; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L478: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { goto fatbar_377; } } PXLL_RETURN(0); goto fatbar_377_over; fatbar_377: r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L479; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L479: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L480; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L480: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(10),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); fatbar_377_over: ; PXLL_RETURN(0); } break; default: { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L477: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1306_i441_i442_i0; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = ((object***) lenv) [1][1][2]; r3[2] = r4; r4 = (object *) 11778; r3[3] = r4; r4 = top[53]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L481; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_string_split_356; L481: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L482; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L482: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L483; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L483: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } fatbar_376_over: ; } break; } lenv = lenv[1]; } break; } lenv = lenv[1]; fatbar_375_over: ; fatbar_374_over: ; fatbar_373_over: ; fatbar_363_over: ; fatbar_362_over: ; fatbar_361_over: ; fatbar_359_over: ; fatbar_339_over: ; fatbar_338_over: ; lenv = lenv[1]; r0[2] = r1; r0 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L484; ; k = t; lenv = r0[2]; goto *r0[1]; L484: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][4]; r2 = (object *) 65794; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L485; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L485: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object****) lenv) [1][1][1][4] = r1; } else { r1 = (object *) 14; } r1 = ((object****) lenv) [1][1][1][4]; r0[2] = r1; r0 = (object *) 14850; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[2] = r1; r0 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L486; ; k = t; lenv = r0[2]; goto *r0[1]; L486: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][4] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; r0 = ((object***) lenv) [1][1][4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L487; ; k = t; lenv = r0[2]; goto *r0[1]; L487: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object**) lenv) [1][2]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r2 = r0; switch (get_case (r2)) { case (UOTAG(1)): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r2; r4 = r1; t = alloc_no_clear (UOTAG(9),2); t[1] = r4; t[2] = r3; r3 = t; PXLL_RETURN(3); } break; default: { goto fatbar_335; } } PXLL_RETURN(2); } break; default: { goto fatbar_335; } } PXLL_RETURN(1); goto fatbar_335_over; fatbar_335: r1 = r0; switch (get_case (r1)) { case (UOTAG(9)): { r1 = r0; r1 = UOBJ_GET(r1,0); r2 = r0; r2 = UOBJ_GET(r2,1); r3 = (object *) constructed_45[0]; r4 = r1; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = (object *) constructed_706[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r4; r4 = t; r3[2] = r4; r4 = r2; t = alloc_no_clear (UOTAG(1),1); t[1] = r4; r4 = t; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; t = alloc_no_clear (UOTAG(0),1); t[1] = r3; r3 = t; PXLL_RETURN(3); } else { goto fatbar_336; } PXLL_RETURN(3); } break; default: { goto fatbar_336; } } PXLL_RETURN(1); goto fatbar_336_over; fatbar_336: r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_714[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; PXLL_RETURN(1); fatbar_336_over: ; PXLL_RETURN(1); fatbar_335_over: ; PXLL_RETURN(1); } else { goto fatbar_334; } PXLL_RETURN(0); goto fatbar_334_over; fatbar_334: r0 = (object *) 23298; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 9); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object******) lenv) [1][1][1][1][1][4]; r1[2] = r2; r1 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L488; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L488: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object******) lenv) [1][1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L489; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L489: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L490; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L490: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r3 = (object *) 65794; r4 = r2; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L491; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L491: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object*******) lenv) [1][1][1][1][1][1][4] = r2; } else { r2 = (object *) 14; } r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r1[2] = r2; r1 = (object *) 23810; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(r2==r1); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r1[2] = r2; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L492; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L492: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*******) lenv) [1][1][1][1][1][1][4] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r1 = ((object*) lenv) [2]; } else { r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_1102; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_1102; result=r1; goto Lreturn; } lenv = lenv[1]; r0[2] = r1; r1 = (object *) constructed_302[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[3] = r1; r1 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = (object*)TC_NIL; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[9] = r1; r0 = ((object*) lenv) [9]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } else { goto fatbar_337; } PXLL_RETURN(0); goto fatbar_337_over; fatbar_337: r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); fatbar_337_over: ; PXLL_RETURN(0); fatbar_334_over: ; PXLL_RETURN(0); L392: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_read_1281_i0; r1[2] = lenv; r0[4] = r1; // def read-hex-digit_1283_i0 goto L493; FUN_read_hex_digit_1283_i0: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = top[178]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L494; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L494: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1101; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1101; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L493: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_read_hex_digit_1283_i0; r1[2] = lenv; r0[5] = r1; // def read-hex-code_1284_i0 goto L495; FUN_read_hex_code_1284_i0: check_heap (0); r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object****) lenv) [1][1][1][4]; r2[2] = r3; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L496; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L496: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object****) lenv) [1][1][1][4] = r2; r2 = ((object*) lenv) [2]; lenv = lenv[1]; r1[2] = r2; r2 = ((object**) lenv) [1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L497; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L497: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object****) lenv) [1][1][1][4]; r2[2] = r3; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L498; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L498: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; ((object****) lenv) [1][1][1][4] = r2; r2 = ((object*) lenv) [2]; lenv = lenv[1]; r1[2] = r2; r2 = ((object**) lenv) [1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L499; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L499: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = (object *) 17; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)<symbol_429 goto L531; FUN_sexp__3esymbol_429: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_332; } } PXLL_RETURN(0); goto fatbar_332_over; fatbar_332: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1096; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_332_over: ; PXLL_RETURN(0); L531: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_sexp__3esymbol_429; r1[2] = lenv; r0[90] = r1; // def sexp->int_430 goto L532; FUN_sexp__3eint_430: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(5)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_331; } } PXLL_RETURN(0); goto fatbar_331_over; fatbar_331: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1095; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_331_over: ; PXLL_RETURN(0); L532: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_sexp__3eint_430; r1[2] = lenv; r0[91] = r1; // def field=?_431 goto L533; FUN_field_3d_question_431: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object**) lenv) [1][3]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; r1 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][3]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[93]; r0[1] = r1[2]; lenv = r0; goto FUN_sexp_3d_question_432; } else { r0 = (object *) 6; PXLL_RETURN(0); } PXLL_RETURN(0); PXLL_RETURN(0); PXLL_RETURN(0); L533: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_field_3d_question_431; r1[2] = lenv; r0[92] = r1; // def sexp=?_432 goto L534; FUN_sexp_3d_question_432: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(6)): { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(6)): { r0 = (object *) 262; PXLL_RETURN(0); } break; default: { goto fatbar_330; } } PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r2 = r1; r3 = r0; r2 = PXLL_TEST(r3==r2); PXLL_RETURN(2); } break; default: { goto fatbar_330; } } PXLL_RETURN(1); } break; case (UOTAG(4)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(4)): { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r2 = r1; r3 = r0; r2 = PXLL_TEST(r3==r2); PXLL_RETURN(2); } break; default: { goto fatbar_330; } } PXLL_RETURN(1); } break; case (UOTAG(5)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(5)): { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r2 = r1; r3 = r0; r2 = PXLL_TEST(unbox(r3)==unbox(r2)); PXLL_RETURN(2); } break; default: { goto fatbar_330; } } PXLL_RETURN(1); } break; case (UOTAG(2)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L535; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L535: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [3]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_330; } } PXLL_RETURN(0); } break; case (UOTAG(3)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(3)): { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r2 = r1; r3 = r0; r2 = PXLL_TEST(r3==r2); PXLL_RETURN(2); } break; default: { goto fatbar_330; } } PXLL_RETURN(1); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = top[93]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = top[45]; r0[1] = r1[2]; lenv = r0; goto FUN_every2_question_337; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_330; } } PXLL_RETURN(0); } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = top[93]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = top[45]; r0[1] = r1[2]; lenv = r0; goto FUN_every2_question_337; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_330; } } PXLL_RETURN(0); } break; case (UOTAG(8)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (UOTAG(8)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = top[92]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = top[45]; r0[1] = r1[2]; lenv = r0; goto FUN_every2_question_337; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_330; } } PXLL_RETURN(0); } break; case (UOTAG(9)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [3]; switch (get_case (r2)) { case (UOTAG(9)): { r2 = ((object*) lenv) [3]; r2 = UOBJ_GET(r2,0); r3 = ((object*) lenv) [3]; r3 = UOBJ_GET(r3,1); r4 = r2; r5 = r0; if PXLL_IS_TRUE(PXLL_TEST(r5==r4)) { r4 = r3; r5 = r1; r4 = PXLL_TEST(r5==r4); PXLL_RETURN(4); } else { r4 = (object *) 6; PXLL_RETURN(4); } PXLL_RETURN(4); } break; default: { goto fatbar_330; } } PXLL_RETURN(2); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [3]; switch (get_case (r2)) { case (UOTAG(10)): { r2 = ((object*) lenv) [3]; r2 = UOBJ_GET(r2,0); r3 = ((object*) lenv) [3]; r3 = UOBJ_GET(r3,1); r4 = allocate (TC_TUPLE, 3); r5 = r0; r4[2] = r5; r5 = r2; r4[3] = r5; r5 = top[93]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L536; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_sexp_3d_question_432; L536: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; if PXLL_IS_TRUE(r4) { r4 = r3; r5 = r1; r4 = PXLL_TEST(r5==r4); PXLL_RETURN(4); } else { r4 = (object *) 6; PXLL_RETURN(4); } PXLL_RETURN(4); } break; default: { goto fatbar_330; } } PXLL_RETURN(2); } break; } PXLL_RETURN(0); goto fatbar_330_over; fatbar_330: r0 = (object *) 6; PXLL_RETURN(0); fatbar_330_over: ; PXLL_RETURN(0); L534: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_sexp_3d_question_432; r1[2] = lenv; r0[93] = r1; // def repr-field_434 goto L537; FUN_repr_field_434: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_62[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object*) &constructed_1093; PXLL_RETURN(0); } else { goto fatbar_329; } PXLL_RETURN(0); goto fatbar_329_over; fatbar_329: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[95]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L538; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_repr_435; L538: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_1094; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; fatbar_329_over: ; PXLL_RETURN(0); PXLL_RETURN(0); L537: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_repr_field_434; r1[2] = lenv; r0[94] = r1; // def repr_435 goto L539; FUN_repr_435: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_938[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[95]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L540; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_repr_435; L540: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = (object*)TC_NIL; r3 = r2; r4 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = (object*) &constructed_1074; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r1 = t; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_328; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_328; } } PXLL_RETURN(0); } else { lenv = ((object **)lenv)[1][1]; goto fatbar_328; } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_328; } } PXLL_RETURN(0); } break; default: { goto fatbar_328; } } PXLL_RETURN(0); goto fatbar_328_over; fatbar_328: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = top[95]; r3[2] = r4; r4 = ((object**) lenv) [1][2]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L541; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L541: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*) &constructed_1077; r2[3] = r3; r3 = top[52]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L542; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_join_355; L542: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = (object*) &constructed_1076; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = (object*) &constructed_1075; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; fatbar_328_over: ; PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; r1 = r0; r1 = UOBJ_GET(r1,0); r2 = r1; PXLL_RETURN(2); PXLL_RETURN(1); } break; case (UOTAG(2)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object*)TC_NIL; r2 = r1; r3 = (object*) &constructed_1079; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = (object*) &constructed_1078; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r1 = t; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; case (UOTAG(3)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[50]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L543; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_char__3estring_350; L543: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r1 = ((object*) lenv) [4]; r2 = (object*) &constructed_1080; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; case (UOTAG(4)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; switch (get_case (r1)) { case ((pxll_int)PXLL_TRUE): { r1 = (object*) &constructed_1081; PXLL_RETURN(1); } break; default: { r1 = (object*) &constructed_1082; PXLL_RETURN(1); } break; } PXLL_RETURN(1); } break; case (UOTAG(5)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[60]; r0[1] = r1[2]; lenv = r0; goto FUN_int__3estring_366; } break; case (UITAG(6)): { r0 = (object*) &constructed_1083; PXLL_RETURN(0); } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = top[95]; r3[2] = r4; r4 = ((object**) lenv) [1][2]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L544; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L544: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*) &constructed_1086; r2[3] = r3; r3 = top[52]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L545; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_join_355; L545: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = (object*) &constructed_1085; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = (object*) &constructed_1084; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; case (UOTAG(8)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = top[94]; r3[2] = r4; r4 = ((object**) lenv) [1][2]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L546; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L546: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*) &constructed_1089; r2[3] = r3; r3 = top[52]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L547; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_join_355; L547: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = (object*) &constructed_1088; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = (object*) &constructed_1087; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_45[0]; r3 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = (object*) &constructed_1091; } else { r2 = ((object**) lenv) [1][2]; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); } r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_1090; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[95]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L548; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_repr_435; L548: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_1092; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; } PXLL_RETURN(0); L539: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_repr_435; r1[2] = lenv; r0[95] = r1; // def indent_436 goto L549; FUN_indent_436: check_heap (0); r0 = (object *) 1; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 262; PXLL_RETURN(0); } else { goto fatbar_327; } PXLL_RETURN(0); goto fatbar_327_over; fatbar_327: r0 = (object*) &constructed_1073; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_1073; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)-unbox(r1)); r0[2] = r1; r1 = top[96]; r0[1] = r1[2]; lenv = r0; goto FUN_indent_436; fatbar_327_over: ; PXLL_RETURN(0); L549: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_indent_436; r1[2] = lenv; r0[96] = r1; // def pp-size-field_437 goto L550; FUN_pp_size_field_437: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,0); r0[4] = r1; r1 = ((object*) lenv) [4]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r0[5] = r1; r1 = (object *) 3; r2 = ((object*) lenv) [5]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[6] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[98]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L551; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pp_size_438; L551: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r0 = ((object*) lenv) [7]; r1 = ((object*) lenv) [6]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); PXLL_RETURN(0); PXLL_RETURN(0); L550: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pp_size_field_437; r1[2] = lenv; r0[97] = r1; // def pp-size_438 goto L552; FUN_pp_size_438: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = top[13]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L553; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L553: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; r2 = (object *) 3; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv = lenv[1]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[98]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L554; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L554: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = top[42]; r0[1] = r1[2]; lenv = r0; goto FUN_foldr_334; } break; case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; r1 = r0; r1 = UOBJ_GET(r1,0); r2 = r1; r2 = box((pxll_int)((pxll_string*)(r2))->len); PXLL_RETURN(2); } break; case (UOTAG(2)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = r1; r3 = (object *) 5; r2 = box((pxll_int)unbox(r3)+unbox(r2)); PXLL_RETURN(2); } break; case (UOTAG(3)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(3),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = top[95]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L555; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_repr_435; L555: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r0 = box((pxll_int)((pxll_string*)(r0))->len); PXLL_RETURN(0); } break; case (UOTAG(4)): { r0 = (object *) 5; PXLL_RETURN(0); } break; case (UOTAG(5)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[60]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L556; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_int__3estring_366; L556: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r0 = box((pxll_int)((pxll_string*)(r0))->len); PXLL_RETURN(0); } break; case (UITAG(6)): { r0 = (object *) 5; PXLL_RETURN(0); } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = top[13]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L557; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L557: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; r2 = (object *) 5; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv = lenv[1]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[98]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L558; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L558: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = top[42]; r0[1] = r1[2]; lenv = r0; goto FUN_foldr_334; } break; case (UOTAG(8)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = top[13]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L559; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L559: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv = lenv[1]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[97]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L560; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L560: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = top[42]; r0[1] = r1[2]; lenv = r0; goto FUN_foldr_334; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 8); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,0); r0[4] = r1; r1 = ((object*) lenv) [4]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r0[5] = r1; r1 = ((object*) lenv) [3]; r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r0[6] = r1; r1 = ((object*) lenv) [6]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [5]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[8] = r1; r0 = ((object*) lenv) [8]; r1 = (object *) 3; r0 = box((pxll_int)unbox(r1)+unbox(r0)); PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[98]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L561; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pp_size_438; L561: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [3]; r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r0[5] = r1; r1 = ((object*) lenv) [5]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [4]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[7] = r1; r0 = ((object*) lenv) [7]; r1 = (object *) 3; r0 = box((pxll_int)unbox(r1)+unbox(r0)); PXLL_RETURN(0); } break; } PXLL_RETURN(0); L552: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pp_size_438; r1[2] = lenv; r0[98] = r1; // def pp_439 goto L562; FUN_pp_439: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[98]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L563; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pp_size_438; L563: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 161; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_1070; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_1070; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object*) &constructed_1072; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_1072; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[99]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L565; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_pp_439; L565: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_7238 goto L566; FUN_lambda_7238: check_heap (0); r0 = top[167]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L567; ; k = t; lenv = r0[2]; goto *r0[1]; L567: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 3; r2 = ((object*****) lenv) [1][1][1][1][2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[2] = r1; r1 = top[96]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L568; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_indent_436; L568: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = (object *) 3; r2 = ((object*****) lenv) [1][1][1][1][2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[99]; r0[1] = r1[2]; lenv = r0; goto FUN_pp_439; L566: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_7238; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L569; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L569: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_1071; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_1071; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; default: { goto fatbar_326; } } PXLL_RETURN(0); goto fatbar_326_over; fatbar_326: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = top[95]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L570; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_repr_435; L570: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); fatbar_326_over: ; PXLL_RETURN(0); } PXLL_RETURN(0); L562: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pp_439; r1[2] = lenv; r0[99] = r1; // def matches-list?_441 goto L571; FUN_matches_list_question_441: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 262; PXLL_RETURN(0); } break; default: { goto fatbar_324; } } PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_62[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); // def lambda_7328 goto L572; FUN_lambda_7328: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[101]; r0[1] = r1[2]; lenv = r0; goto FUN_matches_pattern_question_443; L572: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_7328; r1[2] = lenv; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = top[44]; r0[1] = r1[2]; lenv = r0; goto FUN_every_question_336; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_325; } } PXLL_RETURN(0); } else { lenv = ((object **)lenv)[1][1]; goto fatbar_325; } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_325; } } PXLL_RETURN(0); } break; default: { goto fatbar_325; } } PXLL_RETURN(0); goto fatbar_325_over; fatbar_325: r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[101]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L573; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_matches_pattern_question_443; L573: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [3]; r1 = ((object**) lenv) [1][3]; lenv = ((object **)lenv)[1][1]; lenv[2] = r1; lenv[3] = r0; goto FUN_matches_list_question_441; } else { r0 = (object *) 6; PXLL_RETURN(0); } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_324; } } PXLL_RETURN(0); fatbar_325_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); goto fatbar_324_over; fatbar_324: r0 = (object *) 6; PXLL_RETURN(0); fatbar_324_over: ; PXLL_RETURN(0); L571: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_matches_list_question_441; r1[2] = lenv; r0[100] = r1; // def matches-pattern?_443 goto L574; FUN_matches_pattern_question_443: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = (object *) 1; r2 = r0; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = (object *) 1; r2 = r0; r1 = TO_CHAR(((unsigned char *)((pxll_string*)(r2))->data)[unbox(r1)]); r2 = (object *) 15362; r3 = r1; r0 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r0) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[3] = r1; r1 = ((object*) lenv) [3]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r0[4] = r1; r0 = (object *) 3; r1 = ((object*) lenv) [4]; r0 = box((pxll_int)unbox(r1)-unbox(r0)); r1 = r0; r2 = ((object*) lenv) [3]; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = r0; r2 = ((object*) lenv) [3]; r1 = TO_CHAR(((unsigned char *)((pxll_string*)(r2))->data)[unbox(r1)]); r2 = (object *) 15874; r3 = r1; r0 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = (object *) 3; r1[3] = r2; r2 = (object *) 3; r3 = ((object**) lenv) [1][4]; r2 = box((pxll_int)unbox(r3)-unbox(r2)); r1[4] = r2; r2 = top[49]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L575; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_substring_347; L575: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L576; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L576: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [4]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); PXLL_RETURN(0); } else { r0 = (object *) 262; PXLL_RETURN(0); } PXLL_RETURN(0); } break; default: { goto fatbar_323; } } PXLL_RETURN(0); goto fatbar_323_over; fatbar_323: r0 = (object *) 6; PXLL_RETURN(0); fatbar_323_over: ; PXLL_RETURN(0); } else { r0 = (object *) 262; PXLL_RETURN(0); } PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[100]; r0[1] = r1[2]; lenv = r0; goto FUN_matches_list_question_441; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_322; } } PXLL_RETURN(0); } break; default: { goto fatbar_322; } } PXLL_RETURN(0); goto fatbar_322_over; fatbar_322: r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); PXLL_RETURN(0); fatbar_322_over: ; PXLL_RETURN(0); L574: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_matches_pattern_question_443; r1[2] = lenv; r0[101] = r1; // def get-ellipsis-nestings_444 goto L577; FUN_get_ellipsis_nestings_444: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def dolist_1494 goto L578; FUN_dolist_1494: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case (r2)) { case (UOTAG(1)): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = (object *) constructed_62[0]; r4 = r2; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = r1; switch (get_case (r3)) { case (TC_NIL): { r3 = allocate (TC_TUPLE, 2); r4 = ((object*) lenv) [2]; r3[2] = r4; r4 = top[102]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L579; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_get_ellipsis_nestings_444; L579: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r4 = r3; t = alloc_no_clear (UOTAG(0),1); t[1] = r4; r4 = t; r5 = (object*)TC_NIL; r6 = r5; r7 = r4; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r6 = t; PXLL_RETURN(6); } break; default: { goto fatbar_321; } } PXLL_RETURN(3); } else { goto fatbar_321; } PXLL_RETURN(3); } break; default: { goto fatbar_321; } } PXLL_RETURN(2); } break; default: { goto fatbar_321; } } PXLL_RETURN(0); goto fatbar_321_over; fatbar_321: r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[102]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L580; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_ellipsis_nestings_444; L580: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L581; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_dolist_1494; L581: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L582; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L582: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; fatbar_321_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_320; } } PXLL_RETURN(0); goto fatbar_320_over; fatbar_320: r0 = (object *) constructed_1069[0]; PXLL_RETURN(0); fatbar_320_over: ; PXLL_RETURN(0); L578: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_dolist_1494; r1[2] = lenv; r0[2] = r1; r0 = ((object**) lenv) [1][2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_dolist_1494; } break; case (UOTAG(1)): { r0 = ((object**) lenv) [1][2]; r0 = UOBJ_GET(r0,0); r1 = (object*)TC_NIL; r2 = r1; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; PXLL_RETURN(2); } break; default: { goto fatbar_319; } } PXLL_RETURN(0); goto fatbar_319_over; fatbar_319: r0 = (object *) constructed_1068[0]; PXLL_RETURN(0); fatbar_319_over: ; PXLL_RETURN(0); L577: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_get_ellipsis_nestings_444; r1[2] = lenv; r0[102] = r1; // def intersect?_445 goto L583; FUN_intersect_question_445: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r2 = r1; r3 = r0; r2 = PXLL_TEST(r3==r2); PXLL_RETURN(2); } break; default: { goto fatbar_318; } } PXLL_RETURN(1); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_7592 goto L584; FUN_lambda_7592: check_heap (0); r0 = allocate (TC_TUPLE, 3); // def lambda_7588 goto L585; FUN_lambda_7588: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[103]; r0[1] = r1[2]; lenv = r0; goto FUN_intersect_question_445; L585: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_7588; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[43]; r0[1] = r1[2]; lenv = r0; goto FUN_some_question_335; L584: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_7592; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[43]; r0[1] = r1[2]; lenv = r0; goto FUN_some_question_335; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_318; } } PXLL_RETURN(0); } break; default: { goto fatbar_318; } } PXLL_RETURN(0); goto fatbar_318_over; fatbar_318: r0 = (object *) 6; PXLL_RETURN(0); fatbar_318_over: ; PXLL_RETURN(0); L583: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_intersect_question_445; r1[2] = lenv; r0[103] = r1; // def ellipsis-sub-envs_446 goto L586; FUN_ellipsis_sub_envs_446: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) constructed_1066[0]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r1 = ((object*****) lenv) [1][1][1][1][2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[103]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L587; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_intersect_question_445; L587: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } else { r0 = ((object****) lenv) [1][1][1][3]; r1 = ((object*****) lenv) [1][1][1][1][2]; lenv = ((object ****)lenv)[1][1][1][1]; lenv[2] = r1; lenv[3] = r0; goto FUN_ellipsis_sub_envs_446; } PXLL_RETURN(0); } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_317; } } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_317; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_317; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_317; } } PXLL_RETURN(0); } break; } PXLL_RETURN(0); goto fatbar_317_over; fatbar_317: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1067; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1067; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_317_over: ; PXLL_RETURN(0); L586: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_ellipsis_sub_envs_446; r1[2] = lenv; r0[104] = r1; // def get-bindings_447 goto L588; FUN_get_bindings_447: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def dolist_1522 goto L589; FUN_dolist_1522: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_62[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = top[102]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L590; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_ellipsis_nestings_444; L590: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_7708 goto L591; FUN_lambda_7708: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[105]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L592; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_get_bindings_447; L592: ; lenv = k[2]; k = k[1]; r0 = result; r1 = r0; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; PXLL_RETURN(1); L591: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_7708; r2[2] = lenv; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L593; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L593: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [4]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[5] = r1; r1 = (object*)TC_NIL; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = ((object*) lenv) [8]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[9] = r1; r1 = (object*)TC_NIL; r0[10] = r1; r0 = ((object*) lenv) [10]; r1 = ((object*) lenv) [9]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_316; } } PXLL_RETURN(0); } else { lenv = ((object **)lenv)[1][1]; goto fatbar_316; } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_316; } } PXLL_RETURN(0); } break; default: { goto fatbar_316; } } PXLL_RETURN(0); goto fatbar_316_over; fatbar_316: r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[105]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L594; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_bindings_447; L594: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L595; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_dolist_1522; L595: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L596; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L596: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_315; } } PXLL_RETURN(0); fatbar_316_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_315; } } PXLL_RETURN(0); goto fatbar_315_over; fatbar_315: r0 = (object *) constructed_1065[0]; PXLL_RETURN(0); fatbar_315_over: ; PXLL_RETURN(0); L589: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_dolist_1522; r1[2] = lenv; r0[2] = r1; r0 = ((object**) lenv) [1][2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = (object*)TC_NIL; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object***) lenv) [1][1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[6] = r1; r1 = (object*)TC_NIL; r0[7] = r1; r0 = ((object*) lenv) [7]; r1 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object***) lenv) [1][1][3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_dolist_1522; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_314; } } PXLL_RETURN(0); } break; default: { goto fatbar_314; } } PXLL_RETURN(0); goto fatbar_314_over; fatbar_314: r0 = (object *) constructed_1064[0]; PXLL_RETURN(0); fatbar_314_over: ; PXLL_RETURN(0); L588: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_get_bindings_447; r1[2] = lenv; r0[105] = r1; // def expand-pattern_449 goto L597; FUN_expand_pattern_449: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[107]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L598; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_list_450; L598: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1538_i722 goto L599; FUN_loop_1538_i722: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*)UITAG(1); PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case (r2)) { case (UOTAG(0)): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r2; switch (get_case (r3)) { case (TC_PAIR): { r3 = r2; r3 = UOBJ_GET(r3,0); r4 = r2; r4 = UOBJ_GET(r4,1); r5 = r3; switch (get_case (r5)) { case (UOTAG(1)): { r5 = r3; r5 = UOBJ_GET(r5,0); r6 = r4; switch (get_case (r6)) { case (TC_PAIR): { r6 = r4; r6 = UOBJ_GET(r6,0); r7 = r4; r7 = UOBJ_GET(r7,1); r8 = r7; switch (get_case (r8)) { case (TC_NIL): { r8 = r5; r9 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r9==r8)) { r8 = r6; t = alloc_no_clear (UOTAG(0),1); t[1] = r8; r8 = t; PXLL_RETURN(8); } else { r8 = r1; lenv[2] = r8; goto FUN_loop_1538_i722; } PXLL_RETURN(8); } break; default: { goto fatbar_313; } } PXLL_RETURN(8); } break; default: { goto fatbar_313; } } PXLL_RETURN(6); } break; default: { goto fatbar_313; } } PXLL_RETURN(5); } break; default: { goto fatbar_313; } } PXLL_RETURN(3); } break; default: { goto fatbar_313; } } PXLL_RETURN(2); goto fatbar_313_over; fatbar_313: r2 = r1; lenv[2] = r2; goto FUN_loop_1538_i722; fatbar_313_over: ; PXLL_RETURN(2); } break; } PXLL_RETURN(0); L599: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1538_i722; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L600; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_1538_i722; L600: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; default: { goto fatbar_312; } } PXLL_RETURN(0); goto fatbar_312_over; fatbar_312: r0 = ((object*) lenv) [2]; PXLL_RETURN(0); fatbar_312_over: ; PXLL_RETURN(0); L597: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_expand_pattern_449; r1[2] = lenv; r0[106] = r1; // def expand-list_450 goto L601; FUN_expand_list_450: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def sexp/append_1556 goto L602; FUN_sexp_2fappend_1556: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L603; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L603: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } break; default: { goto fatbar_311; } } PXLL_RETURN(0); goto fatbar_311_over; fatbar_311: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1063; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1063; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_311_over: ; PXLL_RETURN(0); L602: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_sexp_2fappend_1556; r1[2] = lenv; r0[2] = r1; r0 = ((object**) lenv) [1][2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_62[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = top[102]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L604; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_ellipsis_nestings_444; L604: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[3] = r2; r2 = top[104]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L605; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_ellipsis_sub_envs_446; L605: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 3); // def lambda_7982 goto L606; FUN_lambda_7982: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L607; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_sexp_2fappend_1556; L607: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[106]; r0[1] = r1[2]; lenv = r0; goto FUN_expand_pattern_449; L606: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_7982; r2[2] = lenv; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L608; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L608: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; default: { goto fatbar_310; } } goto fatbar_310_over; fatbar_310: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_1062; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L609; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L609: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_310_over: ; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[3] = r2; r2 = top[107]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L610; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_list_450; L610: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L611; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L611: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { lenv = ((object **)lenv)[1][1]; goto fatbar_309; } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_309; } } PXLL_RETURN(0); } break; default: { goto fatbar_309; } } PXLL_RETURN(0); goto fatbar_309_over; fatbar_309: r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r1[3] = r2; r2 = top[106]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L612; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_pattern_449; L612: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r1[3] = r2; r2 = top[107]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L613; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_list_450; L613: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); fatbar_309_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_308; } } PXLL_RETURN(0); goto fatbar_308_over; fatbar_308: r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); fatbar_308_over: ; PXLL_RETURN(0); L601: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_expand_list_450; r1[2] = lenv; r0[107] = r1; // def pred_453 goto L614; FUN_pred_453: check_heap (0); r0 = allocate (UOTAG(23), 3); r1 = (object*)UITAG(1); r0[1] = r1; r1 = (object*)UITAG(1); r0[2] = r1; r1 = (object *) 6; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = r0; r3 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; PXLL_RETURN(1); L614: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pred_453; r1[2] = lenv; r0[108] = r1; // def new-tvar_455 goto L615; FUN_new_tvar_455: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = top[190]; r1 = ((pxll_vector*)r1)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L616; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L616: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (UOTAG(23), 3); r2 = (object*)UITAG(1); r1[1] = r2; r2 = (object*)UITAG(1); r1[2] = r2; r2 = (object *) 6; r1[3] = r2; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L615: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_new_tvar_455; r1[2] = lenv; r0[109] = r1; // def rlabel_460 goto L617; FUN_rlabel_460: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_536[0]; r0[2] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r1 = t; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; L617: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_rlabel_460; r1[2] = lenv; r0[110] = r1; // def type-repr_464 goto L618; FUN_type_repr_464: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L619; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L619: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r1 = ((object*) lenv) [4]; r2 = (object*) &constructed_1052; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_92[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 8); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[111]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L620; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_type_repr_464; L620: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r3 = top[111]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L621; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_type_repr_464; L621: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = (object*) &constructed_1055; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = (object*) &constructed_1054; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r2 = ((object*) lenv) [7]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[8] = r2; r1 = ((object*) lenv) [8]; r2 = (object*) &constructed_1053; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_306; } } PXLL_RETURN(0); } break; default: { goto fatbar_306; } } PXLL_RETURN(0); goto fatbar_306_over; fatbar_306: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 7); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = top[111]; r3[2] = r4; r4 = ((object**) lenv) [1][3]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L622; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L622: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*) &constructed_1058; r2[3] = r3; r3 = top[52]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L623; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_join_355; L623: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[111]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L624; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_type_repr_464; L624: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_1057; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r1 = ((object*) lenv) [7]; r2 = (object*) &constructed_1056; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; fatbar_306_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_305; } } PXLL_RETURN(0); } else { goto fatbar_305; } PXLL_RETURN(0); goto fatbar_305_over; fatbar_305: r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); PXLL_RETURN(0); } break; default: { goto fatbar_307; } } PXLL_RETURN(0); goto fatbar_307_over; fatbar_307: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 7); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = top[111]; r3[2] = r4; r4 = ((object**) lenv) [1][3]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L625; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L625: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*) &constructed_1061; r2[3] = r3; r3 = top[52]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L626; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_join_355; L626: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = (object*) &constructed_1060; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = (object*) &constructed_1059; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; fatbar_307_over: ; PXLL_RETURN(0); fatbar_305_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L618: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_type_repr_464; r1[2] = lenv; r0[111] = r1; // def type->trec_466 goto L627; FUN_type__3etrec_466: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,1); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,2); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L627: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_type__3etrec_466; r1[2] = lenv; r0[112] = r1; // def type-find_467 goto L628; FUN_type_find_467: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[112]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L629; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type__3etrec_466; L629: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[1]; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(1)): { r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = allocate (TC_TUPLE, 2); r2 = r0; r1[2] = r2; r2 = top[113]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L630; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_find_467; L630: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = r1; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r3 = ((object*) lenv) [2]; ((pxll_vector*)r3)->val[1] = r2; r2 = r1; PXLL_RETURN(2); } break; } PXLL_RETURN(0); L628: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_type_find_467; r1[2] = lenv; r0[113] = r1; // def type-union_468 goto L631; FUN_type_union_468: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[113]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L632; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_find_467; L632: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[113]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L633; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_find_467; L633: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,1); r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r2 = r0; ((pxll_vector*)r2)->val[1] = r1; PXLL_RETURN(1); } break; default: { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r3 = r1; ((pxll_vector*)r3)->val[1] = r2; PXLL_RETURN(2); } break; } PXLL_RETURN(1); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,2); r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r3 = r1; ((pxll_vector*)r3)->val[1] = r2; PXLL_RETURN(2); } break; default: { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,2); r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r3 = r1; ((pxll_vector*)r3)->val[1] = r2; PXLL_RETURN(2); } break; } PXLL_RETURN(1); } break; } PXLL_RETURN(0); L631: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_type_union_468; r1[2] = lenv; r0[114] = r1; // def parse-type*_469 goto L634; FUN_parse_type_splat_469: check_heap (0); r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; // def arrow-type?_1646 goto L635; FUN_arrow_type_question_1646: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 6; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case (r2)) { case (UOTAG(1)): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = (object *) constructed_712[0]; r4 = r2; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = (object *) 262; PXLL_RETURN(3); } else { goto fatbar_304; } PXLL_RETURN(3); } break; default: { goto fatbar_304; } } PXLL_RETURN(2); goto fatbar_304_over; fatbar_304: r2 = r1; lenv[2] = r2; goto FUN_arrow_type_question_1646; fatbar_304_over: ; PXLL_RETURN(2); } break; } PXLL_RETURN(0); L635: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_arrow_type_question_1646; r1[2] = lenv; r0[2] = r1; // def parse-list_1649 goto L636; FUN_parse_list_1649: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_938[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,11)]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L637; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L637: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L638; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L638: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,10)]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L639; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L639: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_301; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_301; } } PXLL_RETURN(0); } break; default: { goto fatbar_301; } } PXLL_RETURN(0); goto fatbar_301_over; fatbar_301: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1048; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_301_over: ; PXLL_RETURN(0); } else { lenv = ((object **)lenv)[1][1]; goto fatbar_300; } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_300; } } PXLL_RETURN(0); } break; default: { goto fatbar_300; } } PXLL_RETURN(0); goto fatbar_300_over; fatbar_300: r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L640; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_arrow_type_question_1646; L640: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1661_i800 goto L641; FUN_loop_1661_i800: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_712[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L642; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_parse_1651; L642: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L643; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L643: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_92[0]; r0[2] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_302; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_302; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_302; } PXLL_RETURN(0); } break; default: { goto fatbar_302; } } PXLL_RETURN(0); goto fatbar_302_over; fatbar_302: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L644; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_parse_1651; L644: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object*) lenv) [3]; lenv = ((object *)lenv)[1]; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1661_i800; fatbar_302_over: ; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1050; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; } PXLL_RETURN(0); L641: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1661_i800; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_1049[0]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1661_i800; } else { r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][5]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L645; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L645: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_303; } } PXLL_RETURN(0); } break; default: { goto fatbar_303; } } PXLL_RETURN(0); goto fatbar_303_over; fatbar_303: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1051; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_303_over: ; PXLL_RETURN(0); } PXLL_RETURN(0); fatbar_300_over: ; PXLL_RETURN(0); L636: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_parse_list_1649; r1[2] = lenv; r0[3] = r1; // def parse-field-list_1650 goto L646; FUN_parse_field_list_1650: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_62[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_NIL): { r0 = top[109]; lenv = r0[2]; goto FUN_new_tvar_455; } break; default: { goto fatbar_299; } } PXLL_RETURN(0); } else { goto fatbar_299; } PXLL_RETURN(0); goto fatbar_299_over; fatbar_299: r0 = allocate (TC_TUPLE, 4); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_580[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L647; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L647: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = ((object*****) lenv) [1][1][1][1][5]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L648; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_parse_1651; L648: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_577[0]; r1[2] = r2; r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L649; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L649: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L650; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_parse_field_list_1650; L650: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = top[110]; r0[1] = r1[2]; lenv = r0; goto FUN_rlabel_460; fatbar_299_over: ; PXLL_RETURN(0); PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_594[0]; r1[2] = r2; r2 = (object *) constructed_592[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L651; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L651: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_591[0]; r0[2] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; } break; } PXLL_RETURN(0); L646: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_parse_field_list_1650; r1[2] = lenv; r0[4] = r1; // def parse_1651 goto L652; FUN_parse_1651: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[197]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L653; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L653: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = (object *) constructed_1046[0]; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; } break; } PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_parse_list_1649; } break; case (UOTAG(8)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L654; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_parse_field_list_1650; L654: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_587[0]; r0[2] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; } break; default: { goto fatbar_298; } } PXLL_RETURN(0); goto fatbar_298_over; fatbar_298: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1047; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_298_over: ; PXLL_RETURN(0); L652: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_parse_1651; r1[2] = lenv; r0[5] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[1] = r1[2]; lenv = r0; goto FUN_parse_1651; L634: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_parse_type_splat_469; r1[2] = lenv; r0[115] = r1; // def get-record-sig_471 goto L655; FUN_get_record_sig_471: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_587[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1697 goto L656; FUN_loop_1697: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = (object *) constructed_591[0]; r3 = r0; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = ((object*) lenv) [3]; PXLL_RETURN(2); } else { goto fatbar_296; } PXLL_RETURN(2); goto fatbar_296_over; fatbar_296: r2 = (object *) constructed_536[0]; r3 = r0; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = r1; switch (get_case (r2)) { case (TC_PAIR): { r2 = r1; r2 = UOBJ_GET(r2,0); r3 = r1; r3 = UOBJ_GET(r3,1); r4 = r2; switch (get_case (r4)) { case (UOTAG(1)): { r4 = r2; r4 = UOBJ_GET(r4,0); r5 = r3; switch (get_case (r5)) { case (TC_PAIR): { r5 = r3; r5 = UOBJ_GET(r5,0); r6 = r3; r6 = UOBJ_GET(r6,1); r7 = r5; switch (get_case (r7)) { case (UOTAG(1)): { r7 = r5; r7 = UOBJ_GET(r7,0); r8 = (object *) constructed_594[0]; r9 = r7; if PXLL_IS_TRUE(PXLL_TEST(r9==r8)) { r8 = r6; switch (get_case (r8)) { case (TC_PAIR): { r8 = r6; r8 = UOBJ_GET(r8,0); r9 = r6; r9 = UOBJ_GET(r9,1); r10 = r9; switch (get_case (r10)) { case (TC_NIL): { r10 = ((object*) lenv) [3]; r11 = r8; lenv[2] = r11; lenv[3] = r10; goto FUN_loop_1697; } break; default: { goto fatbar_297; } } PXLL_RETURN(10); } break; default: { goto fatbar_297; } } PXLL_RETURN(8); } else { goto fatbar_297; } PXLL_RETURN(8); } break; default: { goto fatbar_297; } } PXLL_RETURN(7); goto fatbar_297_over; fatbar_297: r7 = r6; switch (get_case (r7)) { case (TC_PAIR): { r7 = r6; r7 = UOBJ_GET(r7,0); r8 = r6; r8 = UOBJ_GET(r8,1); r9 = r8; switch (get_case (r9)) { case (TC_NIL): { r9 = ((object*) lenv) [3]; r10 = r4; t = alloc_no_clear (TC_PAIR,2); t[1] = r10; t[2] = r9; r9 = t; r10 = r7; lenv[2] = r10; lenv[3] = r9; goto FUN_loop_1697; } break; default: { goto fatbar_295; } } PXLL_RETURN(9); } break; default: { goto fatbar_295; } } PXLL_RETURN(7); fatbar_297_over: ; PXLL_RETURN(7); } break; default: { goto fatbar_295; } } PXLL_RETURN(5); } break; default: { goto fatbar_295; } } PXLL_RETURN(4); } break; default: { goto fatbar_295; } } PXLL_RETURN(2); } else { goto fatbar_295; } PXLL_RETURN(2); fatbar_296_over: ; PXLL_RETURN(2); } break; default: { r0 = ((object*) lenv) [3]; r1 = (object *) constructed_62[0]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); } break; } PXLL_RETURN(0); goto fatbar_295_over; fatbar_295: r0 = (object *) constructed_1042[0]; PXLL_RETURN(0); fatbar_295_over: ; PXLL_RETURN(0); L656: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1697; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = (object *) constructed_1041[0]; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L657; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_1697; L657: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = top[85]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[48]; r0[1] = r1[2]; lenv = r0; goto FUN_sort_342; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_294; } } PXLL_RETURN(0); } break; default: { goto fatbar_294; } } PXLL_RETURN(0); } else { goto fatbar_294; } PXLL_RETURN(0); goto fatbar_294_over; fatbar_294: r0 = (object *) constructed_605[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = r1; switch (get_case (r2)) { case (TC_PAIR): { r2 = r1; r2 = UOBJ_GET(r2,0); r3 = r1; r3 = UOBJ_GET(r3,1); r4 = r3; switch (get_case (r4)) { case (TC_NIL): { r4 = r2; lenv = ((object *)lenv)[1]; lenv[2] = r4; goto FUN_get_record_sig_471; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_293; } } PXLL_RETURN(4); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_293; } } PXLL_RETURN(2); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_293; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_293; } PXLL_RETURN(0); fatbar_294_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_293; } } PXLL_RETURN(0); goto fatbar_293_over; fatbar_293: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][2]; r3[2] = r4; r4 = top[111]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L658; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_type_repr_464; L658: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_1045; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_1044; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L659; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L659: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1043; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_293_over: ; PXLL_RETURN(0); L655: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_get_record_sig_471; r1[2] = lenv; r0[116] = r1; // def make-counter_474 goto L660; FUN_make_counter_474: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; // def inc_1726 goto L661; FUN_inc_1726: r0 = ((object**) lenv) [1][2]; r1 = ((object**) lenv) [1][2]; r2 = r1; r3 = (object *) 3; r1 = box((pxll_int)unbox(r3)+unbox(r2)); ((object**) lenv) [1][2] = r1; r1 = r0; PXLL_RETURN(1); L661: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_inc_1726; r1[2] = lenv; r0[2] = r1; // def get_1727 goto L662; FUN_get_1727: r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); L662: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_get_1727; r1[2] = lenv; r0[3] = r1; r0 = allocate (UOTAG(22), 2); r1 = ((object*) lenv) [3]; r0[1] = r1; r1 = ((object*) lenv) [2]; r0[2] = r1; PXLL_RETURN(0); L660: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_make_counter_474; r1[2] = lenv; r0[117] = r1; // def new-match-var_478 goto L663; FUN_new_match_var_478: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = top[200]; r4 = ((pxll_vector*)r4)->val[1]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L664; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; lenv = r4[2]; goto *r4[1]; L664: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L665; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L665: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r2 = ((object*) lenv) [4]; r3 = (object*) &constructed_1040; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L666; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L666: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[84]; r0[1] = r1[2]; lenv = r0; goto FUN_string__3esymbol_421; L663: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_new_match_var_478; r1[2] = lenv; r0[118] = r1; // def notdotdotdot_479 goto L667; FUN_notdotdotdot_479: r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = (object *) constructed_62[0]; r2 = r0; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object *) 6; PXLL_RETURN(1); } else { goto fatbar_292; } PXLL_RETURN(1); PXLL_RETURN(0); goto fatbar_292_over; fatbar_292: r0 = (object *) 262; PXLL_RETURN(0); fatbar_292_over: ; PXLL_RETURN(0); L667: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_notdotdotdot_479; r1[2] = lenv; r0[119] = r1; // def compile-pattern_480 goto L668; FUN_compile_pattern_480: check_heap (0); r0 = allocate (TC_TUPLE, 20); r0[1] = lenv; lenv = r0; // def remove-first-pat_1754 goto L669; FUN_remove_first_pat_1754: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case (r2)) { case (TC_PAIR): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r0; r3 = UOBJ_GET(r3,1); r4 = r1; r5 = r3; t = alloc_no_clear (UOTAG(0),2); t[1] = r5; t[2] = r4; r4 = t; PXLL_RETURN(4); } break; default: { goto fatbar_291; } } PXLL_RETURN(2); PXLL_RETURN(0); goto fatbar_291_over; fatbar_291: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1039; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1039; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_291_over: ; PXLL_RETURN(0); L669: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_remove_first_pat_1754; r1[2] = lenv; r0[2] = r1; // def first-pattern-kind_1755 goto L670; FUN_first_pattern_kind_1755: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; switch (get_case (r1)) { case (TC_PAIR): { r1 = r0; r1 = UOBJ_GET(r1,0); r2 = r0; r2 = UOBJ_GET(r2,1); r3 = r1; switch (get_case (r3)) { case (UOTAG(0)): { r3 = (object *) constructed_936[0]; PXLL_RETURN(3); } break; case (UOTAG(1)): { r3 = (object *) constructed_1033[0]; PXLL_RETURN(3); } break; case (UOTAG(2)): { r3 = (object *) constructed_492[0]; PXLL_RETURN(3); } break; default: { r3 = (object *) constructed_1027[0]; PXLL_RETURN(3); } break; } PXLL_RETURN(3); } break; default: { goto fatbar_290; } } PXLL_RETURN(1); PXLL_RETURN(0); goto fatbar_290_over; fatbar_290: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1038; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_290_over: ; PXLL_RETURN(0); L670: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_first_pattern_kind_1755; r1[2] = lenv; r0[3] = r1; // def compare-first-patterns_1756 goto L671; FUN_compare_first_patterns_1756: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L672; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_first_pattern_kind_1755; L672: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L673; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_first_pattern_kind_1755; L673: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); PXLL_RETURN(0); L671: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_compare_first_patterns_1756; r1[2] = lenv; r0[4] = r1; // def compile-match_1757 goto L674; FUN_compile_match_1757: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [4]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = r0; r1 = r0; r1 = UOBJ_GET(r1,1); r2 = r1; PXLL_RETURN(2); PXLL_RETURN(1); } break; } PXLL_RETURN(0); } break; default: { goto fatbar_289; } } PXLL_RETURN(0); goto fatbar_289_over; fatbar_289: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][4]; r1[3] = r2; r2 = top[46]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L675; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pack_339; L675: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L676; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L676: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L677; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L677: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object**) lenv) [1][4]; r0[4] = r1; r1 = ((object***) lenv) [1][1][6]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_group_1758; } else { r0 = allocate (TC_TUPLE, 3); // def lambda_10079 goto L678; FUN_lambda_10079: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r0[4] = r1; r1 = ((object****) lenv) [1][1][1][6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L679; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_compile_group_1758; L679: ; lenv = k[2]; k = k[1]; r0 = result; ((object***) lenv) [1][1][4] = r0; PXLL_RETURN(0); L678: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_10079; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L680; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L680: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L681; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L681: ; lenv = k[2]; k = k[1]; r0 = ((object**) lenv) [1][4]; PXLL_RETURN(0); } PXLL_RETURN(0); fatbar_289_over: ; PXLL_RETURN(0); L674: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_compile_match_1757; r1[2] = lenv; r0[5] = r1; // def compile-group_1758 goto L682; FUN_compile_group_1758: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L683; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L683: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L684; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_first_pattern_kind_1755; L684: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) constructed_1027[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object****) lenv) [1][1][1][3]; r3[2] = r4; r4 = top[23]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L685; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_car_311; L685: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = ((object*) lenv) [2]; r2 = ((object*) lenv) [2]; r2 = UOBJ_GET(r2,0); lenv = lenv[1]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L686; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L686: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][9]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = ((object****) lenv) [1][1][1][11]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L687; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pattern__3efieldpairs_1764; L687: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L688; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L688: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_10353_i860 goto L689; FUN_lambda_10353_i860: check_heap (0); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L690; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L690: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][9]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = ((object******) lenv) [1][1][1][1][1][11]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L691; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pattern__3efieldpairs_1764; L691: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L692; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L692: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 4); r2 = top[14]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object*) lenv) [3]; r1[4] = r2; r2 = top[45]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L693; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_every2_question_337; L693: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [4]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1025; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L689: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_10353_i860; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L694; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L694: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L695; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L695: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 13); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L696; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L696: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_10383_i860 goto L697; FUN_lambda_10383_i860: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 6); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][2]; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object**) lenv) [1][2]; r3 = ((object**) lenv) [1][2]; r3 = UOBJ_GET(r3,0); r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_1024; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L698; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L698: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[84]; r0[1] = r1[2]; lenv = r0; goto FUN_string__3esymbol_421; L697: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_10383_i860; r2[2] = lenv; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L699; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L699: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_10412_i860 goto L700; FUN_lambda_10412_i860: check_heap (0); r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][10]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 2); r4 = ((object*) lenv) [2]; r3[2] = r4; r4 = top[23]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L701; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_car_311; L701: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object*******) lenv) [1][1][1][1][1][1][11]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L702; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pattern__3efieldpairs_1764; L702: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L703; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L703: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L704; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L704: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [3]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L705; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L705: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L706; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L706: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[6] = r1; r0 = ((object*) lenv) [6]; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(0),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L700: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_10412_i860; r2[2] = lenv; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L707; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L707: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L708; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L708: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_1885_i860 goto L709; FUN__24loop_1885_i860: check_heap (0); r0 = ((object***) lenv) [1][1][5]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L710; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L710: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L711; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L711: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (UOTAG(10),2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = (object*)TC_NIL; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[9] = r1; r1 = ((object*) lenv) [9]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[10] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [10]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_1885_i860; } PXLL_RETURN(0); L709: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_1885_i860; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L712; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_1885_i860; L712: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[6] = r1; r1 = (object *) constructed_669[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [6]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[8] = r1; r1 = allocate (TC_TUPLE, 4); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object*****) lenv) [1][1][1][1][2]; r3[2] = r4; r4 = top[24]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L713; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_cdr_312; L713: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = ((object**) lenv) [1][3]; r3[2] = r4; r4 = (object *) constructed_17[0]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L714; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L714: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L715; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L715: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][4]; r1[4] = r2; r2 = ((object*****) lenv) [1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L716; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_match_1757; L716: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[9] = r1; r1 = (object*)TC_NIL; r0[10] = r1; r1 = ((object*) lenv) [10]; r2 = ((object*) lenv) [9]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[11] = r1; r1 = ((object*) lenv) [11]; r2 = ((object*) lenv) [8]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[12] = r1; r1 = ((object*) lenv) [12]; r2 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[13] = r1; r0 = ((object*) lenv) [13]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } else { goto fatbar_283; } PXLL_RETURN(0); goto fatbar_283_over; fatbar_283: r0 = (object *) constructed_492[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 9); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][3]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L717; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L717: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][18]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L718; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_rule__3econstructor_dt_1775; L718: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][18]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][14]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L719; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_collect_1771; L719: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[72]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L720; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist__3ekeys_401; L720: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L721; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L721: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object *) 3; r3 = ((object*) lenv) [2]; r2 = PXLL_TEST(unbox(r3)==unbox(r2)); r1[3] = r2; r1 = (object *) 6; r2 = ((object*) lenv) [3]; r1 = PXLL_TEST(r2==r1); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_1031; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L722; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L722: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][19]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][14]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L723; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_collect_1771; L723: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } r0[5] = r1; r1 = (object *) 1; r0[6] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][3]; r3[2] = r4; r4 = top[23]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L724; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_car_311; L724: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object****) lenv) [1][1][1][18]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L725; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_rule__3econstructor_dt_1775; L725: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L726; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L726: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][4]; r1[2] = r2; r2 = top[198]; r1[3] = r2; r2 = top[93]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L727; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_sexp_3d_question_432; L727: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; if PXLL_IS_TRUE(r1) { r1 = ((object***) lenv) [1][1][4]; } else { r1 = top[199]; } r0[8] = r1; r1 = (object *) constructed_1030[0]; r0[9] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_11074_i898 goto L728; FUN_lambda_11074_i898: check_heap (0); r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][7]; switch (get_case (r1)) { case (UITAG(1)): { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 2); r4[1] = lenv; lenv = r4; r5 = ((object***) lenv) [1][1][3]; r5 = ((pxll_vector*)r5)->val[4]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L729; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; lenv = r5[2]; goto *r5[1]; L729: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r4 = ((object*) lenv) [2]; r4 = ((object*) lenv) [2]; r4 = UOBJ_GET(r4,0); lenv = lenv[1]; r3[2] = r4; r4 = top[23]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L730; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_car_311; L730: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object******) lenv) [1][1][1][1][1][17]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L731; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pattern__3esubs_1774; L731: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L732; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L732: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][7]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r3 = ((object*) lenv) [2]; r3 = ((pxll_vector*)r3)->val[1]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L733; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L733: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = ((object*) lenv) [3]; r1 = ((pxll_vector*)r1)->val[0]; lenv = lenv[1]; } break; } r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[118]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][20]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L734; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nthunk_1780; L734: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [2]; ensure_heap (1, unbox(r1)); r1 = (object *) 262; r2 = ((object*) lenv) [2]; if (unbox(r2) == 0) { r1 = (object *) TC_EMPTY_VECTOR; } else { t = alloc_no_clear (TC_VECTOR, unbox(r2)); for (i=0; ival[unbox(r0)] = r1; fatbar_285_over: ; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_1952_i898; } PXLL_RETURN(0); L745: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_1952_i898; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_1952_i898; PXLL_RETURN(0); L735: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_frob_rule_1946_i898; r1[2] = lenv; r0[2] = r1; r0 = (object *) 3; r1 = ((object****) lenv) [1][1][1][6]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); ((object****) lenv) [1][1][1][6] = r0; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[0]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L747; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L747: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L748; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L748: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_1957_i898 goto L749; FUN__24loop_1957_i898: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r2 = ((object******) lenv) [1][1][1][1][1][4]; range_check (GET_TUPLE_LENGTH(*(object*)r2), unbox(r1)); r1 = ((pxll_vector*)r2)->val[unbox(r1)]; if PXLL_IS_TRUE(r1) { r1 = (object *) constructed_690[0]; } else { r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L750; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L750: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } r0[2] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_1957_i898; } PXLL_RETURN(0); L749: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_1957_i898; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L751; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_1957_i898; L751: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; r2 = (object *) constructed_45[0]; t = alloc_no_clear (UOTAG(9),2); t[1] = r2; t[2] = r1; r1 = t; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[3]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L752; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L752: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r1 = ((object*) lenv) [4]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[5] = r1; r1 = allocate (TC_TUPLE, 4); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r3[2] = r4; r4 = top[24]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L753; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_cdr_312; L753: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = ((object*****) lenv) [1][1][1][1][3]; r3[2] = r4; r4 = (object *) constructed_17[0]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L754; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L754: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L755; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L755: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][5]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][8]; r1[4] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L756; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_match_1757; L756: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = (object*)TC_NIL; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[9] = r1; r1 = ((object*) lenv) [9]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[10] = r1; r0 = ((object******) lenv) [1][1][1][1][1][9]; r1 = ((object*) lenv) [10]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object*****) lenv) [1][1][1][1][9] = r0; PXLL_RETURN(0); L728: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_11074_i898; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = top[71]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L757; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; L757: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][7]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][7]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L758; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L758: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; r2 = ((object****) lenv) [1][1][1][6]; r1 = PXLL_TEST(unbox(r2)val[7]; r1[3] = r2; r2 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[4] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object******) lenv) [1][1][1][1][1][2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L759; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L759: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[6] = r2; r2 = (object*)TC_NIL; r1[7] = r2; r2 = ((object*) lenv) [7]; r3 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[8] = r2; r2 = ((object*) lenv) [8]; r3 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[9] = r2; r2 = ((object*) lenv) [9]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[10] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][9]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L760; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L760: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[11] = r2; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = ((object*) lenv) [10]; r3[2] = r4; r4 = (object *) constructed_17[0]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L761; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L761: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object*) lenv) [11]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L762; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L762: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[12] = r2; r1 = ((object*) lenv) [12]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; lenv = lenv[1]; } break; default: { r1 = top[198]; r2 = ((object****) lenv) [1][1][1][4]; r1 = PXLL_TEST(r2==r1); r2 = (object *) 6; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_686[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = top[199]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r1[6] = r2; r1 = ((object***) lenv) [1][1][9]; r2 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; ((object**) lenv) [1][9] = r1; } else { r1 = (object *) 14; } r1 = allocate (TC_TUPLE, 9); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_650[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*****) lenv) [1][1][1][1][2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L763; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L763: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[4] = r2; r2 = (object*)TC_NIL; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object***) lenv) [1][1][9]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L764; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L764: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[8] = r2; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = ((object*) lenv) [7]; r3[2] = r4; r4 = (object *) constructed_17[0]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L765; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L765: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object*) lenv) [8]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L766; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L766: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[9] = r2; r1 = ((object*) lenv) [9]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; } break; } r0[2] = r1; r0 = top[198]; r1 = ((object****) lenv) [1][1][1][4]; r0 = PXLL_TEST(r1==r0); r1 = (object *) 6; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][4]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][7]; r0[1] = r1[2]; lenv = r0; goto FUN_fatbar_1759; } else { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } PXLL_RETURN(0); } else { goto fatbar_284; } PXLL_RETURN(0); goto fatbar_284_over; fatbar_284: r0 = (object *) constructed_1033[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L767; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L767: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_10258_i963 goto L768; FUN_lambda_10258_i963: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L769; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L769: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L770; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L770: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object*) lenv) [3]; r1[4] = r2; r2 = ((object******) lenv) [1][1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L771; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_subst_1760; L771: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = ((object*) lenv) [5]; r1 = ((object*) lenv) [4]; t = alloc_no_clear (UOTAG(0),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); PXLL_RETURN(0); L768: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_10258_i963; r2[2] = lenv; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L772; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L772: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 4); r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L773; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L773: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r0[4] = r1; r1 = ((object****) lenv) [1][1][1][5]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_match_1757; } else { goto fatbar_286; } PXLL_RETURN(0); goto fatbar_286_over; fatbar_286: r0 = (object *) constructed_936[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1898_i966 goto L774; FUN_loop_1898_i966: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 2); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[23]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L775; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_car_311; L775: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r3 = ((object*) lenv) [2]; r3 = ((object*) lenv) [2]; r3 = UOBJ_GET(r3,0); lenv = lenv[1]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L776; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L776: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][12]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L777; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pattern__3eliteral_1768; L777: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [4]; switch (get_case (r1)) { case (UOTAG(2)): { r1 = (object *) constructed_1035[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; } break; default: { goto fatbar_288; } } goto fatbar_288_over; fatbar_288: r1 = (object *) constructed_1037[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; fatbar_288_over: ; r0[5] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 20); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_642[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object******) lenv) [1][1][1][1][1][2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L778; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L778: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[4] = r2; r2 = (object*)TC_NIL; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = (object *) constructed_938[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[7] = r2; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[8] = r2; r2 = ((object*) lenv) [8]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r1[9] = r2; r2 = (object*)TC_NIL; r1[10] = r2; r2 = ((object*) lenv) [10]; r3 = ((object*) lenv) [9]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[11] = r2; r2 = ((object*) lenv) [11]; r3 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[12] = r2; r2 = ((object*) lenv) [12]; r3 = ((object**) lenv) [1][5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[13] = r2; r2 = ((object*) lenv) [13]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r1[14] = r2; r2 = allocate (TC_TUPLE, 4); r3 = allocate (TC_TUPLE, 2); r4 = ((object******) lenv) [1][1][1][1][1][2]; r3[2] = r4; r4 = top[24]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L779; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_cdr_312; L779: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = ((object*******) lenv) [1][1][1][1][1][1][2]; r3[2] = r4; r4 = ((object**) lenv) [1][2]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L780; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L780: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = top[199]; r2[4] = r3; r3 = ((object*******) lenv) [1][1][1][1][1][1][5]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L781; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_compile_match_1757; L781: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[15] = r2; r2 = (object*)TC_NIL; r1[16] = r2; r2 = ((object*) lenv) [16]; r3 = top[199]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[17] = r2; r2 = ((object*) lenv) [17]; r3 = ((object*) lenv) [15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[18] = r2; r2 = ((object*) lenv) [18]; r3 = ((object*) lenv) [14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[19] = r2; r2 = ((object*) lenv) [19]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[20] = r2; r1 = ((object*) lenv) [20]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][7]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L782; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_fatbar_1759; L782: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object*) lenv) [3]; lenv = ((object *)lenv)[1]; lenv[2] = r1; lenv[3] = r0; goto FUN_loop_1898_i966; } break; } PXLL_RETURN(0); L774: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1898_i966; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][13]; r1[3] = r2; r2 = top[46]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L783; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pack_339; L783: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][4]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1898_i966; } else { goto fatbar_287; } PXLL_RETURN(0); goto fatbar_287_over; fatbar_287: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_287_over: ; PXLL_RETURN(0); fatbar_286_over: ; PXLL_RETURN(0); fatbar_284_over: ; PXLL_RETURN(0); fatbar_283_over: ; PXLL_RETURN(0); L682: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_compile_group_1758; r1[2] = lenv; r0[6] = r1; // def fatbar_1759 goto L784; FUN_fatbar_1759: check_heap (0); r0 = top[199]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } else { r0 = top[199]; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 8); r0[1] = lenv; lenv = r0; r1 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object*)TC_NIL; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = (object *) constructed_520[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r0 = ((object*) lenv) [8]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } PXLL_RETURN(0); } PXLL_RETURN(0); L784: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_fatbar_1759; r1[2] = lenv; r0[7] = r1; // def subst_1760 goto L785; FUN_subst_1760: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = (object *) constructed_690[0]; r2 = r0; r1 = PXLL_TEST(r2==r1); r2 = (object *) 6; r3 = r1; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 12); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_932[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = r0; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[3] = r2; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[4] = r2; r2 = (object*)TC_NIL; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r2 = ((object*) lenv) [7]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r1[8] = r2; r2 = (object*)TC_NIL; r1[9] = r2; r2 = ((object*) lenv) [9]; r3 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[10] = r2; r2 = ((object*) lenv) [10]; r3 = ((object*) lenv) [8]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[11] = r2; r2 = ((object*) lenv) [11]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[12] = r2; r1 = ((object*) lenv) [12]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; PXLL_RETURN(1); } else { r1 = ((object*) lenv) [4]; PXLL_RETURN(1); } PXLL_RETURN(1); } break; default: { goto fatbar_282; } } PXLL_RETURN(0); goto fatbar_282_over; fatbar_282: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_282_over: ; PXLL_RETURN(0); L785: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_subst_1760; r1[2] = lenv; r0[8] = r1; // def fieldpair->label_1762 goto L786; FUN_fieldpair__3elabel_1762: r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); PXLL_RETURN(0); L786: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_fieldpair__3elabel_1762; r1[2] = lenv; r0[9] = r1; // def fieldpair->pattern_1763 goto L787; FUN_fieldpair__3epattern_1763: r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,1); r1 = r0; PXLL_RETURN(1); PXLL_RETURN(0); L787: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_fieldpair__3epattern_1763; r1[2] = lenv; r0[10] = r1; // def pattern->fieldpairs_1764 goto L788; FUN_pattern__3efieldpairs_1764: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(3)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_281; } } PXLL_RETURN(0); goto fatbar_281_over; fatbar_281: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1023; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1023; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_281_over: ; PXLL_RETURN(0); L788: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pattern__3efieldpairs_1764; r1[2] = lenv; r0[11] = r1; // def pattern->literal_1768 goto L789; FUN_pattern__3eliteral_1768: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_280; } } PXLL_RETURN(0); goto fatbar_280_over; fatbar_280: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1022; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1022; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_280_over: ; PXLL_RETURN(0); L789: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pattern__3eliteral_1768; r1[2] = lenv; r0[12] = r1; // def first-literal=?_1769 goto L790; FUN_first_literal_3d_question_1769: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L791; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L791: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][12]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L792; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pattern__3eliteral_1768; L792: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L793; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L793: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][12]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L794; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pattern__3eliteral_1768; L794: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[93]; r0[1] = r1[2]; lenv = r0; goto FUN_sexp_3d_question_432; PXLL_RETURN(0); PXLL_RETURN(0); L790: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_first_literal_3d_question_1769; r1[2] = lenv; r0[13] = r1; // def collect_1771 goto L795; FUN_collect_1771: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1907 goto L796; FUN_loop_1907: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L797; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L797: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L798; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L798: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = ((object*) lenv) [5]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_1021[0]; r0[2] = r1; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; // def push_1730_i1068 goto L799; FUN_push_1730_i1068: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object***) lenv) [1][1][2] = r0; PXLL_RETURN(0); L799: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_push_1730_i1068; r2[2] = lenv; r1[2] = r2; // def pop_1731_i1068 goto L800; FUN_pop_1731_i1068: r0 = ((object**) lenv) [1][2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1020; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1020; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object**) lenv) [1][2]; r0 = UOBJ_GET(r0,0); r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r2 = r0; r3 = r1; ((object**) lenv) [1][2] = r3; r3 = r2; PXLL_RETURN(3); } break; } PXLL_RETURN(0); L800: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_pop_1731_i1068; r2[2] = lenv; r1[3] = r2; // def get_1732_i1068 goto L801; FUN_get_1732_i1068: r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); L801: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_1732_i1068; r2[2] = lenv; r1[4] = r2; // def top_1733_i1068 goto L802; FUN_top_1733_i1068: r0 = ((object**) lenv) [1][2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1019; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1019; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object**) lenv) [1][2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L802: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_top_1733_i1068; r2[2] = lenv; r1[5] = r2; // def stack-length_1734_i1068 goto L803; FUN_stack_length_1734_i1068: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = top[26]; r0[1] = r1[2]; lenv = r0; goto FUN_length_316; L803: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_stack_length_1734_i1068; r2[2] = lenv; r1[6] = r2; r1 = allocate (UOTAG(21), 5); r2 = ((object*) lenv) [4]; r1[1] = r2; r2 = ((object*) lenv) [6]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = ((object*) lenv) [2]; r1[4] = r2; r2 = ((object*) lenv) [5]; r1[5] = r2; lenv = lenv[1]; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L804; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L804: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [3]; r1 = ((object***) lenv) [1][1][2]; r2 = ((object**) lenv) [1][4]; t = alloc_no_clear (UOTAG(1),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; r1 = ((object**) lenv) [1][3]; lenv = ((object **)lenv)[1][1]; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_1907; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L805; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L805: ; lenv = k[2]; k = k[1]; r0 = ((object**) lenv) [1][3]; r1 = ((object***) lenv) [1][1][2]; lenv = ((object **)lenv)[1][1]; lenv[2] = r1; lenv[3] = r0; goto FUN_loop_1907; } break; } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L796: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1907; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object*)UITAG(0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1907; L795: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_collect_1771; r1[2] = lenv; r0[14] = r1; // def pattern->dt_1772 goto L806; FUN_pattern__3edt_1772: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_279; } } PXLL_RETURN(0); goto fatbar_279_over; fatbar_279: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1018; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1018; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_279_over: ; PXLL_RETURN(0); L806: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pattern__3edt_1772; r1[2] = lenv; r0[15] = r1; // def pattern->alt_1773 goto L807; FUN_pattern__3ealt_1773: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,1); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_278; } } PXLL_RETURN(0); goto fatbar_278_over; fatbar_278: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1017; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1017; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_278_over: ; PXLL_RETURN(0); L807: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pattern__3ealt_1773; r1[2] = lenv; r0[16] = r1; // def pattern->subs_1774 goto L808; FUN_pattern__3esubs_1774: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,2); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_277; } } PXLL_RETURN(0); goto fatbar_277_over; fatbar_277: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1016; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1016; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_277_over: ; PXLL_RETURN(0); L808: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pattern__3esubs_1774; r1[2] = lenv; r0[17] = r1; // def rule->constructor-dt_1775 goto L809; FUN_rule__3econstructor_dt_1775: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L810; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L810: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][15]; r0[1] = r1[2]; lenv = r0; goto FUN_pattern__3edt_1772; PXLL_RETURN(0); L809: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_rule__3econstructor_dt_1775; r1[2] = lenv; r0[18] = r1; // def rule->constructor-alt_1776 goto L811; FUN_rule__3econstructor_alt_1776: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L812; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L812: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][16]; r0[1] = r1[2]; lenv = r0; goto FUN_pattern__3ealt_1773; PXLL_RETURN(0); L811: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_rule__3econstructor_alt_1776; r1[2] = lenv; r0[19] = r1; // def nthunk_1780 goto L813; FUN_nthunk_1780: check_heap (0); r0 = (object *) 1; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) constructed_1015[0]; PXLL_RETURN(0); } else { goto fatbar_276; } PXLL_RETURN(0); goto fatbar_276_over; fatbar_276: r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L814; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L814: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 3; r3 = ((object**) lenv) [1][2]; r2 = box((pxll_int)unbox(r3)-unbox(r2)); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object***) lenv) [1][1][20]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L815; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nthunk_1780; L815: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); fatbar_276_over: ; PXLL_RETURN(0); L813: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_nthunk_1780; r1[2] = lenv; r0[20] = r1; r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_1804_i1140 goto L816; FUN_loop_1804_i1140: check_heap (0); r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_712[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L817; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L817: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L818; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L818: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r0 = ((object*****) lenv) [1][1][1][1][3]; r1 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object*) lenv) [3]; r2 = (object *) constructed_1009[0]; lenv = ((object ***)lenv)[1][1][1]; lenv[2] = r2; lenv[3] = r0; lenv[4] = r1; goto FUN_loop_1804_i1140; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_271; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_271; } PXLL_RETURN(0); } break; default: { goto fatbar_271; } } PXLL_RETURN(0); goto fatbar_271_over; fatbar_271: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; // def parse-fieldpair_1782_i851_i1140 goto L819; FUN_parse_fieldpair_1782_i851_i1140: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L820; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_kind_1783_i851_i1140; L820: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [4]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); PXLL_RETURN(0); L819: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_parse_fieldpair_1782_i851_i1140; r2[2] = lenv; r1[2] = r2; // def kind_1783_i851_i1140 goto L821; FUN_kind_1783_i851_i1140: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; PXLL_RETURN(1); } break; case (UOTAG(8)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = top[119]; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[38]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L822; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_filter_330; L822: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L823; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L823: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(3),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; case (UOTAG(4)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; if PXLL_IS_TRUE(r1) { r1 = (object *) constructed_40[0]; } else { r1 = (object *) constructed_37[0]; } r2 = r1; r3 = (object *) constructed_1010[0]; r4 = (object *) constructed_42[0]; t = alloc_no_clear (UOTAG(2),3); t[1] = r4; t[2] = r2; t[3] = r3; r2 = t; PXLL_RETURN(2); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) constructed_45[0]; r1 = (object *) constructed_1011[0]; r2 = (object *) constructed_47[0]; t = alloc_no_clear (UOTAG(2),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = (object *) constructed_1013[0]; r2 = r0; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r2 = ((object*) lenv) [3]; r2 = UOBJ_GET(r2,1); r3 = r2; switch (get_case (r3)) { case (TC_NIL): { r3 = allocate (TC_TUPLE, 2); r4 = r1; r3[2] = r4; r4 = ((object****) lenv) [1][1][1][3]; r3[1] = r4[2]; lenv = r3; goto FUN_kind_1783_i851_i1140; } break; default: { goto fatbar_275; } } PXLL_RETURN(3); } break; default: { goto fatbar_275; } } PXLL_RETURN(1); } else { goto fatbar_275; } PXLL_RETURN(1); goto fatbar_275_over; fatbar_275: r1 = (object *) constructed_938[0]; r2 = r0; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r2 = ((object*) lenv) [3]; r2 = UOBJ_GET(r2,1); r3 = r1; switch (get_case (r3)) { case (UOTAG(1)): { r3 = r1; r3 = UOBJ_GET(r3,0); r4 = r2; switch (get_case (r4)) { case (TC_NIL): { r4 = r3; t = alloc_no_clear (UOTAG(1),1); t[1] = r4; r4 = t; r5 = r4; t = alloc_no_clear (UOTAG(0),1); t[1] = r5; r5 = t; PXLL_RETURN(5); } break; default: { goto fatbar_274; } } PXLL_RETURN(4); } break; default: { goto fatbar_274; } } PXLL_RETURN(3); } break; default: { goto fatbar_274; } } PXLL_RETURN(1); } else { goto fatbar_274; } PXLL_RETURN(1); fatbar_275_over: ; PXLL_RETURN(1); } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L824; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L824: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } break; default: { goto fatbar_274; } } PXLL_RETURN(0); goto fatbar_274_over; fatbar_274: r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L825; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_kind_1783_i851_i1140; L825: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L826; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_kind_1783_i851_i1140; L826: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = (object*)TC_NIL; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r0 = (object *) constructed_57[0]; r1 = ((object*) lenv) [6]; r2 = (object *) constructed_47[0]; t = alloc_no_clear (UOTAG(2),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); fatbar_274_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); goto fatbar_273_over; fatbar_273: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_1014; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_273_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_272; } } PXLL_RETURN(0); goto fatbar_272_over; fatbar_272: r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); fatbar_272_over: ; PXLL_RETURN(0); L821: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_kind_1783_i851_i1140; r2[2] = lenv; r1[3] = r2; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object*) lenv) [3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L827; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_kind_1783_i851_i1140; L827: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object**) lenv) [1][3]; r2 = ((object*) lenv) [3]; lenv = ((object *)lenv)[1]; lenv[2] = r0; lenv[3] = r1; lenv[4] = r2; goto FUN_loop_1804_i1140; fatbar_271_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L816: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_1804_i1140; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 4); r2 = (object *) constructed_1008[0]; r1[2] = r2; r2 = (object *) constructed_1007[0]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][5]; r1[4] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L828; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_1804_i1140; L828: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = top[23]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L829; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_car_311; L829: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = ((object*) lenv) [2]; r2 = ((object*) lenv) [2]; r2 = UOBJ_GET(r2,0); lenv = lenv[1]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L830; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L830: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; switch (get_case (r1)) { case (TC_NIL): { r1 = (object *) 262; } break; default: { goto fatbar_270; } } goto fatbar_270_over; fatbar_270: r1 = (object *) 6; fatbar_270_over: ; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[118]; r1[3] = r2; r2 = ((object**) lenv) [1][20]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L831; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nthunk_1780; L831: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = ((object***) lenv) [1][1][4]; } r0[4] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[198]; r1[4] = r2; r2 = ((object**) lenv) [1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L832; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_match_1757; L832: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = allocate (UOTAG(1), 2); r1 = ((object*) lenv) [4]; r0[1] = r1; r1 = ((object*) lenv) [5]; r0[2] = r1; PXLL_RETURN(0); L668: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_compile_pattern_480; r1[2] = lenv; r0[120] = r1; // def print-datatype_483 goto L833; FUN_print_datatype_483: check_heap (0); r0 = (object*) &constructed_1006; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_1006; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[7]; r1 = r0; dump_object (r1, 0); fprintf (stdout, "\n"); r0 = allocate (TC_TUPLE, 2); // def lambda_14009 goto L834; FUN_lambda_14009: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][2]; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = top[111]; r4[2] = r5; r5 = ((object***) lenv) [1][1][3]; r5 = ((pxll_vector*)r5)->val[3]; r4[3] = r5; r5 = top[36]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L835; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_map_328; L835: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*) &constructed_1005; r3[3] = r4; r4 = top[52]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L836; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_string_join_355; L836: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_1004; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_1003; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_1002; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L837; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L837: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L834: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_14009; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L838; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L838: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_1001; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_1001; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L833: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_print_datatype_483; r1[2] = lenv; r0[121] = r1; // def make-node_488 goto L839; FUN_make_node_488: check_heap (0); r0 = allocate (UOTAG(20), 6); r1 = (object *) 1; r0[1] = r1; r1 = top[201]; r1 = ((pxll_vector*)r1)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L840; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L840: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 4); // def lambda_14027_i1516 goto L841; FUN_lambda_14027_i1516: r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; r1 = ((object*) lenv) [3]; r2 = r0; r1 = box((pxll_int)unbox(r2)+unbox(r1)); PXLL_RETURN(1); L841: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_14027_i1516; r2[2] = lenv; r1[2] = r2; r2 = (object *) 3; r1[3] = r2; r2 = ((object*) lenv) [3]; r1[4] = r2; r2 = top[41]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L842; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_fold_333; L842: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[5] = r1; r1 = top[202]; r0[6] = r1; PXLL_RETURN(0); L839: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_make_node_488; r1[2] = lenv; r0[122] = r1; // def varref->name_491 goto L843; FUN_varref__3ename_491: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_269; } } PXLL_RETURN(0); goto fatbar_269_over; fatbar_269: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_1000; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_1000; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_269_over: ; PXLL_RETURN(0); L843: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_varref__3ename_491; r1[2] = lenv; r0[123] = r1; // def node/if_495 goto L844; FUN_node_2fif_495: check_heap (0); r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = (object*)TC_NIL; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object*)UITAG(6); r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; L844: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_node_2fif_495; r1[2] = lenv; r0[124] = r1; // def node/function_496 goto L845; FUN_node_2ffunction_496: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(7),2); t[1] = r3; t[2] = r2; r2 = t; r1[2] = r2; r2 = (object*)TC_NIL; r3 = r2; r4 = ((object**) lenv) [1][5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L846; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L846: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][4]; switch (get_case (r0)) { case (UOTAG(4)): { r0 = ((object**) lenv) [1][4]; r0 = UOBJ_GET(r0,0); r1 = r0; switch (get_case (r1)) { case ((pxll_int)PXLL_FALSE): { r1 = ((object*) lenv) [2]; PXLL_RETURN(1); } break; default: { goto fatbar_268; } } PXLL_RETURN(1); } break; default: { goto fatbar_268; } } PXLL_RETURN(0); goto fatbar_268_over; fatbar_268: r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][4]; r0[2] = r1; r1 = top[207]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L847; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L847: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[115]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L848; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_parse_type_splat_469; L848: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[5] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); fatbar_268_over: ; PXLL_RETURN(0); L845: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_node_2ffunction_496; r1[2] = lenv; r0[125] = r1; // def node/fix_500 goto L849; FUN_node_2ffix_500: check_heap (0); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = (object*)TC_NIL; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L850; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L850: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L851; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L851: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(10),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; L849: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_node_2ffix_500; r1[2] = lenv; r0[126] = r1; // def node/let_501 goto L852; FUN_node_2flet_501: check_heap (0); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = (object*)TC_NIL; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L853; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L853: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L854; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L854: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(9),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; L852: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_node_2flet_501; r1[2] = lenv; r0[127] = r1; // def node/nvcase_502 goto L855; FUN_node_2fnvcase_502: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][6]; r2 = ((object**) lenv) [1][7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][3]; r2 = ((object**) lenv) [1][4]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(4),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; L855: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_node_2fnvcase_502; r1[2] = lenv; r0[128] = r1; // def unpack-fix_506 goto L856; FUN_unpack_fix_506: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L857; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L857: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (UOTAG(4), 2); r1 = ((object*) lenv) [2]; r0[1] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L858; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L858: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; PXLL_RETURN(0); } break; default: { goto fatbar_267; } } PXLL_RETURN(0); goto fatbar_267_over; fatbar_267: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_999; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_999; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_267_over: ; PXLL_RETURN(0); L856: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_unpack_fix_506; r1[2] = lenv; r0[129] = r1; // def literal->string_507 goto L859; FUN_literal__3estring_507: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = (object *) 8706; r2[2] = r3; r3 = top[50]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L860; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_char__3estring_350; L860: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = (object *) 8706; r2[2] = r3; r3 = top[50]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L861; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_char__3estring_350; L861: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; case (UOTAG(4)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; r1 = r0; r1 = UOBJ_GET(r1,0); r2 = r1; PXLL_RETURN(2); PXLL_RETURN(1); } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[60]; r0[1] = r1[2]; lenv = r0; goto FUN_int__3estring_366; } break; case (UOTAG(2)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 7); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = (object *) 8962; r2[2] = r3; r3 = top[50]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L862; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_char__3estring_350; L862: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = (object *) 23554; r2[2] = r3; r3 = top[50]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L863; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_char__3estring_350; L863: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[50]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L864; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_char__3estring_350; L864: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = (object*)TC_NIL; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; case (UITAG(3)): { r0 = (object*) &constructed_987; PXLL_RETURN(0); } break; case (UOTAG(5)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 8); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = (object*) &constructed_990; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = (object*) &constructed_989; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r2 = ((object*) lenv) [7]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[8] = r2; r1 = ((object*) lenv) [8]; r2 = (object*) &constructed_988; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { goto fatbar_266; } } PXLL_RETURN(0); goto fatbar_266_over; fatbar_266: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 11); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[3] = r2; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = top[130]; r3[2] = r4; r4 = ((object**) lenv) [1][4]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L865; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L865: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*) &constructed_995; r2[3] = r3; r3 = top[52]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L866; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_join_355; L866: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = (object*)TC_NIL; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_994; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r2 = ((object*) lenv) [7]; r3 = (object*) &constructed_993; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[8] = r2; r2 = ((object*) lenv) [8]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[9] = r2; r2 = ((object*) lenv) [9]; r3 = (object*) &constructed_992; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[10] = r2; r2 = ((object*) lenv) [10]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[11] = r2; r1 = ((object*) lenv) [11]; r2 = (object*) &constructed_991; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; fatbar_266_over: ; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = top[130]; r3[2] = r4; r4 = ((object**) lenv) [1][2]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L867; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L867: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*) &constructed_998; r2[3] = r3; r3 = top[52]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L868; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_join_355; L868: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = (object*) &constructed_997; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = (object*) &constructed_996; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; } PXLL_RETURN(0); L859: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_literal__3estring_507; r1[2] = lenv; r0[130] = r1; // def flags-repr_508 goto L869; FUN_flags_repr_508: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_2394 goto L870; FUN_loop_2394: check_heap (0); r0 = (object *) 1; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[58]; r0[1] = r1[2]; lenv = r0; goto FUN_list__3estring_363; } else { r0 = (object *) 3; r1 = ((object*) lenv) [3]; r0 = box((pxll_int)unbox(r1)&unbox(r0)); r1 = (object *) 3; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object *) 3; r1 = ((object*) lenv) [3]; r0 = box((pxll_int)unbox(r1)>>unbox(r0)); r1 = ((object*) lenv) [2]; r2 = (object *) 12546; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r1; lenv[3] = r0; goto FUN_loop_2394; } else { r0 = (object *) 3; r1 = ((object*) lenv) [3]; r0 = box((pxll_int)unbox(r1)>>unbox(r0)); r1 = ((object*) lenv) [2]; r2 = (object *) 12290; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r1; lenv[3] = r0; goto FUN_loop_2394; } PXLL_RETURN(0); } PXLL_RETURN(0); L870: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_2394; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_986[0]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_2394; L869: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_flags_repr_508; r1[2] = lenv; r0[131] = r1; // def format-node_511 goto L871; FUN_format_node_511: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 19); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[1]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L872; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L872: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 4); r3 = (object *) 13; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = (object *) 262; r2[4] = r3; r3 = top[62]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L873; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pad_369; L873: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[2]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L874; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L874: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = allocate (TC_TUPLE, 4); r3 = (object *) 11; r2[2] = r3; r3 = ((object*) lenv) [4]; r2[3] = r3; r3 = (object *) 262; r2[4] = r3; r3 = top[62]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L875; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pad_369; L875: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = top[205]; r3 = (object *) 5; r2 = box((pxll_int)unbox(r3)+unbox(r2)); r1[6] = r2; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = ((object***) lenv) [1][1][2]; r4 = ((pxll_vector*)r4)->val[0]; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r4[1] = lenv; lenv = r4; // def loop_2394_i1 goto L876; FUN_loop_2394_i1: check_heap (0); r0 = (object *) 1; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[58]; r0[1] = r1[2]; lenv = r0; goto FUN_list__3estring_363; } else { r0 = (object *) 3; r1 = ((object*) lenv) [3]; r0 = box((pxll_int)unbox(r1)&unbox(r0)); r1 = (object *) 3; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object *) 3; r1 = ((object*) lenv) [3]; r0 = box((pxll_int)unbox(r1)>>unbox(r0)); r1 = ((object*) lenv) [2]; r2 = (object *) 12546; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r1; lenv[3] = r0; goto FUN_loop_2394_i1; } else { r0 = (object *) 3; r1 = ((object*) lenv) [3]; r0 = box((pxll_int)unbox(r1)>>unbox(r0)); r1 = ((object*) lenv) [2]; r2 = (object *) 12290; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv[2] = r1; lenv[3] = r0; goto FUN_loop_2394_i1; } PXLL_RETURN(0); } PXLL_RETURN(0); L876: r5 = allocate (TC_CLOSURE, 2); r5[1] = &&FUN_loop_2394_i1; r5[2] = lenv; r4[2] = r5; r4 = allocate (TC_TUPLE, 3); r5 = (object *) constructed_986[0]; r4[2] = r5; r5 = ((object**) lenv) [1][2]; r4[3] = r5; r5 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L877; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto *r5[1]; L877: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; lenv = lenv[1]; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_985; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L878; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L878: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[7] = r2; r2 = allocate (TC_TUPLE, 4); r3 = ((object*) lenv) [6]; r2[2] = r3; r3 = ((object*) lenv) [7]; r2[3] = r3; r3 = (object *) 262; r2[4] = r3; r3 = top[62]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L879; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pad_369; L879: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[8] = r2; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 3); r4 = ((object**) lenv) [1][3]; r3[2] = r4; r4 = (object*) &constructed_984; r3[3] = r4; r4 = top[35]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L880; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_n_of_327; L880: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L881; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L881: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[9] = r2; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[4]; r1[10] = r2; r2 = ((object*) lenv) [10]; switch (get_case (r2)) { case (UOTAG(0)): { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r3 = ((object*) lenv) [2]; r3 = UOBJ_GET(r3,0); r4 = (object*)TC_NIL; r5 = r4; r6 = r3; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r5 = t; r6 = r5; r7 = (object*) &constructed_955; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L882; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L882: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; case (UOTAG(1)): { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r3 = ((object*) lenv) [2]; r3 = UOBJ_GET(r3,0); r4 = (object*)TC_NIL; r5 = r4; r6 = r3; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r5 = t; r6 = r5; r7 = (object*) &constructed_956; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L883; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L883: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; case (UOTAG(2)): { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 4); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[130]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L884; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_literal__3estring_507; L884: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_957; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L885; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L885: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; case (UOTAG(3)): { r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,1); r2[3] = r3; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,2); r2[4] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 6); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][3]; r4[2] = r5; r5 = top[111]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L886; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_type_repr_464; L886: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_959; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_958; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L887; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L887: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; case (UITAG(5)): { r2 = (object*) &constructed_960; } break; case (UITAG(6)): { r2 = (object*) &constructed_961; } break; case (UITAG(8)): { r2 = (object*) &constructed_962; } break; case (UOTAG(7)): { r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,1); r2[3] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = ((object**) lenv) [1][2]; r4 = ((object**) lenv) [1][2]; r4 = UOBJ_GET(r4,0); r3[2] = r4; r4 = allocate (TC_TUPLE, 3); r5 = allocate (TC_TUPLE, 3); r6 = top[82]; r5[2] = r6; r6 = ((object**) lenv) [1][3]; r5[3] = r6; r6 = top[36]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L888; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_map_328; L888: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = (object*) &constructed_966; r4[3] = r5; r5 = top[52]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L889; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_join_355; L889: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_965; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_964; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_963; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L890; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L890: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; case (UOTAG(10)): { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 3); r5 = allocate (TC_TUPLE, 3); r6 = top[82]; r5[2] = r6; r6 = ((object**) lenv) [1][2]; r5[3] = r6; r6 = top[36]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L891; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_map_328; L891: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = (object*) &constructed_969; r4[3] = r5; r5 = top[52]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L892; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_join_355; L892: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_968; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_967; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L893; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L893: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; case (UOTAG(11)): { r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,1); r2[3] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = ((object**) lenv) [1][2]; r4 = ((object**) lenv) [1][2]; r4 = UOBJ_GET(r4,0); r3[2] = r4; r4 = ((object**) lenv) [1][3]; r4 = ((object**) lenv) [1][3]; r4 = UOBJ_GET(r4,0); r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_971; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_970; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L894; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L894: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; case (UOTAG(12)): { r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,1); r2[3] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = ((object**) lenv) [1][2]; r4 = ((object**) lenv) [1][2]; r4 = UOBJ_GET(r4,0); r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][3]; r4[2] = r5; r5 = top[95]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L895; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_repr_435; L895: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_973; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_972; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L896; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L896: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; case (UOTAG(9)): { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 3); r5 = allocate (TC_TUPLE, 3); r6 = top[82]; r5[2] = r6; r6 = ((object**) lenv) [1][2]; r5[3] = r6; r6 = top[36]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L897; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_map_328; L897: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = (object*) &constructed_976; r4[3] = r5; r5 = top[52]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L898; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_join_355; L898: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_975; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_974; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L899; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L899: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; default: { r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,1); r2[3] = r3; r3 = ((object**) lenv) [1][10]; r3 = UOBJ_GET(r3,2); r2[4] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 12); r3[1] = lenv; lenv = r3; r4 = ((object**) lenv) [1][2]; r4 = ((object**) lenv) [1][2]; r4 = UOBJ_GET(r4,0); r3[2] = r4; r4 = allocate (TC_TUPLE, 3); r5 = allocate (TC_TUPLE, 3); r6 = top[82]; r5[2] = r6; r6 = ((object**) lenv) [1][3]; r5[3] = r6; r6 = top[36]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L900; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_map_328; L900: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = (object*) &constructed_983; r4[3] = r5; r5 = top[52]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L901; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_join_355; L901: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 3); r5 = allocate (TC_TUPLE, 3); r6 = top[60]; r5[2] = r6; r6 = ((object**) lenv) [1][4]; r5[3] = r6; r6 = top[36]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L902; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_map_328; L902: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = (object*) &constructed_982; r4[3] = r5; r5 = top[52]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L903; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_join_355; L903: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_981; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_980; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = (object*) &constructed_979; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = (object*) &constructed_978; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r4 = ((object*) lenv) [11]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[12] = r4; r3 = ((object*) lenv) [12]; r4 = (object*) &constructed_977; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L904; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L904: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; } r1[11] = r2; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r4 = ((pxll_vector*)r4)->val[5]; r3[2] = r4; r4 = top[148]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L905; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_apply_subst_538; L905: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = top[111]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L906; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_type_repr_464; L906: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[12] = r2; r2 = (object*)TC_NIL; r1[13] = r2; r2 = ((object*) lenv) [13]; r3 = ((object*) lenv) [12]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[14] = r2; r2 = ((object*) lenv) [14]; r3 = (object*) &constructed_954; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[15] = r2; r2 = ((object*) lenv) [15]; r3 = ((object*) lenv) [11]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[16] = r2; r2 = ((object*) lenv) [16]; r3 = ((object*) lenv) [9]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[17] = r2; r2 = ((object*) lenv) [17]; r3 = ((object*) lenv) [8]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[18] = r2; r2 = ((object*) lenv) [18]; r3 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[19] = r2; r1 = ((object*) lenv) [19]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; L871: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_format_node_511; r1[2] = lenv; r0[132] = r1; // def walk-node-tree_512 goto L907; FUN_walk_node_tree_512: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L908; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L908: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_14989 goto L909; FUN_lambda_14989: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = (object *) 3; r2 = ((object**) lenv) [1][4]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[4] = r1; r1 = top[133]; r0[1] = r1[2]; lenv = r0; goto FUN_walk_node_tree_512; L909: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_14989; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [3]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L907: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_walk_node_tree_512; r1[2] = lenv; r0[133] = r1; // def make-node-generator_513 goto L910; FUN_make_node_generator_513: check_heap (0); r0 = allocate (TC_TUPLE, 2); // def lambda_15025 goto L911; FUN_lambda_15025: check_heap (0); r0 = allocate (TC_TUPLE, 4); // def lambda_15006 goto L912; FUN_lambda_15006: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (UOTAG(1), 2); r2 = ((object*) lenv) [2]; r1[1] = r2; r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = r1; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r1 = t; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L912: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_15006; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = (object *) 1; r0[4] = r1; r1 = top[133]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L913; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_walk_node_tree_512; L913: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_2426 goto L914; FUN__24loop_2426: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = (object*)UITAG(1); r0[2] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L915; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L915: ; lenv = k[2]; k = k[1]; goto FUN__24loop_2426; L914: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_2426; r1[2] = lenv; r0[2] = r1; r0 = ((object*) lenv) [2]; lenv = r0[2]; goto FUN__24loop_2426; L911: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_15025; r1[2] = lenv; r0[2] = r1; r1 = top[21]; r0[1] = r1[2]; lenv = r0; goto FUN_make_generator_306; L910: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_make_node_generator_513; r1[2] = lenv; r0[134] = r1; // def pp-node_514 goto L916; FUN_pp_node_514: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[134]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L917; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_generator_513; L917: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_2429 goto L918; FUN_loop_2429: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L919; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L919: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[132]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L920; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_format_node_511; L920: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = top[167]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L921; ; k = t; lenv = r0[2]; goto *r0[1]; L921: ; lenv = k[2]; k = k[1]; lenv = ((object ***)lenv)[1][1][1]; goto FUN_loop_2429; } break; } PXLL_RETURN(0); } break; default: { r0 = (object *) 14; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L918: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_2429; r1[2] = lenv; r0[2] = r1; r0 = ((object*) lenv) [2]; lenv = r0[2]; goto FUN_loop_2429; L916: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pp_node_514; r1[2] = lenv; r0[135] = r1; // def get-formals_516 goto L922; FUN_get_formals_516: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def p_2453 goto L923; FUN_p_2453: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r2 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; PXLL_RETURN(1); } break; default: { goto fatbar_265; } } PXLL_RETURN(0); goto fatbar_265_over; fatbar_265: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_953; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_265_over: ; PXLL_RETURN(0); L923: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_p_2453; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) constructed_952[0]; r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r1[4] = r2; r2 = top[41]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L924; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_fold_333; L924: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; L922: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_get_formals_516; r1[2] = lenv; r0[136] = r1; // def unpack-bindings_517 goto L925; FUN_unpack_bindings_517: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_2458 goto L926; FUN_loop_2458: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (UOTAG(1), 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L927; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L927: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[1] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L928; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L928: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case (r2)) { case (UOTAG(0)): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r2; switch (get_case (r3)) { case (TC_PAIR): { r3 = r2; r3 = UOBJ_GET(r3,0); r4 = r2; r4 = UOBJ_GET(r4,1); r5 = r3; switch (get_case (r5)) { case (UOTAG(1)): { r5 = r3; r5 = UOBJ_GET(r5,0); r6 = r4; switch (get_case (r6)) { case (TC_PAIR): { r6 = r4; r6 = UOBJ_GET(r6,0); r7 = r4; r7 = UOBJ_GET(r7,1); r8 = r7; switch (get_case (r8)) { case (TC_NIL): { r8 = ((object*) lenv) [3]; r9 = r5; t = alloc_no_clear (TC_PAIR,2); t[1] = r9; t[2] = r8; r8 = t; r9 = ((object*) lenv) [4]; r10 = r6; t = alloc_no_clear (TC_PAIR,2); t[1] = r10; t[2] = r9; r9 = t; r10 = r1; lenv[2] = r10; lenv[3] = r8; lenv[4] = r9; goto FUN_loop_2458; } break; default: { goto fatbar_264; } } PXLL_RETURN(8); } break; default: { goto fatbar_264; } } PXLL_RETURN(6); } break; default: { goto fatbar_264; } } PXLL_RETURN(5); } break; default: { goto fatbar_264; } } PXLL_RETURN(3); } break; default: { goto fatbar_264; } } PXLL_RETURN(2); } break; } PXLL_RETURN(0); goto fatbar_264_over; fatbar_264: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_951; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_264_over: ; PXLL_RETURN(0); L926: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_2458; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = (object *) constructed_950[0]; r0[3] = r1; r1 = (object *) constructed_949[0]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_2458; L925: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_unpack_bindings_517; r1[2] = lenv; r0[137] = r1; // def parse-cexp-sig_518 goto L929; FUN_parse_cexp_sig_518: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = top[207]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L930; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L930: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[115]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L931; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_parse_type_splat_469; L931: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (UOTAG(2), 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L932; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L932: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[1] = r1; r1 = ((object*) lenv) [3]; r0[2] = r1; PXLL_RETURN(0); L929: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_parse_cexp_sig_518; r1[2] = lenv; r0[138] = r1; // def join-cexp-template_519 goto L933; FUN_join_cexp_template_519: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); // def lambda_15382 goto L934; FUN_lambda_15382: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_263; } } PXLL_RETURN(0); goto fatbar_263_over; fatbar_263: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_947; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_263_over: ; PXLL_RETURN(0); L934: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_15382; r2[2] = lenv; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L935; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L935: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = (object*) &constructed_946; r0[3] = r1; r1 = top[52]; r0[1] = r1[2]; lenv = r0; goto FUN_string_join_355; } break; default: { goto fatbar_262; } } PXLL_RETURN(0); goto fatbar_262_over; fatbar_262: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_948; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_262_over: ; PXLL_RETURN(0); L933: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_join_cexp_template_519; r1[2] = lenv; r0[139] = r1; // def sort-fix-inits_520 goto L936; FUN_sort_fix_inits_520: check_heap (0); r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_945[0]; r0[2] = r1; r1 = (object *) constructed_944[0]; r0[3] = r1; r1 = (object *) constructed_943[0]; r0[4] = r1; r1 = (object *) constructed_942[0]; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L937; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L937: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][6]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_2486 goto L938; FUN__24loop_2486: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L939; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L939: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L940; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L940: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)]; r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(7)): { r0 = ((object*****) lenv) [1][1][1][1][2]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*****) lenv) [1][1][1][1][2] = r0; r0 = ((object*****) lenv) [1][1][1][1][4]; r1 = r0; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*****) lenv) [1][1][1][1][4] = r0; } break; default: { goto fatbar_261; } } goto fatbar_261_over; fatbar_261: r0 = ((object*****) lenv) [1][1][1][1][3]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*****) lenv) [1][1][1][1][3] = r0; r0 = ((object*****) lenv) [1][1][1][1][5]; r1 = r0; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*****) lenv) [1][1][1][1][5] = r0; fatbar_261_over: ; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_2486; } PXLL_RETURN(0); L938: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_2486; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L941; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_2486; L941: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (UOTAG(3), 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L942; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L942: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [4]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L943; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L943: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [3]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L944; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L944: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [5]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L945; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L945: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[1] = r1; r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L946; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L946: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object**) lenv) [1][5]; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [4]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L947; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L947: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [3]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L948; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L948: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [5]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L949; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L949: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; PXLL_RETURN(0); L936: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_sort_fix_inits_520; r1[2] = lenv; r0[140] = r1; // def walk_521 goto L950; FUN_walk_521: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_868[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; case (UOTAG(2)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_885[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; case (UOTAG(5)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_885[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; case (UOTAG(3)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_885[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; case (UOTAG(4)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(r1) { r1 = (object *) constructed_40[0]; } else { r1 = (object *) constructed_37[0]; } r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = (object *) constructed_928[0]; r3 = (object *) constructed_42[0]; t = alloc_no_clear (UOTAG(5),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [4]; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_885[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; case (UITAG(6)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object*)UITAG(3); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_885[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; case (UOTAG(8)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); // def lambda_15581 goto L951; FUN_lambda_15581: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 8); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L952; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L952: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = (object*)TC_NIL; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [4]; r2 = (object *) constructed_513[0]; t = alloc_no_clear (UOTAG(12),2); t[1] = r2; t[2] = r1; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [8]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; PXLL_RETURN(0); L951: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_15581; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r2; r2 = t; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r3 = (object *) constructed_510[0]; t = alloc_no_clear (UOTAG(12),2); t[1] = r3; t[2] = r2; r2 = t; r1[2] = r2; r2 = (object *) constructed_929[0]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L953; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L953: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = top[42]; r0[1] = r1[2]; lenv = r0; goto FUN_foldr_334; } break; case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L954; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L954: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = (object*)TC_NIL; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [4]; r2 = (object *) constructed_507[0]; t = alloc_no_clear (UOTAG(12),2); t[1] = r2; t[2] = r1; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [7]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(7),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = top[143]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L955; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_build_literal_523; L955: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_885[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 6); r3[1] = lenv; lenv = r3; r4 = ((object**) lenv) [1][2]; r4 = ((object**) lenv) [1][2]; r4 = UOBJ_GET(r4,0); r3[2] = r4; r4 = ((object**) lenv) [1][3]; r4 = ((object**) lenv) [1][3]; r4 = UOBJ_GET(r4,0); r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_930; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r3 = ((object*) lenv) [6]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L956; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L956: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L957; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L957: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [4]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_868[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_932[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object******) lenv) [1][1][1][1][1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L958; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L958: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r2 = ((object*****) lenv) [1][1][1][1][2]; t = alloc_no_clear (UOTAG(11),2); t[1] = r2; t[2] = r1; r1 = t; r0[2] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; default: { lenv = ((object *******)lenv)[1][1][1][1][1][1][1]; goto fatbar_248; } } PXLL_RETURN(0); } break; default: { lenv = ((object ******)lenv)[1][1][1][1][1][1]; goto fatbar_248; } } PXLL_RETURN(0); } break; default: { lenv = ((object ******)lenv)[1][1][1][1][1][1]; goto fatbar_248; } } PXLL_RETURN(0); } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_248; } } PXLL_RETURN(0); } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_248; } } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_248; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_248; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_248; } } PXLL_RETURN(0); } break; default: { goto fatbar_248; } } PXLL_RETURN(0); } else { goto fatbar_248; } PXLL_RETURN(0); goto fatbar_248_over; fatbar_248: r0 = (object *) constructed_934[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[137]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L959; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unpack_bindings_517; L959: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L960; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L960: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = top[141]; r2[2] = r3; r3 = ((object****) lenv) [1][1][1][3]; r2[3] = r3; r3 = top[36]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L961; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_map_328; L961: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object*)UITAG(5); r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L962; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L962: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[4] = r1; r1 = top[126]; r0[1] = r1[2]; lenv = r0; goto FUN_node_2ffix_500; } break; } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_249; } } PXLL_RETURN(0); } break; default: { goto fatbar_249; } } PXLL_RETURN(0); } else { goto fatbar_249; } PXLL_RETURN(0); goto fatbar_249_over; fatbar_249: r0 = (object *) constructed_652[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[137]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L963; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unpack_bindings_517; L963: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L964; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L964: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = top[141]; r2[2] = r3; r3 = ((object****) lenv) [1][1][1][3]; r2[3] = r3; r3 = top[36]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L965; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_map_328; L965: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object*)UITAG(5); r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L966; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L966: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[4] = r1; r1 = top[127]; r0[1] = r1[2]; lenv = r0; goto FUN_node_2flet_501; } break; } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_250; } } PXLL_RETURN(0); } break; default: { goto fatbar_250; } } PXLL_RETURN(0); } else { goto fatbar_250; } PXLL_RETURN(0); goto fatbar_250_over; fatbar_250: r0 = (object *) constructed_747[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r3 = top[136]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L967; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_get_formals_516; L967: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = top[141]; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[36]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L968; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_map_328; L968: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[140]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L969; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_sort_fix_inits_520; L969: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = top[141]; r2[2] = r3; r3 = ((object****) lenv) [1][1][1][3]; r2[3] = r3; r3 = top[36]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L970; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_map_328; L970: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object*)UITAG(5); r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L971; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L971: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[4] = r1; r1 = top[126]; r0[1] = r1[2]; lenv = r0; goto FUN_node_2ffix_500; } break; } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_251; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_251; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_251; } } PXLL_RETURN(0); } break; default: { goto fatbar_251; } } PXLL_RETURN(0); } else { goto fatbar_251; } PXLL_RETURN(0); goto fatbar_251_over; fatbar_251: r0 = (object *) constructed_648[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 5); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[136]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L972; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_formals_516; L972: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = top[141]; r2[2] = r3; r3 = ((object**) lenv) [1][3]; r2[3] = r3; r3 = top[36]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L973; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_map_328; L973: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object*)UITAG(5); r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L974; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L974: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[5] = r1; r1 = top[125]; r0[1] = r1[2]; lenv = r0; goto FUN_node_2ffunction_496; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_252; } } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_252; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_252; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_252; } } PXLL_RETURN(0); } break; default: { goto fatbar_252; } } PXLL_RETURN(0); } else { goto fatbar_252; } PXLL_RETURN(0); goto fatbar_252_over; fatbar_252: r0 = (object *) constructed_660[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 7); r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[90]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L975; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L975: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[91]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L976; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L976: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L977; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L977: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L978; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L978: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L979; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L979: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = top[128]; r0[1] = r1[2]; lenv = r0; goto FUN_node_2fnvcase_502; } break; default: { lenv = ((object **********)lenv)[1][1][1][1][1][1][1][1][1][1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { lenv = ((object *********)lenv)[1][1][1][1][1][1][1][1][1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { lenv = ((object ********)lenv)[1][1][1][1][1][1][1][1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { lenv = ((object *******)lenv)[1][1][1][1][1][1][1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { lenv = ((object ******)lenv)[1][1][1][1][1][1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_253; } } PXLL_RETURN(0); } break; default: { goto fatbar_253; } } PXLL_RETURN(0); } else { goto fatbar_253; } PXLL_RETURN(0); goto fatbar_253_over; fatbar_253: r0 = (object *) constructed_662[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[138]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L980; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_parse_cexp_sig_518; L980: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[139]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L981; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_join_cexp_template_519; L981: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L982; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L982: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(3),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_254; } } PXLL_RETURN(0); } break; default: { goto fatbar_254; } } PXLL_RETURN(0); } else { goto fatbar_254; } PXLL_RETURN(0); goto fatbar_254_over; fatbar_254: r0 = (object *) constructed_642[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 4); r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L983; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L983: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L984; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L984: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L985; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L985: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = top[124]; r0[1] = r1[2]; lenv = r0; goto FUN_node_2fif_495; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_255; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_255; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_255; } } PXLL_RETURN(0); } break; default: { goto fatbar_255; } } PXLL_RETURN(0); } else { goto fatbar_255; } PXLL_RETURN(0); goto fatbar_255_over; fatbar_255: r0 = (object *) constructed_936[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[143]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L986; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_build_literal_523; L986: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_885[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_256; } } PXLL_RETURN(0); } break; default: { goto fatbar_256; } } PXLL_RETURN(0); } else { goto fatbar_256; } PXLL_RETURN(0); goto fatbar_256_over; fatbar_256: r0 = (object *) constructed_938[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[143]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L987; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_build_literal_523; L987: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object *) constructed_885[0]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_257; } } PXLL_RETURN(0); } break; default: { goto fatbar_257; } } PXLL_RETURN(0); } else { goto fatbar_257; } PXLL_RETURN(0); goto fatbar_257_over; fatbar_257: r0 = (object *) constructed_644[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L988; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L988: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_258; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_258; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_258; } } PXLL_RETURN(0); } break; default: { goto fatbar_258; } } PXLL_RETURN(0); } else { goto fatbar_258; } PXLL_RETURN(0); goto fatbar_258_over; fatbar_258: r0 = (object *) constructed_646[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L989; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L989: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object*)UITAG(5); r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } else { lenv = ((object *)lenv)[1]; goto fatbar_247; } PXLL_RETURN(0); fatbar_258_over: ; PXLL_RETURN(0); fatbar_257_over: ; PXLL_RETURN(0); fatbar_256_over: ; PXLL_RETURN(0); fatbar_255_over: ; PXLL_RETURN(0); fatbar_254_over: ; PXLL_RETURN(0); fatbar_253_over: ; PXLL_RETURN(0); fatbar_252_over: ; PXLL_RETURN(0); fatbar_251_over: ; PXLL_RETURN(0); fatbar_250_over: ; PXLL_RETURN(0); fatbar_249_over: ; PXLL_RETURN(0); fatbar_248_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_247; } } PXLL_RETURN(0); goto fatbar_247_over; fatbar_247: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = (object *) 1; r2 = r0; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = (object *) 1; r2 = r0; r1 = TO_CHAR(((unsigned char *)((pxll_string*)(r2))->data)[unbox(r1)]); r2 = (object *) 9474; r3 = r1; r0 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r0) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L990; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L990: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(12),2); t[1] = r2; t[2] = r1; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } break; default: { goto fatbar_260; } } PXLL_RETURN(0); goto fatbar_260_over; fatbar_260: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_939; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_260_over: ; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L991; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L991: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L992; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L992: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object*)UITAG(8); r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } PXLL_RETURN(0); } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_45[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 9); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L993; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L993: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = (object*)TC_NIL; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[8] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L994; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L994: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[9] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [8]; r2 = (object *) constructed_518[0]; t = alloc_no_clear (UOTAG(12),2); t[1] = r2; t[2] = r1; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [9]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L995; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L995: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L996; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L996: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object*)UITAG(8); r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; } PXLL_RETURN(0); } break; default: { goto fatbar_259; } } PXLL_RETURN(0); goto fatbar_259_over; fatbar_259: r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L997; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L997: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[141]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L998; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L998: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object*)UITAG(8); r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[122]; r0[1] = r1[2]; lenv = r0; goto FUN_make_node_488; fatbar_259_over: ; PXLL_RETURN(0); fatbar_247_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_246; } } PXLL_RETURN(0); goto fatbar_246_over; fatbar_246: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_940; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_246_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); goto fatbar_245_over; fatbar_245: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_941; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_245_over: ; PXLL_RETURN(0); L950: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_walk_521; r1[2] = lenv; r0[141] = r1; // def build-list-literal_522 goto L999; FUN_build_list_literal_522: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[143]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1000; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1000: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(5),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } break; default: { goto fatbar_244; } } PXLL_RETURN(0); goto fatbar_244_over; fatbar_244: r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[143]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1001; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_build_literal_523; L1001: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[142]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1002; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_build_list_literal_522; L1002: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = (object*)TC_NIL; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r0 = (object *) constructed_57[0]; r1 = ((object*) lenv) [6]; r2 = (object *) constructed_47[0]; t = alloc_no_clear (UOTAG(5),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); fatbar_244_over: ; PXLL_RETURN(0); } break; default: { r0 = (object *) constructed_45[0]; r1 = (object *) constructed_927[0]; r2 = (object *) constructed_47[0]; t = alloc_no_clear (UOTAG(5),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L999: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_build_list_literal_522; r1[2] = lenv; r0[142] = r1; // def build-literal_523 goto L1003; FUN_build_literal_523: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; PXLL_RETURN(1); } break; case (UOTAG(5)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; PXLL_RETURN(1); } break; case (UOTAG(3)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; t = alloc_no_clear (UOTAG(2),1); t[1] = r1; r1 = t; PXLL_RETURN(1); } break; case (UITAG(6)): { r0 = (object*)UITAG(3); PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; PXLL_RETURN(1); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[142]; r0[1] = r1[2]; lenv = r0; goto FUN_build_list_literal_522; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[143]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1004; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1004: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(6),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { goto fatbar_243; } } PXLL_RETURN(0); goto fatbar_243_over; fatbar_243: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_926; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_243_over: ; PXLL_RETURN(0); L1003: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_build_literal_523; r1[2] = lenv; r0[143] = r1; // def make-vardef_525 goto L1005; FUN_make_vardef_525: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 6); r3[1] = lenv; lenv = r3; r4 = ((object***) lenv) [1][1][2]; r4 = ((object***) lenv) [1][1][2]; r4 = UOBJ_GET(r4,0); r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1006; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L1006: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_925; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r3 = ((object*) lenv) [6]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1007; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L1007: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1008; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L1008: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (UOTAG(19), 5); r1 = (object *) constructed_924[0]; r0[1] = r1; r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = (object *) constructed_923[0]; r0[4] = r1; r1 = ((object**) lenv) [1][3]; r0[5] = r1; PXLL_RETURN(0); L1005: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_make_vardef_525; r1[2] = lenv; r0[144] = r1; // def k/free_531 goto L1009; FUN_k_2ffree_531: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,1); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_922; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_922; result=r0; goto Lreturn; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1009: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_k_2ffree_531; r1[2] = lenv; r0[145] = r1; // def k/target_532 goto L1010; FUN_k_2ftarget_532: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_921; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_921; result=r0; goto Lreturn; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1010: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_k_2ftarget_532; r1[2] = lenv; r0[146] = r1; // def print-insn_535 goto L1011; FUN_print_insn_535: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; // def mprint-insn_3159 goto L1012; FUN_mprint_insn_3159: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = allocate (TC_TUPLE, 3); r2 = r0; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[147]; r1[1] = r2[2]; lenv = r1; goto FUN_print_insn_535; } break; default: { r0 = (object *) 14; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1012: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_mprint_insn_3159; r1[2] = lenv; r0[2] = r1; // def print-line_3160 goto L1013; FUN_print_line_3160: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = top[167]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1014; ; k = t; lenv = r0[2]; goto *r0[1]; L1014: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r1 = top[96]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1015; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_indent_436; L1015: ; lenv = k[2]; k = k[1]; r0 = (object *) -1; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object*) &constructed_919; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_919; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; } else { r0 = ((object*) lenv) [2]; r0 = dump_object (r0, 0); } r0 = (object*) &constructed_918; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_918; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1016; ; k = t; lenv = r0[2]; goto *r0[1]; L1016: ; lenv = k[2]; k = k[1]; r0 = ((object****) lenv) [1][1][1][3]; r1 = ((object*) lenv) [4]; lenv = ((object ***)lenv)[1][1][1]; lenv[2] = r1; lenv[3] = r0; goto FUN_print_insn_535; } break; default: { r0 = top[167]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1017; ; k = t; lenv = r0[2]; goto *r0[1]; L1017: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = top[96]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1018; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_indent_436; L1018: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_920; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_920; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; lenv = r0[2]; goto *r0[1]; } break; } PXLL_RETURN(0); L1013: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_print_line_3160; r1[2] = lenv; r0[3] = r1; r0 = ((object**) lenv) [1][2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = top[167]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1019; ; k = t; lenv = r0[2]; goto *r0[1]; L1019: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = top[96]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1020; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_indent_436; L1020: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_893; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_893; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; r0 = dump_object (r0, 0); PXLL_RETURN(0); } break; case (UOTAG(14)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20131 goto L1021; FUN_lambda_20131: r0 = (object*) &constructed_895; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_895; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [4]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1021: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20131; r1[2] = lenv; r0[2] = r1; r1 = (object*)UITAG(1); r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(15)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20161 goto L1022; FUN_lambda_20161: r0 = (object*) &constructed_896; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_896; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [4]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1022: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20161; r1[2] = lenv; r0[2] = r1; r1 = (object*)UITAG(1); r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20185 goto L1023; FUN_lambda_20185: check_heap (0); r0 = (object*) &constructed_897; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_897; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[130]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1024; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_literal__3estring_507; L1024: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1023: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20185; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(2)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20210 goto L1025; FUN_lambda_20210: r0 = (object*) &constructed_898; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_898; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1025: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20210; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(3)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,4); r0[6] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20250 goto L1026; FUN_lambda_20250: check_heap (0); r0 = (object*) &constructed_899; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_899; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[111]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1027; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_repr_464; L1027: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[111]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1028; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_repr_464; L1028: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = ((object*) lenv) [4]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [5]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1026: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20250; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [6]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(4)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20291 goto L1029; FUN_lambda_20291: check_heap (0); r0 = (object*) &constructed_900; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_900; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) 3; r2 = ((object***) lenv) [1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = top[147]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1030; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L1030: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [4]; r0[2] = r1; r1 = (object *) 3; r2 = ((object***) lenv) [1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = top[147]; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L1029: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20291; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(6)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20313 goto L1031; FUN_lambda_20313: r0 = (object*) &constructed_901; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_901; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; r0 = dump_object (r0, 0); PXLL_RETURN(0); L1031: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20313; r1[2] = lenv; r0[2] = r1; r1 = (object*)UITAG(1); r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20343 goto L1032; FUN_lambda_20343: check_heap (0); r0 = (object*) &constructed_902; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_902; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) 3; r2 = ((object***) lenv) [1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = top[147]; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L1032: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20343; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(8)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20369 goto L1033; FUN_lambda_20369: r0 = (object*) &constructed_903; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_903; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1033: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20369; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20400 goto L1034; FUN_lambda_20400: r0 = (object*) &constructed_904; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_904; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [4]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1034: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20400; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(12)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,4); r0[6] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20437 goto L1035; FUN_lambda_20437: r0 = (object*) &constructed_905; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_905; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [4]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [5]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1035: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20437; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [6]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(13)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20470 goto L1036; FUN_lambda_20470: r0 = (object*) &constructed_906; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_906; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [4]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1036: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20470; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20497 goto L1037; FUN_lambda_20497: r0 = (object*) &constructed_907; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_907; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1037: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20497; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(11)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20523 goto L1038; FUN_lambda_20523: r0 = (object*) &constructed_908; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_908; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1038: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20523; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(16)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20544 goto L1039; FUN_lambda_20544: r0 = (object*) &constructed_909; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_909; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1039: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20544; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(17)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20564 goto L1040; FUN_lambda_20564: r0 = (object*) &constructed_910; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_910; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1040: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20564; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(18)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,4); r0[6] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20603 goto L1041; FUN_lambda_20603: check_heap (0); r0 = (object*) &constructed_911; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_911; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[95]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1042; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_repr_435; L1042: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = top[111]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1043; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_repr_464; L1043: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = ((object*) lenv) [5]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1041: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20603; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [6]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(19)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20631 goto L1044; FUN_lambda_20631: r0 = (object*) &constructed_912; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_912; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1044: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20631; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(20)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20670 goto L1045; FUN_lambda_20670: check_heap (0); r0 = (object*) &constructed_913; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_913; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) 3; r2 = ((object***) lenv) [1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = top[147]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1046; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L1046: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [4]; r0[2] = r1; r1 = (object *) 3; r2 = ((object***) lenv) [1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = top[147]; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L1045: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20670; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(21)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20695 goto L1047; FUN_lambda_20695: r0 = (object*) &constructed_914; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_914; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1047: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20695; r1[2] = lenv; r0[2] = r1; r1 = (object*)UITAG(1); r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(5)): { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,4); r0[6] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,5); r0[7] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20746 goto L1048; FUN_lambda_20746: check_heap (0); r0 = (object*) &constructed_915; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_915; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[111]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1049; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_repr_464; L1049: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = ((object*) lenv) [4]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [5]; r0[2] = r1; r1 = (object *) 3; r2 = ((object***) lenv) [1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = top[147]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1050; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L1050: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [6]; r0[2] = r1; r1 = (object *) 3; r2 = ((object***) lenv) [1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = top[147]; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L1048: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20746; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [7]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; case (UOTAG(22)): { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,4); r0[6] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,5); r0[7] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20803 goto L1051; FUN_lambda_20803: check_heap (0); r0 = (object*) &constructed_916; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_916; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [4]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); // def lambda_20791 goto L1052; FUN_lambda_20791: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = (object *) 3; r2 = ((object****) lenv) [1][1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = top[147]; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L1052: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20791; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1053; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1053: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [6]; r0[2] = r1; r1 = (object *) 3; r2 = ((object***) lenv) [1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_mprint_insn_3159; L1051: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20803; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [7]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; default: { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,4); r0[6] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,5); r0[7] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_20860 goto L1054; FUN_lambda_20860: check_heap (0); r0 = (object*) &constructed_917; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_917; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_892; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_892; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [3]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [4]; dump_object (r0, 0); r0 = (object*) &constructed_894; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_894; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); // def lambda_20848 goto L1055; FUN_lambda_20848: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = (object *) 3; r2 = ((object****) lenv) [1][1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = top[147]; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L1055: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20848; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1056; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1056: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [6]; r0[2] = r1; r1 = (object *) 3; r2 = ((object***) lenv) [1][1][3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_mprint_insn_3159; L1054: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_20860; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [7]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_print_line_3160; } break; } PXLL_RETURN(0); L1011: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_print_insn_535; r1[2] = lenv; r0[147] = r1; // def apply-subst_538 goto L1057; FUN_apply_subst_538: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def p_3311 goto L1058; FUN_p_3311: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[113]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1059; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_find_467; L1059: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[112]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1060; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type__3etrec_466; L1060: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r0 = ((pxll_vector*)r0)->val[2]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1061; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L1061: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; r1 = ((object**) lenv) [1][3]; ((pxll_vector*)r1)->val[0] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } else { r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_605[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); } else { goto fatbar_242; } PXLL_RETURN(0); goto fatbar_242_over; fatbar_242: r0 = (object *) 262; r1 = ((object**) lenv) [1][3]; ((pxll_vector*)r1)->val[2] = r0; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*****) lenv) [1][1][1][1][2]; r2[2] = r3; r3 = ((object**) lenv) [1][3]; r2[3] = r3; r3 = top[36]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1062; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_map_328; L1062: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1063; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1063: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object***) lenv) [1][1][3]; ((pxll_vector*)r1)->val[2] = r0; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r1 = ((pxll_vector*)r1)->val[0]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_605[0]; r0[2] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r1 = t; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; } break; default: { r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); fatbar_242_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } PXLL_RETURN(0); L1058: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_p_3311; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_p_3311; L1057: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_apply_subst_538; r1[2] = lenv; r0[148] = r1; // def symbol-set-maker_545 goto L1064; FUN_symbol_set_maker_545: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[209]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1065; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L1065: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_25603 goto L1066; FUN_lambda_25603: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[0]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1066: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_25603; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1067; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1067: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L1064: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_symbol_set_maker_545; r1[2] = lenv; r0[149] = r1; // def build-dependency-graph_546 goto L1068; FUN_build_dependency_graph_546: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = top[86]; r1[2] = r2; r2 = top[208]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1069; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1069: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def search_3914 goto L1070; FUN_search_3914: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,10)]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,10)]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1071; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1071: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1072; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L1072: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_search_3914; } break; case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1073; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1073: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_3922 goto L1074; FUN__24loop_3922: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1075; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1075: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1076; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1076: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_891[0]; r1[2] = r2; r2 = top[149]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1077; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_symbol_set_maker_545; L1077: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object*) lenv) [4]; r0[4] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[0]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1078; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1078: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1079; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_search_3914; L1079: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_3922; } PXLL_RETURN(0); L1074: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_3922; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1080; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_3922; L1080: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1081; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L1081: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1082; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1082: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_search_3914; } break; default: { goto fatbar_241; } } PXLL_RETURN(0); goto fatbar_241_over; fatbar_241: r0 = allocate (TC_TUPLE, 3); // def lambda_25723 goto L1083; FUN_lambda_25723: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_search_3914; L1083: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_25723; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; fatbar_241_over: ; PXLL_RETURN(0); L1070: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_search_3914; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_890[0]; r1[2] = r2; r2 = top[149]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1084; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_symbol_set_maker_545; L1084: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = (object *) constructed_531[0]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[0]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1085; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1085: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1086; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_search_3914; L1086: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = ((object**) lenv) [1][2]; r1 = ((object***) lenv) [1][1][3]; ((pxll_vector*)r1)->val[4] = r0; PXLL_RETURN(0); L1068: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_build_dependency_graph_546; r1[2] = lenv; r0[150] = r1; // def symbol-add-suffix_555 goto L1087; FUN_symbol_add_suffix_555: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r2 = ((object*) lenv) [2]; r2 = UOBJ_GET(r2,0); r3 = (object*)TC_NIL; r4 = r3; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = r2; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r2 = t; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1088; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1088: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[84]; r0[1] = r1[2]; lenv = r0; goto FUN_string__3esymbol_421; L1087: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_symbol_add_suffix_555; r1[2] = lenv; r0[151] = r1; // def do-simple-optimizations_558 goto L1089; FUN_do_simple_optimizations_558: check_heap (0); r0 = (object *) 1; top[211] = r0; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_4193 goto L1090; FUN_loop_4193: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = top[211]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1091; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L1091: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_889; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_888; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1092; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1092: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = top[211]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)>unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object *) 1; top[211] = r0; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[153]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1093; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_simpleopt_559; L1093: ; lenv = k[2]; k = k[1]; r0 = result; lenv[2] = r0; goto FUN_loop_4193; } else { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } PXLL_RETURN(0); L1090: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_4193; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1094; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1094: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_4193; L1089: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_do_simple_optimizations_558; r1[2] = lenv; r0[152] = r1; // def simpleopt_559 goto L1095; FUN_simpleopt_559: check_heap (0); r0 = allocate (TC_TUPLE, 2); // def lambda_28367 goto L1096; FUN_lambda_28367: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def lambda_27885 goto L1097; FUN_lambda_27885: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[18]; r0[1] = r1[2]; lenv = r0; goto FUN_throw_299; L1097: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_27885; r1[2] = lenv; r0[2] = r1; r0 = top[211]; r1 = r0; r2 = (object *) 3; r0 = box((pxll_int)unbox(r2)+unbox(r1)); top[211] = r0; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object******) lenv) [1][1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1098; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1098: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1099; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1099: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1100; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1100: ; lenv = k[2]; k = k[1]; r0 = result; } break; default: { goto fatbar_234; } } goto fatbar_234_over; fatbar_234: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[129]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1101; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unpack_fix_506; L1101: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { case (UOTAG(4)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[4] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[5] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][5]; r1[2] = r2; r2 = top[129]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1102; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unpack_fix_506; L1102: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 4); r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = ((object*****) lenv) [1][1][1][1][2]; r4[2] = r5; r5 = (object *) constructed_17[0]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1103; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1103: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = ((object**) lenv) [1][2]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1104; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L1104: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = (object *) constructed_17[0]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1105; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1105: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = ((object*) lenv) [3]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1106; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L1106: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = ((object*) lenv) [2]; r2[4] = r3; r3 = top[126]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1107; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_node_2ffix_500; L1107: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1108; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1108: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1109; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1109: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_235; } } lenv = lenv[1]; } break; default: { goto fatbar_235; }; } goto fatbar_235_over; fatbar_235: r0 = (object *) 14; fatbar_235_over: ; lenv = lenv[1]; fatbar_234_over: ; lenv = lenv[1]; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object******) lenv) [1][1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1110; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1110: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1111; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1111: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1112; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1112: ; lenv = k[2]; k = k[1]; r0 = result; } break; default: { goto fatbar_236; } } goto fatbar_236_over; fatbar_236: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[129]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1113; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unpack_fix_506; L1113: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[4] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[5] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][5]; r1[2] = r2; r2 = top[129]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1114; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unpack_fix_506; L1114: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 4); r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = ((object*****) lenv) [1][1][1][1][2]; r4[2] = r5; r5 = (object *) constructed_17[0]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1115; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1115: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = ((object**) lenv) [1][2]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1116; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L1116: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = (object *) constructed_17[0]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1117; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1117: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = ((object*) lenv) [3]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1118; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L1118: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = ((object*) lenv) [2]; r2[4] = r3; r3 = top[127]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1119; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_node_2flet_501; L1119: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1120; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1120: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1121; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1121: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; } lenv = lenv[1]; } break; default: { goto fatbar_237; } } goto fatbar_237_over; fatbar_237: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1122; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1122: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_4222 goto L1123; FUN__24loop_4222: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1124; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1124: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[4] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = top[129]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1125; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unpack_fix_506; L1125: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 4); r3 = allocate (TC_TUPLE, 4); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 4); r5 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r4[2] = r5; r5 = (object *) 1; r4[3] = r5; r5 = ((object*****) lenv) [1][1][1][1][2]; r4[4] = r5; r5 = top[33]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1126; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_slice_325; L1126: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 3); r5 = allocate (TC_TUPLE, 3); r6 = ((object*) lenv) [2]; r5[2] = r6; r6 = (object *) constructed_17[0]; r5[3] = r6; r6 = top[25]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L1127; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_reverse_onto_313; L1127: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = ((object***) lenv) [1][1][2]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1128; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1128: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 4); r5 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r4[2] = r5; r5 = ((object*****) lenv) [1][1][1][1][2]; r4[3] = r5; r5 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r4[4] = r5; r5 = top[33]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1129; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_slice_325; L1129: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = ((object*) lenv) [3]; r4[2] = r5; r5 = (object *) constructed_17[0]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1130; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1130: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = ((object*) lenv) [4]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1131; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L1131: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; lenv = lenv[1]; r2[2] = r3; r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 4); r5 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r4[2] = r5; r5 = (object *) 1; r4[3] = r5; r5 = ((object*****) lenv) [1][1][1][1][2]; r4[4] = r5; r5 = top[33]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1132; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_slice_325; L1132: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 3); r5 = allocate (TC_TUPLE, 3); r6 = ((object*) lenv) [2]; r5[2] = r6; r6 = (object *) constructed_17[0]; r5[3] = r6; r6 = top[25]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L1133; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_reverse_onto_313; L1133: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = ((object**) lenv) [1][3]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1134; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1134: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 4); r5 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r4[2] = r5; r5 = (object *) 3; r6 = ((object*****) lenv) [1][1][1][1][2]; r5 = box((pxll_int)unbox(r6)+unbox(r5)); r4[3] = r5; r5 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r4[4] = r5; r5 = top[33]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1135; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_slice_325; L1135: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = ((object*) lenv) [3]; r4[2] = r5; r5 = (object *) constructed_17[0]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1136; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1136: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = ((object*) lenv) [5]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1137; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L1137: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; lenv = lenv[1]; r2[3] = r3; r3 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r2[4] = r3; r3 = top[127]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1138; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_node_2flet_501; L1138: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1139; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1139: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1140; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1140: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; } lenv = lenv[1]; } break; default: { goto fatbar_238; } } goto fatbar_238_over; fatbar_238: r0 = (object *) 14; fatbar_238_over: ; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4222; } PXLL_RETURN(0); L1123: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_4222; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1141; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_4222; L1141: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = (object *) 14; lenv = lenv[1]; fatbar_237_over: ; lenv = lenv[1]; } break; } lenv = lenv[1]; fatbar_236_over: ; lenv = lenv[1]; } break; case (UITAG(6)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(5)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_42[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object***) lenv) [1][1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) constructed_40[0]; r1 = ((object***) lenv) [1][1][3]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1142; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1142: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1143; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1143: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1144; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1144: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1145; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1145: ; lenv = k[2]; k = k[1]; r0 = result; } } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_239; } } lenv = lenv[1]; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_239; } } lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_239; } } } else { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_239; } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_239; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_239; } } lenv = lenv[1]; } break; default: { goto fatbar_239; } } goto fatbar_239_over; fatbar_239: r0 = (object *) 14; fatbar_239_over: ; lenv = lenv[1]; } break; case (UITAG(5)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object*****) lenv) [1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1146; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1146: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r1 = (object *) 3; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r3 = (object *) 1; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1147; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L1147: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1148; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1148: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1149; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1149: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1150; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1150: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_4245 goto L1151; FUN__24loop_4245: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1152; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1152: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[4] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(5)): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 4); r4 = ((object******) lenv) [1][1][1][1][1][2]; r3[2] = r4; r4 = (object *) 1; r3[3] = r4; r4 = ((object***) lenv) [1][1][2]; r3[4] = r4; r4 = top[33]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1153; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_slice_325; L1153: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = ((object*) lenv) [2]; r4[2] = r5; r5 = (object *) constructed_17[0]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1154; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1154: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = ((object**) lenv) [1][4]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1155; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L1155: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = allocate (TC_TUPLE, 4); r4 = ((object******) lenv) [1][1][1][1][1][2]; r3[2] = r4; r4 = ((object***) lenv) [1][1][2]; r5 = (object *) 3; r4 = box((pxll_int)unbox(r5)+unbox(r4)); r3[3] = r4; r4 = ((object******) lenv) [1][1][1][1][1][3]; r3[4] = r4; r4 = top[33]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1156; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_slice_325; L1156: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = ((object*) lenv) [3]; r4[2] = r5; r5 = (object *) constructed_17[0]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1157; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1157: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = ((object*) lenv) [4]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1158; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L1158: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[5] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object*)UITAG(5); r2[2] = r3; r3 = ((object*) lenv) [5]; r2[3] = r3; r3 = top[122]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1159; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_make_node_488; L1159: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = top[153]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1160; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_simpleopt_559; L1160: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1161; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1161: ; lenv = k[2]; k = k[1]; r0 = result; } break; default: { goto fatbar_240; } } goto fatbar_240_over; fatbar_240: r0 = (object *) 14; fatbar_240_over: ; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4245; } PXLL_RETURN(0); L1151: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_4245; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1162; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_4245; L1162: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = (object *) 14; lenv = lenv[1]; } } break; default: { goto fatbar_233; } } goto fatbar_233_over; fatbar_233: r0 = (object *) 14; fatbar_233_over: ; lenv = lenv[1]; r0 = top[211]; r1 = (object *) 3; r2 = r0; r0 = box((pxll_int)unbox(r2)-unbox(r1)); top[211] = r0; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = top[153]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1163; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1163: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r1 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r1)->val[3] = r0; r0 = ((object****) lenv) [1][1][1][2]; PXLL_RETURN(0); L1096: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_28367; r1[2] = lenv; r0[2] = r1; r1 = top[17]; r0[1] = r1[2]; lenv = r0; goto FUN_callcc_298; L1095: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_simpleopt_559; r1[2] = lenv; r0[153] = r1; // def do-one-round_562 goto L1164; FUN_do_one_round_562: check_heap (0); r0 = top[175]; r1 = ((object*) lenv) [3]; ((pxll_vector*)r1)->val[19] = r0; r0 = top[175]; r1 = ((object*) lenv) [3]; ((pxll_vector*)r1)->val[6] = r0; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[8]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1165; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_add_vars_252; L1165: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_531[0]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[7]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1166; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_add_var_251; L1166: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def walk_3992_i3170_i3173 goto L1167; FUN_walk_3992_i3170_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(8)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1168; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1168: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1169; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1169: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = top[29]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1170; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_member_eq_question_321; L1170: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [3]; r0 = ((pxll_vector*)r0)->val[1]; r1 = top[162]; r2 = r0; r0 = box((pxll_int)unbox(r2)|(1<val[1] = r0; r0 = ((object****) lenv) [1][1][1][2]; r0 = ((pxll_vector*)r0)->val[0]; r1 = top[203]; r2 = r0; r0 = box((pxll_int)unbox(r2)|(1<val[0] = r0; } else { r0 = (object *) 14; } r0 = ((object*) lenv) [3]; r0 = ((pxll_vector*)r0)->val[0]; r1 = r0; r2 = (object *) 3; r0 = box((pxll_int)unbox(r2)+unbox(r1)); r1 = ((object*) lenv) [3]; ((pxll_vector*)r1)->val[0] = r0; lenv = lenv[1]; } break; default: { goto fatbar_232; } } goto fatbar_232_over; fatbar_232: r0 = (object *) 14; fatbar_232_over: ; lenv = lenv[1]; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object***) lenv) [1][1][3]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object***) lenv) [1][1][3] = r0; r0 = allocate (TC_TUPLE, 5); r1 = ((object*****) lenv) [1][1][1][1][3]; r1 = ((pxll_vector*)r1)->val[6]; r0[2] = r1; r1 = top[86]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r0[5] = r1; r1 = top[76]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1171; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finsert_409; L1171: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object*****) lenv) [1][1][1][1][3]; ((pxll_vector*)r1)->val[6] = r0; r0 = allocate (TC_TUPLE, 4); r1 = ((object*****) lenv) [1][1][1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[164]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1172; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L1172: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; case (UOTAG(12)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_221[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 262; } else { r0 = (object *) constructed_217[0]; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r1 = ((object*****) lenv) [1][1][1][1][3]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1173; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L1173: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[166]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1174; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L1174: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } lenv = lenv[1]; } break; default: { goto fatbar_231; } } goto fatbar_231_over; fatbar_231: r0 = (object *) 14; fatbar_231_over: ; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_26424_i3170_i3173 goto L1175; FUN_lambda_26424_i3170_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_walk_3992_i3170_i3173; L1175: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_26424_i3170_i3173; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1167: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_walk_3992_i3170_i3173; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = (object *) constructed_887[0]; r0[3] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1176; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_walk_3992_i3170_i3173; L1176: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; // def add-ref_4012_i3171_i3173 goto L1177; FUN_add_ref_4012_i3171_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1178; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1178: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[lookup_field((GET_TYPECODE(*r0)-TC_USEROBJ)>>2,76)]; r1 = r0; r2 = (object *) 3; r0 = box((pxll_int)unbox(r2)+unbox(r1)); r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,76)] = r0; PXLL_RETURN(0); L1177: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_add_ref_4012_i3171_i3173; r1[2] = lenv; r0[2] = r1; // def add-set_4013_i3171_i3173 goto L1179; FUN_add_set_4013_i3171_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1180; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1180: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[4]; r1 = r0; r2 = (object *) 3; r0 = box((pxll_int)unbox(r2)+unbox(r1)); r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[4] = r0; PXLL_RETURN(0); L1179: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_add_set_4013_i3171_i3173; r1[2] = lenv; r0[3] = r1; // def walk_4014_i3171_i3173 goto L1181; FUN_walk_4014_i3171_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1182; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1182: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r0 = ((pxll_vector*)r0)->val[lookup_field((GET_TYPECODE(*r0)-TC_USEROBJ)>>2,76)]; r1 = r0; r2 = (object *) 3; r0 = box((pxll_int)unbox(r2)+unbox(r1)); r1 = ((object*) lenv) [3]; ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,76)] = r0; lenv = lenv[1]; } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1183; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1183: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r0 = ((pxll_vector*)r0)->val[4]; r1 = r0; r2 = (object *) 3; r0 = box((pxll_int)unbox(r2)+unbox(r1)); r1 = ((object*) lenv) [3]; ((pxll_vector*)r1)->val[4] = r0; lenv = lenv[1]; } break; default: { goto fatbar_230; } } goto fatbar_230_over; fatbar_230: r0 = (object *) 14; fatbar_230_over: ; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][4]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1181: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_walk_4014_i3171_i3173; r1[2] = lenv; r0[4] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1184; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_walk_4014_i3171_i3173; L1184: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_886[0]; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; // def find-escaping-functions_4165_i3172_i3173 goto L1185; FUN_find_escaping_functions_4165_i3172_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(10)): { r0 = (object *) 14; } break; default: { goto fatbar_228; } } goto fatbar_228_over; fatbar_228: r0 = allocate (TC_TUPLE, 4); r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[163]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1186; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L1186: ; lenv = k[2]; k = k[1]; r0 = ((object*****) lenv) [1][1][1][1][2]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*****) lenv) [1][1][1][1][2] = r0; fatbar_228_over: ; lenv = lenv[1]; } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1187; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1187: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,78)]; r0[3] = r1; r0 = top[164]; r1 = ((object*) lenv) [3]; r0 = PXLL_TEST((unbox(r1)&(1<0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(8)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1188; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L1188: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r2 = ((object*) lenv) [3]; r1 = PXLL_TEST(r2==r1); r0[4] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [4]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[163]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1189; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L1189: ; lenv = k[2]; k = k[1]; r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = r0; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object******) lenv) [1][1][1][1][1][2] = r0; } else { r0 = (object *) 14; } } break; default: { goto fatbar_229; } } goto fatbar_229_over; fatbar_229: r0 = allocate (TC_TUPLE, 4); r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[163]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1190; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L1190: ; lenv = k[2]; k = k[1]; r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = r0; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object******) lenv) [1][1][1][1][1][2] = r0; fatbar_229_over: ; lenv = lenv[1]; } else { r0 = (object *) 14; } lenv = lenv[1]; } break; default: { goto fatbar_227; } } goto fatbar_227_over; fatbar_227: r0 = (object *) 14; fatbar_227_over: ; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_27693_i3172_i3173 goto L1191; FUN_lambda_27693_i3172_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_find_escaping_functions_4165_i3172_i3173; L1191: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_27693_i3172_i3173; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1185: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_find_escaping_functions_4165_i3172_i3173; r1[2] = lenv; r0[2] = r1; // def maybe-var-escapes_4166_i3172_i3173 goto L1192; FUN_maybe_var_escapes_4166_i3172_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[29]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1193; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_member_eq_question_321; L1193: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[163]; r0[4] = r1; r1 = top[6]; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L1192: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_maybe_var_escapes_4166_i3172_i3173; r1[2] = lenv; r0[3] = r1; // def find-escaping-variables_4167_i3172_i3173 goto L1194; FUN_find_escaping_variables_4167_i3172_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1195; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1195: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[25]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1196; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; L1196: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; ((object***) lenv) [1][1][3] = r0; lenv = lenv[1]; } break; case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1197; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1197: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[25]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1198; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; L1198: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; ((object***) lenv) [1][1][3] = r0; lenv = lenv[1]; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1199; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1199: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[25]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1200; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; L1200: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; ((object***) lenv) [1][1][3] = r0; lenv = lenv[1]; } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1201; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_maybe_var_escapes_4166_i3172_i3173; L1201: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1202; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_maybe_var_escapes_4166_i3172_i3173; L1202: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; default: { goto fatbar_226; } } goto fatbar_226_over; fatbar_226: r0 = (object *) 14; fatbar_226_over: ; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_27778_i3172_i3173 goto L1203; FUN_lambda_27778_i3172_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r0[1] = r1[2]; lenv = r0; goto FUN_find_escaping_variables_4167_i3172_i3173; L1203: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_27778_i3172_i3173; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1194: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_find_escaping_variables_4167_i3172_i3173; r1[2] = lenv; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = (object *) 1; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = (object *) constructed_885[0]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1204; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L1204: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1205; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_find_escaping_functions_4165_i3172_i3173; L1205: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_27822_i3172_i3173 goto L1206; FUN_lambda_27822_i3172_i3173: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object*****) lenv) [1][1][1][1][3]; r2 = ((pxll_vector*)r2)->val[6]; r1[2] = r2; r2 = top[86]; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1207; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L1207: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,0); } break; default: { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_884; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1208; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L1208: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; } r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_883[0]; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r0[1] = r1[2]; lenv = r0; goto FUN_find_escaping_variables_4167_i3172_i3173; L1206: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_27822_i3172_i3173; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1209; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1209: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[150]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1210; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_build_dependency_graph_546; L1210: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 3); r3[1] = lenv; lenv = r3; r4 = ((object***) lenv) [1][1][3]; r4 = ((pxll_vector*)r4)->val[4]; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = (object *) constructed_882[0]; r4[2] = r5; r5 = top[149]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1211; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_symbol_set_maker_545; L1211: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r3 = allocate (TC_TUPLE, 3); r3[1] = lenv; lenv = r3; // def walk_4255_i3175 goto L1212; FUN_walk_4255_i3175: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,11)]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1213; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1213: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object *) 14; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*****) lenv) [1][1][1][1][3]; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[0]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1214; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1214: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_28408_i3175 goto L1215; FUN_lambda_28408_i3175: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1216; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1216: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_walk_4255_i3175; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L1215: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_28408_i3175; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,11)]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1217; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1217: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; } break; } PXLL_RETURN(0); L1212: r4 = allocate (TC_CLOSURE, 2); r4[1] = &&FUN_walk_4255_i3175; r4[2] = lenv; r3[2] = r4; // def trim_4256_i3175 goto L1218; FUN_trim_4256_i3175: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(10)): { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1219; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L1219: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[4] = r2; r2 = (object *) constructed_881[0]; r1[5] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_4268_i3175 goto L1220; FUN__24loop_4268_i3175: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*****) lenv) [1][1][1][1][2]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1221; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L1221: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1222; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1222: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = ((object****) lenv) [1][1][1][5]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object****) lenv) [1][1][1][5] = r0; } else { r0 = (object *) 14; } r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4268_i3175; } PXLL_RETURN(0); L1220: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_4268_i3175; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1223; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_4268_i3175; L1223: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; lenv = lenv[1]; r1 = ((object*) lenv) [5]; r2 = r1; switch (get_case (r2)) { case (TC_NIL): { r2 = (object *) 262; } break; default: { goto fatbar_225; } } r1 = r2; goto fatbar_225_over; fatbar_225: r2 = (object *) 6; r1 = r2; fatbar_225_over: ; if PXLL_IS_TRUE(r1) { r1 = ((object***) lenv) [1][1][2]; } else { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_880[0]; r1[2] = r2; r2 = (object *) constructed_879[0]; r1[3] = r2; r2 = allocate (TC_TUPLE, 3); // def lambda_28489_i3175 goto L1224; FUN_lambda_28489_i3175: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[31]; r0[1] = r1[2]; lenv = r0; goto FUN_nth_323; L1224: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_28489_i3175; r3[2] = lenv; r2[2] = r3; r3 = ((object**) lenv) [1][5]; r2[3] = r3; r3 = top[36]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1225; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_map_328; L1225: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_4275_i3175 goto L1226; FUN__24loop_4275_i3175: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][5]; r1[3] = r2; r2 = top[29]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1227; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_member_eq_question_321; L1227: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1228; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1228: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object****) lenv) [1][1][1][2] = r0; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1229; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1229: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object****) lenv) [1][1][1][3] = r0; } else { r0 = (object *) 14; } r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4275_i3175; } PXLL_RETURN(0); L1226: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_4275_i3175; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1230; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_4275_i3175; L1230: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 4); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][2]; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1231; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1231: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][3]; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1232; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1232: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[27]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1233; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_last_319; L1233: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = top[126]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1234; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_node_2ffix_500; L1234: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } lenv = lenv[1]; } break; default: { goto fatbar_224; } } goto fatbar_224_over; fatbar_224: r1 = ((object**) lenv) [1][2]; fatbar_224_over: ; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [3]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[36]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1235; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_map_328; L1235: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object*) lenv) [3]; ((pxll_vector*)r1)->val[3] = r0; r0 = ((object*) lenv) [3]; PXLL_RETURN(0); L1218: r4 = allocate (TC_CLOSURE, 2); r4[1] = &&FUN_trim_4256_i3175; r4[2] = lenv; r3[3] = r4; r3 = allocate (TC_TUPLE, 2); r4 = (object *) constructed_531[0]; r3[2] = r4; r4 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1236; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_walk_4255_i3175; L1236: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = allocate (TC_TUPLE, 2); r4 = ((object****) lenv) [1][1][1][2]; r3[2] = r4; r4 = ((object*) lenv) [3]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1237; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_trim_4256_i3175; L1237: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; lenv = lenv[1]; lenv = lenv[1]; r2[2] = r3; r3 = top[152]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1238; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_do_simple_optimizations_558; L1238: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = (object *) 1; r2[2] = r3; r3 = top[117]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1239; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_make_counter_474; L1239: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = (object *) 1; r2[2] = r3; r3 = top[117]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1240; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_make_counter_474; L1240: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = top[175]; r1[5] = r2; r1 = allocate (TC_TUPLE, 7); r1[1] = lenv; lenv = r1; // def set-multiplier_4030_i3174 goto L1241; FUN_set_multiplier_4030_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][3]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object*) lenv) [2]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,11)]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1242; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1242: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; // def lambda_26624_i3174 goto L1243; FUN_lambda_26624_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object*******) lenv) [1][1][1][1][1][1][5]; r1[2] = r2; r2 = top[86]; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1244; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L1244: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 5); r1 = ((object*******) lenv) [1][1][1][1][1][1][5]; r0[2] = r1; r1 = top[86]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[4] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[5] = r1; r1 = top[76]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1245; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finsert_409; L1245: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][5] = r0; PXLL_RETURN(0); } break; default: { r0 = (object *) 14; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1243: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_26624_i3174; r1[2] = lenv; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,25)]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; default: { r0 = (object *) 14; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1241: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_set_multiplier_4030_i3174; r2[2] = lenv; r1[2] = r2; // def follow-aliases_4031_i3174 goto L1246; FUN_follow_aliases_4031_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[86]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1247; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L1247: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object*)UITAG(1); PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)]; r2 = r1; switch (get_case (r2)) { case (UOTAG(0)): { r2 = r1; r2 = UOBJ_GET(r2,0); r3 = allocate (TC_TUPLE, 3); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = r2; r3[3] = r4; r4 = ((object***) lenv) [1][1][3]; r3[1] = r4[2]; lenv = r3; goto FUN_follow_aliases_4031_i3174; } break; default: { goto fatbar_223; } } PXLL_RETURN(2); goto fatbar_223_over; fatbar_223: r2 = allocate (UOTAG(1), 2); r3 = ((object**) lenv) [1][3]; r2[1] = r3; r3 = r0; r2[2] = r3; r3 = r2; t = alloc_no_clear (UOTAG(0),1); t[1] = r3; r3 = t; PXLL_RETURN(3); fatbar_223_over: ; PXLL_RETURN(2); } break; } PXLL_RETURN(0); L1246: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_follow_aliases_4031_i3174; r2[2] = lenv; r1[3] = r2; // def get-fun-calls_4032_i3174 goto L1248; FUN_get_fun_calls_4032_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object****) lenv) [1][1][1][5]; r1[2] = r2; r2 = top[86]; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1249; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L1249: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object**) lenv) [1][3]; r2 = r0; r1 = box((pxll_int)unbox(r2)*unbox(r1)); PXLL_RETURN(1); } break; default: { r0 = ((object**) lenv) [1][3]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1248: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_fun_calls_4032_i3174; r2[2] = lenv; r1[4] = r2; // def inline_4033_i3174 goto L1250; FUN_inline_4033_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); // def lambda_26968_i3174 goto L1251; FUN_lambda_26968_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def lambda_26707_i3174 goto L1252; FUN_lambda_26707_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[18]; r0[1] = r1[2]; lenv = r0; goto FUN_throw_299; L1252: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_26707_i3174; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1253; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1253: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_4063_i3174 goto L1254; FUN__24loop_4063_i3174: check_heap (0); r0 = ((object***) lenv) [1][1][3]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 5); r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r0[2] = r1; r1 = top[86]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1255; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1255: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1256; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1256: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = top[76]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1257; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finsert_409; L1257: ; lenv = k[2]; k = k[1]; r0 = result; ((object*******) lenv) [1][1][1][1][1][1][3] = r0; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4063_i3174; } PXLL_RETURN(0); L1254: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_4063_i3174; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1258; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_4063_i3174; L1258: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; } break; case (UITAG(8)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; } break; default: { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1259; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_follow_aliases_4031_i3174; L1259: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object *) 14; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 11); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1260; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1260: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [4]; r1 = ((pxll_vector*)r1)->val[1]; r0[5] = r1; r1 = top[163]; r2 = ((object*) lenv) [5]; r1 = PXLL_TEST((unbox(r2)&(1<0); r0[6] = r1; r1 = ((object*) lenv) [4]; r1 = ((pxll_vector*)r1)->val[1]; r0[7] = r1; r1 = top[162]; r2 = ((object*) lenv) [7]; r1 = PXLL_TEST((unbox(r2)&(1<0); r0[8] = r1; r1 = ((object*) lenv) [4]; r1 = ((pxll_vector*)r1)->val[1]; r0[9] = r1; r1 = top[166]; r2 = ((object*) lenv) [9]; r1 = PXLL_TEST((unbox(r2)&(1<0); r0[10] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*) lenv) [4]; r2 = ((pxll_vector*)r2)->val[0]; r1[3] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1261; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_fun_calls_4032_i3174; L1261: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[11] = r1; r0 = ((object*) lenv) [3]; r0 = ((pxll_vector*)r0)->val[4]; r1 = r0; switch (get_case (r1)) { case (UOTAG(7)): { r1 = (object *) 262; } break; default: { goto fatbar_222; } } r0 = r1; goto fatbar_222_over; fatbar_222: r1 = (object *) 6; r0 = r1; fatbar_222_over: ; if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = (object *) 1; r2 = r0; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = (object *) 1; r2 = r0; r1 = TO_CHAR(((unsigned char *)((pxll_string*)(r2))->data)[unbox(r1)]); r2 = (object *) 24066; r3 = r1; r2 = PXLL_TEST(r3==r2); r3 = (object *) 6; r4 = r2; r0 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r0) { r0 = (object *) 6; r1 = ((object*) lenv) [10]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 1; r1 = ((object*) lenv) [11]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)>unbox(r0))) { r0 = ((object*) lenv) [3]; r0 = ((pxll_vector*)r0)->val[2]; r1 = top[210]; r2 = r0; r0 = PXLL_TEST(unbox(r2)<=unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object *) 262; } else { r0 = (object *) 3; r1 = ((object*) lenv) [11]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 6; r1 = ((object*) lenv) [6]; r0 = PXLL_TEST(r1==r0); } else { r0 = (object *) 6; } } if PXLL_IS_TRUE(r0) { r0 = (object *) 6; r1 = ((object*) lenv) [8]; r0 = PXLL_TEST(r1==r0); } else { r0 = (object *) 6; } } else { r0 = (object *) 6; } } else { r0 = (object *) 6; } } else { r0 = (object *) 6; } } else { r0 = (object *) 6; } if PXLL_IS_TRUE(r0) { r0 = (object *) 3; r1 = ((object*) lenv) [11]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)>unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [11]; r0[3] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1262; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_set_multiplier_4030_i3174; L1262: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; r1[3] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1263; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_inline_application_4036_i3174; L1263: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][3]; r0[3] = r1; r1 = top[8]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1264; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_add_vars_252; L1264: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; r1[3] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1265; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_inline_4033_i3174; L1265: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1266; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1266: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } else { r0 = (object *) 14; } lenv = lenv[1]; } break; } lenv = lenv[1]; } break; } lenv = lenv[1]; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r3 = ((object*******) lenv) [1][1][1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1267; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1267: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1268; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_inline_application_4036_i3174; L1268: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [4]; r0[2] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; r0[3] = r1; r1 = top[8]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1269; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_add_vars_252; L1269: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1270; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_inline_4033_i3174; L1270: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1271; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1271: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_221; } } lenv = lenv[1]; } break; } goto fatbar_221_over; fatbar_221: r0 = (object *) 14; fatbar_221_over: ; lenv = lenv[1]; } break; default: { goto fatbar_220; } } goto fatbar_220_over; fatbar_220: r0 = (object *) 14; fatbar_220_over: ; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_26958_i3174 goto L1272; FUN_lambda_26958_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][5]; r0[1] = r1[2]; lenv = r0; goto FUN_inline_4033_i3174; L1272: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_26958_i3174; r1[2] = lenv; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[36]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1273; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_map_328; L1273: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object***) lenv) [1][1][2]; ((pxll_vector*)r1)->val[3] = r0; r0 = ((object***) lenv) [1][1][2]; PXLL_RETURN(0); L1251: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_26968_i3174; r1[2] = lenv; r0[2] = r1; r1 = top[17]; r0[1] = r1[2]; lenv = r0; goto FUN_callcc_298; L1250: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_inline_4033_i3174; r2[2] = lenv; r1[5] = r2; // def inline-application_4036_i3174 goto L1274; FUN_inline_application_4036_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_878[0]; r0[2] = r1; r1 = (object *) constructed_877[0]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1275; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1275: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[5] = r1; r0 = ((object*) lenv) [5]; switch (get_case (r0)) { case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1276; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1276: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object***) lenv) [1][1][4]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); r0[3] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [3]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_867; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_4124_i3174 goto L1277; FUN__24loop_4124_i3174: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1278; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1278: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1279; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1279: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1280; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1280: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [3]; r0 = ((pxll_vector*)r0)->val[4]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)>unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][3]; r1 = r0; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object******) lenv) [1][1][1][1][1][3] = r0; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; r1 = r0; r2 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*******) lenv) [1][1][1][1][1][1][2] = r0; } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1281; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1281: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r0 = ((pxll_vector*)r0)->val[4]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)>unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1 = r0; r2 = ((object****) lenv) [1][1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object********) lenv) [1][1][1][1][1][1][1][3] = r0; } else { r0 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r1 = r0; r2 = ((object****) lenv) [1][1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object********) lenv) [1][1][1][1][1][1][1][2] = r0; } lenv = lenv[1]; } break; default: { goto fatbar_218; } } goto fatbar_218_over; fatbar_218: r0 = ((object**) lenv) [1][3]; r0 = ((pxll_vector*)r0)->val[3]; r1 = r0; r2 = (object *) 3; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = ((object********) lenv) [1][1][1][1][1][1][1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[4] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(12)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_321[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][4]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1282; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L1282: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r1 = ((pxll_vector*)r1)->val[4]; r0[4] = r1; r0 = ((object*) lenv) [4]; r1 = (object *) 1; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_219; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_219; } } } else { lenv = ((object **)lenv)[1][1]; goto fatbar_219; } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_219; } } lenv = lenv[1]; } break; default: { goto fatbar_219; } } goto fatbar_219_over; fatbar_219: r0 = (object *) 6; fatbar_219_over: ; } else { r0 = (object *) 6; } if PXLL_IS_TRUE(r0) { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; r1 = r0; r2 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*******) lenv) [1][1][1][1][1][1][2] = r0; } else { r0 = ((object*******) lenv) [1][1][1][1][1][1][3]; r1 = r0; r2 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*******) lenv) [1][1][1][1][1][1][3] = r0; } fatbar_218_over: ; lenv = lenv[1]; } lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4124_i3174; } PXLL_RETURN(0); L1277: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_4124_i3174; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1283; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_4124_i3174; L1283: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_875[0]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object*******) lenv) [1][1][1][1][1][1][3]; r4 = ((pxll_vector*)r4)->val[1]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1284; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; lenv = r4[2]; goto *r4[1]; L1284: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1285; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L1285: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r2 = ((object*) lenv) [4]; r3 = (object*) &constructed_874; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1286; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1286: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1287; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1287: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; // def append-suffix_4088_i3089_i3174 goto L1288; FUN_append_suffix_4088_i3089_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r2 = ((object*) lenv) [2]; r2 = UOBJ_GET(r2,0); r3 = (object*)TC_NIL; r4 = r3; r5 = ((object***) lenv) [1][1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = r2; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r2 = t; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1289; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1289: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[84]; r0[1] = r1[2]; lenv = r0; goto FUN_string__3esymbol_421; L1288: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_append_suffix_4088_i3089_i3174; r2[2] = lenv; r1[2] = r2; // def rename_4089_i3089_i3174 goto L1290; FUN_rename_4089_i3089_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def get-new-name_4093_i3089_i3174 goto L1291; FUN_get_new_name_4093_i3089_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1292; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_append_suffix_4088_i3089_i3174; L1292: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object******) lenv) [1][1][1][1][1][2] = r0; r0 = ((object****) lenv) [1][1][1][3]; r1 = r0; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object****) lenv) [1][1][1][3] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L1291: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_get_new_name_4093_i3089_i3174; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = ((object*) lenv) [2]; } break; default: { goto fatbar_217; } } goto fatbar_217_over; fatbar_217: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1293; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L1293: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][2]; r0 = ((pxll_vector*)r0)->val[0]; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[0] = r0; r0 = ((object**) lenv) [1][2]; r0 = ((pxll_vector*)r0)->val[5]; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[5] = r0; r0 = ((object*) lenv) [2]; lenv = lenv[1]; fatbar_217_over: ; lenv = lenv[1]; ((object**) lenv) [1][2] = r0; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1294; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1294: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(9),1); t[1] = r0; r0 = t; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; lenv = lenv[1]; } break; case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1295; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1295: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(10),1); t[1] = r0; r0 = t; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; lenv = lenv[1]; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1296; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_new_name_4093_i3089_i3174; L1296: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1297; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1297: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(7),2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; lenv = lenv[1]; } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = top[29]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1298; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_member_eq_question_321; L1298: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1299; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_append_suffix_4088_i3089_i3174; L1299: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; } else { r0 = (object *) 14; } lenv = lenv[1]; } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = top[29]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1300; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_member_eq_question_321; L1300: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1301; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_append_suffix_4088_i3089_i3174; L1301: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r0; r0 = t; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; } else { r0 = (object *) 14; } lenv = lenv[1]; } break; default: { goto fatbar_216; } } goto fatbar_216_over; fatbar_216: r0 = (object *) 14; fatbar_216_over: ; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_27131_i3089_i3174 goto L1302; FUN_lambda_27131_i3089_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_rename_4089_i3089_i3174; L1302: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_27131_i3089_i3174; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[36]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1303; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_map_328; L1303: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object**) lenv) [1][2]; ((pxll_vector*)r1)->val[3] = r0; r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); L1290: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_rename_4089_i3089_i3174; r2[2] = lenv; r1[3] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = (object *) constructed_873[0]; r1[3] = r2; r2 = ((object*) lenv) [3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1304; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_rename_4089_i3089_i3174; L1304: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[5] = r1; r1 = ((object***) lenv) [1][1][2]; r2 = r1; switch (get_case (r2)) { case (TC_NIL): { r2 = (object *) 262; } break; default: { goto fatbar_215; } } goto fatbar_215_over; fatbar_215: r2 = (object *) 6; fatbar_215_over: ; r3 = (object *) 6; r4 = r2; r1 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 3); // def lambda_27364_i3174 goto L1305; FUN_lambda_27364_i3174: check_heap (0); r0 = allocate (UOTAG(1), 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1306; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1306: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[1] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1307; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1307: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; PXLL_RETURN(0); L1305: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_27364_i3174; r2[2] = lenv; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1308; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1308: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) constructed_872[0]; } r0[6] = r1; r0 = ((object***) lenv) [1][1][3]; r1 = (object*)TC_NIL; r2 = r1; r3 = r0; r0 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [5]; r0[2] = r1; r1 = ((object*) lenv) [6]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][7]; r0[1] = r1[2]; lenv = r0; goto FUN_substitute_4037_i3174; } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_871[0]; r0[2] = r1; r1 = (object *) constructed_870[0]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1309; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1309: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_27433_i3174 goto L1310; FUN_lambda_27433_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object*****) lenv) [1][1][1][1][3]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1311; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L1311: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 4); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][4]; r5 = ((pxll_vector*)r5)->val[1]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L1312; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; lenv = r5[2]; goto *r5[1]; L1312: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1313; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L1313: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_869; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1314; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L1314: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[151]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1315; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_symbol_add_suffix_555; L1315: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object***) lenv) [1][1][2]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object***) lenv) [1][1][2] = r0; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1316; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1316: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object***) lenv) [1][1][3] = r0; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (UOTAG(1), 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object******) lenv) [1][1][1][1][1][3]; r2[2] = r3; r3 = ((object***) lenv) [1][1][2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1317; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L1317: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r3; r3 = t; r2[2] = r3; r3 = (object *) constructed_868[0]; r2[3] = r3; r3 = top[122]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1318; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_make_node_488; L1318: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][6]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object****) lenv) [1][1][1][6] = r0; PXLL_RETURN(0); L1310: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_27433_i3174; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1319; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1319: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1320; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1320: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][5]; r1[2] = r2; r2 = ((object***) lenv) [1][1][6]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1321; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_substitute_4037_i3174; L1321: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1322; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1322: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1323; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1323: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = top[127]; r0[1] = r1[2]; lenv = r0; goto FUN_node_2flet_501; } PXLL_RETURN(0); } PXLL_RETURN(0); } break; default: { goto fatbar_214; } } PXLL_RETURN(0); goto fatbar_214_over; fatbar_214: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_876; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_214_over: ; PXLL_RETURN(0); L1274: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_inline_application_4036_i3174; r2[2] = lenv; r1[6] = r2; // def substitute_4037_i3174 goto L1324; FUN_substitute_4037_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; // def lookup_4143_i3174 goto L1325; FUN_lookup_4143_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_4146_i3174 goto L1326; FUN_loop_4146_i3174: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*)UITAG(1); PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case_noint (r2)) { default: { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r0; r3 = UOBJ_GET(r3,1); r4 = r2; r5 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r5==r4)) { r4 = r3; t = alloc_no_clear (UOTAG(0),1); t[1] = r4; r4 = t; PXLL_RETURN(4); } else { r4 = r1; lenv[2] = r4; goto FUN_loop_4146_i3174; } PXLL_RETURN(4); } break; } PXLL_RETURN(2); } break; } PXLL_RETURN(0); L1326: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_4146_i3174; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_4146_i3174; L1325: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lookup_4143_i3174; r1[2] = lenv; r0[2] = r1; // def walk_4144_i3174 goto L1327; FUN_walk_4144_i3174: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1328; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_lookup_4143_i3174; L1328: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); } break; default: { r1 = ((object***) lenv) [1][1][2]; } break; } lenv = lenv[1]; } break; case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1329; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_lookup_4143_i3174; L1329: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r3 = ((pxll_vector*)r3)->val[lookup_field((GET_TYPECODE(*r3)-TC_USEROBJ)>>2,57)]; r2[2] = r3; r3 = top[123]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1330; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_varref__3ename_491; L1330: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object****) lenv) [1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1331; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1331: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1332; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L1332: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; default: { r1 = ((object***) lenv) [1][1][2]; } break; } lenv = lenv[1]; } break; default: { goto fatbar_213; } } goto fatbar_213_over; fatbar_213: r1 = ((object**) lenv) [1][2]; fatbar_213_over: ; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [3]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[36]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1333; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_map_328; L1333: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object*) lenv) [3]; ((pxll_vector*)r1)->val[3] = r0; r0 = ((object*) lenv) [3]; PXLL_RETURN(0); L1327: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_walk_4144_i3174; r1[2] = lenv; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[1] = r1[2]; lenv = r0; goto FUN_walk_4144_i3174; L1324: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_substitute_4037_i3174; r2[2] = lenv; r1[7] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[175]; r1[3] = r2; r2 = ((object*) lenv) [5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1334; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_inline_4033_i3174; L1334: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; lenv = lenv[1]; r0[2] = r1; r1 = top[152]; r0[1] = r1[2]; lenv = r0; goto FUN_do_simple_optimizations_558; L1164: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_do_one_round_562; r1[2] = lenv; r0[154] = r1; // def gen-function-label_565 goto L1335; FUN_gen_function_label_565: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r3 = ((object**) lenv) [1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = top[212]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1336; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L1336: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r1 = ((object*) lenv) [4]; r2 = (object*) &constructed_866; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; L1335: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_gen_function_label_565; r1[2] = lenv; r0[155] = r1; // def encode-immediate_566 goto L1337; FUN_encode_immediate_566: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = (object *) 3; r2 = r0; r1 = box((pxll_int)unbox(r2)<c-type_568 goto L1341; FUN_irken_type__3ec_type_568: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_847[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[158]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1342; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_irken_type__3ec_type_568; L1342: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = (object*)TC_NIL; r3 = r2; r4 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = (object*) &constructed_845; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r1 = t; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_197; } } PXLL_RETURN(0); } break; default: { goto fatbar_197; } } PXLL_RETURN(0); } else { goto fatbar_197; } PXLL_RETURN(0); goto fatbar_197_over; fatbar_197: r0 = (object *) constructed_503[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[158]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1343; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_irken_type__3ec_type_568; L1343: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = (object*)TC_NIL; r3 = r2; r4 = (object*) &constructed_849; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = (object*) &constructed_848; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r1 = t; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_198; } } PXLL_RETURN(0); } break; default: { goto fatbar_198; } } PXLL_RETURN(0); } else { goto fatbar_198; } PXLL_RETURN(0); goto fatbar_198_over; fatbar_198: r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [2]; r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_196; } } PXLL_RETURN(0); fatbar_198_over: ; PXLL_RETURN(0); fatbar_197_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_196; } } PXLL_RETURN(0); goto fatbar_196_over; fatbar_196: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_850; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[111]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1344; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_repr_464; L1344: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_196_over: ; PXLL_RETURN(0); L1341: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_irken_type__3ec_type_568; r1[2] = lenv; r0[158] = r1; // def wrap-out_569 goto L1345; FUN_wrap_out_569: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_835[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = (object*)TC_NIL; r2 = r1; r3 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = (object*) &constructed_833; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r1 = t; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } else { goto fatbar_192; } PXLL_RETURN(0); goto fatbar_192_over; fatbar_192: r0 = (object *) constructed_838[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = (object*)TC_NIL; r2 = r1; r3 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = (object*) &constructed_836; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r1 = t; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } else { goto fatbar_193; } PXLL_RETURN(0); goto fatbar_193_over; fatbar_193: r0 = (object *) constructed_42[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = (object*)TC_NIL; r2 = r1; r3 = (object*) &constructed_840; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = (object*) &constructed_839; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r1 = t; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } else { goto fatbar_194; } PXLL_RETURN(0); goto fatbar_194_over; fatbar_194: r0 = (object *) constructed_233[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = (object*)TC_NIL; r2 = r1; r3 = (object*) &constructed_842; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = (object*) &constructed_841; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r1 = t; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } else { goto fatbar_195; } PXLL_RETURN(0); goto fatbar_195_over; fatbar_195: r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = top[214]; r0[3] = r1; r1 = top[29]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1346; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_member_eq_question_321; L1346: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object*)TC_NIL; r2 = r1; r3 = (object*) &constructed_844; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = (object*) &constructed_843; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r1 = t; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } else { r0 = ((object**) lenv) [1][3]; PXLL_RETURN(0); } PXLL_RETURN(0); fatbar_195_over: ; PXLL_RETURN(0); fatbar_194_over: ; PXLL_RETURN(0); fatbar_193_over: ; PXLL_RETURN(0); fatbar_192_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_191; } } PXLL_RETURN(0); goto fatbar_191_over; fatbar_191: r0 = ((object*) lenv) [3]; PXLL_RETURN(0); fatbar_191_over: ; PXLL_RETURN(0); L1345: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_wrap_out_569; r1[2] = lenv; r0[159] = r1; // def cexp-subst_570 goto L1347; FUN_cexp_subst_570: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) 9474; r1[3] = r2; r2 = top[53]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1348; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_split_356; L1348: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_4330 goto L1349; FUN_loop_4330: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1350; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1350: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object*) &constructed_831; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1351; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L1351: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_829; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = ((object**) lenv) [1][2]; r3 = (object*) &constructed_830; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r3 = r1; lenv = ((object *)lenv)[1]; lenv[2] = r2; lenv[3] = r3; goto FUN_loop_4330; } break; } PXLL_RETURN(0); } else { goto fatbar_190; } PXLL_RETURN(0); goto fatbar_190_over; fatbar_190: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = top[179]; r1[2] = r2; r2 = (object *) 1; r3 = ((object**) lenv) [1][2]; range_check (((pxll_string *)(((pxll_string*)(r3))))->len, unbox(r2)); r2 = (object *) 1; r3 = ((object**) lenv) [1][2]; r2 = TO_CHAR(((unsigned char *)((pxll_string*)(r3))->data)[unbox(r2)]); r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1352; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L1352: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_832; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = (object *) 3; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][2]; r2 = box((pxll_int)((pxll_string*)(r2))->len); r1[4] = r2; r2 = top[49]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1353; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_substring_347; L1353: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1354; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1354: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r0 = ((object*) lenv) [4]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object***) lenv) [1][1][3]; lenv = ((object ***)lenv)[1][1][1]; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_4330; } break; } PXLL_RETURN(0); fatbar_190_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1349: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_4330; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1355; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1355: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1356; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L1356: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_4330; L1347: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_cexp_subst_570; r1[2] = lenv; r0[160] = r1; // def getenv-or_582 goto L1357; FUN_getenv_or_582: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[57]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1358; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_zero_terminate_362; L1358: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r1 = (object*)getenv (((pxll_string*)(r1))->data); r0[2] = r1; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST((char*)r1==NULL)) { r1 = (object*) &constructed_828; } else { r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[63]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1359; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_copy_cstring_374; L1359: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } r0[3] = r1; r0 = ((object*) lenv) [3]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = r0; r2 = (object *) 1; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = ((object**) lenv) [1][3]; PXLL_RETURN(0); } else { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } PXLL_RETURN(0); L1357: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_getenv_or_582; r1[2] = lenv; r0[161] = r1; r1 = (object *) 1; r0[162] = r1; r1 = (object *) 3; r0[163] = r1; r1 = (object *) 5; r0[164] = r1; r1 = (object *) 7; r0[165] = r1; r1 = (object *) 11; r0[166] = r1; r1 = top[10]; r0[167] = r1; r1 = top[22]; r0[168] = r1; r1 = (object *) constructed_827[0]; r0[169] = r1; r1 = box((pxll_int)O_RDONLY); r0[170] = r1; r1 = box((pxll_int)O_WRONLY); r0[171] = r1; r1 = box((pxll_int)O_CREAT); r0[172] = r1; r1 = box((pxll_int)O_TRUNC); r0[173] = r1; r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = box((pxll_int)argc); r1[2] = r2; r2 = ((object*) lenv) [2]; ensure_heap (2, unbox(r2)); r2 = (object*) &constructed_826; r3 = ((object*) lenv) [2]; if (unbox(r3) == 0) { r2 = (object *) TC_EMPTY_VECTOR; } else { t = alloc_no_clear (TC_VECTOR, unbox(r3)); for (i=0; ival[unbox(r1)] = r0; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)-unbox(r0)); lenv[2] = r0; goto FUN_loop_4897; } PXLL_RETURN(0); L1360: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_loop_4897; r3[2] = lenv; r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1362; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_loop_4897; L1362: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[4] = r2; r1 = allocate (UOTAG(18), 2); r2 = ((object*) lenv) [2]; r1[1] = r2; r2 = ((object*) lenv) [4]; r1[2] = r2; lenv = lenv[1]; r0[174] = r1; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) 14; r2 = r2; r1[2] = r2; r2 = (object *) 14; r2 = r2; r1[3] = r2; r2 = (object *) 14; r2 = r2; r1[4] = r2; r2 = (object *) 14; r2 = r2; r1[5] = r2; r2 = allocate (UOTAG(17), 5); r3 = ((object*) lenv) [2]; r2[1] = r3; r3 = ((object*) lenv) [4]; r2[2] = r3; r3 = (object *) 1; r2[3] = r3; r3 = ((object*) lenv) [5]; r2[4] = r3; r3 = ((object*) lenv) [3]; r2[5] = r3; r1[6] = r2; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [6]; ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,68)] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [6]; ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,70)] = r1; r1 = ((object*) lenv) [6]; lenv = lenv[1]; r0[175] = r1; r1 = (object *) 1; r0[176] = r1; r1 = top[175]; r0[177] = r1; r1 = (object *) constructed_825[0]; r0[178] = r1; r1 = (object *) constructed_824[0]; r0[179] = r1; r1 = (object *) constructed_823[0]; r0[180] = r1; r1 = (object *) constructed_822[0]; r0[181] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_821; r1[2] = r2; r2 = top[59]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1363; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3elist_364; L1363: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[182] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_820; r1[2] = r2; r2 = top[59]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1364; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3elist_364; L1364: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[183] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = top[181]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1365; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1365: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[182]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1366; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1366: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[184] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_819; r1[2] = r2; r2 = top[59]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1367; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3elist_364; L1367: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[185] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_818[0]; r1[2] = r2; r2 = top[87]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1368; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_char_class_425; L1368: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[186] = r1; r1 = allocate (TC_TUPLE, 2); r2 = top[184]; r1[2] = r2; r2 = top[87]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1369; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_char_class_425; L1369: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[187] = r1; r1 = allocate (TC_TUPLE, 2); r2 = top[185]; r1[2] = r2; r2 = top[87]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1370; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_char_class_425; L1370: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[188] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = top[183]; r4[2] = r5; r5 = (object *) constructed_17[0]; r4[3] = r5; r5 = top[25]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1371; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_reverse_onto_313; L1371: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[185]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1372; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L1372: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = ((object*) lenv) [2]; r3 = (object *) 11522; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[87]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1373; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_char_class_425; L1373: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[189] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = top[117]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1374; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_counter_474; L1374: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[190] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_233[0]; r1[2] = r2; r2 = (object *) constructed_817[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1375; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1375: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[191] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_809[0]; r1[2] = r2; r2 = (object *) constructed_816[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1376; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1376: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[192] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_81[0]; r1[2] = r2; r2 = (object *) constructed_815[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1377; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1377: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[193] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_811[0]; r1[2] = r2; r2 = (object *) constructed_814[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1378; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1378: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[194] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_42[0]; r1[2] = r2; r2 = (object *) constructed_813[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1379; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1379: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[195] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_54[0]; r1[2] = r2; r2 = (object *) constructed_812[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1380; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1380: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[196] = r1; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object*)UITAG(0); r1[2] = r2; r2 = top[196]; r3 = ((object*) lenv) [2]; r4 = (object *) constructed_54[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r4; t[2] = r2; t[3] = r3; r2 = t; r1[3] = r2; r2 = top[194]; r3 = ((object*) lenv) [3]; r4 = (object *) constructed_811[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r4; t[2] = r2; t[3] = r3; r2 = t; r1[4] = r2; r2 = top[193]; r3 = ((object*) lenv) [4]; r4 = (object *) constructed_81[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r4; t[2] = r2; t[3] = r3; r2 = t; r1[5] = r2; r2 = top[192]; r3 = ((object*) lenv) [5]; r4 = (object *) constructed_809[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r4; t[2] = r2; t[3] = r3; r2 = t; r1[6] = r2; r1 = top[191]; r2 = ((object*) lenv) [6]; r3 = (object *) constructed_233[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; lenv = lenv[1]; r0[197] = r1; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_525[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r2; r2 = t; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; r0[198] = r1; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_523[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r2; r2 = t; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r1 = ((object*) lenv) [6]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; r0[199] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = top[117]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1381; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_counter_474; L1381: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[200] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = top[117]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1382; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_counter_474; L1382: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[201] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_551[0]; r1[2] = r2; r2 = (object *) constructed_807[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1383; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1383: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[202] = r1; r1 = (object *) 1; r0[203] = r1; r1 = (object *) 5; r0[204] = r1; r1 = (object *) 7; r0[205] = r1; r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; // def in_3779_i4880 goto L1384; FUN_in_3779_i4880: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3785_i4880 goto L1385; FUN_loop_3785_i4880: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 6; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = ((object***) lenv) [1][1][3]; r3 = r0; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = (object *) 262; PXLL_RETURN(2); } else { r2 = r1; lenv[2] = r2; goto FUN_loop_3785_i4880; } PXLL_RETURN(2); } break; } PXLL_RETURN(0); L1385: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3785_i4880; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3785_i4880; L1384: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_in_3779_i4880; r2[2] = lenv; r1[2] = r2; // def add_3780_i4880 goto L1386; FUN_add_3780_i4880: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1387; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1387: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[0]; r1 = r0; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[0] = r0; PXLL_RETURN(0); } PXLL_RETURN(0); L1386: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_add_3780_i4880; r2[2] = lenv; r1[3] = r2; // def get_3781_i4880 goto L1388; FUN_get_3781_i4880: r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[0]; PXLL_RETURN(0); L1388: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_3781_i4880; r2[2] = lenv; r1[4] = r2; // def iterate_3782_i4880 goto L1389; FUN_iterate_3782_i4880: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3794_i4880 goto L1390; FUN_loop_3794_i4880: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 14; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1391; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1391: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [3]; lenv = ((object *)lenv)[1]; lenv[2] = r0; goto FUN_loop_3794_i4880; } break; } PXLL_RETURN(0); L1390: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3794_i4880; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3794_i4880; L1389: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_iterate_3782_i4880; r2[2] = lenv; r1[5] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (UOTAG(12), 4); r3 = ((object**) lenv) [1][3]; r2[1] = r3; r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = ((object**) lenv) [1][5]; r2[4] = r3; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def new_3799_i4880 goto L1392; FUN_new_3799_i4880: r0 = allocate (UOTAG(16), 2); r1 = ((object*) lenv) [2]; r0[1] = r1; r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; PXLL_RETURN(0); L1392: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_new_3799_i4880; r2[2] = lenv; r1[2] = r2; r1 = ((object*) lenv) [2]; lenv = lenv[1]; lenv = lenv[1]; lenv = lenv[1]; r0[206] = r1; r1 = allocate (TC_TUPLE, 9); r1[1] = lenv; lenv = r1; // def add_3801_i4881 goto L1393; FUN_add_3801_i4881: check_heap (0); r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[0]; r1 = ((object*) lenv) [4]; r2 = r0; r3 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r0 = t; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[0] = r0; PXLL_RETURN(0); L1393: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_add_3801_i4881; r2[2] = lenv; r1[2] = r2; // def lookup_3802_i4881 goto L1394; FUN_lookup_3802_i4881: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3814_i4881 goto L1395; FUN_loop_3814_i4881: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(0)): { r0 = (object*)UITAG(1); PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [2]; r2 = UOBJ_GET(r2,2); r3 = r0; r4 = ((object***) lenv) [1][1][3]; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = r1; t = alloc_no_clear (UOTAG(0),1); t[1] = r3; r3 = t; PXLL_RETURN(3); } else { r3 = r2; lenv[2] = r3; goto FUN_loop_3814_i4881; } PXLL_RETURN(3); } break; } PXLL_RETURN(0); L1395: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3814_i4881; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3814_i4881; L1394: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lookup_3802_i4881; r2[2] = lenv; r1[3] = r2; // def lookup*_3803_i4881 goto L1396; FUN_lookup_splat_3803_i4881: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1397; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lookup_3802_i4881; L1397: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = ((object**) lenv) [1][4]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L1396: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lookup_splat_3803_i4881; r2[2] = lenv; r1[4] = r2; // def get-error_3804_i4881 goto L1398; FUN_get_error_3804_i4881: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1399; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lookup_3802_i4881; L1399: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][4]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L1398: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_error_3804_i4881; r2[2] = lenv; r1[5] = r2; // def iterate_3805_i4881 goto L1400; FUN_iterate_3805_i4881: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3831_i4881 goto L1401; FUN_loop_3831_i4881: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(0)): { r0 = (object *) 14; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1402; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1402: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [4]; lenv = ((object *)lenv)[1]; lenv[2] = r0; goto FUN_loop_3831_i4881; } break; } PXLL_RETURN(0); L1401: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3831_i4881; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3831_i4881; L1400: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_iterate_3805_i4881; r2[2] = lenv; r1[6] = r2; // def map_3806_i4881 goto L1403; FUN_map_3806_i4881: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3838_i4881 goto L1404; FUN_loop_3838_i4881: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(0)): { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } break; default: { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1405; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1405: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object*) lenv) [4]; lenv = ((object *)lenv)[1]; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_3838_i4881; } break; } PXLL_RETURN(0); L1404: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3838_i4881; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_806[0]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3838_i4881; L1403: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_map_3806_i4881; r2[2] = lenv; r1[7] = r2; // def keys_3807_i4881 goto L1406; FUN_keys_3807_i4881: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3845_i4881 goto L1407; FUN_loop_3845_i4881: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(0)): { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,2); r2 = ((object*) lenv) [2]; r3 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r1; lenv[2] = r2; lenv[3] = r3; goto FUN_loop_3845_i4881; } break; } PXLL_RETURN(0); L1407: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3845_i4881; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_805[0]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3845_i4881; L1406: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_keys_3807_i4881; r2[2] = lenv; r1[8] = r2; // def values_3808_i4881 goto L1408; FUN_values_3808_i4881: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3851_i4881 goto L1409; FUN_loop_3851_i4881: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(0)): { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,1); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,2); r2 = ((object*) lenv) [2]; r3 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r1; lenv[2] = r2; lenv[3] = r3; goto FUN_loop_3851_i4881; } break; } PXLL_RETURN(0); L1409: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3851_i4881; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_804[0]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3851_i4881; L1408: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_values_3808_i4881; r2[2] = lenv; r1[9] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (UOTAG(14), 8); r3 = ((object**) lenv) [1][2]; r2[1] = r3; r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = ((object**) lenv) [1][4]; r2[3] = r3; r3 = ((object**) lenv) [1][5]; r2[4] = r3; r3 = ((object**) lenv) [1][6]; r2[5] = r3; r3 = ((object**) lenv) [1][8]; r2[6] = r3; r3 = ((object**) lenv) [1][7]; r2[7] = r3; r3 = ((object**) lenv) [1][9]; r2[8] = r3; r1[2] = r2; // def lambda_25346_i4881 goto L1410; FUN_lambda_25346_i4881: r0 = allocate (UOTAG(15), 2); r1 = (object*)UITAG(0); r0[1] = r1; r1 = ((object*) lenv) [2]; r0[2] = r1; PXLL_RETURN(0); L1410: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_25346_i4881; r1[2] = lenv; lenv = lenv[1]; lenv = lenv[1]; r0[207] = r1; r1 = allocate (TC_TUPLE, 9); r1[1] = lenv; lenv = r1; // def add_3857_i4882 goto L1411; FUN_add_3857_i4882: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[0]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1412; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L1412: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_803; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = allocate (TC_TUPLE, 5); r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[4] = r1; r1 = ((object**) lenv) [1][4]; r0[5] = r1; r1 = top[76]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1413; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finsert_409; L1413: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object**) lenv) [1][2]; ((pxll_vector*)r1)->val[2] = r0; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1411: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_add_3857_i4882; r2[2] = lenv; r1[2] = r2; // def lookup_3858_i4882 goto L1414; FUN_lookup_3858_i4882: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[0]; r0[3] = r1; r1 = ((object*) lenv) [3]; r0[4] = r1; r1 = top[77]; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2fmember_411; L1414: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lookup_3858_i4882; r2[2] = lenv; r1[3] = r2; // def lookup*_3859_i4882 goto L1415; FUN_lookup_splat_3859_i4882: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[0]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1416; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L1416: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = ((object**) lenv) [1][4]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1415: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lookup_splat_3859_i4882; r2[2] = lenv; r1[4] = r2; // def get-error_3860_i4882 goto L1417; FUN_get_error_3860_i4882: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[0]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1418; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L1418: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][4]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; } PXLL_RETURN(0); L1417: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_error_3860_i4882; r2[2] = lenv; r1[5] = r2; // def iterate_3861_i4882 goto L1419; FUN_iterate_3861_i4882: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)]; r0[3] = r1; r1 = top[78]; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finorder_412; L1419: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_iterate_3861_i4882; r2[2] = lenv; r1[6] = r2; // def map_3862_i4882 goto L1420; FUN_map_3862_i4882: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_802[0]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_25455_i4882 goto L1421; FUN_lambda_25455_i4882: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1422; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1422: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object**) lenv) [1][2] = r0; PXLL_RETURN(0); L1421: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_25455_i4882; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)]; r0[3] = r1; r1 = top[79]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1423; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2freverse_413; L1423: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L1420: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_map_3862_i4882; r2[2] = lenv; r1[7] = r2; // def keys_3863_i4882 goto L1424; FUN_keys_3863_i4882: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)]; r0[2] = r1; r1 = top[80]; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2fkeys_414; L1424: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_keys_3863_i4882; r2[2] = lenv; r1[8] = r2; // def values_3864_i4882 goto L1425; FUN_values_3864_i4882: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)]; r0[2] = r1; r1 = top[81]; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2fvalues_415; L1425: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_values_3864_i4882; r2[2] = lenv; r1[9] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (UOTAG(14), 8); r3 = ((object**) lenv) [1][2]; r2[1] = r3; r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = ((object**) lenv) [1][4]; r2[3] = r3; r3 = ((object**) lenv) [1][5]; r2[4] = r3; r3 = ((object**) lenv) [1][6]; r2[5] = r3; r3 = ((object**) lenv) [1][8]; r2[6] = r3; r3 = ((object**) lenv) [1][7]; r2[7] = r3; r3 = ((object**) lenv) [1][9]; r2[8] = r3; r1[2] = r2; // def lambda_25503_i4882 goto L1426; FUN_lambda_25503_i4882: r0 = allocate (UOTAG(13), 3); r1 = ((object*) lenv) [2]; r0[1] = r1; r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = top[175]; r0[3] = r1; PXLL_RETURN(0); L1426: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_25503_i4882; r1[2] = lenv; lenv = lenv[1]; lenv = lenv[1]; r0[208] = r1; r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; // def in_3892_i4883 goto L1427; FUN_in_3892_i4883: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,57)]; r1[2] = r2; r2 = top[12]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1428; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L1428: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = (object *) 262; PXLL_RETURN(0); } break; default: { r0 = (object *) 6; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1427: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_in_3892_i4883; r2[2] = lenv; r1[2] = r2; // def add_3893_i4883 goto L1429; FUN_add_3893_i4883: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1430; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_in_3892_i4883; L1430: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 5); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)]; r0[2] = r1; r1 = top[12]; r0[3] = r1; r1 = ((object*) lenv) [3]; r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r0[4] = r1; r1 = ((object*) lenv) [3]; r0[5] = r1; r1 = top[76]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1431; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finsert_409; L1431: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)] = r0; PXLL_RETURN(0); } PXLL_RETURN(0); L1429: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_add_3893_i4883; r2[2] = lenv; r1[3] = r2; // def get_3894_i4883 goto L1432; FUN_get_3894_i4883: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)]; r0[2] = r1; r1 = top[81]; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2fvalues_415; L1432: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_3894_i4883; r2[2] = lenv; r1[4] = r2; // def iterate_3895_i4883 goto L1433; FUN_iterate_3895_i4883: check_heap (0); r0 = allocate (TC_TUPLE, 3); // def lambda_25559_i4883 goto L1434; FUN_lambda_25559_i4883: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1434: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_25559_i4883; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,57)]; r0[3] = r1; r1 = top[78]; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finorder_412; L1433: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_iterate_3895_i4883; r2[2] = lenv; r1[5] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (UOTAG(12), 4); r3 = ((object**) lenv) [1][3]; r2[1] = r3; r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = ((object**) lenv) [1][5]; r2[4] = r3; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def new_3907_i4883 goto L1435; FUN_new_3907_i4883: r0 = allocate (UOTAG(11), 2); r1 = ((object**) lenv) [1][2]; r0[1] = r1; r1 = top[175]; r0[2] = r1; PXLL_RETURN(0); L1435: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_new_3907_i4883; r2[2] = lenv; r1[2] = r2; r1 = ((object*) lenv) [2]; lenv = lenv[1]; lenv = lenv[1]; lenv = lenv[1]; r0[209] = r1; r1 = (object *) 27; r0[210] = r1; r1 = (object *) 1; r0[211] = r1; r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; // def frob-name_4291_i4884 goto L1436; FUN_frob_name_4291_i4884: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r3[1] = lenv; lenv = r3; // def loop_4296_i3195_i4884 goto L1437; FUN_loop_4296_i3195_i4884: check_heap (0); r0 = ((object*****) lenv) [1][1][1][1][2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = r0; r2 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r2 = ((object******) lenv) [1][1][1][1][1][2]; range_check (((pxll_string *)(((pxll_string*)(r2))))->len, unbox(r1)); r1 = ((object**) lenv) [1][2]; r2 = ((object******) lenv) [1][1][1][1][1][2]; r1 = TO_CHAR(((unsigned char *)((pxll_string*)(r2))->data)[unbox(r1)]); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1438; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1438: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[50]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1439; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_char__3estring_350; L1439: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r2[2] = r3; r3 = ((object***) lenv) [1][1][2]; r2[3] = r3; r3 = top[69]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1440; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_alist_2flookup_396; L1440: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,0); } break; default: { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object****) lenv) [1][1][1][2]; r4 = box((pxll_int)GET_CHAR(r4)); r3[2] = r4; r4 = top[61]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1441; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3ehex_string_367; L1441: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r2 = ((object*) lenv) [4]; r3 = (object*) &constructed_801; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1442; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1442: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; } lenv = lenv[1]; } r0[2] = r1; r0 = ((object***) lenv) [1][1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object**) lenv) [1][2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv = ((object *)lenv)[1]; lenv[2] = r1; lenv[3] = r0; goto FUN_loop_4296_i3195_i4884; } PXLL_RETURN(0); L1437: r4 = allocate (TC_CLOSURE, 2); r4[1] = &&FUN_loop_4296_i3195_i4884; r4[2] = lenv; r3[2] = r4; r3 = allocate (TC_TUPLE, 3); r4 = (object *) 1; r3[2] = r4; r4 = (object *) constructed_800[0]; r3[3] = r4; r4 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1443; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_loop_4296_i3195_i4884; L1443: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; lenv = lenv[1]; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1444; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1444: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1445; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1445: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object*) &constructed_799; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1446; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L1446: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object*) &constructed_798; PXLL_RETURN(0); } else { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } PXLL_RETURN(0); L1436: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_frob_name_4291_i4884; r2[2] = lenv; r1[2] = r2; r2 = (object *) constructed_797[0]; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 2); r4 = (object*) &constructed_790; r3[2] = r4; r4 = top[59]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1447; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_string__3elist_364; L1447: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = top[87]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1448; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_char_class_425; L1448: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r0[212] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = (object *) 1; r2[2] = r3; r3 = top[117]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1449; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_make_counter_474; L1449: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; // def lambda_28848 goto L1450; FUN_lambda_28848: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[1]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1451; t[4] = r0; t[5] = r1; t[6] = r2; k = t; lenv = r3[2]; goto *r3[1]; L1451: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1452; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L1452: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r1 = ((object*) lenv) [4]; r2 = (object*) &constructed_789; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; L1450: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_28848; r1[2] = lenv; lenv = lenv[1]; r0[213] = r1; r1 = (object *) constructed_788[0]; r0[214] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = (object*) &constructed_771; r2[2] = r3; r3 = top[59]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1453; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string__3elist_364; L1453: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[87]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1454; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_char_class_425; L1454: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[215] = r1; r1 = (object*) &constructed_770; r0[216] = r1; r1 = (object*) &constructed_769; r0[217] = r1; r1 = (object*) &constructed_768; r0[218] = r1; r1 = (object*) &constructed_767; r0[219] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) pxll_internal_symbols; r0[2] = r1; r0 = top[175]; top[177] = r0; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1260_i4888 goto L1455; FUN_loop_1260_i4888: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r0 = box((pxll_int)(r0 == (object*) TC_EMPTY_VECTOR) ? 0 : GET_TUPLE_LENGTH(*r0)); r1 = r0; r2 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r2 = ((object***) lenv) [1][1][2]; range_check (GET_TUPLE_LENGTH(*(object*)r2), unbox(r1)); r1 = ((pxll_vector*)r2)->val[unbox(r1)]; r0[2] = r1; r1 = top[83]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1456; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_intern_symbol_420; L1456: ; lenv = k[2]; k = k[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN_loop_1260_i4888; } PXLL_RETURN(0); L1455: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1260_i4888; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1457; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1260_i4888; L1457: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = top[174]; r0 = ((pxll_vector*)r0)->val[0]; r1 = (object *) 5; r2 = r0; r0 = PXLL_TEST(unbox(r2)len); r1 = (object*) &constructed_766; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 2); r1 = (object*)UITAG(5); r0[2] = r1; r1 = top[168]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1458; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1458: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 61); r0[1] = lenv; lenv = r0; r1 = allocate (UOTAG(8), 20); r2 = (object*)UITAG(0); r1[1] = r2; r2 = (object *) constructed_765[0]; r1[2] = r2; r2 = (object *) constructed_764[0]; r1[3] = r2; r2 = (object*)UITAG(0); r1[4] = r2; r2 = allocate (TC_TUPLE, 2); r3 = top[86]; r2[2] = r3; r3 = top[208]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1459; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L1459: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = (object*)UITAG(0); r1[6] = r2; r2 = top[175]; r1[7] = r2; r2 = (object *) constructed_763[0]; r1[8] = r2; r2 = top[175]; r1[9] = r2; r2 = (object *) constructed_762[0]; r1[10] = r2; r2 = (object*)UITAG(0); r1[11] = r2; r2 = allocate (UOTAG(10), 8); r3 = (object *) 6; r2[1] = r3; r3 = (object*) &constructed_761; r2[2] = r3; r3 = (object *) 6; r2[3] = r3; r3 = (object *) 6; r2[4] = r3; r3 = (object *) 6; r2[5] = r3; r3 = (object *) 6; r2[6] = r3; r3 = (object *) 6; r2[7] = r3; r3 = (object *) 6; r2[8] = r3; r1[12] = r2; r2 = (object *) constructed_760[0]; r1[13] = r2; r2 = (object *) constructed_759[0]; r1[14] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = (object *) -1; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; // def allocate_2693_i5_i4754_i4889 goto L1460; FUN_allocate_2693_i5_i4754_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_2696_i5_i4754_i4889 goto L1461; FUN_loop_2696_i5_i4754_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[11]; r0[4] = r1; r1 = top[28]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1462; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_member_question_320; L1462: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN_loop_2696_i5_i4754_i4889; } else { r0 = ((object*****) lenv) [1][1][1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)>unbox(r0))) { r0 = ((object*) lenv) [2]; } else { r0 = ((object*****) lenv) [1][1][1][1][2]; } ((object*****) lenv) [1][1][1][1][2] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } PXLL_RETURN(0); L1461: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_2696_i5_i4754_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_2696_i5_i4754_i4889; L1460: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_allocate_2693_i5_i4754_i4889; r3[2] = lenv; r2[2] = r3; // def get-max_2694_i5_i4754_i4889 goto L1463; FUN_get_max_2694_i5_i4754_i4889: r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); L1463: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_get_max_2694_i5_i4754_i4889; r3[2] = lenv; r2[3] = r3; r2 = allocate (UOTAG(9), 2); r3 = ((object*) lenv) [2]; r2[1] = r3; r3 = ((object*) lenv) [3]; r2[2] = r3; lenv = lenv[1]; lenv = lenv[1]; r1[15] = r2; r2 = (object *) constructed_758[0]; r1[16] = r2; r2 = (object*) &constructed_757; r1[17] = r2; r2 = (object*)UITAG(0); r1[18] = r2; r2 = (object*)UITAG(0); r1[19] = r2; r2 = top[175]; r1[20] = r2; r0[2] = r1; r1 = top[174]; r1 = ((pxll_vector*)r1)->val[1]; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[11]; r0[4] = r1; r1 = ((object*) lenv) [3]; r1 = box((pxll_int)(r1 == (object*) TC_EMPTY_VECTOR) ? 0 : GET_TUPLE_LENGTH(*r1)); r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_4835_i4755_i4889 goto L1464; FUN__24loop_4835_i4755_i4889: check_heap (0); r0 = ((object*) lenv) [2]; r1 = ((object***) lenv) [1][1][5]; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[174]; r1 = ((pxll_vector*)r1)->val[1]; r2 = ((object**) lenv) [1][2]; range_check (GET_TUPLE_LENGTH(*(object*)r1), unbox(r2)); r1 = ((pxll_vector*)r1)->val[unbox(r2)]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object*) &constructed_750; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1465; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L1465: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; r1 = ((object****) lenv) [1][1][1][4]; ((pxll_vector*)r1)->val[5] = r0; } else { goto fatbar_183; } goto fatbar_183_over; fatbar_183: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object*) &constructed_751; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1466; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L1466: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; r1 = ((object****) lenv) [1][1][1][4]; ((pxll_vector*)r1)->val[4] = r0; } else { goto fatbar_184; } goto fatbar_184_over; fatbar_184: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object*) &constructed_752; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1467; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L1467: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; r1 = ((object****) lenv) [1][1][1][4]; ((pxll_vector*)r1)->val[0] = r0; } else { goto fatbar_185; } goto fatbar_185_over; fatbar_185: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object*) &constructed_753; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1468; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L1468: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = ((object**) lenv) [1][2]; r1 = (object *) 3; r2 = r0; r0 = box((pxll_int)unbox(r2)+unbox(r1)); ((object**) lenv) [1][2] = r0; r0 = ((object**) lenv) [1][2]; r1 = ((object****) lenv) [1][1][1][3]; range_check (GET_TUPLE_LENGTH(*(object*)r1), unbox(r0)); r0 = ((pxll_vector*)r1)->val[unbox(r0)]; r1 = ((object****) lenv) [1][1][1][4]; ((pxll_vector*)r1)->val[1] = r0; } else { goto fatbar_186; } goto fatbar_186_over; fatbar_186: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object*) &constructed_754; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1469; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L1469: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; r1 = ((object****) lenv) [1][1][1][4]; ((pxll_vector*)r1)->val[6] = r0; } else { goto fatbar_187; } goto fatbar_187_over; fatbar_187: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object*) &constructed_755; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1470; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L1470: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; r1 = ((object****) lenv) [1][1][1][4]; ((pxll_vector*)r1)->val[7] = r0; } else { goto fatbar_188; } goto fatbar_188_over; fatbar_188: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object*) &constructed_756; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1471; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L1471: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; r1 = ((object****) lenv) [1][1][1][4]; ((pxll_vector*)r1)->val[2] = r0; } else { goto fatbar_189; } goto fatbar_189_over; fatbar_189: r0 = (object *) 14; fatbar_189_over: ; fatbar_188_over: ; fatbar_187_over: ; fatbar_186_over: ; fatbar_185_over: ; fatbar_184_over: ; fatbar_183_over: ; lenv = lenv[1]; r0 = ((object*) lenv) [2]; r1 = (object *) 3; r2 = r0; r0 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r0; goto FUN__24loop_4835_i4755_i4889; } PXLL_RETURN(0); L1464: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_4835_i4755_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1472; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_4835_i4755_i4889; L1472: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[6] = r1; r1 = allocate (TC_TUPLE, 29); r1[1] = lenv; lenv = r1; // def go_1974_i4756_i4889 goto L1473; FUN_go_1974_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_NIL): { r1 = (object *) constructed_748[0]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; } break; default: { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1474; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1474: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_182; } } lenv = lenv[1]; } break; } goto fatbar_182_over; fatbar_182: r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = ((object*****) lenv) [1][1][1][1][5]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1475; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_find_declarations_1979_i4756_i4889; L1475: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1476; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_find_definitions_1980_i4756_i4889; L1476: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; fatbar_182_over: ; lenv = lenv[1]; } break; default: { goto fatbar_181; } } goto fatbar_181_over; fatbar_181: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_749; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1477; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L1477: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_181_over: ; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][20]; r0[1] = r1[2]; lenv = r0; goto FUN_wrap_with_constructors_1997_i4756_i4889; L1473: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_go_1974_i4756_i4889; r2[2] = lenv; r1[2] = r2; // def wrap-fix_1975_i4756_i4889 goto L1478; FUN_wrap_fix_1975_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1479; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1479: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)>unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 9); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_747[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[3] = r1; r1 = ((object**) lenv) [1][3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = (object*)TC_NIL; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[9] = r1; r0 = ((object*) lenv) [9]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } else { r0 = ((object*) lenv) [4]; PXLL_RETURN(0); } PXLL_RETURN(0); L1478: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_wrap_fix_1975_i4756_i4889; r2[2] = lenv; r1[3] = r2; // def wrap-definitions_1977_i4756_i4889 goto L1480; FUN_wrap_definitions_1977_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_745[0]; r0[2] = r1; r1 = (object *) constructed_744[0]; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_11415_i4756_i4889 goto L1481; FUN_lambda_11415_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r0; r0 = t; r1 = ((object***) lenv) [1][1][2]; r2 = r1; r3 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r0 = t; ((object***) lenv) [1][1][2] = r0; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1482; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1482: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object***) lenv) [1][1][3] = r0; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1481: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_11415_i4756_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1483; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1483: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 4); r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1484; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1484: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1485; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1485: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_646[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r3 = ((object**) lenv) [1][3]; r4 = r2; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; t = alloc_no_clear (UOTAG(0),1); t[1] = r4; r2 = t; r1[2] = r2; r2 = ((object***) lenv) [1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1486; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1486: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object***) lenv) [1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_wrap_fix_1975_i4756_i4889; L1480: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_wrap_definitions_1977_i4756_i4889; r2[2] = lenv; r1[4] = r2; // def find-declarations_1979_i4756_i4889 goto L1487; FUN_find_declarations_1979_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def recur_2031_i4756_i4889 goto L1488; FUN_recur_2031_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_734[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_2188_i1166_i4756_i4889 goto L1489; FUN_loop_2188_i1166_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) constructed_730[0]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r1; switch (get_case (r2)) { case (TC_PAIR): { r2 = r1; r2 = UOBJ_GET(r2,0); r3 = r1; r3 = UOBJ_GET(r3,1); r4 = r2; switch (get_case (r4)) { case (UOTAG(1)): { r4 = r2; r4 = UOBJ_GET(r4,0); r5 = (object *) constructed_712[0]; r6 = r4; if PXLL_IS_TRUE(PXLL_TEST(r6==r5)) { r5 = r3; switch (get_case (r5)) { case (TC_PAIR): { r5 = r3; r5 = UOBJ_GET(r5,0); r6 = r3; r6 = UOBJ_GET(r6,1); r7 = allocate (UOTAG(1), 2); r8 = r0; r7[1] = r8; r8 = r5; r7[2] = r8; r8 = allocate (TC_TUPLE, 2); r9 = r6; r8[2] = r9; r9 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 11); t[1] = k; t[2] = lenv; t[3] = &&L1490; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; t[9] = r5; t[10] = r6; t[11] = r7; k = t; r8[1] = r9[2]; lenv = r8; goto FUN_loop_2188_i1166_i4756_i4889; L1490: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; r5 = k[9]; r6 = k[10]; r7 = k[11]; lenv = k[2]; k = k[1]; r8 = result; r9 = r8; r10 = r7; t = alloc_no_clear (TC_PAIR,2); t[1] = r10; t[2] = r9; r9 = t; PXLL_RETURN(9); } break; default: { goto fatbar_176; } } PXLL_RETURN(5); } else { goto fatbar_176; } PXLL_RETURN(5); } break; default: { goto fatbar_176; } } PXLL_RETURN(4); } break; default: { goto fatbar_176; } } PXLL_RETURN(2); } break; } PXLL_RETURN(0); goto fatbar_176_over; fatbar_176: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_731; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_176_over: ; PXLL_RETURN(0); L1489: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_2188_i1166_i4756_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1491; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_2188_i1166_i4756_i4889; L1491: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; // def apply_1572_i1167_i4756_i4889 goto L1492; FUN_apply_1572_i1167_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_1576_i1167_i4756_i4889 goto L1493; FUN_loop_1576_i1167_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[3] = r1; r1 = top[101]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1494; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_matches_pattern_question_443; L1494: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = ((object*****) lenv) [1][1][1][1][3]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r3 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object*******) lenv) [1][1][1][1][1][1][2]; r3[2] = r4; r4 = top[95]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1495; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_repr_435; L1495: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_728; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_727; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_726; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1496; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1496: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = ((object******) lenv) [1][1][1][1][1][2]; r2[3] = r3; r3 = top[105]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1497; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_get_bindings_447; L1497: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[106]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1498; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_pattern_449; L1498: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object******) lenv) [1][1][1][1][1][3]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][2]; r3[2] = r4; r4 = top[95]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1499; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_repr_435; L1499: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_725; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_724; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1500; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1500: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; } else { r0 = (object *) 14; } r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } else { r0 = ((object**) lenv) [1][3]; lenv = ((object **)lenv)[1][1]; lenv[2] = r0; goto FUN_loop_1576_i1167_i4756_i4889; } PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_729; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = top[95]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1501; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_repr_435; L1501: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; } PXLL_RETURN(0); L1493: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_1576_i1167_i4756_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_1576_i1167_i4756_i4889; L1492: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_apply_1572_i1167_i4756_i4889; r2[2] = lenv; r1[2] = r2; // def unread-macro_1573_i1167_i4756_i4889 goto L1502; FUN_unread_macro_1573_i1167_i4756_i4889: check_heap (0); r0 = (object*) &constructed_723; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_723; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object**) lenv) [1][2]; dump_object (r0, 0); r0 = (object*) &constructed_722; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_722; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); // def lambda_8182_i1167_i4756_i4889 goto L1503; FUN_lambda_8182_i1167_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[99]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1504; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_pp_439; L1504: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_721; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_721; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[99]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1505; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_pp_439; L1505: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_720; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_720; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1503: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_8182_i1167_i4756_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1506; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1506: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_719; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_719; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L1502: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_unread_macro_1573_i1167_i4756_i4889; r2[2] = lenv; r1[3] = r2; r1 = allocate (UOTAG(6), 4); r2 = ((object*) lenv) [2]; r1[1] = r2; r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object*) lenv) [3]; r1[4] = r2; lenv = lenv[1]; r0[4] = r1; r0 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r0 = ((pxll_vector*)r0)->val[10]; r1 = ((object*) lenv) [4]; r2 = r0; r3 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r0 = t; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; ((pxll_vector*)r1)->val[10] = r0; lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_175; } } lenv = lenv[1]; } break; default: { goto fatbar_175; } } goto fatbar_175_over; fatbar_175: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_732; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1507; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; L1507: ; lenv = k[2]; k = k[1]; r0 = result; fatbar_175_over: ; r0 = ((object*****) lenv) [1][1][1][1][3]; r1 = ((object****) lenv) [1][1][1][3]; lenv = ((object ****)lenv)[1][1][1][1]; lenv[2] = r1; lenv[3] = r0; goto FUN_recur_2031_i4756_i4889; } else { goto fatbar_174; } PXLL_RETURN(0); goto fatbar_174_over; fatbar_174: r0 = (object *) constructed_740[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = top[207]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1508; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L1508: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[207]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1509; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L1509: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = (object *) 1; r0[5] = r1; r1 = allocate (TC_TUPLE, 8); r1[1] = lenv; lenv = r1; // def get_2202_i1173_i4756_i4889 goto L1510; FUN_get_2202_i1173_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = (object*) &constructed_737; r0[4] = r1; r1 = ((object***) lenv) [1][1][4]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[3]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1510: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_2202_i1173_i4756_i4889; r2[2] = lenv; r1[2] = r2; // def add_2203_i1173_i4756_i4889 goto L1511; FUN_add_2203_i1173_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = ((object***) lenv) [1][1][4]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[0]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1512; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1512: ; lenv = k[2]; k = k[1]; r0 = ((object***) lenv) [1][1][5]; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[1] = r0; r0 = ((object***) lenv) [1][1][5]; r1 = (object *) 3; r0 = box((pxll_int)unbox(r1)+unbox(r0)); ((object***) lenv) [1][1][5] = r0; PXLL_RETURN(0); L1511: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_add_2203_i1173_i4756_i4889; r2[2] = lenv; r1[3] = r2; // def iterate_2204_i1173_i4756_i4889 goto L1513; FUN_iterate_2204_i1173_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[4]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1513: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_iterate_2204_i1173_i4756_i4889; r2[2] = lenv; r1[4] = r2; // def get-nalts_2205_i1173_i4756_i4889 goto L1514; FUN_get_nalts_2205_i1173_i4756_i4889: r0 = ((object**) lenv) [1][5]; PXLL_RETURN(0); L1514: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_nalts_2205_i1173_i4756_i4889; r2[2] = lenv; r1[5] = r2; // def get-scheme_2206_i1173_i4756_i4889 goto L1515; FUN_get_scheme_2206_i1173_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1516; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1516: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1517; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1517: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (UOTAG(2), 2); r1 = ((object*) lenv) [3]; r0[1] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1518; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1518: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; PXLL_RETURN(0); L1515: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_scheme_2206_i1173_i4756_i4889; r2[2] = lenv; r1[6] = r2; // def get-tvars_2207_i1173_i4756_i4889 goto L1519; FUN_get_tvars_2207_i1173_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1520; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1520: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; L1519: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_tvars_2207_i1173_i4756_i4889; r2[2] = lenv; r1[7] = r2; // def get-alt-scheme_2208_i1173_i4756_i4889 goto L1521; FUN_get_alt_scheme_2208_i1173_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object****) lenv) [1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = (object*) &constructed_736; r1[4] = r2; r2 = ((object****) lenv) [1][1][1][4]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1522; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1522: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1523; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1523: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1524; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1524: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1525; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1525: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (UOTAG(2), 2); r2 = ((object*) lenv) [4]; r1[1] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [2]; r4 = ((object**) lenv) [1][5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1526; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L1526: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r0[6] = r1; r0 = ((object*) lenv) [6]; PXLL_RETURN(0); L1521: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_alt_scheme_2208_i1173_i4756_i4889; r2[2] = lenv; r1[8] = r2; r1 = allocate (UOTAG(7), 8); r2 = ((object*) lenv) [3]; r1[1] = r2; r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*) lenv) [8]; r1[3] = r2; r2 = ((object*) lenv) [5]; r1[4] = r2; r2 = ((object*) lenv) [6]; r1[5] = r2; r2 = ((object*) lenv) [7]; r1[6] = r2; r2 = ((object*) lenv) [4]; r1[7] = r2; r2 = ((object**) lenv) [1][2]; r1[8] = r2; lenv = lenv[1]; r0[6] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_13265_i1172_i4756_i4889 goto L1527; FUN_lambda_13265_i1172_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_45[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 4); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r1[4] = r2; r2 = ((object**************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][22]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1528; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_alt_1999_i4756_i4889; L1528: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][6]; r1 = ((pxll_vector*)r1)->val[0]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } else { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_179; } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_179; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_179; } } PXLL_RETURN(0); } break; default: { goto fatbar_179; } } PXLL_RETURN(0); goto fatbar_179_over; fatbar_179: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_735; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_179_over: ; PXLL_RETURN(0); L1527: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_13265_i1172_i4756_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1529; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1529: ; lenv = k[2]; k = k[1]; r0 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r0 = ((pxll_vector*)r0)->val[3]; r1 = ((object*) lenv) [6]; r2 = r0; r3 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r0 = t; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; ((pxll_vector*)r1)->val[3] = r0; lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_178; } } lenv = lenv[1]; } break; default: { goto fatbar_178; } } goto fatbar_178_over; fatbar_178: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_738; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1530; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; L1530: ; lenv = k[2]; k = k[1]; r0 = result; fatbar_178_over: ; r0 = ((object*****) lenv) [1][1][1][1][3]; r1 = ((object****) lenv) [1][1][1][3]; lenv = ((object ****)lenv)[1][1][1][1]; lenv[2] = r1; lenv[3] = r0; goto FUN_recur_2031_i4756_i4889; } else { goto fatbar_177; } PXLL_RETURN(0); goto fatbar_177_over; fatbar_177: r0 = (object *) constructed_743[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = ((object**) lenv) [1][3]; r0 = UOBJ_GET(r0,0); r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case (r2)) { case (UOTAG(1)): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r1; switch (get_case (r3)) { case (TC_PAIR): { r3 = r1; r3 = UOBJ_GET(r3,0); r4 = r1; r4 = UOBJ_GET(r4,1); r5 = r3; switch (get_case (r5)) { case (UOTAG(1)): { r5 = r3; r5 = UOBJ_GET(r5,0); r6 = r4; switch (get_case (r6)) { case (TC_NIL): { r6 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r6 = ((pxll_vector*)r6)->val[0]; r7 = r5; r8 = r6; r9 = r2; t = alloc_no_clear (UOTAG(1),3); t[1] = r9; t[2] = r7; t[3] = r8; r6 = t; r7 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; ((pxll_vector*)r7)->val[0] = r6; r5 = r6; } break; default: { goto fatbar_180; } } r3 = r5; } break; default: { goto fatbar_180; } } r2 = r3; } break; default: { goto fatbar_180; } } r0 = r2; } break; default: { goto fatbar_180; } } } break; default: { goto fatbar_180; } } goto fatbar_180_over; fatbar_180: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_741; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1531; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; L1531: ; lenv = k[2]; k = k[1]; r0 = result; fatbar_180_over: ; r0 = ((object*****) lenv) [1][1][1][1][3]; r1 = ((object****) lenv) [1][1][1][3]; lenv = ((object ****)lenv)[1][1][1][1]; lenv[2] = r1; lenv[3] = r0; goto FUN_recur_2031_i4756_i4889; } else { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_173; } PXLL_RETURN(0); fatbar_177_over: ; PXLL_RETURN(0); fatbar_174_over: ; PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_173; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_173; } } PXLL_RETURN(0); } break; default: { goto fatbar_173; } } PXLL_RETURN(0); goto fatbar_173_over; fatbar_173: r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; r1 = ((object*) lenv) [3]; lenv = ((object *)lenv)[1]; lenv[2] = r1; lenv[3] = r0; goto FUN_recur_2031_i4756_i4889; fatbar_173_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1488: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_recur_2031_i4756_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = (object *) constructed_718[0]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_recur_2031_i4756_i4889; L1487: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_find_declarations_1979_i4756_i4889; r2[2] = lenv; r1[5] = r2; // def find-definitions_1980_i4756_i4889 goto L1532; FUN_find_definitions_1980_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def recur_2042_i4756_i4889 goto L1533; FUN_recur_2042_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1534; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1534: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1535; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1535: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_717[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 4); r2 = (object *) constructed_712[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[93]; r1[4] = r2; r2 = top[28]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1536; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_member_question_320; L1536: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 5); r3 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][2]; r2[2] = r3; r3 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][8]; r2[3] = r3; r3 = (object *) constructed_709[0]; r2[4] = r3; r3 = ((object***) lenv) [1][1][3]; r2[5] = r3; r3 = top[120]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1537; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_compile_pattern_480; L1537: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case_noint (r1)) { default: { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = allocate (UOTAG(1), 2); r2 = ((object***) lenv) [1][1][2]; r1[1] = r2; r2 = allocate (TC_TUPLE, 13); r2[1] = lenv; lenv = r2; r3 = (object *) constructed_648[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r3; r3 = t; r2[2] = r3; r3 = ((object****) lenv) [1][1][1][2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r3; r3 = t; r2[3] = r3; r3 = allocate (TC_TUPLE, 3); r4 = top[3]; r3[2] = r4; r4 = ((object**) lenv) [1][2]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1538; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L1538: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r3 = ((object*) lenv) [4]; t = alloc_no_clear (UOTAG(0),1); t[1] = r3; r3 = t; r2[5] = r3; r3 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r3; r3 = t; r2[6] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][3]; r3[2] = r4; r4 = ((object**************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][8]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1539; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_expand_1982_i4756_i4889; L1539: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[7] = r3; r3 = (object*)TC_NIL; r2[8] = r3; r3 = ((object*) lenv) [8]; r4 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[9] = r3; r3 = ((object*) lenv) [9]; r4 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[10] = r3; r3 = ((object*) lenv) [10]; r4 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[11] = r3; r3 = ((object*) lenv) [11]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[12] = r3; r3 = ((object*) lenv) [12]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[13] = r3; r2 = ((object*) lenv) [13]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; lenv = lenv[1]; } break; } lenv = lenv[1]; } else { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][3]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1540; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L1540: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [2]; r3 = (object *) 3; r2 = PXLL_TEST(unbox(r3)==unbox(r2)); r1[3] = r2; r1 = (object *) 6; r2 = ((object*) lenv) [3]; r1 = PXLL_TEST(r2==r1); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_710; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1541; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L1541: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (UOTAG(1), 2); r2 = ((object*) lenv) [2]; r1[1] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1542; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1542: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; } } lenv = lenv[1]; } break; case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = (object *) constructed_714[0]; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object****) lenv) [1][1][1][3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 5); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r1[4] = r2; r2 = ((object*) lenv) [2]; r1[5] = r2; r2 = ((object******************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1543; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_parse_normal_definition_2005_i4756_i4889; L1543: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_172; } } lenv = lenv[1]; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_172; } } lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_172; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_172; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_172; } } lenv = lenv[1]; } break; default: { goto fatbar_172; } } } else { goto fatbar_172; } goto fatbar_172_over; fatbar_172: r1 = allocate (TC_TUPLE, 5); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][3]; r1[4] = r2; r2 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r2; r2 = t; r1[5] = r2; r2 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1544; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_parse_normal_definition_2005_i4756_i4889; L1544: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_172_over: ; lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_171; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_171; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_171; } } lenv = lenv[1]; } break; default: { goto fatbar_171; } } goto fatbar_171_over; fatbar_171: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_715; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1545; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L1545: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_171_over: ; r0[2] = r1; r0 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object*****) lenv) [1][1][1][1][3]; r2 = ((object****) lenv) [1][1][1][3]; lenv = ((object ****)lenv)[1][1][1][1]; lenv[2] = r0; lenv[3] = r1; lenv[4] = r2; goto FUN_recur_2042_i4756_i4889; } else { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_170; } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_170; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_170; } } PXLL_RETURN(0); } break; default: { goto fatbar_170; } } PXLL_RETURN(0); goto fatbar_170_over; fatbar_170: r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; r1 = ((object*) lenv) [3]; r2 = ((object**) lenv) [1][2]; lenv = ((object *)lenv)[1]; lenv[2] = r2; lenv[3] = r0; lenv[4] = r1; goto FUN_recur_2042_i4756_i4889; fatbar_170_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1533: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_recur_2042_i4756_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = (object *) constructed_708[0]; r0[2] = r1; r1 = (object *) constructed_707[0]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_recur_2042_i4756_i4889; L1532: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_find_definitions_1980_i4756_i4889; r2[2] = lenv; r1[6] = r2; // def expand-field_1981_i4756_i4889 goto L1546; FUN_expand_field_1981_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1547; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1547: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [4]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); PXLL_RETURN(0); L1546: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_field_1981_i4756_i4889; r2[2] = lenv; r1[7] = r2; // def expand_1982_i4756_i4889 goto L1548; FUN_expand_1982_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; case (UOTAG(2)): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; case (UOTAG(3)): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; case (UOTAG(4)): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; case (UOTAG(5)): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; case (UITAG(6)): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][9]; r0[1] = r1[2]; lenv = r0; goto FUN_maybe_expand_1983_i4756_i4889; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][8]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1549; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1549: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(7),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; case (UOTAG(8)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][7]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1550; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1550: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(8),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; case (UOTAG(9)): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = allocate (TC_TUPLE, 2); r3 = r0; r2[2] = r3; r3 = ((object**) lenv) [1][8]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1551; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_expand_1982_i4756_i4889; L1551: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r3 = r1; r4 = r2; t = alloc_no_clear (UOTAG(10),2); t[1] = r4; t[2] = r3; r3 = t; PXLL_RETURN(3); } break; } PXLL_RETURN(0); L1548: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_1982_i4756_i4889; r2[2] = lenv; r1[8] = r2; // def maybe-expand_1983_i4756_i4889 goto L1552; FUN_maybe_expand_1983_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) constructed_702[0]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][29]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1553; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L1553: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[10]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1554; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L1554: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[11]; r2 = ((pxll_vector*)r2)->val[0]; r1[3] = r2; r2 = ((object*) lenv) [2]; r2 = ((pxll_vector*)r2)->val[0]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1555; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1555: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][8]; r0[1] = r1[2]; lenv = r0; goto FUN_expand_1982_i4756_i4889; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][8]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1556; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1556: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object****) lenv) [1][1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r0 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_706[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 8); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_704[0]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(10),2); t[1] = r2; t[2] = r1; r1 = t; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(10),2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = (object*)TC_NIL; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][8]; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1557; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1557: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [6]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1558; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1558: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [7]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1559; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1559: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[8] = r1; r0 = ((object*) lenv) [8]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { lenv = ((object ******)lenv)[1][1][1][1][1][1]; goto fatbar_169; } } PXLL_RETURN(0); } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_169; } } PXLL_RETURN(0); } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_169; } } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_169; } } PXLL_RETURN(0); } else { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_169; } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_169; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_169; } } PXLL_RETURN(0); } break; default: { goto fatbar_169; } } PXLL_RETURN(0); goto fatbar_169_over; fatbar_169: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][8]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1560; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1560: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); fatbar_169_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1552: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_maybe_expand_1983_i4756_i4889; r2[2] = lenv; r1[9] = r2; // def expand-if_1984_i4756_i4889 goto L1561; FUN_expand_if_1984_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1562; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1562: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1563; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1563: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = (object*)UITAG(6); r0[4] = r1; r1 = (object*)TC_NIL; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = (object *) constructed_642[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[9] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [9]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[10] = r1; r0 = ((object*) lenv) [10]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1564; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1564: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1565; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1565: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1566; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1566: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = (object*)TC_NIL; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = (object *) constructed_642[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[9] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [9]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[10] = r1; r0 = ((object*) lenv) [10]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_168; } } PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_168; } } PXLL_RETURN(0); } break; default: { goto fatbar_168; } } PXLL_RETURN(0); goto fatbar_168_over; fatbar_168: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_701; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_168_over: ; PXLL_RETURN(0); L1561: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_if_1984_i4756_i4889; r2[2] = lenv; r1[10] = r2; // def expand-set!_1985_i4756_i4889 goto L1567; FUN_expand_set_bang_1985_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1568; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1568: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1569; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1569: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = (object*)TC_NIL; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = (object *) constructed_505[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[9] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [9]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[10] = r1; r0 = ((object*) lenv) [10]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; switch (get_case (r1)) { case (TC_PAIR): { r1 = r0; r1 = UOBJ_GET(r1,0); r2 = r0; r2 = UOBJ_GET(r2,1); r3 = r1; switch (get_case (r3)) { case (UOTAG(1)): { r3 = r1; r3 = UOBJ_GET(r3,0); r4 = (object *) constructed_302[0]; r5 = r3; if PXLL_IS_TRUE(PXLL_TEST(r5==r4)) { r4 = r2; switch (get_case (r4)) { case (TC_PAIR): { r4 = r2; r4 = UOBJ_GET(r4,0); r5 = r2; r5 = UOBJ_GET(r5,1); r6 = r5; switch (get_case (r6)) { case (TC_PAIR): { r6 = r5; r6 = UOBJ_GET(r6,0); r7 = r5; r7 = UOBJ_GET(r7,1); r8 = r7; switch (get_case (r8)) { case (TC_PAIR): { r8 = r7; r8 = UOBJ_GET(r8,0); r9 = r7; r9 = UOBJ_GET(r9,1); r10 = r9; switch (get_case (r10)) { case (TC_NIL): { r10 = allocate (TC_TUPLE, 8); r10[1] = lenv; lenv = r10; r11 = (object*)TC_NIL; r10[2] = r11; r11 = ((object*) lenv) [2]; r12 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r12; t[2] = r11; r11 = t; r10[3] = r11; r11 = ((object*) lenv) [3]; r12 = r8; t = alloc_no_clear (TC_PAIR,2); t[1] = r12; t[2] = r11; r11 = t; r10[4] = r11; r11 = ((object*) lenv) [4]; r12 = r6; t = alloc_no_clear (TC_PAIR,2); t[1] = r12; t[2] = r11; r11 = t; r10[5] = r11; r11 = ((object*) lenv) [5]; r12 = r4; t = alloc_no_clear (TC_PAIR,2); t[1] = r12; t[2] = r11; r11 = t; r10[6] = r11; r11 = (object *) constructed_293[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r11; r11 = t; r10[7] = r11; r11 = ((object*) lenv) [6]; r12 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r12; t[2] = r11; r11 = t; r10[8] = r11; r10 = ((object*) lenv) [8]; t = alloc_no_clear (UOTAG(0),1); t[1] = r10; r10 = t; PXLL_RETURN(10); } break; default: { goto fatbar_167; } } PXLL_RETURN(10); } break; default: { goto fatbar_167; } } PXLL_RETURN(8); } break; default: { goto fatbar_167; } } PXLL_RETURN(6); } break; default: { goto fatbar_167; } } PXLL_RETURN(4); } else { goto fatbar_167; } PXLL_RETURN(4); } break; default: { goto fatbar_167; } } PXLL_RETURN(3); } break; default: { goto fatbar_167; } } PXLL_RETURN(1); } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 8); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[3] = r1; r1 = (object*)TC_NIL; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = (object *) constructed_644[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r0 = ((object*) lenv) [8]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { goto fatbar_167; } } PXLL_RETURN(0); goto fatbar_167_over; fatbar_167: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_699; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_167_over: ; PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_166; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_166; } } PXLL_RETURN(0); } break; default: { goto fatbar_166; } } PXLL_RETURN(0); goto fatbar_166_over; fatbar_166: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_700; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_166_over: ; PXLL_RETURN(0); L1567: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_set_bang_1985_i4756_i4889; r2[2] = lenv; r1[11] = r2; // def expand-begin_1986_i4756_i4889 goto L1570; FUN_expand_begin_1986_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_698; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_698; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][8]; r0[1] = r1[2]; lenv = r0; goto FUN_expand_1982_i4756_i4889; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_165; } } PXLL_RETURN(0); } break; } PXLL_RETURN(0); goto fatbar_165_over; fatbar_165: r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][8]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1571; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1571: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = (object *) constructed_646[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[3] = r1; r1 = ((object*) lenv) [2]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r0 = ((object*) lenv) [4]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); fatbar_165_over: ; PXLL_RETURN(0); L1570: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_begin_1986_i4756_i4889; r2[2] = lenv; r1[12] = r2; // def expand-let-splat_1987_i4756_i4889 goto L1572; FUN_expand_let_splat_1987_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_12201_i4756_i4889 goto L1573; FUN_lambda_12201_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1574; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1574: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = (object*)TC_NIL; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r0 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_164; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_164; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_164; } } PXLL_RETURN(0); } break; default: { goto fatbar_164; } } PXLL_RETURN(0); goto fatbar_164_over; fatbar_164: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_696; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_164_over: ; PXLL_RETURN(0); L1573: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_12201_i4756_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1575; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1575: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][4]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1576; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_find_definitions_1980_i4756_i4889; L1576: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = (object*)TC_NIL; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = (object *) constructed_652[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[9] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [9]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[10] = r1; r0 = ((object*) lenv) [10]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_163; } } PXLL_RETURN(0); } break; default: { goto fatbar_163; } } PXLL_RETURN(0); goto fatbar_163_over; fatbar_163: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_697; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_163_over: ; PXLL_RETURN(0); L1572: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_let_splat_1987_i4756_i4889; r2[2] = lenv; r1[13] = r2; // def expand-lambda_1988_i4756_i4889 goto L1577; FUN_expand_lambda_1988_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 5); r1 = (object *) constructed_632[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][4]; r1[3] = r2; r2 = ((object***) lenv) [1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1578; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_find_definitions_1980_i4756_i4889; L1578: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object***) lenv) [1][1][16]; r0[1] = r1[2]; lenv = r0; goto FUN_exp_function_1990_i4756_i4889; } break; default: { goto fatbar_162; } } PXLL_RETURN(0); goto fatbar_162_over; fatbar_162: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_695; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_162_over: ; PXLL_RETURN(0); L1577: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_lambda_1988_i4756_i4889; r2[2] = lenv; r1[14] = r2; // def expand-function_1989_i4756_i4889 goto L1579; FUN_expand_function_1989_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 5); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1580; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_find_definitions_1980_i4756_i4889; L1580: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*****) lenv) [1][1][1][1][16]; r0[1] = r1[2]; lenv = r0; goto FUN_exp_function_1990_i4756_i4889; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_161; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_161; } } PXLL_RETURN(0); } break; default: { goto fatbar_161; } } PXLL_RETURN(0); goto fatbar_161_over; fatbar_161: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_694; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_161_over: ; PXLL_RETURN(0); L1579: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_function_1989_i4756_i4889; r2[2] = lenv; r1[15] = r2; // def exp-function_1990_i4756_i4889 goto L1581; FUN_exp_function_1990_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 8); r0[1] = lenv; lenv = r0; r1 = (object*)TC_NIL; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = (object *) constructed_648[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r0 = ((object*) lenv) [8]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); L1581: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_exp_function_1990_i4756_i4889; r2[2] = lenv; r1[16] = r2; // def make-nvget_1992_i4756_i4889 goto L1582; FUN_make_nvget_1992_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 15); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_321[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(9),2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = ((object**) lenv) [1][4]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = ((object**) lenv) [1][5]; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; r0[5] = r1; r1 = (object*)TC_NIL; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[9] = r1; r1 = ((object*) lenv) [9]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[10] = r1; r1 = ((object**) lenv) [1][6]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[11] = r1; r1 = (object*)TC_NIL; r0[12] = r1; r1 = ((object*) lenv) [12]; r2 = ((object*) lenv) [11]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[13] = r1; r1 = ((object*) lenv) [13]; r2 = ((object*) lenv) [10]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[14] = r1; r1 = ((object*) lenv) [14]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[15] = r1; r0 = ((object*) lenv) [15]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); L1582: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_make_nvget_1992_i4756_i4889; r2[2] = lenv; r1[17] = r2; // def expand-vcase_1993_i4756_i4889 goto L1583; FUN_expand_vcase_1993_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[4] = r1; r1 = ((object******) lenv) [1][1][1][1][1][19]; r0[1] = r1[2]; lenv = r0; goto FUN_expand_vcase_splat_1994_i4756_i4889; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_160; } } PXLL_RETURN(0); } break; default: { goto fatbar_160; } } PXLL_RETURN(0); goto fatbar_160_over; fatbar_160: r0 = allocate (TC_TUPLE, 4); r1 = (object *) constructed_45[0]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][3]; r0[4] = r1; r1 = ((object****) lenv) [1][1][1][19]; r0[1] = r1[2]; lenv = r0; goto FUN_expand_vcase_splat_1994_i4756_i4889; fatbar_160_over: ; PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_159; } } PXLL_RETURN(0); } break; default: { goto fatbar_159; } } PXLL_RETURN(0); goto fatbar_159_over; fatbar_159: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_693; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_159_over: ; PXLL_RETURN(0); L1583: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_vcase_1993_i4756_i4889; r2[2] = lenv; r1[18] = r2; // def expand-vcase*_1994_i4756_i4889 goto L1584; FUN_expand_vcase_splat_1994_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def lambda_12784_i4756_i4889 goto L1585; FUN_lambda_12784_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_692[0]; r0[2] = r1; r1 = (object *) constructed_691[0]; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][4]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1586; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1586: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_2172_i4756_i4889 goto L1587; FUN__24loop_2172_i4756_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1588; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1588: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1589; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1589: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1590; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1590: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_2177_i4756_i4889 goto L1591; FUN_loop_2177_i4756_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][3]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1592; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1592: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = (object *) constructed_690[0]; r2 = r0; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object *) 3; r2 = ((object**) lenv) [1][2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r2 = ((object**) lenv) [1][3]; lenv = ((object *)lenv)[1]; lenv[2] = r1; lenv[3] = r2; goto FUN_loop_2177_i4756_i4889; } else { goto fatbar_158; } PXLL_RETURN(1); } break; default: { goto fatbar_158; } } PXLL_RETURN(0); goto fatbar_158_over; fatbar_158: r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 6); r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r1[4] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; r1[5] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][3]; r1[6] = r2; r2 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][17]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1593; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_nvget_1992_i4756_i4889; L1593: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = (object*)TC_NIL; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[6] = r1; r0 = ((object***) lenv) [1][1][3]; r1 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object**) lenv) [1][2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv = ((object *)lenv)[1]; lenv[2] = r1; lenv[3] = r0; goto FUN_loop_2177_i4756_i4889; fatbar_158_over: ; PXLL_RETURN(0); } PXLL_RETURN(0); L1591: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_2177_i4756_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = (object *) constructed_688[0]; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1594; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_2177_i4756_i4889; L1594: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[5] = r1; r0 = ((object*****) lenv) [1][1][1][1][2]; r1 = r0; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*****) lenv) [1][1][1][1][2] = r0; r0 = ((object*) lenv) [5]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 262; } break; default: { goto fatbar_157; } } goto fatbar_157_over; fatbar_157: r0 = (object *) 6; fatbar_157_over: ; r1 = (object *) 6; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 12); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_669[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = ((object**) lenv) [1][5]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[3] = r1; r1 = (object*)TC_NIL; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1595; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1595: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = (object*)TC_NIL; r0[8] = r1; r1 = ((object*) lenv) [8]; r2 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[9] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [6]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1596; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1596: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [9]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1597; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1597: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[10] = r1; r1 = ((object*) lenv) [10]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[11] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[12] = r1; r0 = ((object*) lenv) [12]; r1 = ((object*) lenv) [11]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object*****) lenv) [1][1][1][1][3] = r0; } else { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1598; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1598: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object*****) lenv) [1][1][1][1][3] = r0; } lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_2172_i4756_i4889; } PXLL_RETURN(0); L1587: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_2172_i4756_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1599; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_2172_i4756_i4889; L1599: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 19); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_660[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1600; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1600: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[6] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[4]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1601; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1601: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1602; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1602: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = ((object*) lenv) [7]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[8] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][8]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][3]; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1603; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1603: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1604; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1604: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[9] = r1; r1 = ((object*) lenv) [9]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[10] = r1; r1 = ((object***) lenv) [1][1][5]; switch (get_case (r1)) { case (UITAG(1)): { r1 = top[198]; } break; default: { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1605; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1605: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; } r0[11] = r1; r1 = (object*)TC_NIL; r0[12] = r1; r1 = ((object*) lenv) [12]; r2 = ((object*) lenv) [11]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[13] = r1; r1 = ((object*) lenv) [13]; r2 = ((object*) lenv) [10]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[14] = r1; r1 = ((object*) lenv) [14]; r2 = ((object*) lenv) [8]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[15] = r1; r1 = ((object*) lenv) [15]; r2 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[16] = r1; r1 = ((object*) lenv) [16]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[17] = r1; r1 = ((object*) lenv) [17]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[18] = r1; r1 = ((object*) lenv) [18]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[19] = r1; r0 = ((object*) lenv) [19]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); L1585: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_12784_i4756_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_2135_i1298_i4756_i4889 goto L1606; FUN_loop_2135_i1298_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [5]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 5); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object*) lenv) [4]; r0[4] = r1; r1 = (object*)UITAG(1); r0[5] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_646[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r3 = ((object*****) lenv) [1][1][1][1][3]; r4 = r2; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; t = alloc_no_clear (UOTAG(0),1); t[1] = r4; r2 = t; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1607; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_expand_1982_i4756_i4889; L1607: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object********) lenv) [1][1][1][1][1][1][1][4]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = ((object******) lenv) [1][1][1][1][1][3]; lenv = ((object ******)lenv)[1][1][1][1][1][1]; lenv[2] = r2; lenv[3] = r1; lenv[4] = r0; lenv[5] = r3; goto FUN_loop_2135_i1298_i4756_i4889; } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_156; } } PXLL_RETURN(0); } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_156; } } PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_686[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object****) lenv) [1][1][1][3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 5); r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = (object *) constructed_646[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r3; r3 = t; r4 = ((object***) lenv) [1][1][3]; r5 = r3; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; t = alloc_no_clear (UOTAG(0),1); t[1] = r5; r3 = t; r2[2] = r3; r3 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][8]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1608; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_expand_1982_i4756_i4889; L1608: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; r0[5] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_156; } } PXLL_RETURN(0); } else { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_156; } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_156; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_156; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_156; } } PXLL_RETURN(0); } break; } PXLL_RETURN(0); goto fatbar_156_over; fatbar_156: r0 = allocate (TC_TUPLE, 3); r1 = (object *) 1; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [5]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1609; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L1609: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[99]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1610; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_pp_439; L1610: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_687; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_156_over: ; PXLL_RETURN(0); L1606: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_2135_i1298_i4756_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 5); r1 = (object *) constructed_684[0]; r0[2] = r1; r1 = (object *) constructed_683[0]; r0[3] = r1; r1 = (object *) constructed_682[0]; r0[4] = r1; r1 = ((object***) lenv) [1][1][4]; r0[5] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_2135_i1298_i4756_i4889; L1584: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_vcase_splat_1994_i4756_i4889; r2[2] = lenv; r1[19] = r2; // def wrap-with-constructors_1997_i4756_i4889 goto L1611; FUN_wrap_with_constructors_1997_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_681[0]; r0[2] = r1; r1 = (object *) constructed_680[0]; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_13049_i4756_i4889 goto L1612; FUN_lambda_13049_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); // def lambda_13046_i4756_i4889 goto L1613; FUN_lambda_13046_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = ((object****) lenv) [1][1][1][3]; r4 = ((pxll_vector*)r4)->val[7]; r3[2] = r4; r4 = ((object*) lenv) [2]; r4 = ((object*) lenv) [2]; r4 = UOBJ_GET(r4,0); r3[3] = r4; r4 = ((object***) lenv) [1][1][2]; r4 = ((object***) lenv) [1][1][2]; r4 = UOBJ_GET(r4,0); r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_679; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1614; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L1614: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1615; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L1615: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object***) lenv) [1][1][2] = r0; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object***) lenv) [1][1][3]; r2 = ((pxll_vector*)r2)->val[7]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r2 = ((pxll_vector*)r2)->val[0]; r1[4] = r2; r2 = ((object******) lenv) [1][1][1][1][1][21]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1616; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_constructor_1998_i4756_i4889; L1616: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object***) lenv) [1][1][3] = r0; PXLL_RETURN(0); L1613: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_13046_i4756_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [3]; r1 = ((pxll_vector*)r1)->val[6]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1612: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_13049_i4756_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[71]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1617; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; L1617: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 4); r1 = allocate (TC_TUPLE, 3); r2 = top[3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1618; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1618: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[4] = r1; r1 = ((object***) lenv) [1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_wrap_fix_1975_i4756_i4889; L1611: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_wrap_with_constructors_1997_i4756_i4889; r2[2] = lenv; r1[20] = r2; // def make-constructor_1998_i4756_i4889 goto L1619; FUN_make_constructor_1998_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 21); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_2229_i4756_i4889 goto L1620; FUN__24loop_2229_i4756_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 4); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1621; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L1621: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_678; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1622; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L1622: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1623; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L1623: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[3] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_2229_i4756_i4889; } PXLL_RETURN(0); L1620: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_2229_i4756_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1624; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_2229_i4756_i4889; L1624: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = (object *) constructed_648[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 6); r3[1] = lenv; lenv = r3; r4 = ((object***) lenv) [1][1][2]; r4 = ((object***) lenv) [1][1][2]; r4 = UOBJ_GET(r4,0); r3[2] = r4; r4 = ((object***) lenv) [1][1][3]; r4 = ((object***) lenv) [1][1][3]; r4 = UOBJ_GET(r4,0); r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_677; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r3 = ((object*) lenv) [6]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1625; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L1625: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1626; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L1626: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[6] = r1; r1 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[7] = r1; r1 = (object *) 6; t = alloc_no_clear (UOTAG(4),1); t[1] = r1; r1 = t; r0[8] = r1; r1 = (object *) constructed_335[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[9] = r1; r1 = ((object**) lenv) [1][3]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(9),2); t[1] = r2; t[2] = r1; r1 = t; r0[10] = r1; r1 = (object*)TC_NIL; r0[11] = r1; r1 = ((object*) lenv) [11]; r2 = ((object*) lenv) [10]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[12] = r1; r1 = ((object*) lenv) [12]; r2 = ((object*) lenv) [9]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[13] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [13]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1627; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1627: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1628; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1628: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[14] = r1; r1 = ((object*) lenv) [14]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[15] = r1; r1 = (object*)TC_NIL; r0[16] = r1; r1 = ((object*) lenv) [16]; r2 = ((object*) lenv) [15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[17] = r1; r1 = ((object*) lenv) [17]; r2 = ((object*) lenv) [8]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[18] = r1; r1 = ((object*) lenv) [18]; r2 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[19] = r1; r1 = ((object*) lenv) [19]; r2 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[20] = r1; r1 = ((object*) lenv) [20]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[21] = r1; r0 = ((object*) lenv) [21]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); L1619: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_make_constructor_1998_i4756_i4889; r2[2] = lenv; r1[21] = r2; // def make-alt_1999_i4756_i4889 goto L1629; FUN_make_alt_1999_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); // def lambda_13183_i4756_i4889 goto L1630; FUN_lambda_13183_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[115]; r0[1] = r1[2]; lenv = r0; goto FUN_parse_type_splat_469; L1630: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_13183_i4756_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object**) lenv) [1][4]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1631; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1631: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1632; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1632: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (UOTAG(5), 4); r1 = ((object*) lenv) [3]; r0[1] = r1; r1 = (object *) 1; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; PXLL_RETURN(0); L1629: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_make_alt_1999_i4756_i4889; r2[2] = lenv; r1[22] = r2; // def parse-normal-definition_2005_i4756_i4889 goto L1633; FUN_parse_normal_definition_2005_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [5]; switch (get_case (r0)) { case (UOTAG(4)): { r0 = (object *) 14; } break; default: { goto fatbar_155; } } goto fatbar_155_over; fatbar_155: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][5]; r3[2] = r4; r4 = top[95]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1634; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_repr_435; L1634: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_676; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_675; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1635; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1635: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 3); r5 = ((object***) lenv) [1][1][5]; r4[2] = r5; r5 = top[207]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L1636; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; lenv = r5[2]; goto *r5[1]; L1636: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[3] = r5; r5 = top[115]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1637; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_parse_type_splat_469; L1637: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[111]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1638; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_type_repr_464; L1638: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_674; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_673; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1639; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1639: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; fatbar_155_over: ; r0 = allocate (UOTAG(1), 2); r1 = ((object*) lenv) [2]; r0[1] = r1; r1 = allocate (TC_TUPLE, 11); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_648[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[3] = r2; r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = ((object***) lenv) [1][1][4]; r2[3] = r3; r3 = ((object***) lenv) [1][1][6]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1640; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_find_definitions_1980_i4756_i4889; L1640: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = (object*)TC_NIL; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r2 = ((object*) lenv) [7]; r3 = ((object**) lenv) [1][5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[8] = r2; r2 = ((object*) lenv) [8]; r3 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[9] = r2; r2 = ((object*) lenv) [9]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[10] = r2; r2 = ((object*) lenv) [10]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[11] = r2; r1 = ((object*) lenv) [11]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; PXLL_RETURN(0); L1633: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_parse_normal_definition_2005_i4756_i4889; r2[2] = lenv; r1[23] = r2; // def expand-match_2006_i4756_i4889 goto L1641; FUN_expand_match_2006_i4756_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_2286_i4756_i4889 goto L1642; FUN_loop_2286_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = (object *) constructed_671[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 5); r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][8]; r1[3] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1643; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1643: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = ((object***) lenv) [1][1][3]; r1[5] = r2; r2 = top[120]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1644; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_pattern_480; L1644: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*****) lenv) [1][1][1][1][3]; switch (get_case (r1)) { case (TC_NIL): { r1 = (object *) 262; } break; default: { goto fatbar_154; } } goto fatbar_154_over; fatbar_154: r1 = (object *) 6; fatbar_154_over: ; if PXLL_IS_TRUE(r1) { r1 = ((object*) lenv) [2]; } else { r1 = allocate (TC_TUPLE, 7); r1[1] = lenv; lenv = r1; r2 = (object *) constructed_669[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r1 = ((object*) lenv) [7]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; lenv = lenv[1]; } r0[2] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][8]; r0[1] = r1[2]; lenv = r0; goto FUN_expand_1982_i4756_i4889; } break; } PXLL_RETURN(0); } else { goto fatbar_153; } PXLL_RETURN(0); goto fatbar_153_over; fatbar_153: r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; r1 = ((object***) lenv) [1][1][3]; r2 = ((object**) lenv) [1][3]; lenv = ((object **)lenv)[1][1]; lenv[2] = r0; lenv[3] = r1; lenv[4] = r2; goto FUN_loop_2286_i4756_i4889; fatbar_153_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_152; } } PXLL_RETURN(0); goto fatbar_152_over; fatbar_152: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[118]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1645; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_match_var_478; L1645: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = (object*)TC_NIL; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[6] = r1; r0 = ((object****) lenv) [1][1][1][3]; r1 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object***) lenv) [1][1][2]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r2 = ((object**) lenv) [1][3]; lenv = ((object **)lenv)[1][1]; lenv[2] = r1; lenv[3] = r0; lenv[4] = r2; goto FUN_loop_2286_i4756_i4889; fatbar_152_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_151; } } PXLL_RETURN(0); goto fatbar_151_over; fatbar_151: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_672; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_151_over: ; PXLL_RETURN(0); L1642: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_2286_i4756_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = (object *) constructed_667[0]; r0[2] = r1; r1 = (object *) constructed_666[0]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_2286_i4756_i4889; L1641: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_match_2006_i4756_i4889; r2[2] = lenv; r1[24] = r2; // def expand-cinclude_2007_i4756_i4889 goto L1646; FUN_expand_cinclude_2007_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case (r2)) { case (UOTAG(2)): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r1; switch (get_case (r3)) { case (TC_NIL): { r3 = ((object***) lenv) [1][1][2]; r3 = ((pxll_vector*)r3)->val[1]; r4 = r3; r5 = r2; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r3 = t; r4 = ((object***) lenv) [1][1][2]; ((pxll_vector*)r4)->val[1] = r3; r3 = (object *) constructed_646[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r3; r3 = t; r4 = (object*)TC_NIL; r5 = r4; r6 = r3; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r5 = t; r6 = r5; t = alloc_no_clear (UOTAG(0),1); t[1] = r6; r6 = t; PXLL_RETURN(6); } break; default: { goto fatbar_150; } } PXLL_RETURN(3); } break; default: { goto fatbar_150; } } PXLL_RETURN(2); } break; default: { goto fatbar_150; } } PXLL_RETURN(0); goto fatbar_150_over; fatbar_150: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_665; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_150_over: ; PXLL_RETURN(0); L1646: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_cinclude_2007_i4756_i4889; r2[2] = lenv; r1[25] = r2; // def expand-cverbatim_2008_i4756_i4889 goto L1647; FUN_expand_cverbatim_2008_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case (r2)) { case (UOTAG(2)): { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r1; switch (get_case (r3)) { case (TC_NIL): { r3 = ((object***) lenv) [1][1][2]; r3 = ((pxll_vector*)r3)->val[2]; r4 = r3; r5 = r2; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r3 = t; r4 = ((object***) lenv) [1][1][2]; ((pxll_vector*)r4)->val[2] = r3; r3 = (object *) constructed_646[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r3; r3 = t; r4 = (object*)TC_NIL; r5 = r4; r6 = r3; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r5 = t; r6 = r5; t = alloc_no_clear (UOTAG(0),1); t[1] = r6; r6 = t; PXLL_RETURN(6); } break; default: { goto fatbar_149; } } PXLL_RETURN(3); } break; default: { goto fatbar_149; } } PXLL_RETURN(2); } break; default: { goto fatbar_149; } } PXLL_RETURN(0); goto fatbar_149_over; fatbar_149: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_664; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_149_over: ; PXLL_RETURN(0); L1647: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand_cverbatim_2008_i4756_i4889; r2[2] = lenv; r1[26] = r2; // def expand-%nvcase_2009_i4756_i4889 goto L1648; FUN_expand__percentnvcase_2009_i4756_i4889: check_heap (0); r0 = (object *) constructed_660[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r0; r0 = t; r1 = ((object*) lenv) [2]; r2 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r2 = r1; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; PXLL_RETURN(2); L1648: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand__percentnvcase_2009_i4756_i4889; r2[2] = lenv; r1[27] = r2; // def expand-%%cexp_2010_i4756_i4889 goto L1649; FUN_expand__percent_percentcexp_2010_i4756_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = (object *) constructed_662[0]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[4] = r1; r1 = (object*)TC_NIL; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object*) lenv) [6]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[8] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][8]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1650; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1650: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[9] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [8]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1651; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1651: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [9]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1652; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1652: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[10] = r1; r0 = ((object*) lenv) [10]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_148; } } PXLL_RETURN(0); } break; default: { goto fatbar_148; } } PXLL_RETURN(0); goto fatbar_148_over; fatbar_148: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_663; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_148_over: ; PXLL_RETURN(0); L1649: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_expand__percent_percentcexp_2010_i4756_i4889; r2[2] = lenv; r1[28] = r2; r2 = allocate (TC_TUPLE, 13); r2[1] = lenv; lenv = r2; r3 = (object*)UITAG(0); r2[2] = r3; r3 = ((object**) lenv) [1][28]; r4 = ((object*) lenv) [2]; r5 = (object *) constructed_662[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[3] = r3; r3 = ((object**) lenv) [1][27]; r4 = ((object*) lenv) [3]; r5 = (object *) constructed_660[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[4] = r3; r3 = ((object**) lenv) [1][26]; r4 = ((object*) lenv) [4]; r5 = (object *) constructed_658[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[5] = r3; r3 = ((object**) lenv) [1][25]; r4 = ((object*) lenv) [5]; r5 = (object *) constructed_656[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[6] = r3; r3 = ((object**) lenv) [1][24]; r4 = ((object*) lenv) [6]; r5 = (object *) constructed_654[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[7] = r3; r3 = ((object**) lenv) [1][13]; r4 = ((object*) lenv) [7]; r5 = (object *) constructed_652[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[8] = r3; r3 = ((object**) lenv) [1][18]; r4 = ((object*) lenv) [8]; r5 = (object *) constructed_650[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[9] = r3; r3 = ((object**) lenv) [1][15]; r4 = ((object*) lenv) [9]; r5 = (object *) constructed_648[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[10] = r3; r3 = ((object**) lenv) [1][14]; r4 = ((object*) lenv) [10]; r5 = (object *) constructed_632[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[11] = r3; r3 = ((object**) lenv) [1][12]; r4 = ((object*) lenv) [11]; r5 = (object *) constructed_646[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[12] = r3; r3 = ((object**) lenv) [1][11]; r4 = ((object*) lenv) [12]; r5 = (object *) constructed_644[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r5; t[2] = r3; t[3] = r4; r3 = t; r2[13] = r3; r2 = ((object**) lenv) [1][10]; r3 = ((object*) lenv) [13]; r4 = (object *) constructed_642[0]; t = alloc_no_clear (UOTAG(1),3); t[1] = r4; t[2] = r2; t[3] = r3; r2 = t; lenv = lenv[1]; r1[29] = r2; r1 = ((object*) lenv) [2]; lenv = lenv[1]; r0[7] = r1; r1 = top[174]; r1 = ((pxll_vector*)r1)->val[1]; r2 = (object *) 3; range_check (GET_TUPLE_LENGTH(*(object*)r1), unbox(r2)); r1 = ((pxll_vector*)r1)->val[unbox(r2)]; r0[8] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [8]; r1[2] = r2; r2 = (object *) 11778; r1[3] = r2; r2 = top[53]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1653; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_split_356; L1653: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[9] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [9]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1654; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1654: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[10] = r1; r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][10]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1655; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1655: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object*) &constructed_640; r2[3] = r3; r3 = top[54]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1656; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_compare_357; L1656: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object *) 1; r3 = ((object*) lenv) [3]; r2 = PXLL_TEST(unbox(r3)==unbox(r2)); r1[4] = r2; r1 = (object *) 6; r2 = ((object*) lenv) [4]; r1 = PXLL_TEST(r2==r1); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_638; r1[2] = r2; r2 = ((object*) lenv) [8]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1657; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L1657: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][10]; r3[2] = r4; r4 = top[24]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1658; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_cdr_312; L1658: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1659; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1659: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; r2 = (object*) &constructed_639; r1[3] = r2; r2 = top[52]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1660; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_join_355; L1660: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } r0[11] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object*)TC_NIL; r3 = r2; r4 = (object*) &constructed_637; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object*) lenv) [11]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r2 = t; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1661; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1661: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[12] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [8]; r1[2] = r2; r2 = top[89]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1662; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_read_file_427; L1662: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[13] = r1; r1 = ((object*) lenv) [13]; r0[14] = r1; r1 = allocate (TC_TUPLE, 4); r2 = top[2]; r1[2] = r2; r2 = ((object*) lenv) [14]; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r3 = ((pxll_vector*)r3)->val[16]; r2[2] = r3; r3 = top[89]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1663; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_read_file_427; L1663: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = top[42]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1664; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_foldr_334; L1664: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[15] = r1; r1 = ((object*) lenv) [15]; r0[16] = r1; r1 = ((object*) lenv) [16]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[17] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[11]; r1 = ((pxll_vector*)r1)->val[7]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [17]; r1[3] = r2; r2 = top[99]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1665; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pp_439; L1665: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = top[167]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1666; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L1666: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = (object *) 14; } else { r1 = (object *) 14; } r0[18] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [17]; r1[2] = r2; r2 = ((object*) lenv) [7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1667; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1667: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[19] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[11]; r1 = ((pxll_vector*)r1)->val[7]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [19]; r1[3] = r2; r2 = top[99]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1668; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pp_439; L1668: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = top[167]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1669; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L1669: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = (object *) 14; } else { r1 = (object *) 14; } r0[20] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [19]; r1[2] = r2; r2 = top[141]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1670; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_521; L1670: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[21] = r1; r1 = ((object*) lenv) [21]; r0[22] = r1; r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; // def shadow_2666_i4763_i4889 goto L1671; FUN_shadow_2666_i4763_i4889: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*)TC_NIL; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[0]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[29]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1672; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_member_eq_question_321; L1672: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1673; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_shadow_2666_i4763_i4889; L1673: ; lenv = k[2]; k = k[1]; r0 = result; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; PXLL_RETURN(1); } else { r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_shadow_2666_i4763_i4889; } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1671: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_shadow_2666_i4763_i4889; r2[2] = lenv; r1[2] = r2; // def lookup_2667_i4763_i4889 goto L1674; FUN_lookup_2667_i4763_i4889: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = r0; r2 = ((pxll_vector*)r2)->val[0]; r3 = r2; r4 = ((object*) lenv) [2]; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = r0; r2 = ((pxll_vector*)r2)->val[1]; PXLL_RETURN(2); } else { r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = r1; r2[3] = r3; r3 = ((object**) lenv) [1][3]; r2[1] = r3[2]; lenv = r2; goto FUN_lookup_2667_i4763_i4889; } PXLL_RETURN(2); } break; } PXLL_RETURN(0); L1674: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lookup_2667_i4763_i4889; r2[2] = lenv; r1[3] = r2; // def walk_2668_i4763_i4889 goto L1675; FUN_walk_2668_i4763_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); // def lambda_17195_i4763_i4889 goto L1676; FUN_lambda_17195_i4763_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def lambda_17082_i4763_i4889 goto L1677; FUN_lambda_17082_i4763_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[18]; r0[1] = r1[2]; lenv = r0; goto FUN_throw_299; L1677: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_17082_i4763_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1678; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_shadow_2666_i4763_i4889; L1678: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][3] = r0; lenv = lenv[1]; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1679; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_shadow_2666_i4763_i4889; L1679: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][3] = r0; lenv = lenv[1]; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1680; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_shadow_2666_i4763_i4889; L1680: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][3] = r0; lenv = lenv[1]; } break; case (UOTAG(11)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (UOTAG(4), 2); r2 = ((object**) lenv) [1][2]; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = ((object******) lenv) [1][1][1][1][1][3]; r2[3] = r3; r3 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1681; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_lookup_2667_i4763_i4889; L1681: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object*****) lenv) [1][1][1][1][3] = r0; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r3 = ((object*****) lenv) [1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1682; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1682: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1683; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_2668_i4763_i4889; L1683: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1684; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1684: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1685; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lookup_2667_i4763_i4889; L1685: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; lenv = lenv[1]; r1 = ((object*****) lenv) [1][1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; lenv = lenv[1]; } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1686; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lookup_2667_i4763_i4889; L1686: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r0; r0 = t; lenv = lenv[1]; r1 = ((object*****) lenv) [1][1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; lenv = lenv[1]; } break; default: { goto fatbar_147; } } goto fatbar_147_over; fatbar_147: r0 = (object *) 14; fatbar_147_over: ; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_17185_i4763_i4889 goto L1687; FUN_lambda_17185_i4763_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[1] = r1[2]; lenv = r0; goto FUN_walk_2668_i4763_i4889; L1687: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_17185_i4763_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[36]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1688; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_map_328; L1688: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object***) lenv) [1][1][2]; ((pxll_vector*)r1)->val[3] = r0; r0 = ((object***) lenv) [1][1][2]; PXLL_RETURN(0); L1676: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_17195_i4763_i4889; r1[2] = lenv; r0[2] = r1; r1 = top[17]; r0[1] = r1[2]; lenv = r0; goto FUN_callcc_298; L1675: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_walk_2668_i4763_i4889; r2[2] = lenv; r1[4] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][22]; r1[2] = r2; r2 = (object *) constructed_636[0]; r1[3] = r2; r2 = ((object*) lenv) [4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1689; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_2668_i4763_i4889; L1689: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[23] = r1; r1 = (object *) 1; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; ((object*) lenv) [17] = r1; r0[24] = r1; r1 = (object *) 1; t = alloc_no_clear (UOTAG(5),1); t[1] = r1; r1 = t; ((object*) lenv) [19] = r1; r0[25] = r1; r1 = (object *) constructed_635[0]; ((object*) lenv) [13] = r1; r0[26] = r1; r1 = (object *) constructed_634[0]; ((object*) lenv) [15] = r1; r0[27] = r1; r1 = ((object*) lenv) [23]; r0[28] = r1; r1 = top[175]; r0[29] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = top[117]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1690; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_counter_474; L1690: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[30] = r1; r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; // def add_2613_i1789_i4766_i4889 goto L1691; FUN_add_2613_i1789_i4766_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][30]; r2 = ((pxll_vector*)r2)->val[1]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1692; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L1692: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[144]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1693; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_vardef_525; L1693: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 5); r1 = ((object****) lenv) [1][1][1][29]; r0[2] = r1; r1 = top[86]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[5] = r1; r1 = top[76]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1694; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finsert_409; L1694: ; lenv = k[2]; k = k[1]; r0 = result; ((object****) lenv) [1][1][1][29] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L1691: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_add_2613_i1789_i4766_i4889; r2[2] = lenv; r1[2] = r2; // def lookup_2614_i1789_i4766_i4889 goto L1695; FUN_lookup_2614_i1789_i4766_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object***) lenv) [1][1][29]; r0[2] = r1; r1 = top[86]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = top[77]; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2fmember_411; L1695: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lookup_2614_i1789_i4766_i4889; r2[2] = lenv; r1[3] = r2; // def get_2615_i1789_i4766_i4889 goto L1696; FUN_get_2615_i1789_i4766_i4889: r0 = ((object**) lenv) [1][29]; PXLL_RETURN(0); L1696: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_2615_i1789_i4766_i4889; r2[2] = lenv; r1[4] = r2; r1 = allocate (UOTAG(3), 3); r2 = ((object*) lenv) [2]; r1[1] = r2; r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; lenv = lenv[1]; r0[31] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def rename_2622_i4766_i4889 goto L1697; FUN_rename_2622_i4766_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def lookup_2628_i4766_i4889 goto L1698; FUN_lookup_2628_i4766_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop0_2630_i4766_i4889 goto L1699; FUN_loop0_2630_i4766_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*)UITAG(1); PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop1_2634_i4766_i4889 goto L1700; FUN_loop1_2634_i4766_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object***) lenv) [1][1][3]; lenv = ((object ***)lenv)[1][1][1]; lenv[2] = r0; goto FUN_loop0_2630_i4766_i4889; } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,16)]; r3 = r2; r4 = ((object******) lenv) [1][1][1][1][1][2]; r2 = PXLL_TEST(r4==r3); if PXLL_IS_TRUE(r2) { r2 = r0; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; PXLL_RETURN(2); } else { r2 = r1; lenv[2] = r2; goto FUN_loop1_2634_i4766_i4889; } PXLL_RETURN(2); } break; } PXLL_RETURN(0); L1700: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop1_2634_i4766_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop1_2634_i4766_i4889; } break; } PXLL_RETURN(0); L1699: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop0_2630_i4766_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop0_2630_i4766_i4889; L1698: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lookup_2628_i4766_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][31]; r2 = ((pxll_vector*)r2)->val[0]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1701; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1701: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1702; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lookup_2628_i4766_i4889; L1702: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; switch (get_case (r1)) { case (UITAG(1)): { r1 = (object *) constructed_632[0]; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 4); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object*****) lenv) [1][1][1][1][2]; r5 = ((pxll_vector*)r5)->val[1]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1703; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L1703: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_630; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1704; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L1704: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[84]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1705; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string__3esymbol_421; L1705: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = ((object*) lenv) [2]; } } break; default: { r1 = ((object*) lenv) [5]; r1 = UOBJ_GET(r1,0); r2 = r1; r1 = ((pxll_vector*)r2)->val[2]; } break; } r0[6] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); // def lambda_16787_i4766_i4889 goto L1706; FUN_lambda_16787_i4766_i4889: r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; PXLL_RETURN(0); L1706: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_16787_i4766_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object**) lenv) [1][4]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1707; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1707: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r1 = ((object**) lenv) [1][6]; t = alloc_no_clear (UOTAG(7),2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r2 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_16672_i1798_i4766_i4889 goto L1708; FUN_lambda_16672_i1798_i4766_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_rename_2622_i4766_i4889; L1708: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_16672_i1798_i4766_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; } break; case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][31]; r2 = ((pxll_vector*)r2)->val[0]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1709; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1709: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); // def lambda_16820_i4766_i4889 goto L1710; FUN_lambda_16820_i4766_i4889: r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; PXLL_RETURN(0); L1710: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_16820_i4766_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1711; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1711: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(10),1); t[1] = r0; r0 = t; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r2 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_16672_i1801_i4766_i4889 goto L1712; FUN_lambda_16672_i1801_i4766_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_rename_2622_i4766_i4889; L1712: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_16672_i1801_i4766_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[129]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1713; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unpack_fix_506; L1713: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = (object *) constructed_633[0]; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1714; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1714: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][5]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_2656_i4766_i4889 goto L1715; FUN__24loop_2656_i4766_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1716; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1716: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][4]; r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r3 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; r0[3] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1717; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_rename_2622_i4766_i4889; L1717: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object******) lenv) [1][1][1][1][1][2]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1718; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L1718: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][31]; r2 = ((pxll_vector*)r2)->val[0]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1719; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1719: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object****) lenv) [1][1][1][4] = r0; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_2656_i4766_i4889; } PXLL_RETURN(0); L1715: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_2656_i4766_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1720; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_2656_i4766_i4889; L1720: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); // def lambda_16904_i4766_i4889 goto L1721; FUN_lambda_16904_i4766_i4889: r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[2]; PXLL_RETURN(0); L1721: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_16904_i4766_i4889; r2[2] = lenv; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][4]; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1722; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1722: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1723; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1723: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(9),1); t[1] = r0; r0 = t; lenv = lenv[1]; r1 = ((object*****) lenv) [1][1][1][1][2]; ((pxll_vector*)r1)->val[4] = r0; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [4]; r2 = ((object*****) lenv) [1][1][1][1][3]; r3 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_rename_2622_i4766_i4889; } break; } PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1724; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lookup_2628_i4766_i4889; L1724: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object *) 14; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = r0; r1 = ((pxll_vector*)r1)->val[2]; r2 = r1; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r1 = t; r2 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r2)->val[4] = r1; PXLL_RETURN(1); } break; } PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1725; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lookup_2628_i4766_i4889; L1725: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object *) 14; } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; r1 = ((pxll_vector*)r1)->val[2]; r2 = r1; t = alloc_no_clear (UOTAG(1),1); t[1] = r2; r1 = t; r2 = ((object*****) lenv) [1][1][1][1][2]; ((pxll_vector*)r2)->val[4] = r1; } break; } lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_16672_i1812_i4766_i4889 goto L1726; FUN_lambda_16672_i1812_i4766_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_rename_2622_i4766_i4889; L1726: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_16672_i1812_i4766_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; } break; default: { goto fatbar_146; } } PXLL_RETURN(0); goto fatbar_146_over; fatbar_146: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_16672_i1813_i4766_i4889 goto L1727; FUN_lambda_16672_i1813_i4766_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_rename_2622_i4766_i4889; L1727: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_16672_i1813_i4766_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; fatbar_146_over: ; PXLL_RETURN(0); L1697: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_rename_2622_i4766_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][28]; r1[2] = r2; r2 = (object *) constructed_629[0]; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1728; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_rename_2622_i4766_i4889; L1728: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[32] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [23]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[154]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1729; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_do_one_round_562; L1729: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[33] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [33]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[154]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1730; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_do_one_round_562; L1730: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[34] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object*)UITAG(5); r1[2] = r2; r2 = (object *) constructed_628[0]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1731; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L1731: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*) lenv) [21] = r1; r0[35] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object*)UITAG(5); r1[2] = r2; r2 = (object *) constructed_627[0]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1732; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L1732: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*) lenv) [23] = r1; r0[36] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object*)UITAG(5); r1[2] = r2; r2 = (object *) constructed_626[0]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1733; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L1733: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*) lenv) [33] = r1; r0[37] = r1; r1 = top[175]; r2 = ((object*) lenv) [2]; ((pxll_vector*)r2)->val[6] = r1; r0[38] = r1; r1 = ((object*) lenv) [34]; r0[39] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def search_4004_i4771_i4889 goto L1734; FUN_search_4004_i4771_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UITAG(8)): { r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[0]; r2 = top[203]; r3 = r1; r1 = PXLL_TEST((unbox(r3)&(1<0); } break; default: { goto fatbar_145; } } goto fatbar_145_over; fatbar_145: r1 = (object *) 262; fatbar_145_over: ; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_26472_i4771_i4889 goto L1735; FUN_lambda_26472_i4771_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1736; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_search_4004_i4771_i4889; L1736: ; lenv = k[2]; k = k[1]; r0 = result; r1 = r0; if PXLL_IS_TRUE(r1) { r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[0]; r2 = top[204]; r3 = r1; r1 = box((pxll_int)unbox(r3)|(1<val[0] = r1; } else { r1 = (object *) 14; } r1 = ((object**) lenv) [1][3]; if PXLL_IS_TRUE(r1) { r1 = r0; } else { r1 = (object *) 6; } ((object**) lenv) [1][3] = r1; PXLL_RETURN(1); L1735: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_26472_i4771_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1737; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1737: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [3]; PXLL_RETURN(0); L1734: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_search_4004_i4771_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][39]; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1738; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_search_4004_i4771_i4889; L1738: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; if PXLL_IS_TRUE(r1) { r1 = ((object**) lenv) [1][39]; r1 = ((pxll_vector*)r1)->val[0]; r2 = top[204]; r3 = r1; r1 = box((pxll_int)unbox(r3)|(1<val[0] = r1; } else { r1 = (object *) 14; } lenv = lenv[1]; r0[40] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[11]; r1 = ((pxll_vector*)r1)->val[7]; if PXLL_IS_TRUE(r1) { r1 = (object*) &constructed_625; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_625; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [34]; r1[2] = r2; r2 = top[135]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1739; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pp_node_514; L1739: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = (object *) 14; } else { r1 = (object *) 14; } r0[41] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [34]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[150]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1740; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_build_dependency_graph_546; L1740: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[42] = r1; r1 = (object*) &constructed_624; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_624; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); r1 = (object *) 14; r0[43] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[44] = r1; r1 = (object *) constructed_623[0]; r0[45] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_622[0]; r1[2] = r2; r2 = top[149]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1741; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_symbol_set_maker_545; L1741: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[46] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def visit0_3944_i4774_i4889 goto L1742; FUN_visit0_3944_i4774_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][46]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][46]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[0]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1743; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1743: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][44]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][44]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1744; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1744: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object *) 14; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; // def lambda_25906_i4774_i4889 goto L1745; FUN_lambda_25906_i4774_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][46]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][46]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1746; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1746: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_visit0_3944_i4774_i4889; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L1745: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_25906_i4774_i4889; r1[2] = lenv; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,25)]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1747; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1747: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; } lenv = lenv[1]; r0 = ((object***) lenv) [1][1][45]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object***) lenv) [1][1][45] = r0; PXLL_RETURN(0); L1742: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_visit0_3944_i4774_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][44]; r1[2] = r2; // def lambda_25941_i4774_i4889 goto L1748; FUN_lambda_25941_i4774_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][46]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][46]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1749; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1749: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_visit0_3944_i4774_i4889; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L1748: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_25941_i4774_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object**) lenv) [1][44]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1750; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1750: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = top[86]; r2[2] = r3; r3 = top[208]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1751; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L1751: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object***) lenv) [1][1][44]; r2[2] = r3; // def lambda_25776_i2990_i4774_i4889 goto L1752; FUN_lambda_25776_i2990_i4774_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_621[0]; r1[2] = r2; r2 = top[149]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1753; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_symbol_set_maker_545; L1753: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[0]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1752: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_25776_i2990_i4774_i4889; r3[2] = lenv; r2[3] = r3; r3 = ((object***) lenv) [1][1][44]; r3 = ((pxll_vector*)r3)->val[1]; r3 = ((pxll_vector*)r3)->val[4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1754; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L1754: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = allocate (TC_TUPLE, 3); r3 = ((object***) lenv) [1][1][44]; r2[2] = r3; // def lambda_25827_i2990_i4774_i4889 goto L1755; FUN_lambda_25827_i2990_i4774_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); // def lambda_25819_i2990_i4774_i4889 goto L1756; FUN_lambda_25819_i2990_i4774_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1757; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1757: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 4); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[2] = r2; r2 = top[149]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1758; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_symbol_set_maker_545; L1758: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[0]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,10)]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; } PXLL_RETURN(0); L1756: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_25819_i2990_i4774_i4889; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object*) lenv) [3]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,11)]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1759; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1759: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1755: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_25827_i2990_i4774_i4889; r3[2] = lenv; r2[3] = r3; r3 = ((object***) lenv) [1][1][44]; r3 = ((pxll_vector*)r3)->val[1]; r3 = ((pxll_vector*)r3)->val[4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1760; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L1760: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = (object *) constructed_620[0]; r2[2] = r3; r3 = top[149]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1761; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_symbol_set_maker_545; L1761: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = (object *) constructed_619[0]; r1[5] = r2; r2 = allocate (TC_TUPLE, 2); r3 = (object *) constructed_618[0]; r2[2] = r3; r3 = top[149]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1762; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_symbol_set_maker_545; L1762: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[6] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def visit1_3955_i4774_i4889 goto L1763; FUN_visit1_3955_i4774_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[0]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1764; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1764: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][3]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1765; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1765: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object *) 14; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; // def lambda_25987_i4774_i4889 goto L1766; FUN_lambda_25987_i4774_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1767; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1767: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_visit1_3955_i4774_i4889; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L1766: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_25987_i4774_i4889; r1[2] = lenv; r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,25)]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1768; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1768: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; } lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][6]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][6]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,56)]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,10)]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1763: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_visit1_3955_i4774_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_3960_i4774_i4889 goto L1769; FUN__24loop_3960_i4774_i4889: check_heap (0); r0 = ((object*****) lenv) [1][1][1][1][45]; r1 = r0; switch (get_case (r1)) { case (TC_NIL): { r1 = (object *) 262; } break; default: { goto fatbar_144; } } goto fatbar_144_over; fatbar_144: r1 = (object *) 6; fatbar_144_over: ; r2 = (object *) 6; r3 = r1; r0 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object******) lenv) [1][1][1][1][1][45]; switch (get_case (r1)) { case (TC_NIL): { r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_617; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_617; result=r1; goto Lreturn; } break; default: { r1 = ((object******) lenv) [1][1][1][1][1][45]; r1 = UOBJ_GET(r1,0); r2 = ((object******) lenv) [1][1][1][1][1][45]; r2 = UOBJ_GET(r2,1); r3 = r2; ((object******) lenv) [1][1][1][1][1][45] = r3; } break; } r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][4]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1770; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1770: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object *) constructed_616[0]; r0[2] = r1; r1 = top[149]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1771; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_symbol_set_maker_545; L1771: ; lenv = k[2]; k = k[1]; r0 = result; ((object****) lenv) [1][1][1][6] = r0; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1772; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_visit1_3955_i4774_i4889; L1772: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object*****) lenv) [1][1][1][1][6]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][6]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,56)]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,11)]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1773; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1773: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][5]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object****) lenv) [1][1][1][5] = r0; } else { r0 = (object *) 14; } lenv = lenv[1]; goto FUN__24loop_3960_i4774_i4889; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L1769: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_3960_i4774_i4889; r2[2] = lenv; r1[2] = r2; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1774; t[4] = r0; k = t; lenv = r1[2]; goto FUN__24loop_3960_i4774_i4889; L1774: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r1 = ((object**) lenv) [1][5]; lenv = lenv[1]; lenv = lenv[1]; lenv = lenv[1]; r0[47] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[11]; r1 = ((pxll_vector*)r1)->val[7]; if PXLL_IS_TRUE(r1) { r1 = ((object*) lenv) [47]; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object *) 14; } else { r1 = (object *) 14; } r0[48] = r1; r1 = ((object*) lenv) [47]; r2 = ((object*) lenv) [2]; ((pxll_vector*)r2)->val[15] = r1; r0[49] = r1; r1 = (object*) &constructed_615; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_615; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); r1 = (object *) 14; r0[50] = r1; r1 = ((object*) lenv) [34]; r0[51] = r1; r1 = allocate (TC_TUPLE, 16); r1[1] = lenv; lenv = r1; // def unify_3326_i4777_i4889 goto L1775; FUN_unify_3326_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; // def type-error_3366_i4777_i4889 goto L1776; FUN_type_error_3366_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = top[16]; r4[2] = r5; r5 = allocate (TC_TUPLE, 5); r5[1] = lenv; lenv = r5; r6 = ((object******) lenv) [1][1][1][1][1][2]; r6 = ((pxll_vector*)r6)->val[1]; r5[2] = r6; r6 = (object *) 61; ensure_heap (6, unbox(r6)); r6 = (object*) &constructed_614; r7 = (object *) 61; if (unbox(r7) == 0) { r6 = (object *) TC_EMPTY_VECTOR; } else { t = alloc_no_clear (TC_VECTOR, unbox(r7)); for (i=0; ival[unbox(r0)]; r1 = ((object****) lenv) [1][1][1][2]; r2 = r1; r3 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r0 = t; ((object****) lenv) [1][1][1][2] = r0; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_2444_i2300_i4777_i4889; } PXLL_RETURN(0); L1779: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_2444_i2300_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1780; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_2444_i2300_i4777_i4889; L1780: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; L1778: r6 = allocate (TC_CLOSURE, 2); r6[1] = &&FUN_result_2440_i2300_i4777_i4889; r6[2] = lenv; r5[2] = r6; // def loop_2446_i2300_i4777_i4889 goto L1781; FUN_loop_2446_i2300_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1782; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L1782: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[132]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1783; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_format_node_511; L1783: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object****) lenv) [1][1][1][2]; r2 = ((object******) lenv) [1][1][1][1][1][3]; range_check (GET_TUPLE_LENGTH(*(object*)r2), unbox(r1)); ((pxll_vector*)r2)->val[unbox(r1)] = r0; r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 5; r2 = (object *) 61; r1 = box((pxll_int)unbox(r2)/unbox(r1)); r2 = r1; r3 = r0; r0 = PXLL_TEST(unbox(r3)==unbox(r2)); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object *) 3; r2 = ((object****) lenv) [1][1][1][2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_result_2440_i2300_i4777_i4889; } else { r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)>unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = (object *) 262; } else { r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[1]; r1 = ((object******) lenv) [1][1][1][1][1][2]; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); } if PXLL_IS_TRUE(r0) { r0 = ((object******) lenv) [1][1][1][1][1][4]; r1 = (object *) 3; r2 = r0; r0 = box((pxll_int)unbox(r2)+unbox(r1)); ((object******) lenv) [1][1][1][1][1][4] = r0; r0 = (object *) 3; r1 = ((object****) lenv) [1][1][1][2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); r1 = (object *) 61; r2 = r0; r0 = box((pxll_int)unbox(r2) % unbox(r1)); lenv = ((object ***)lenv)[1][1][1]; lenv[2] = r0; goto FUN_loop_2446_i2300_i4777_i4889; } else { r0 = (object *) 3; r1 = ((object****) lenv) [1][1][1][2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); r1 = (object *) 61; r2 = r0; r0 = box((pxll_int)unbox(r2) % unbox(r1)); lenv = ((object ***)lenv)[1][1][1]; lenv[2] = r0; goto FUN_loop_2446_i2300_i4777_i4889; } PXLL_RETURN(0); } PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_result_2440_i2300_i4777_i4889; } break; } PXLL_RETURN(0); L1781: r6 = allocate (TC_CLOSURE, 2); r6[1] = &&FUN_loop_2446_i2300_i4777_i4889; r6[2] = lenv; r5[3] = r6; r5 = allocate (TC_TUPLE, 2); r6 = (object *) 1; r5[2] = r6; r6 = ((object*) lenv) [3]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L1784; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_loop_2446_i2300_i4777_i4889; L1784: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; lenv = lenv[1]; lenv = lenv[1]; r4[3] = r5; r5 = top[36]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1785; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_map_328; L1785: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*) &constructed_613; r3[3] = r4; r4 = top[52]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1786; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_string_join_355; L1786: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_612; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1787; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1787: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object*****) lenv) [1][1][1][1][2]; r4 = ((pxll_vector*)r4)->val[1]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1788; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L1788: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_611; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_610; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1789; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1789: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[148]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1790; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_apply_subst_538; L1790: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[148]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1791; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_apply_subst_538; L1791: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][2]; r3[2] = r4; r4 = top[111]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1792; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_type_repr_464; L1792: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][3]; r3[2] = r4; r4 = top[111]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1793; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_type_repr_464; L1793: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_609; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_608; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_607; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1794; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1794: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_606; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_606; result=r0; goto Lreturn; PXLL_RETURN(0); L1776: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_type_error_3366_i4777_i4889; r1[2] = lenv; r0[2] = r1; // def U_3367_i4777_i4889 goto L1795; FUN__55_3367_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); // def lambda_21620_i4777_i4889 goto L1796; FUN_lambda_21620_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; // def lambda_21434_i4777_i4889 goto L1797; FUN_lambda_21434_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[18]; r0[1] = r1[2]; lenv = r0; goto FUN_throw_299; L1797: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_21434_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = top[113]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1798; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_find_467; L1798: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = top[113]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1799; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_find_467; L1799: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [4]; r1 = ((object*) lenv) [3]; r0 = PXLL_TEST(r1==r0); r1 = (object *) 6; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = (object *) 14; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object**) lenv) [1][4]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = (object *) 14; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_605[0]; r1 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) constructed_605[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 14; } else { goto fatbar_138; } goto fatbar_138_over; fatbar_138: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1800; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1800: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object***) lenv) [1][1][4]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1801; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__55_3367_i4777_i4889; L1801: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1802; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1802: ; lenv = k[2]; k = k[1]; r0 = result; fatbar_138_over: ; } else { goto fatbar_137; } goto fatbar_137_over; fatbar_137: r0 = (object *) constructed_605[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [3]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1803; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L1803: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1804; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__55_3367_i4777_i4889; L1804: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1805; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1805: ; lenv = k[2]; k = k[1]; r0 = result; } else { goto fatbar_139; } goto fatbar_139_over; fatbar_139: r0 = (object *) constructed_536[0]; r1 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][4]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1806; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__55_row_3371_i4777_i4889; L1806: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1807; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1807: ; lenv = k[2]; k = k[1]; r0 = result; } else { goto fatbar_140; } goto fatbar_140_over; fatbar_140: r0 = (object *) constructed_536[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][4]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1808; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__55_row_3371_i4777_i4889; L1808: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1809; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1809: ; lenv = k[2]; k = k[1]; r0 = result; } else { goto fatbar_141; } goto fatbar_141_over; fatbar_141: r0 = (object *) constructed_591[0]; r1 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][4]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1810; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__55_row_3371_i4777_i4889; L1810: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1811; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1811: ; lenv = k[2]; k = k[1]; r0 = result; } else { goto fatbar_142; } goto fatbar_142_over; fatbar_142: r0 = (object *) constructed_591[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][4]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1812; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__55_row_3371_i4777_i4889; L1812: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1813; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1813: ; lenv = k[2]; k = k[1]; r0 = result; } else { goto fatbar_143; } goto fatbar_143_over; fatbar_143: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1814; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_3d_question_3369_i4777_i4889; L1814: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = (object *) 262; } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1815; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1815: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1816; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1816: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); r0[4] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [4]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1817; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_type_error_3366_i4777_i4889; L1817: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } fatbar_143_over: ; fatbar_142_over: ; fatbar_141_over: ; fatbar_140_over: ; fatbar_139_over: ; fatbar_137_over: ; lenv = lenv[1]; } break; } lenv = lenv[1]; } break; } r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[114]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1818; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_type_union_468; L1818: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r0 = ((object**) lenv) [1][4]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][4]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = top[40]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each2_332; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_136; } } PXLL_RETURN(0); } break; default: { goto fatbar_136; } } PXLL_RETURN(0); goto fatbar_136_over; fatbar_136: r0 = (object *) 14; PXLL_RETURN(0); fatbar_136_over: ; PXLL_RETURN(0); } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L1796: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_21620_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = top[17]; r0[1] = r1[2]; lenv = r0; goto FUN_callcc_298; L1795: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__55_3367_i4777_i4889; r1[2] = lenv; r0[3] = r1; // def maybe-alias_3368_i4777_i4889 goto L1819; FUN_maybe_alias_3368_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[0]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1820; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L1820: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1819: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_maybe_alias_3368_i4777_i4889; r1[2] = lenv; r0[4] = r1; // def pred=?_3369_i4777_i4889 goto L1821; FUN_pred_3d_question_3369_i4777_i4889: check_heap (0); r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 262; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1822; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_maybe_alias_3368_i4777_i4889; L1822: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1823; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_maybe_alias_3368_i4777_i4889; L1823: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); PXLL_RETURN(0); } PXLL_RETURN(0); L1821: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_pred_3d_question_3369_i4777_i4889; r1[2] = lenv; r0[5] = r1; // def U-row_3371_i4777_i4889 goto L1824; FUN__55_row_3371_i4777_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_591[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object***) lenv) [1][1][3]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_591[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_133; } } PXLL_RETURN(0); } break; default: { goto fatbar_133; } } PXLL_RETURN(0); } else { goto fatbar_133; } PXLL_RETURN(0); goto fatbar_133_over; fatbar_133: r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1825; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1825: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_3410_i4777_i4889 goto L1826; FUN__24loop_3410_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][3]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1827; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L1827: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_3410_i4777_i4889; } PXLL_RETURN(0); L1826: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_3410_i4777_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1828; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_3410_i4777_i4889; L1828: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1829; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1829: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1830; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; L1830: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_3415_i4777_i4889 goto L1831; FUN__24loop_3415_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1832; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1832: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object*****) lenv) [1][1][1][1][4]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1833; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L1833: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_591[0]; r1[2] = r2; r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1834; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1834: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1835; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; L1835: ; lenv = k[2]; k = k[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_3415_i4777_i4889; } PXLL_RETURN(0); L1831: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_3415_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_3415_i4777_i4889; fatbar_133_over: ; PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_132; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_132; } } PXLL_RETURN(0); } break; default: { goto fatbar_132; } } PXLL_RETURN(0); } else { goto fatbar_132; } PXLL_RETURN(0); goto fatbar_132_over; fatbar_132: r0 = (object *) constructed_536[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*****) lenv) [1][1][1][1][3]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object******) lenv) [1][1][1][1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_536[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0 = UOBJ_GET(r0,0); r1 = ((object***) lenv) [1][1][2]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = ((object***) lenv) [1][1][2]; r1 = UOBJ_GET(r1,0); r2 = r1; r3 = r0; r1 = PXLL_TEST(r3==r2); r0 = r1; } break; default: { goto fatbar_135; } } } break; default: { goto fatbar_135; } } goto fatbar_135_over; fatbar_135: r0 = (object *) 6; fatbar_135_over: ; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1836; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; L1836: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1837; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L1837: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = ((object*) lenv) [2]; r1[4] = r2; r2 = top[110]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1838; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_rlabel_460; L1838: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1839; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; L1839: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r1[3] = r2; r2 = ((object*) lenv) [2]; r1[4] = r2; r2 = top[110]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1840; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_rlabel_460; L1840: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_134; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_134; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_134; } } PXLL_RETURN(0); } break; default: { goto fatbar_134; } } PXLL_RETURN(0); } else { goto fatbar_134; } PXLL_RETURN(0); goto fatbar_134_over; fatbar_134: r0 = (object *) constructed_591[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1841; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L1841: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1842; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; L1842: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; } else { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1843; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1843: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_3434_i4777_i4889 goto L1844; FUN__24loop_3434_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][3]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1845; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L1845: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_3434_i4777_i4889; } PXLL_RETURN(0); L1844: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_3434_i4777_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1846; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_3434_i4777_i4889; L1846: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_3439_i4777_i4889 goto L1847; FUN__24loop_3439_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][5]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1848; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L1848: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_3439_i4777_i4889; } PXLL_RETURN(0); L1847: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_3439_i4777_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1849; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_3439_i4777_i4889; L1849: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[6] = r1; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1850; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1850: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[3] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1851; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; L1851: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*) lenv) [6]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1852; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1852: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1853; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; L1853: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_3444_i4777_i4889 goto L1854; FUN__24loop_3444_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1855; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1855: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][4]; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1856; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L1856: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][6]; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1857; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L1857: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = top[110]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1858; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_rlabel_460; L1858: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1859; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; L1859: ; lenv = k[2]; k = k[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_3444_i4777_i4889; } PXLL_RETURN(0); L1854: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_3444_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_3444_i4777_i4889; } PXLL_RETURN(0); fatbar_134_over: ; PXLL_RETURN(0); } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_131; } } PXLL_RETURN(0); } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_131; } } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_131; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_131; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_131; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_131; } PXLL_RETURN(0); fatbar_132_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_131; } } PXLL_RETURN(0); goto fatbar_131_over; fatbar_131: r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_type_error_3366_i4777_i4889; fatbar_131_over: ; PXLL_RETURN(0); L1824: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__55_row_3371_i4777_i4889; r1[2] = lenv; r0[6] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][3]; r0[2] = r1; r1 = ((object**) lenv) [1][4]; r0[3] = r1; r1 = ((object*) lenv) [3]; r0[1] = r1[2]; lenv = r0; goto FUN__55_3367_i4777_i4889; L1775: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_unify_3326_i4777_i4889; r2[2] = lenv; r1[2] = r2; // def instantiate-type-scheme_3327_i4777_i4889 goto L1860; FUN_instantiate_type_scheme_3327_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); // def lambda_22128_i4777_i4889 goto L1861; FUN_lambda_22128_i4777_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1862; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L1862: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object**) lenv) [1][3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } break; default: { goto fatbar_130; } } PXLL_RETURN(0); goto fatbar_130_over; fatbar_130: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_603; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_603; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_130_over: ; PXLL_RETURN(0); L1861: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_22128_i4777_i4889; r2[2] = lenv; r1[2] = r2; r2 = (object*)UITAG(0); r1[3] = r2; r2 = ((object**) lenv) [1][2]; r1[4] = r2; r2 = top[42]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1863; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_foldr_334; L1863: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def walk_3452_i4777_i4889 goto L1864; FUN_walk_3452_i4777_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1865; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1865: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1866; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L1866: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = ((object**) lenv) [1][2]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1864: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_walk_3452_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_walk_3452_i4777_i4889; L1860: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_instantiate_type_scheme_3327_i4777_i4889; r2[2] = lenv; r1[3] = r2; // def occurs-in-type_3328_i4777_i4889 goto L1867; FUN_occurs_in_type_3328_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); // def lambda_22224_i4777_i4889 goto L1868; FUN_lambda_22224_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def lambda_22189_i4777_i4889 goto L1869; FUN_lambda_22189_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[18]; r0[1] = r1[2]; lenv = r0; goto FUN_throw_299; L1869: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_22189_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = ((object***) lenv) [1][1][3]; r1 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) 262; PXLL_RETURN(0); } else { r0 = ((object***) lenv) [1][1][3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = (object *) 6; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_22210_i4777_i4889 goto L1870; FUN_lambda_22210_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1871; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_occurs_in_type_3328_i4777_i4889; L1871: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object *) 262; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L1870: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_22210_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1872; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1872: ; lenv = k[2]; k = k[1]; r0 = (object *) 6; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } PXLL_RETURN(0); L1868: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_22224_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = top[17]; r0[1] = r1[2]; lenv = r0; goto FUN_callcc_298; L1867: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_occurs_in_type_3328_i4777_i4889; r2[2] = lenv; r1[4] = r2; // def occurs-free-in-tenv_3329_i4777_i4889 goto L1873; FUN_occurs_free_in_tenv_3329_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); // def lambda_22273_i4777_i4889 goto L1874; FUN_lambda_22273_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def lambda_22234_i4777_i4889 goto L1875; FUN_lambda_22234_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[18]; r0[1] = r1[2]; lenv = r0; goto FUN_throw_299; L1875: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_22234_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_22265_i4777_i4889 goto L1876; FUN_lambda_22265_i4777_i4889: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[29]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1877; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_member_eq_question_321; L1877: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1878; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_occurs_in_type_3328_i4777_i4889; L1878: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object *) 262; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1876: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_22265_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = top[71]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1879; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; L1879: ; lenv = k[2]; k = k[1]; r0 = (object *) 6; PXLL_RETURN(0); L1874: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_22273_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = top[17]; r0[1] = r1[2]; lenv = r0; goto FUN_callcc_298; L1873: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_occurs_free_in_tenv_3329_i4777_i4889; r2[2] = lenv; r1[5] = r2; // def build-type-scheme_3330_i4777_i4889 goto L1880; FUN_build_type_scheme_3330_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = (object *) constructed_602[0]; r1[2] = r2; r2 = top[206]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1881; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1881: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def find-generic-tvars_3478_i4777_i4889 goto L1882; FUN_find_generic_tvars_3478_i4777_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1883; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_occurs_free_in_tenv_3329_i4777_i4889; L1883: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[0]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; } break; } PXLL_RETURN(0); L1882: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_find_generic_tvars_3478_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = top[148]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1884; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_apply_subst_538; L1884: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1885; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_find_generic_tvars_3478_i4777_i4889; L1885: ; lenv = k[2]; k = k[1]; r0 = allocate (UOTAG(2), 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1886; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1886: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[1] = r1; r1 = ((object*) lenv) [2]; r0[2] = r1; PXLL_RETURN(0); L1880: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_build_type_scheme_3330_i4777_i4889; r2[2] = lenv; r1[6] = r2; // def type-of*_3331_i4777_i4889 goto L1887; FUN_type_of_splat_3331_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r0[4] = r1; r1 = ((object****) lenv) [1][1][1][8]; r0[1] = r1[2]; lenv = r0; goto FUN_type_of_literal_3334_i4777_i4889; } break; case (UOTAG(3)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1888; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_instantiate_type_scheme_3327_i4777_i4889; L1888: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_92[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1889; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1889: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)-unbox(r1)); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*****) lenv) [1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1890; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1890: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [3]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); r0[5] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [5]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_544; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } else { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_545; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_22768_i2363_i4777_i4889 goto L1891; FUN_lambda_22768_i2363_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1892; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_type_of_splat_3331_i4777_i4889; L1892: ; lenv = k[2]; k = k[1]; r0 = result; r1 = r0; r2 = ((object*) lenv) [2]; ((pxll_vector*)r2)->val[5] = r1; r1 = r0; PXLL_RETURN(1); L1891: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_22768_i2363_i4777_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1893; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1893: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 4); // def lambda_22781_i2363_i4777_i4889 goto L1894; FUN_lambda_22781_i2363_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][9]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1895; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unraw_3335_i4777_i4889; L1895: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r0[4] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L1894: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_22781_i2363_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object*) lenv) [4]; r0[4] = r1; r1 = top[40]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1896; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each2_332; L1896: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_87; } PXLL_RETURN(0); } break; default: { goto fatbar_87; } } PXLL_RETURN(0); goto fatbar_87_over; fatbar_87: r0 = ((object*) lenv) [4]; PXLL_RETURN(0); fatbar_87_over: ; PXLL_RETURN(0); } break; case (UITAG(6)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); // def lambda_22815_i2369_i4777_i4889 goto L1897; FUN_lambda_22815_i2369_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][7]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1898; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_type_of_splat_3331_i4777_i4889; L1898: ; lenv = k[2]; k = k[1]; r0 = result; r1 = r0; r2 = ((object*) lenv) [2]; ((pxll_vector*)r2)->val[5] = r1; r1 = r0; PXLL_RETURN(1); L1897: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_22815_i2369_i4777_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1899; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1899: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 4); r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[195]; r0[4] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1900; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L1900: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 4); r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1901; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L1901: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_88; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_88; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_88; } } PXLL_RETURN(0); } break; default: { goto fatbar_88; } } PXLL_RETURN(0); goto fatbar_88_over; fatbar_88: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_546; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_88_over: ; PXLL_RETURN(0); } break; case (UITAG(5)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3557_i2371_i4777_i4889 goto L1902; FUN_loop_3557_i2371_i4777_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_547; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_547; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r1; switch (get_case (r2)) { case (TC_NIL): { r2 = allocate (TC_TUPLE, 3); r3 = r0; r2[2] = r3; r3 = ((object*****) lenv) [1][1][1][1][3]; r2[3] = r3; r3 = ((object******) lenv) [1][1][1][1][1][7]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1903; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_type_of_splat_3331_i4777_i4889; L1903: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r3 = r2; r4 = r0; ((pxll_vector*)r4)->val[5] = r3; r3 = r2; PXLL_RETURN(3); } break; default: { goto fatbar_89; } } PXLL_RETURN(2); goto fatbar_89_over; fatbar_89: r2 = allocate (TC_TUPLE, 3); r3 = r0; r2[2] = r3; r3 = ((object*****) lenv) [1][1][1][1][3]; r2[3] = r3; r3 = ((object******) lenv) [1][1][1][1][1][7]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1904; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_type_of_splat_3331_i4777_i4889; L1904: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r3 = r2; r4 = r0; ((pxll_vector*)r4)->val[5] = r3; r2 = r1; lenv[2] = r2; goto FUN_loop_3557_i2371_i4777_i4889; fatbar_89_over: ; PXLL_RETURN(2); } break; } PXLL_RETURN(0); L1902: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3557_i2371_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3557_i2371_i4777_i4889; } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1905; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L1905: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[5]; r0[4] = r1; r1 = ((object***) lenv) [1][1][3]; r0[5] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [4]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [4]; r1 = UOBJ_GET(r1,1); r2 = (object *) constructed_551[0]; r3 = r0; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = r1; switch (get_case (r2)) { case (TC_NIL): { r2 = (object *) 262; } break; default: { goto fatbar_90; } } r0 = r2; } else { goto fatbar_90; } } break; default: { goto fatbar_90; } } goto fatbar_90_over; fatbar_90: r0 = (object *) 6; fatbar_90_over: ; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_549[0]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_22943_i2375_i4777_i4889 goto L1906; FUN_lambda_22943_i2375_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1907; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L1907: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; ((object***) lenv) [1][1][2] = r0; r0 = allocate (UOTAG(2), 2); r1 = (object *) constructed_548[0]; r0[1] = r1; r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = r0; r2 = ((object****) lenv) [1][1][1][5]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r0 = t; ((object****) lenv) [1][1][1][5] = r0; PXLL_RETURN(0); L1906: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_22943_i2375_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1908; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1908: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][5]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1909; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L1909: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object***) lenv) [1][1][3]; ((pxll_vector*)r2)->val[5] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1910; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1910: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_92[0]; r0[2] = r1; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; } else { r0 = ((object*) lenv) [4]; PXLL_RETURN(0); } PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][10]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1911; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_apply_tenv_3341_i4777_i4889; L1911: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1912; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L1912: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][10]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1913; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_apply_tenv_3341_i4777_i4889; L1913: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1914; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L1914: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [3]; ((pxll_vector*)r2)->val[5] = r1; r1 = ((object*) lenv) [5]; r0[6] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object*) lenv) [6]; r0[4] = r1; r1 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1915; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L1915: ; lenv = k[2]; k = k[1]; r0 = top[194]; PXLL_RETURN(0); } break; case (UITAG(8)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); // def lambda_23034_i2386_i4777_i4889 goto L1916; FUN_lambda_23034_i2386_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][7]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1917; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_type_of_splat_3331_i4777_i4889; L1917: ; lenv = k[2]; k = k[1]; r0 = result; r1 = r0; r2 = ((object*) lenv) [2]; ((pxll_vector*)r2)->val[5] = r1; r1 = r0; PXLL_RETURN(1); L1916: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_23034_i2386_i4777_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1918; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L1918: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1919; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L1919: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_92[0]; r1[2] = r2; r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1920; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L1920: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1921; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L1921: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [4]; PXLL_RETURN(0); } break; default: { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_552; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_552; result=r0; goto Lreturn; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 17); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[4] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[15]; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1922; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1922: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = allocate (TC_TUPLE, 2); r2 = top[86]; r1[2] = r2; r2 = top[208]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1923; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1923: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [6]; r1[2] = r2; r2 = top[34]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1924; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_range_326; L1924: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[8] = r1; r1 = (object *) constructed_560[0]; r0[9] = r1; r1 = (object *) constructed_559[0]; r0[10] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][6]; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_3972_i2392_i4777_i4889 goto L1925; FUN__24loop_3972_i2392_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 4); r1 = ((object****) lenv) [1][1][1][7]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1926; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1926: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (UOTAG(2), 2); r2 = (object *) 6; r1[1] = r2; r2 = ((object*) lenv) [2]; r1[2] = r2; r0[4] = r1; r1 = ((object****) lenv) [1][1][1][7]; r1 = ((pxll_vector*)r1)->val[1]; r1 = ((pxll_vector*)r1)->val[0]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1927; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L1927: ; lenv = k[2]; k = k[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_3972_i2392_i4777_i4889; } PXLL_RETURN(0); L1925: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_3972_i2392_i4777_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1928; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_3972_i2392_i4777_i4889; L1928: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 3); // def lambda_26192_i2392_i4777_i4889 goto L1929; FUN_lambda_26192_i2392_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][10]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1930; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1930: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)>unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = ((object**) lenv) [1][9]; r1 = ((object**) lenv) [1][10]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; ((object**) lenv) [1][9] = r0; r0 = (object *) constructed_558[0]; ((object**) lenv) [1][10] = r0; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 3); // def lambda_26187_i2392_i4777_i4889 goto L1931; FUN_lambda_26187_i2392_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][7]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][7]; r2 = ((pxll_vector*)r2)->val[1]; r2 = ((pxll_vector*)r2)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1932; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L1932: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = (object *) 14; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[0]; r1 = (object *) 6; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[1]; r1 = ((object*****) lenv) [1][1][1][1][10]; r2 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*****) lenv) [1][1][1][1][10] = r0; r0 = (object *) 262; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[0] = r0; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[1]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][8]; r0[3] = r1; r1 = top[30]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1933; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_remove_eq_322; L1933: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][8] = r0; PXLL_RETURN(0); } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L1931: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_26187_i2392_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1929: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_26192_i2392_i4777_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object*) lenv) [5]; r1[3] = r2; r2 = top[39]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1934; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_for_each_331; L1934: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][10]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1935; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L1935: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)>unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = ((object*) lenv) [9]; r2 = ((object*) lenv) [10]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; ((object*) lenv) [9] = r1; } else { r1 = (object *) 14; } r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][8]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1936; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L1936: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)>unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = ((object*) lenv) [9]; r2 = ((object*) lenv) [8]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; ((object*) lenv) [9] = r1; } else { r1 = (object *) 14; } r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [9]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1937; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1937: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[11] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1938; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1938: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[12] = r1; r1 = (object *) constructed_557[0]; r0[13] = r1; r1 = (object *) constructed_556[0]; r0[14] = r1; r1 = (object *) constructed_555[0]; r0[15] = r1; r1 = (object *) 1; r0[16] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_26285_i2391_i4777_i4889 goto L1939; FUN_lambda_26285_i2391_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_554[0]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_26271_i2391_i4777_i4889 goto L1940; FUN_lambda_26271_i2391_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1941; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1941: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*****) lenv) [1][1][1][1][13]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object****) lenv) [1][1][1][13] = r0; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1942; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1942: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*****) lenv) [1][1][1][1][14]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object****) lenv) [1][1][1][14] = r0; r0 = ((object**) lenv) [1][2]; r1 = ((object****) lenv) [1][1][1][16]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; ((object**) lenv) [1][2] = r0; r0 = (object *) 3; r1 = ((object****) lenv) [1][1][1][16]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); ((object****) lenv) [1][1][1][16] = r0; PXLL_RETURN(0); L1940: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_26271_i2391_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1943; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1943: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1944; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L1944: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object****) lenv) [1][1][1][15]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object***) lenv) [1][1][15] = r0; PXLL_RETURN(0); L1939: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_26285_i2391_i4777_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object*) lenv) [11]; r1[3] = r2; r2 = top[39]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1945; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_for_each_331; L1945: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (UOTAG(6), 4); r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [13]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1946; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1946: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [14]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1947; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1947: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [4]; r2[2] = r3; r3 = ((object*) lenv) [12]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1948; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L1948: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [15]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1949; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1949: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r0[17] = r1; r0 = ((object*) lenv) [17]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][17]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][17]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][17]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object**) lenv) [1][17]; r1 = UOBJ_GET(r1,3); r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1950; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1950: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[47]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1951; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_list__3evector_341; L1951: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[47]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1952; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_list__3evector_341; L1952: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[8] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][6]; r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; // def $loop_3604_i2390_i4777_i4889 goto L1953; FUN__24loop_3604_i2390_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1954; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L1954: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_3604_i2390_i4777_i4889; } PXLL_RETURN(0); L1953: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN__24loop_3604_i2390_i4777_i4889; r3[2] = lenv; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) 1; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1955; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN__24loop_3604_i2390_i4777_i4889; L1955: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; lenv = lenv[1]; r1[2] = r2; r2 = top[47]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1956; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_list__3evector_341; L1956: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[9] = r1; r1 = ((object*) lenv) [6]; ensure_heap (1, unbox(r1)); r1 = top[202]; r2 = ((object*) lenv) [6]; if (unbox(r2) == 0) { r1 = (object *) TC_EMPTY_VECTOR; } else { t = alloc_no_clear (TC_VECTOR, unbox(r2)); for (i=0; ival[unbox(r0)]; r1 = allocate (UOTAG(2), 2); r2 = (object *) constructed_553[0]; r1[1] = r2; r2 = ((object*) lenv) [2]; r3 = ((object****) lenv) [1][1][1][9]; range_check (GET_TUPLE_LENGTH(*(object*)r3), unbox(r2)); r2 = ((pxll_vector*)r3)->val[unbox(r2)]; r1[2] = r2; r2 = r1; r3 = ((object*) lenv) [3]; r4 = r0; t = alloc_no_clear (UOTAG(1),3); t[1] = r4; t[2] = r2; t[3] = r3; r2 = t; PXLL_RETURN(2); L1958: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_23146_i2390_i4777_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r1[3] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1959; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L1959: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = top[42]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1960; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_foldr_334; L1960: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_23178_i2390_i4777_i4889 goto L1961; FUN_lambda_23178_i2390_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r2 = ((object*****) lenv) [1][1][1][1][8]; range_check (GET_TUPLE_LENGTH(*(object*)r2), unbox(r1)); r1 = ((pxll_vector*)r2)->val[unbox(r1)]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1962; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L1962: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; ((pxll_vector*)r2)->val[5] = r1; r1 = ((object*) lenv) [3]; r0[4] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r3 = ((object*****) lenv) [1][1][1][1][8]; range_check (GET_TUPLE_LENGTH(*(object*)r3), unbox(r2)); r2 = ((pxll_vector*)r3)->val[unbox(r2)]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = ((object**) lenv) [1][2]; r3 = ((object*****) lenv) [1][1][1][1][9]; range_check (GET_TUPLE_LENGTH(*(object*)r3), unbox(r2)); r2 = ((pxll_vector*)r3)->val[unbox(r2)]; r1[4] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1963; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_unify_3326_i4777_i4889; L1963: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = top[148]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1964; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_apply_subst_538; L1964: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r0 = ((object**) lenv) [1][2]; r1 = ((object*) lenv) [6]; r2 = ((object*****) lenv) [1][1][1][1][10]; range_check (GET_TUPLE_LENGTH(*(object*)r2), unbox(r0)); ((pxll_vector*)r2)->val[unbox(r0)] = r1; PXLL_RETURN(0); L1961: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_23178_i2390_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1965; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1965: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_23199_i2390_i4777_i4889 goto L1966; FUN_lambda_23199_i2390_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r3 = ((object*****) lenv) [1][1][1][1][10]; range_check (GET_TUPLE_LENGTH(*(object*)r3), unbox(r2)); r2 = ((pxll_vector*)r3)->val[unbox(r2)]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1967; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_build_type_scheme_3330_i4777_i4889; L1967: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][2]; r1 = ((object*****) lenv) [1][1][1][1][7]; range_check (GET_TUPLE_LENGTH(*(object*)r1), unbox(r0)); r0 = ((pxll_vector*)r1)->val[unbox(r0)]; r1 = ((object*) lenv) [2]; r2 = ((object******) lenv) [1][1][1][1][1][3]; r3 = r0; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r0 = t; ((object******) lenv) [1][1][1][1][1][3] = r0; PXLL_RETURN(0); L1966: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_23199_i2390_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1957: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_23206_i2390_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1968; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L1968: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [4]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][7]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1969; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_type_of_splat_3331_i4777_i4889; L1969: ; lenv = k[2]; k = k[1]; r0 = result; r1 = r0; r2 = ((object*) lenv) [4]; ((pxll_vector*)r2)->val[5] = r1; r1 = r0; PXLL_RETURN(1); } break; } PXLL_RETURN(0); } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1970; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L1970: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[5] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_3625_i2424_i4777_i4889 goto L1971; FUN__24loop_3625_i2424_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][5]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1972; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1972: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1973; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1973: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1974; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L1974: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [2]; ((pxll_vector*)r2)->val[5] = r1; r1 = ((object*) lenv) [4]; r0[5] = r1; r0 = allocate (UOTAG(2), 2); r1 = (object *) constructed_561[0]; r0[1] = r1; r1 = ((object*) lenv) [5]; r0[2] = r1; r1 = r0; r2 = ((object*****) lenv) [1][1][1][1][3]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r0 = t; ((object*****) lenv) [1][1][1][1][3] = r0; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_3625_i2424_i4777_i4889; } PXLL_RETURN(0); L1971: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_3625_i2424_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1975; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_3625_i2424_i4777_i4889; L1975: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][5]; r1[2] = r2; r2 = ((object**) lenv) [1][4]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1976; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L1976: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1977; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L1977: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[5] = r0; r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; case (UOTAG(12)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[4] = r1; r0 = (object *) constructed_499[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1978; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L1978: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][2]; ((pxll_vector*)r2)->val[5] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r3 = ((object******) lenv) [1][1][1][1][1][3]; r2[3] = r3; r3 = ((object*******) lenv) [1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1979; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_type_of_splat_3331_i4777_i4889; L1979: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r3 = r2; r4 = ((object***) lenv) [1][1][2]; ((pxll_vector*)r4)->val[5] = r3; r1[2] = r2; r2 = top[148]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1980; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_apply_subst_538; L1980: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][4]; r4[2] = r5; r5 = top[148]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L1981; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_apply_subst_538; L1981: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[111]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1982; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_type_repr_464; L1982: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_566; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_565; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1983; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L1983: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_563[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 4); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r0[4] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][12]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1984; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_exception_types_3355_i4777_i4889; L1984: ; lenv = k[2]; k = k[1]; r0 = ((object***) lenv) [1][1][3]; PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_93; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_93; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_93; } PXLL_RETURN(0); } break; default: { goto fatbar_93; } } PXLL_RETURN(0); goto fatbar_93_over; fatbar_93: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_564; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = top[111]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1985; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_repr_464; L1985: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_93_over: ; PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_92; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_92; } } PXLL_RETURN(0); } break; default: { goto fatbar_92; } } PXLL_RETURN(0); goto fatbar_92_over; fatbar_92: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_567; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_92_over: ; PXLL_RETURN(0); } else { goto fatbar_91; } PXLL_RETURN(0); goto fatbar_91_over; fatbar_91: r0 = (object *) constructed_501[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = ((object*****) lenv) [1][1][1][1][3]; r2[3] = r3; r3 = ((object******) lenv) [1][1][1][1][1][7]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1986; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_type_of_splat_3331_i4777_i4889; L1986: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r3 = r2; r4 = ((object**) lenv) [1][2]; ((pxll_vector*)r4)->val[5] = r3; r1[2] = r2; r2 = top[148]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L1987; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_apply_subst_538; L1987: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_563[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 4); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r0[4] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][12]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1988; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_exception_types_3355_i4777_i4889; L1988: ; lenv = k[2]; k = k[1]; r0 = ((object***) lenv) [1][1][2]; PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_96; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_96; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_96; } PXLL_RETURN(0); } break; default: { goto fatbar_96; } } PXLL_RETURN(0); goto fatbar_96_over; fatbar_96: r0 = (object*) &constructed_569; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_569; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = top[135]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1989; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_pp_node_514; L1989: ; lenv = k[2]; k = k[1]; r0 = top[167]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L1990; ; k = t; lenv = r0[2]; goto *r0[1]; L1990: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_568; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_96_over: ; PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_95; } } PXLL_RETURN(0); } break; default: { goto fatbar_95; } } PXLL_RETURN(0); goto fatbar_95_over; fatbar_95: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_570; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_95_over: ; PXLL_RETURN(0); } else { goto fatbar_94; } PXLL_RETURN(0); goto fatbar_94_over; fatbar_94: r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_217[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_574[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1991; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L1991: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [5]; r4 = ((object******) lenv) [1][1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1992; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L1992: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_98; } goto fatbar_98_over; fatbar_98: r1 = (object *) constructed_221[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_574[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1993; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L1993: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [3]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1994; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L1994: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_99; } goto fatbar_99_over; fatbar_99: r1 = (object *) constructed_237[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 6); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_503[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1995; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L1995: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object******) lenv) [1][1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = top[191]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [6]; r4 = top[194]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1996; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L1996: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_100; } goto fatbar_100_over; fatbar_100: r1 = (object *) constructed_246[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_503[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L1997; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L1997: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = top[191]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [5]; r4 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1998; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L1998: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_101; } goto fatbar_101_over; fatbar_101: r1 = (object *) constructed_250[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; r3 = (object*)TC_NIL; r2[2] = r3; r3 = ((object*) lenv) [2]; r4 = ((object******) lenv) [1][1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [3]; r4 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L1999; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L1999: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_102; } goto fatbar_102_over; fatbar_102: r1 = (object *) constructed_257[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object***) lenv) [1][1][3]; r2[2] = r3; r3 = top[207]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2000; t[4] = r0; t[5] = r1; t[6] = r2; k = t; lenv = r3[2]; goto *r3[1]; L2000: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = top[115]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2001; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_parse_type_splat_469; L2001: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (UOTAG(2), 2); r2 = (object *) constructed_575[0]; r1[1] = r2; r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_503[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2002; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2002: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = top[191]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2003; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2003: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; lenv = lenv[1]; } else { goto fatbar_103; } goto fatbar_103_over; fatbar_103: r1 = (object *) constructed_321[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(9)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(5)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(5)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_NIL): { r1 = (object *) constructed_45[0]; r2 = ((object*****) lenv) [1][1][1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][11]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2004; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_n_tvars_3351_i4777_i4889; L2004: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[109]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2005; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_new_tvar_455; L2005: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object******) lenv) [1][1][1][1][1][3]; r2[2] = r3; r3 = (object *) constructed_580[0]; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2006; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2006: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = allocate (TC_TUPLE, 4); r3 = ((object*) lenv) [4]; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r3[1] = lenv; lenv = r3; r4 = (object *) 3; r5 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r5)>unbox(r4))) { r4 = allocate (TC_TUPLE, 3); r5 = (object *) constructed_579[0]; r4[2] = r5; r5 = ((object**) lenv) [1][2]; r4[3] = r5; r5 = top[108]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2007; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_pred_453; L2007: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; } else { r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[23]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2008; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_car_311; L2008: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; } r3[2] = r4; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_577[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2009; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2009: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; lenv = lenv[1]; r2[3] = r3; r3 = ((object*) lenv) [3]; r2[4] = r3; r3 = top[110]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2010; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_rlabel_460; L2010: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_563[0]; r2[2] = r3; r3 = (object*)TC_NIL; r4 = r3; r5 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2011; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2011: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[6] = r2; r1 = allocate (UOTAG(2), 2); r2 = ((object*) lenv) [2]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = ((object*****) lenv) [1][1][1][1][2]; r3[3] = r4; r4 = top[31]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2012; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_nth_323; L2012: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object**) lenv) [1][6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2013; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2013: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; lenv = lenv[1]; } else { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r3 = ((object******) lenv) [1][1][1][1][1][2]; r2[3] = r3; r3 = top[69]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2014; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_alist_2flookup_396; L2014: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UITAG(1)): { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_581; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2015; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2015: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*******) lenv) [1][1][1][1][1][1][3]; r2[2] = r3; r3 = ((object*) lenv) [2]; r3 = ((pxll_vector*)r3)->val[1]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2016; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L2016: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object*) lenv) [2]; r2 = ((pxll_vector*)r2)->val[5]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2017; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L2017: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*******) lenv) [1][1][1][1][1][1][2]; r2[2] = r3; r3 = ((object*) lenv) [4]; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2018; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2018: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r1 = allocate (UOTAG(2), 2); r2 = ((object*) lenv) [4]; r1[1] = r2; r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = ((object**) lenv) [1][3]; r4 = ((pxll_vector*)r4)->val[3]; r3[2] = r4; r4 = ((object******) lenv) [1][1][1][1][1][2]; r3[3] = r4; r4 = top[31]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2019; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_nth_323; L2019: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object**) lenv) [1][5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2020; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2020: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; lenv = lenv[1]; } break; } lenv = lenv[1]; } } break; default: { lenv = ((object *******)lenv)[1][1][1][1][1][1][1]; goto fatbar_105; } } lenv = lenv[1]; } break; default: { lenv = ((object ******)lenv)[1][1][1][1][1][1]; goto fatbar_105; } } lenv = lenv[1]; } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_105; } } lenv = lenv[1]; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_105; } } lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_105; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_105; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_105; } } lenv = lenv[1]; } break; default: { goto fatbar_105; } } goto fatbar_105_over; fatbar_105: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_582; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2021; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2021: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_105_over: ; } else { goto fatbar_104; } goto fatbar_104_over; fatbar_104: r1 = (object *) constructed_518[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(5)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][2]; r2[2] = r3; r3 = (object *) constructed_580[0]; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2022; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2022: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[18]; r2[2] = r3; r3 = ((object*****) lenv) [1][1][1][1][2]; r2[3] = r3; r3 = top[69]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2023; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_alist_2flookup_396; L2023: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = (object *) 14; } break; default: { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[18]; r2[2] = r3; r3 = top[73]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2024; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_alist_2flength_403; L2024: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object**************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[18]; r2 = ((object*) lenv) [2]; r3 = r1; r4 = ((object******) lenv) [1][1][1][1][1][2]; t = alloc_no_clear (UOTAG(1),3); t[1] = r4; t[2] = r2; t[3] = r3; r1 = t; r2 = ((object**************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][2]; ((pxll_vector*)r2)->val[18] = r1; lenv = lenv[1]; } break; } lenv = lenv[1]; r1 = (object *) 3; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 4); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = allocate (TC_TUPLE, 3); r5 = (object *) constructed_577[0]; r4[2] = r5; r5 = (object*)TC_NIL; r6 = r5; r7 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r5 = t; r4[3] = r5; r5 = top[108]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2025; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_pred_453; L2025: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][15]; r3[4] = r4; r4 = top[110]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2026; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_rlabel_460; L2026: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_563[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2027; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2027: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2028; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2028: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_108; } goto fatbar_108_over; fatbar_108: r1 = (object *) 1; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 4); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r4[1] = lenv; lenv = r4; r5 = allocate (TC_TUPLE, 3); r6 = (object *) constructed_579[0]; r5[2] = r6; r6 = (object *) constructed_584[0]; r5[3] = r6; r6 = top[108]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2029; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_pred_453; L2029: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r4 = allocate (TC_TUPLE, 3); r5 = (object *) constructed_577[0]; r4[2] = r5; r5 = (object*)TC_NIL; r6 = r5; r7 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r5 = t; r4[3] = r5; r5 = top[108]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2030; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_pred_453; L2030: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; lenv = lenv[1]; r3[3] = r4; r4 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][14]; r3[4] = r4; r4 = top[110]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2031; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_rlabel_460; L2031: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_563[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2032; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2032: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = (object *) constructed_583[0]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2033; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2033: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_109; } goto fatbar_109_over; fatbar_109: r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = top[109]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2034; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_new_tvar_455; L2034: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r3 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][11]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2035; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_n_tvars_3351_i4777_i4889; L2035: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = allocate (UOTAG(2), 2); r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 4); r4 = ((object***) lenv) [1][1][2]; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r4[1] = lenv; lenv = r4; r5 = allocate (TC_TUPLE, 3); r6 = (object *) constructed_579[0]; r5[2] = r6; r6 = ((object***) lenv) [1][1][3]; r5[3] = r6; r6 = top[108]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2036; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_pred_453; L2036: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r4 = allocate (TC_TUPLE, 3); r5 = (object *) constructed_577[0]; r4[2] = r5; r5 = (object*)TC_NIL; r6 = r5; r7 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r5 = t; r4[3] = r5; r5 = top[108]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2037; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_pred_453; L2037: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; lenv = lenv[1]; r3[3] = r4; r4 = ((object**) lenv) [1][2]; r3[4] = r4; r4 = top[110]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2038; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_rlabel_460; L2038: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_563[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2039; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2039: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object**) lenv) [1][3]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2040; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2040: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; lenv = lenv[1]; fatbar_109_over: ; fatbar_108_over: ; lenv = lenv[1]; } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_107; } } lenv = lenv[1]; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_107; } } lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_107; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_107; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_107; } } lenv = lenv[1]; } break; default: { goto fatbar_107; } } goto fatbar_107_over; fatbar_107: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_582; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2041; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2041: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_107_over: ; } else { goto fatbar_106; } goto fatbar_106_over; fatbar_106: r1 = (object *) constructed_335[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (UOTAG(9)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*******) lenv) [1][1][1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[69]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2042; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_alist_2flookup_396; L2042: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r1 = ((object*) lenv) [4]; switch (get_case (r1)) { case (UITAG(1)): { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_585; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2043; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2043: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][4]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r2 = ((pxll_vector*)r2)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2044; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2044: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; } lenv = lenv[1]; } break; default: { goto fatbar_111; } } goto fatbar_111_over; fatbar_111: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_582; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2045; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2045: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_111_over: ; } else { goto fatbar_110; } goto fatbar_110_over; fatbar_110: r1 = (object *) constructed_505[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object******) lenv) [1][1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 6); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 4); r4 = allocate (TC_TUPLE, 3); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = (object *) constructed_580[0]; r4[3] = r5; r5 = top[108]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2046; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_pred_453; L2046: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 3); r5 = (object *) constructed_577[0]; r4[2] = r5; r5 = (object*)TC_NIL; r6 = r5; r7 = ((object*******) lenv) [1][1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r5 = t; r4[3] = r5; r5 = top[108]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2047; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_pred_453; L2047: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = ((object*******) lenv) [1][1][1][1][1][1][15]; r3[4] = r4; r4 = top[110]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2048; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_rlabel_460; L2048: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_587[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2049; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2049: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*******) lenv) [1][1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [6]; r4 = top[194]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2050; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2050: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; lenv = lenv[1]; } break; default: { goto fatbar_113; } } goto fatbar_113_over; fatbar_113: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_582; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2051; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2051: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_113_over: ; } else { goto fatbar_112; } goto fatbar_112_over; fatbar_112: r1 = (object *) constructed_507[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object******) lenv) [1][1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 4); r4 = allocate (TC_TUPLE, 3); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = (object *) constructed_580[0]; r4[3] = r5; r5 = top[108]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2052; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_pred_453; L2052: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 3); r5 = (object *) constructed_577[0]; r4[2] = r5; r5 = (object*)TC_NIL; r6 = r5; r7 = ((object*******) lenv) [1][1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r5 = t; r4[3] = r5; r5 = top[108]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2053; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_pred_453; L2053: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = ((object*******) lenv) [1][1][1][1][1][1][15]; r3[4] = r4; r4 = top[110]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2054; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_rlabel_460; L2054: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_587[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2055; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2055: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*******) lenv) [1][1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2056; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2056: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; lenv = lenv[1]; } break; default: { goto fatbar_115; } } goto fatbar_115_over; fatbar_115: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_582; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2057; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2057: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_115_over: ; } else { goto fatbar_114; } goto fatbar_114_over; fatbar_114: r1 = (object *) constructed_513[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = (object *) constructed_580[0]; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2058; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2058: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object******) lenv) [1][1][1][1][1][16]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object******) lenv) [1][1][1][1][1][15]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 4); r4 = ((object**) lenv) [1][3]; r3[2] = r4; r4 = allocate (TC_TUPLE, 3); r5 = (object *) constructed_577[0]; r4[2] = r5; r5 = (object*)TC_NIL; r6 = r5; r7 = ((object*******) lenv) [1][1][1][1][1][1][16]; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r5 = t; r4[3] = r5; r5 = top[108]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2059; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_pred_453; L2059: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = ((object*******) lenv) [1][1][1][1][1][1][15]; r3[4] = r4; r4 = top[110]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2060; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_rlabel_460; L2060: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_587[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2061; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2061: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = allocate (TC_TUPLE, 4); r4 = ((object**) lenv) [1][3]; r3[2] = r4; r4 = ((object*******) lenv) [1][1][1][1][1][1][14]; r3[3] = r4; r4 = ((object*******) lenv) [1][1][1][1][1][1][15]; r3[4] = r4; r4 = top[110]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2062; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_rlabel_460; L2062: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_587[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2063; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2063: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[5] = r3; r3 = (object*)TC_NIL; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = ((object*******) lenv) [1][1][1][1][1][1][16]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [8]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2064; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2064: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; lenv = lenv[1]; } break; default: { goto fatbar_117; } } goto fatbar_117_over; fatbar_117: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_582; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2065; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2065: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_117_over: ; } else { goto fatbar_116; } goto fatbar_116_over; fatbar_116: r1 = (object *) constructed_262[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object *) constructed_588[0]; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; r3 = (object*)TC_NIL; r2[2] = r3; r3 = ((object*) lenv) [2]; r4 = top[191]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [3]; r4 = top[194]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2066; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2066: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_118; } goto fatbar_118_over; fatbar_118: r1 = (object *) constructed_510[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object *) constructed_595[0]; r1[1] = r2; r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_594[0]; r3[2] = r4; r4 = (object *) constructed_592[0]; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2067; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2067: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_591[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2068; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2068: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_587[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2069; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2069: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = (object *) constructed_589[0]; r4 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2070; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2070: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_119; } goto fatbar_119_over; fatbar_119: r1 = (object *) constructed_293[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 6); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_490[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2071; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2071: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = top[191]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [6]; r4 = top[194]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2072; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2072: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_120; } goto fatbar_120_over; fatbar_120: r1 = (object *) constructed_302[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_490[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2073; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2073: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = top[191]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [5]; r4 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2074; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2074: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_121; } goto fatbar_121_over; fatbar_121: r1 = (object *) constructed_315[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_490[0]; r3[2] = r4; r4 = (object*)TC_NIL; r5 = r4; r6 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r3[3] = r4; r4 = top[108]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2075; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_pred_453; L2075: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = top[191]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2076; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2076: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_122; } goto fatbar_122_over; fatbar_122: r1 = (object *) constructed_525[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = (object *) constructed_596[0]; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2077; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2077: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; } else { goto fatbar_123; } goto fatbar_123_over; fatbar_123: r1 = (object *) constructed_523[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = (object *) constructed_597[0]; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2078; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2078: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; } else { goto fatbar_124; } goto fatbar_124_over; fatbar_124: r1 = (object *) constructed_520[0]; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (UOTAG(2), 2); r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*****) lenv) [1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[1] = r2; r2 = allocate (TC_TUPLE, 4); r2[1] = lenv; lenv = r2; r3 = (object*)TC_NIL; r2[2] = r3; r3 = ((object*) lenv) [2]; r4 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_92[0]; r2[2] = r3; r3 = ((object*) lenv) [4]; r4 = ((object******) lenv) [1][1][1][1][1][14]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2079; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2079: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; } else { goto fatbar_125; } goto fatbar_125_over; fatbar_125: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_598; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2080; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2080: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_125_over: ; fatbar_124_over: ; fatbar_123_over: ; fatbar_122_over: ; fatbar_121_over: ; fatbar_120_over: ; fatbar_119_over: ; fatbar_118_over: ; fatbar_116_over: ; fatbar_114_over: ; fatbar_112_over: ; fatbar_110_over: ; fatbar_106_over: ; fatbar_104_over: ; fatbar_103_over: ; fatbar_102_over: ; fatbar_101_over: ; fatbar_100_over: ; fatbar_99_over: ; fatbar_98_over: ; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2081; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_instantiate_type_scheme_3327_i4777_i4889; L2081: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_92[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2082; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2082: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][4]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2083; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2083: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); r0[4] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [4]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_571; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[3] = r1; r1 = top[15]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2084; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; L2084: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2085; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2085: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_3772_i2430_i4777_i4889 goto L2086; FUN__24loop_3772_i2430_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2087; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2087: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][3]; r1[3] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2088; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L2088: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; ((pxll_vector*)r2)->val[5] = r1; r1 = ((object*) lenv) [3]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2089; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2089: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = ((object*) lenv) [5]; r0[4] = r1; r1 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2090; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2090: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_3772_i2430_i4777_i4889; } PXLL_RETURN(0); L2086: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_3772_i2430_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2091; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_3772_i2430_i4777_i4889; L2091: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_97; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_97; } PXLL_RETURN(0); } break; default: { goto fatbar_97; } } PXLL_RETURN(0); goto fatbar_97_over; fatbar_97: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_572; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_97_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); fatbar_94_over: ; PXLL_RETURN(0); fatbar_91_over: ; PXLL_RETURN(0); } break; case (UOTAG(4)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = (object *) constructed_45[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2092; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L2092: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; r0[5] = r1; r1 = ((object*) lenv) [5]; switch (get_case (r1)) { case (UOTAG(12)): { r1 = ((object*) lenv) [5]; r1 = UOBJ_GET(r1,0); r2 = (object *) constructed_525[0]; r3 = r1; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = (object *) 6; } else { goto fatbar_128; } r1 = r2; goto fatbar_128_over; fatbar_128: r2 = (object *) constructed_523[0]; r3 = r1; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = (object *) 6; } else { goto fatbar_127; } r1 = r2; fatbar_128_over: ; } break; default: { goto fatbar_127; } } goto fatbar_127_over; fatbar_127: r1 = (object *) 262; fatbar_127_over: ; r0[6] = r1; r1 = ((object*) lenv) [6]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_594[0]; r2[2] = r3; r3 = (object *) constructed_592[0]; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2093; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2093: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_591[0]; r1[2] = r2; r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2094; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L2094: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } else { r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2095; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L2095: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } r0[7] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2096; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2096: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_3666_i2635_i4777_i4889 goto L2097; FUN__24loop_3666_i2635_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2098; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2098: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2099; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2099: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object********) lenv) [1][1][1][1][1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2100; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2100: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][11]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2101; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_n_tvars_3351_i4777_i4889; L2101: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = allocate (TC_TUPLE, 4); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) constructed_580[0]; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2102; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L2102: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = (object *) 3; r3 = ((object**) lenv) [1][4]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r3)==unbox(r2))) { r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][5]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2103; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L2103: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } else { r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_579[0]; r2[2] = r3; r3 = ((object**) lenv) [1][5]; r2[3] = r3; r3 = top[108]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2104; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_pred_453; L2104: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_577[0]; r1[2] = r2; r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2105; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L2105: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][7]; r0[4] = r1; r1 = top[110]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2106; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_rlabel_460; L2106: ; lenv = k[2]; k = k[1]; r0 = result; ((object*****) lenv) [1][1][1][1][7] = r0; r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; r1[3] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2107; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L2107: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = r1; r3 = ((object*) lenv) [2]; ((pxll_vector*)r3)->val[5] = r2; r0[4] = r1; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2108; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2108: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_3666_i2635_i4777_i4889; } PXLL_RETURN(0); L2097: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_3666_i2635_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2109; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_3666_i2635_i4777_i4889; L2109: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = ((object*) lenv) [6]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2110; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L2110: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = r1; r3 = ((object*) lenv) [2]; ((pxll_vector*)r3)->val[5] = r2; r0[4] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2111; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2111: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 4); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_563[0]; r1[2] = r2; r2 = (object*)TC_NIL; r3 = r2; r4 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r2 = t; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2112; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L2112: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2113; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L2113: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = r1; r3 = ((object**) lenv) [1][2]; ((pxll_vector*)r3)->val[5] = r2; r0[4] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2114; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2114: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [4]; PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_126; } } PXLL_RETURN(0); } break; default: { goto fatbar_126; } } PXLL_RETURN(0); goto fatbar_126_over; fatbar_126: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_599; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_126_over: ; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 10); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object******) lenv) [1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = (object*) &constructed_600; r1[4] = r2; r2 = top[70]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2115; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2fget_398; L2115: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2116; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2116: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) 3; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2117; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2117: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [3]; r2[2] = r3; r3 = top[24]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2118; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cdr_312; L2118: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2119; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L2119: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2120; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L2120: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [4]; ((pxll_vector*)r2)->val[5] = r1; r1 = ((object*) lenv) [7]; r0[8] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2121; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2121: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[9] = r1; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2122; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L2122: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[10] = r1; r0 = ((object*) lenv) [9]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][9]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][9]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 262; } break; default: { goto fatbar_129; } } goto fatbar_129_over; fatbar_129: r0 = (object *) 6; fatbar_129_over: ; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r1 = ((object**) lenv) [1][8]; r0[3] = r1; r1 = ((object*) lenv) [3]; r0[4] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2123; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2123: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2124; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_instantiate_type_scheme_3327_i4777_i4889; L2124: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][8]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2125; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2125: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } lenv = lenv[1]; } break; } r0 = allocate (TC_TUPLE, 3); // def lambda_23380_i2649_i4777_i4889 goto L2126; FUN_lambda_23380_i2649_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][10]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2127; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L2127: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = r1; r3 = ((object*) lenv) [2]; ((pxll_vector*)r3)->val[5] = r2; r0[4] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2126: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_23380_i2649_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [6]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2128; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2128: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [5]; r0[2] = r1; r1 = ((object*) lenv) [10]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [5]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2129; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_splat_3331_i4777_i4889; L2129: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = r1; r3 = ((object*) lenv) [5]; ((pxll_vector*)r3)->val[5] = r2; r0[4] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2130; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2130: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [10]; PXLL_RETURN(0); } PXLL_RETURN(0); } break; default: { goto fatbar_86; } } PXLL_RETURN(0); goto fatbar_86_over; fatbar_86: r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = top[135]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2131; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_pp_node_514; L2131: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_601; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_86_over: ; PXLL_RETURN(0); L1887: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_type_of_splat_3331_i4777_i4889; r2[2] = lenv; r1[7] = r2; // def type-of-literal_3334_i4777_i4889 goto L2132; FUN_type_of_literal_3334_i4777_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = top[193]; PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = top[191]; PXLL_RETURN(0); } break; case (UOTAG(2)): { r0 = top[192]; PXLL_RETURN(0); } break; case (UITAG(3)): { r0 = top[194]; PXLL_RETURN(0); } break; case (UOTAG(4)): { r0 = top[196]; PXLL_RETURN(0); } break; case (UOTAG(5)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = (object*) &constructed_543; r1[4] = r2; r2 = top[70]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2133; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2fget_398; L2133: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object*) lenv) [5]; r2 = ((pxll_vector*)r2)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2134; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2134: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r0 = ((object*) lenv) [6]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][6]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][6]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2135; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_instantiate_type_scheme_3327_i4777_i4889; L2135: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_92[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2136; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2136: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_3520_i4777_i4889 goto L2137; FUN__24loop_3520_i4777_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = allocate (TC_TUPLE, 3); r3 = ((object********) lenv) [1][1][1][1][1][1][1][4]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2138; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L2138: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r1[4] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2139; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_literal_3334_i4777_i4889; L2139: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2140; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2140: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2141; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2141: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_3520_i4777_i4889; } PXLL_RETURN(0); L2137: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_3520_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2142; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_3520_i4777_i4889; L2142: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_85; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_85; } PXLL_RETURN(0); } break; default: { goto fatbar_85; } } PXLL_RETURN(0); goto fatbar_85_over; fatbar_85: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_542; r0[2] = r1; r1 = ((object*) lenv) [4]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_85_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2143; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L2143: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_22667_i4777_i4889 goto L2144; FUN_lambda_22667_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][4]; r1[4] = r2; r2 = ((object*****) lenv) [1][1][1][1][8]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2145; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_of_literal_3334_i4777_i4889; L2145: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[4] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2144: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_22667_i4777_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2146; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2146: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = (object *) constructed_490[0]; r0[2] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r1 = t; r0[3] = r1; r1 = top[108]; r0[1] = r1[2]; lenv = r0; goto FUN_pred_453; } break; } PXLL_RETURN(0); L2132: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_type_of_literal_3334_i4777_i4889; r2[2] = lenv; r1[8] = r2; // def unraw_3335_i4777_i4889 goto L2147; FUN_unraw_3335_i4777_i4889: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = (object *) constructed_541[0]; r3 = r0; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = r1; switch (get_case (r2)) { case (TC_PAIR): { r2 = r1; r2 = UOBJ_GET(r2,0); r3 = r1; r3 = UOBJ_GET(r3,1); r4 = r3; switch (get_case (r4)) { case (TC_NIL): { r4 = r2; PXLL_RETURN(4); } break; default: { goto fatbar_84; } } PXLL_RETURN(4); } break; default: { goto fatbar_84; } } PXLL_RETURN(2); } else { goto fatbar_84; } PXLL_RETURN(2); } break; default: { goto fatbar_84; } } PXLL_RETURN(0); goto fatbar_84_over; fatbar_84: r0 = ((object*) lenv) [2]; PXLL_RETURN(0); fatbar_84_over: ; PXLL_RETURN(0); L2147: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_unraw_3335_i4777_i4889; r2[2] = lenv; r1[9] = r2; // def apply-tenv_3341_i4777_i4889 goto L2148; FUN_apply_tenv_3341_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2149; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L2149: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_539; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_instantiate_type_scheme_3327_i4777_i4889; } break; } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L2148: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_apply_tenv_3341_i4777_i4889; r2[2] = lenv; r1[10] = r2; // def n-tvars_3351_i4777_i4889 goto L2150; FUN_n_tvars_3351_i4777_i4889: check_heap (0); r0 = (object *) 1; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) constructed_538[0]; PXLL_RETURN(0); } else { goto fatbar_83; } PXLL_RETURN(0); goto fatbar_83_over; fatbar_83: r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = top[109]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2151; t[4] = r0; k = t; lenv = r1[2]; goto FUN_new_tvar_455; L2151: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 3; r3 = ((object**) lenv) [1][2]; r2 = box((pxll_int)unbox(r3)-unbox(r2)); r1[2] = r2; r2 = ((object***) lenv) [1][1][11]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2152; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_n_tvars_3351_i4777_i4889; L2152: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); fatbar_83_over: ; PXLL_RETURN(0); L2150: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_n_tvars_3351_i4777_i4889; r2[2] = lenv; r1[11] = r2; // def unify-exception-types_3355_i4777_i4889 goto L2153; FUN_unify_exception_types_3355_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3725_i4777_i4889 goto L2154; FUN_loop_3725_i4777_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_536[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[5]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2155; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L2155: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,0); } break; default: { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = top[109]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2156; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_new_tvar_455; L2156: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[5]; r2 = ((object*) lenv) [2]; r3 = r1; r4 = ((object*****) lenv) [1][1][1][1][2]; t = alloc_no_clear (UOTAG(1),3); t[1] = r4; t[2] = r2; t[3] = r3; r1 = t; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][2]; ((pxll_vector*)r2)->val[5] = r1; r1 = ((object*) lenv) [2]; lenv = lenv[1]; } break; } r0[3] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object***) lenv) [1][1][2]; r0[4] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2157; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_unify_3326_i4777_i4889; L2157: ; lenv = k[2]; k = k[1]; r0 = ((object**) lenv) [1][2]; lenv = ((object ******)lenv)[1][1][1][1][1][1]; lenv[2] = r0; goto FUN_loop_3725_i4777_i4889; } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_82; } } PXLL_RETURN(0); } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_82; } } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_82; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_82; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_82; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_82; } PXLL_RETURN(0); } break; default: { r0 = (object *) 14; PXLL_RETURN(0); } break; } PXLL_RETURN(0); goto fatbar_82_over; fatbar_82: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_537; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[111]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2158; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_type_repr_464; L2158: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_82_over: ; PXLL_RETURN(0); L2154: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3725_i4777_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][3]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3725_i4777_i4889; L2153: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_unify_exception_types_3355_i4777_i4889; r2[2] = lenv; r1[12] = r2; // def apply-subst-to-program_3359_i4777_i4889 goto L2159; FUN_apply_subst_to_program_3359_i4777_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[5]; r0[2] = r1; r1 = top[148]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2160; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_apply_subst_538; L2160: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object*) lenv) [2]; ((pxll_vector*)r1)->val[5] = r0; r0 = allocate (TC_TUPLE, 3); r1 = ((object**) lenv) [1][13]; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[39]; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2159: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_apply_subst_to_program_3359_i4777_i4889; r2[2] = lenv; r1[13] = r2; r2 = top[109]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2161; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_new_tvar_455; L2161: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[14] = r2; r2 = top[109]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2162; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_new_tvar_455; L2162: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[15] = r2; r2 = top[109]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2163; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto FUN_new_tvar_455; L2163: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[16] = r2; r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = (object*)UITAG(0); r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object***) lenv) [1][1][51]; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = ((object**) lenv) [1][7]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2164; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_type_of_splat_3331_i4777_i4889; L2164: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object***) lenv) [1][1][51]; ((pxll_vector*)r3)->val[5] = r2; r2 = ((object*) lenv) [3]; r1[4] = r2; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][51]; r2 = ((pxll_vector*)r2)->val[5]; r1[2] = r2; r2 = top[148]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2165; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_apply_subst_538; L2165: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = ((object***) lenv) [1][1][51]; ((pxll_vector*)r2)->val[5] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][13]; r1[2] = r2; r2 = ((object***) lenv) [1][1][51]; r2 = ((pxll_vector*)r2)->val[3]; r1[3] = r2; r2 = top[39]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2166; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_for_each_331; L2166: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object*) lenv) [4]; lenv = lenv[1]; lenv = lenv[1]; r0[52] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[11]; r1 = ((pxll_vector*)r1)->val[7]; if PXLL_IS_TRUE(r1) { r1 = (object*) &constructed_534; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_534; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [34]; r1[2] = r2; r2 = top[135]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2167; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pp_node_514; L2167: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = top[167]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2168; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2168: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = (object *) 14; } else { r1 = (object *) 14; } r0[53] = r1; r1 = (object*) &constructed_533; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_533; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); r1 = (object *) 14; r0[54] = r1; r1 = ((object*) lenv) [34]; r0[55] = r1; r1 = (object *) constructed_532[0]; r0[56] = r1; r1 = allocate (TC_TUPLE, 22); r1[1] = lenv; lenv = r1; // def cont_2711_i4780_i4889 goto L2169; FUN_cont_2711_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[14]; r2 = ((pxll_vector*)r2)->val[0]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2170; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2170: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2171; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2171: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object**) lenv) [1][2]; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); L2169: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_cont_2711_i4780_i4889; r2[2] = lenv; r1[2] = r2; // def compile_2713_i4780_i4889 goto L2172; FUN_compile_2713_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [2]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [5]; r1[2] = r2; r2 = top[145]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2173; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ffree_531; L2173: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**) lenv) [1][19]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2174; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_cont_2711_i4780_i4889; L2174: ; lenv = k[2]; k = k[1]; r0 = result; ((object*) lenv) [5] = r0; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(2)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[1]; r0[3] = r1; r1 = ((object***) lenv) [1][1][5]; r0[4] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(4)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2175; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_symbol_index_2716_i4780_i4889; L2175: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = (object *) constructed_54[0]; r1 = ((object**) lenv) [1][4]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(2),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2176; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_literal_index_2715_i4780_i4889; L2176: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = (object *) constructed_81[0]; r1 = ((object**) lenv) [1][4]; r2 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(2),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } break; case (UOTAG(6)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][7]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2177; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_scan_literals_2717_i4780_i4889; L2177: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2178; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_literal_index_2715_i4780_i4889; L2178: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) constructed_490[0]; r1 = ((object***) lenv) [1][1][4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } break; case (UOTAG(5)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = (object *) constructed_42[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object**) lenv) [1][4]; r1 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(1),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); } else { goto fatbar_55; } PXLL_RETURN(0); goto fatbar_55_over; fatbar_55: r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [4]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][7]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2179; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_scan_literals_2717_i4780_i4889; L2179: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2180; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_literal_index_2715_i4780_i4889; L2180: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) constructed_492[0]; r1 = ((object***) lenv) [1][1][4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); fatbar_55_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_54; } } PXLL_RETURN(0); goto fatbar_54_over; fatbar_54: r0 = ((object*) lenv) [4]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); fatbar_54_over: ; PXLL_RETURN(0); } break; case (UITAG(5)): { r0 = allocate (TC_TUPLE, 5); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = ((object**) lenv) [1][4]; r0[4] = r1; r1 = ((object**) lenv) [1][5]; r0[5] = r1; r1 = ((object***) lenv) [1][1][8]; r0[1] = r1[2]; lenv = r0; goto FUN_c_sequence_2719_i4780_i4889; } break; case (UITAG(6)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][5]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[146]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2181; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ftarget_532; L2181: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[145]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2182; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ffree_531; L2182: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[5] = r1; r0 = ((object*) lenv) [5]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(3)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,2); r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[2] = r2; r2 = top[145]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2183; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ffree_531; L2183: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[2] = r2; r2 = top[146]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2184; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ftarget_532; L2184: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def finish_2844_i1839_i4780_i4889 goto L2185; FUN_finish_2844_i1839_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 5); r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r1[3] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][4]; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][4]; r2[2] = r3; // def lambda_17973_i1839_i4780_i4889 goto L2186; FUN_lambda_17973_i1839_i4780_i4889: check_heap (0); r0 = ((object*****) lenv) [1][1][1][1][5]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(6),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2186: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_17973_i1839_i4780_i4889; r3[2] = lenv; r2[3] = r3; r3 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2187; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cont_2711_i4780_i4889; L2187: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2188; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2188: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 5); r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; r1[3] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][4]; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][4]; r2[2] = r3; // def lambda_17987_i1839_i4780_i4889 goto L2189; FUN_lambda_17987_i1839_i4780_i4889: check_heap (0); r0 = ((object*****) lenv) [1][1][1][1][5]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(6),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2189: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_17987_i1839_i4780_i4889; r3[2] = lenv; r2[3] = r3; r3 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2190; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cont_2711_i4780_i4889; L2190: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2191; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2191: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [2]; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r2 = ((object****) lenv) [1][1][1][2]; r3 = ((object****) lenv) [1][1][1][3]; r4 = ((object*) lenv) [3]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(5),6); t[1] = r5; t[2] = r2; t[3] = r3; t[4] = r0; t[5] = r4; t[6] = r1; r0 = t; PXLL_RETURN(0); L2185: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_finish_2844_i1839_i4780_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 5); r1 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[5] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][12]; r0[1] = r1[2]; lenv = r0; goto FUN_collect_primargs_2730_i4780_i4889; } break; default: { goto fatbar_57; } } PXLL_RETURN(0); goto fatbar_57_over; fatbar_57: r0 = allocate (TC_TUPLE, 5); r1 = (object *) 6; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; // def lambda_17918_i1838_i4780_i4889 goto L2192; FUN_lambda_17918_i1838_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 5); r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][2]; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*******) lenv) [1][1][1][1][1][1][4]; r2[2] = r3; // def lambda_17898_i1838_i4780_i4889 goto L2193; FUN_lambda_17898_i1838_i4780_i4889: check_heap (0); r0 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(6),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2193: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_17898_i1838_i4780_i4889; r3[2] = lenv; r2[3] = r3; r3 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2194; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cont_2711_i4780_i4889; L2194: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2195; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2195: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 5); r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*******) lenv) [1][1][1][1][1][1][4]; r2[2] = r3; // def lambda_17912_i1838_i4780_i4889 goto L2196; FUN_lambda_17912_i1838_i4780_i4889: check_heap (0); r0 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(6),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2196: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_17912_i1838_i4780_i4889; r3[2] = lenv; r2[3] = r3; r3 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2197; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cont_2711_i4780_i4889; L2197: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2198; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2198: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*******) lenv) [1][1][1][1][1][1][2]; r1 = ((object*) lenv) [2]; r2 = ((object*) lenv) [3]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(4),4); t[1] = r3; t[2] = r1; t[3] = r2; t[4] = r0; r0 = t; PXLL_RETURN(0); L2192: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_17918_i1838_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2199; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2199: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; fatbar_57_over: ; PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_56; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_56; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_56; } } PXLL_RETURN(0); } break; default: { goto fatbar_56; } } PXLL_RETURN(0); goto fatbar_56_over; fatbar_56: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_493; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_56_over: ; PXLL_RETURN(0); } break; case (UOTAG(7)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[1]; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2200; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2200: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object***) lenv) [1][1][5]; r0[6] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*****) lenv) [1][1][1][1][56]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2201; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2201: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[165]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2202; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L2202: ; lenv = k[2]; k = k[1]; r0 = ((object*****) lenv) [1][1][1][1][56]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*****) lenv) [1][1][1][1][56] = r0; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 5); r2 = (object *) 262; r1[2] = r2; r2 = ((object**) lenv) [1][5]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; switch (get_case (r2)) { case (TC_NIL): { r2 = ((object****) lenv) [1][1][1][4]; } break; default: { goto fatbar_58; } } goto fatbar_58_over; fatbar_58: r2 = ((object****) lenv) [1][1][1][4]; r3 = ((object**) lenv) [1][3]; t = alloc_no_clear (UOTAG(1),2); t[1] = r3; t[2] = r2; r2 = t; fatbar_58_over: ; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_495[0]; r2[2] = r3; r3 = ((object*****) lenv) [1][1][1][1][19]; r2[3] = r3; r3 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2203; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cont_2711_i4780_i4889; L2203: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2204; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2204: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][6]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(7),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; r0[3] = r1; r0 = ((object******) lenv) [1][1][1][1][1][56]; r1 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[12]; r2 = r1; r3 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r0 = t; r1 = ((object******) lenv) [1][1][1][1][1][2]; ((pxll_vector*)r1)->val[12] = r0; r0 = ((object******) lenv) [1][1][1][1][1][56]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_494; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_494; result=r0; goto Lreturn; } break; default: { r0 = ((object******) lenv) [1][1][1][1][1][56]; r0 = UOBJ_GET(r0,0); r1 = ((object******) lenv) [1][1][1][1][1][56]; r1 = UOBJ_GET(r1,1); r2 = r1; ((object******) lenv) [1][1][1][1][1][56] = r2; } break; } r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object***) lenv) [1][1][5]; r0[3] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = ((object***) lenv) [1][1][4]; r1[4] = r2; r2 = ((object****) lenv) [1][1][1][11]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2205; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lexical_address_2725_i4780_i4889; L2205: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case_noint (r0)) { case (UOTAG(8)): { r0 = ((object*) lenv) [4]; r0 = UOBJ_GET(r0,0); r1 = (object *) -1; r2 = ((object*) lenv) [3]; r3 = r0; t = alloc_no_clear (UOTAG(19),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; PXLL_RETURN(1); } break; case (UOTAG(1)): { r0 = ((object*) lenv) [4]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [4]; r1 = UOBJ_GET(r1,1); r2 = r1; r3 = ((object*) lenv) [3]; r4 = r0; t = alloc_no_clear (UOTAG(8),3); t[1] = r4; t[2] = r2; t[3] = r3; r2 = t; PXLL_RETURN(2); } break; default: { r0 = ((object*) lenv) [4]; r0 = UOBJ_GET(r0,1); r1 = r0; r2 = ((object*) lenv) [3]; r3 = (object *) -1; t = alloc_no_clear (UOTAG(8),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; PXLL_RETURN(1); } break; } PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][3]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2206; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2206: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***) lenv) [1][1][5]; r0[4] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = ((object***) lenv) [1][1][4]; r1[4] = r2; r2 = ((object****) lenv) [1][1][1][11]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2207; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lexical_address_2725_i4780_i4889; L2207: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; switch (get_case_noint (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; // def lambda_18265_i1856_i4780_i4889 goto L2208; FUN_lambda_18265_i1856_i4780_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][4]; r1 = ((object**) lenv) [1][3]; r2 = ((object*) lenv) [2]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(9),4); t[1] = r3; t[2] = r1; t[3] = r2; t[4] = r0; r0 = t; PXLL_RETURN(0); L2208: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_18265_i1856_i4780_i4889; r1[2] = lenv; lenv = lenv[1]; } break; case (UOTAG(7)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][5]; r2 = UOBJ_GET(r2,1); r1[2] = r2; // def lambda_18279_i1856_i4780_i4889 goto L2209; FUN_lambda_18279_i1856_i4780_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][4]; r1 = ((object**) lenv) [1][2]; r2 = ((object*) lenv) [2]; r3 = (object *) -1; t = alloc_no_clear (UOTAG(9),4); t[1] = r3; t[2] = r1; t[3] = r2; t[4] = r0; r0 = t; PXLL_RETURN(0); L2209: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_18279_i1856_i4780_i4889; r1[2] = lenv; lenv = lenv[1]; } break; default: { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; // def lambda_18291_i1856_i4780_i4889 goto L2210; FUN_lambda_18291_i1856_i4780_i4889: check_heap (0); r0 = ((object**) lenv) [1][2]; r1 = ((object***) lenv) [1][1][4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(19),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); L2210: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_18291_i1856_i4780_i4889; r1[2] = lenv; lenv = lenv[1]; } break; } r0[6] = r1; r0 = allocate (TC_TUPLE, 5); r1 = (object *) 6; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [4]; r2[2] = r3; r3 = top[145]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2211; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ffree_531; L2211: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [6]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2212; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2212: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; } break; case (UOTAG(3)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = ((object***) lenv) [1][1][5]; r0[5] = r1; r0 = allocate (TC_TUPLE, 5); r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = ((object***) lenv) [1][1][4]; r0[3] = r1; r1 = ((object*) lenv) [5]; r0[4] = r1; // def lambda_18593_i1860_i4780_i4889 goto L2213; FUN_lambda_18593_i1860_i4780_i4889: check_heap (0); r0 = ((object****) lenv) [1][1][1][3]; r0 = ((pxll_vector*)r0)->val[5]; r1 = ((object*) lenv) [2]; r2 = r0; r3 = ((object**) lenv) [1][4]; r4 = ((object**) lenv) [1][5]; r5 = ((object**) lenv) [1][3]; t = alloc_no_clear (UOTAG(3),5); t[1] = r5; t[2] = r2; t[3] = r3; t[4] = r1; t[5] = r4; r1 = t; PXLL_RETURN(1); L2213: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_18593_i1860_i4780_i4889; r1[2] = lenv; r0[5] = r1; r1 = ((object****) lenv) [1][1][1][12]; r0[1] = r1[2]; lenv = r0; goto FUN_collect_primargs_2730_i4780_i4889; } break; case (UITAG(8)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][5]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object****) lenv) [1][1][1][2]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object******) lenv) [1][1][1][1][1][3]; r0 = ((pxll_vector*)r0)->val[0]; r1 = top[203]; r2 = r0; r0 = PXLL_TEST((unbox(r2)&(1<0); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][56]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2214; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2214: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2215; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_vars_get_var_247; L2215: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,78)]; r0[4] = r1; r1 = top[163]; r2 = ((object*) lenv) [4]; r1 = PXLL_TEST((unbox(r2)&(1<0); r0[5] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [5]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; } else { r0 = (object *) 6; } lenv = lenv[1]; } break; default: { goto fatbar_63; } } goto fatbar_63_over; fatbar_63: r0 = (object *) 6; fatbar_63_over: ; lenv = lenv[1]; } else { r0 = (object *) 6; } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[4]; r1[2] = r2; r2 = top[123]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2216; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_varref__3ename_491; L2216: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[4] = r2; r2 = ((object******) lenv) [1][1][1][1][1][11]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2217; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_lexical_address_2725_i4780_i4889; L2217: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case_noint (r0)) { case (UOTAG(8)): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_496; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_496; result=r0; goto Lreturn; PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 5); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][4]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[4] = r1; // def lambda_18847_i4780_i4889_i8 goto L2218; FUN_lambda_18847_i4780_i4889_i8: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(15),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); L2218: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_18847_i4780_i4889_i8; r1[2] = lenv; r0[5] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][12]; r0[1] = r1[2]; lenv = r0; goto FUN_collect_primargs_2730_i4780_i4889; } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 5); r1 = ((object***) lenv) [1][1][3]; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][4]; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[4] = r1; // def lambda_18847_i4780_i4889_i9 goto L2219; FUN_lambda_18847_i4780_i4889_i9: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(15),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); L2219: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_18847_i4780_i4889_i9; r1[2] = lenv; r0[5] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][12]; r0[1] = r1[2]; lenv = r0; goto FUN_collect_primargs_2730_i4780_i4889; } break; } PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][2]; if PXLL_IS_TRUE(r1) { r1 = ((object******) lenv) [1][1][1][1][1][21]; } else { r1 = ((object******) lenv) [1][1][1][1][1][20]; } r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[3] = r1; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = top[5]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2220; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_vars_get_var_247; L2220: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [2]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,78)]; r1[3] = r2; r1 = top[164]; r2 = ((object*) lenv) [3]; r1 = PXLL_TEST((unbox(r2)&(1<0); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; } else { r1 = (object*)UITAG(1); } lenv = lenv[1]; } break; default: { goto fatbar_62; } } goto fatbar_62_over; fatbar_62: r1 = (object*)UITAG(1); fatbar_62_over: ; r0[4] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def make-call_2988_i1862_i4780_i4889 goto L2221; FUN_make_call_2988_i1862_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 5); r1 = (object *) 6; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[3] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object******) lenv) [1][1][1][1][1][2]; r3[2] = r4; r4 = top[145]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2222; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_k_2ffree_531; L2222: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = ((object*) lenv) [2]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; // def lambda_18957_i1862_i4780_i4889 goto L2223; FUN_lambda_18957_i1862_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 5); r1 = ((object****) lenv) [1][1][1][4]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][2]; r0[4] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[5] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2223: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_18957_i1862_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2224; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2224: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; L2221: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_make_call_2988_i1862_i4780_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2225; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2225: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)>unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r3 = ((object*****) lenv) [1][1][1][1][2]; r2[2] = r3; r3 = top[145]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2226; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ffree_531; L2226: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2227; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2227: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][56]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2228; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2228: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[165]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2229; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L2229: ; lenv = k[2]; k = k[1]; r0 = ((object****) lenv) [1][1][1][3]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*******) lenv) [1][1][1][1][1][1][4]; switch (get_case (r0)) { case (UITAG(0)): { r0 = (object *) 262; } break; default: { goto fatbar_60; } } goto fatbar_60_over; fatbar_60: r0 = (object *) 6; fatbar_60_over: ; r1 = r0; r2 = ((object*) lenv) [2]; r3 = (object *) 1; t = alloc_no_clear (UOTAG(10),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; PXLL_RETURN(1); } break; default: { goto fatbar_59; } } PXLL_RETURN(0); goto fatbar_59_over; fatbar_59: r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object*****) lenv) [1][1][1][1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2230; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2230: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][4]; switch (get_case (r1)) { case (UITAG(0)): { r1 = (object *) 262; } break; default: { goto fatbar_61; } } goto fatbar_61_over; fatbar_61: r1 = (object *) 6; fatbar_61_over: ; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[145]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2231; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ffree_531; L2231: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; // def lambda_19040_i1874_i4780_i4889 goto L2232; FUN_lambda_19040_i1874_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 8); r1 = (object *) 1; r0[2] = r1; r1 = (object *) 3; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object****) lenv) [1][1][1][2]; r2[2] = r3; r3 = top[145]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2233; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ffree_531; L2233: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[6] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r0[7] = r1; r1 = ((object***) lenv) [1][1][2]; r0[8] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][16]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_store_args_2738_i4780_i4889; L2232: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19040_i1874_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2234; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2234: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(10),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); fatbar_59_over: ; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = (object *) -1; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_make_call_2988_i1862_i4780_i4889; } PXLL_RETURN(0); } PXLL_RETURN(0); } break; default: { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_497; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_497; result=r0; goto Lreturn; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; case (UOTAG(12)): { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object***) lenv) [1][1][5]; r0[4] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[5] = r1; r0 = (object *) constructed_499[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 5); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [5]; r2[2] = r3; r3 = top[24]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2235; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cdr_312; L2235: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2236; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2236: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r0[4] = r1; r1 = ((object*) lenv) [4]; r0[5] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; } else { goto fatbar_64; } PXLL_RETURN(0); goto fatbar_64_over; fatbar_64: r0 = (object *) constructed_501[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 5); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [5]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2237; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2237: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r0[4] = r1; r1 = ((object*) lenv) [4]; r0[5] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; } else { goto fatbar_65; } PXLL_RETURN(0); goto fatbar_65_over; fatbar_65: r0 = (object *) constructed_237[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][5]; r1[2] = r2; r2 = (object *) 5; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2238; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2238: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[5]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][5]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2239; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2239: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [4]; r1 = ((pxll_vector*)r1)->val[5]; r0[5] = r1; r0 = ((object*) lenv) [5]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_503[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = (object*)TC_NIL; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = ((object****) lenv) [1][1][1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object *) constructed_92[0]; r1[2] = r2; r2 = ((object*) lenv) [3]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[3] = r2; r2 = top[108]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2240; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_pred_453; L2240: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = allocate (TC_TUPLE, 7); r1 = ((object*****) lenv) [1][1][1][1][5]; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][2]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][3]; r0[4] = r1; r1 = ((object*) lenv) [4]; r0[5] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[6] = r1; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[7] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][14]; r0[1] = r1[2]; lenv = r0; goto FUN_c_primargs_2732_i4780_i4889; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_67; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_67; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_67; } PXLL_RETURN(0); } break; default: { goto fatbar_67; } } PXLL_RETURN(0); goto fatbar_67_over; fatbar_67: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_67_over: ; PXLL_RETURN(0); } else { goto fatbar_66; } PXLL_RETURN(0); goto fatbar_66_over; fatbar_66: r0 = (object *) constructed_505[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][5]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2241; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2241: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[5]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[116]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2242; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_record_sig_471; L2242: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[3]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2243; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L2243: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[6] = r1; r0 = allocate (TC_TUPLE, 7); r1 = ((object**) lenv) [1][5]; r0[2] = r1; r1 = (object *) constructed_273[0]; r0[3] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; t = alloc_no_clear (UOTAG(0),1); t[1] = r4; r1 = t; r0[4] = r1; r1 = ((object****) lenv) [1][1][1][3]; r1 = ((pxll_vector*)r1)->val[5]; r0[5] = r1; r1 = ((object****) lenv) [1][1][1][4]; r0[6] = r1; r1 = ((object**) lenv) [1][4]; r0[7] = r1; r1 = ((object*****) lenv) [1][1][1][1][14]; r0[1] = r1[2]; lenv = r0; goto FUN_c_primargs_2732_i4780_i4889; } else { goto fatbar_68; } PXLL_RETURN(0); goto fatbar_68_over; fatbar_68: r0 = (object *) constructed_507[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][5]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2244; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2244: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[5]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[116]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2245; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_record_sig_471; L2245: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[3]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2246; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L2246: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(0),1); t[1] = r1; r1 = t; r0[6] = r1; r0 = allocate (TC_TUPLE, 7); r1 = ((object**) lenv) [1][5]; r0[2] = r1; r1 = (object *) constructed_284[0]; r0[3] = r1; r1 = (object*)TC_NIL; r2 = r1; r3 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r3 = r2; r4 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; t = alloc_no_clear (UOTAG(0),1); t[1] = r4; r1 = t; r0[4] = r1; r1 = ((object****) lenv) [1][1][1][3]; r1 = ((pxll_vector*)r1)->val[5]; r0[5] = r1; r1 = ((object****) lenv) [1][1][1][4]; r0[6] = r1; r1 = ((object**) lenv) [1][4]; r0[7] = r1; r1 = ((object*****) lenv) [1][1][1][1][14]; r0[1] = r1[2]; lenv = r0; goto FUN_c_primargs_2732_i4780_i4889; } else { goto fatbar_69; } PXLL_RETURN(0); goto fatbar_69_over; fatbar_69: r0 = (object *) constructed_513[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3104_i1906_i4780_i4889 goto L2247; FUN_loop_3104_i1906_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(12)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = (object *) constructed_510[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 9); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); // def lambda_19703_i1906_i4780_i4889 goto L2248; FUN_lambda_19703_i1906_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[3] = r1; r1 = ((object*) lenv) [2]; r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,0); r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[54]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2249; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_compare_357; L2249: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [5]; r0 = PXLL_TEST(unbox(r1)val[13]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2257; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2257: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][18]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][3]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2258; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2258: ; lenv = k[2]; k = k[1]; r0 = allocate (UOTAG(1), 2); r1 = ((object****) lenv) [1][1][1][3]; r0[1] = r1; r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[13]; r2 = r1; r3 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r0 = t; r1 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][2]; ((pxll_vector*)r1)->val[13] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L2253: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_3141_i1909_i4780_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[13]; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2259; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_3141_i1909_i4780_i4889; L2259: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][4]; r1[2] = r2; r2 = top[145]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2260; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ffree_531; L2260: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = ((object*) lenv) [5]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[7] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2261; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2261: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[8] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [6]; r1[2] = r2; // def lambda_19742_i1906_i4780_i4889 goto L2262; FUN_lambda_19742_i1906_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 8); r1 = (object *) 1; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = ((object**) lenv) [1][4]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[5] = r1; r1 = ((object**) lenv) [1][6]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r0[7] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][4]; r0[8] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][16]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_store_args_2738_i4780_i4889; L2262: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19742_i1906_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2263; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2263: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[9] = r1; r0 = ((object*) lenv) [8]; r1 = ((object*) lenv) [9]; r2 = ((object*) lenv) [7]; t = alloc_no_clear (UOTAG(11),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } else { goto fatbar_72; } PXLL_RETURN(0); goto fatbar_72_over; fatbar_72: r0 = (object *) constructed_513[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,1); r2 = r1; switch (get_case (r2)) { case (TC_PAIR): { r2 = r1; r2 = UOBJ_GET(r2,0); r3 = r1; r3 = UOBJ_GET(r3,1); r4 = r3; switch (get_case (r4)) { case (TC_NIL): { r4 = allocate (UOTAG(1), 2); r5 = ((object*) lenv) [2]; r4[1] = r5; r5 = r2; r4[2] = r5; r5 = ((object****) lenv) [1][1][1][3]; r6 = r4; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r4 = t; r5 = r0; lenv = ((object ***)lenv)[1][1][1]; lenv[2] = r5; lenv[3] = r4; goto FUN_loop_3104_i1906_i4780_i4889; } break; default: { goto fatbar_73; } } PXLL_RETURN(4); } break; default: { goto fatbar_73; } } PXLL_RETURN(2); } break; default: { goto fatbar_73; } } PXLL_RETURN(0); goto fatbar_73_over; fatbar_73: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_511; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_73_over: ; PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_71; } } PXLL_RETURN(0); } else { lenv = ((object *)lenv)[1]; goto fatbar_71; } PXLL_RETURN(0); fatbar_72_over: ; PXLL_RETURN(0); } break; default: { goto fatbar_71; } } PXLL_RETURN(0); goto fatbar_71_over; fatbar_71: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_514; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_514; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_71_over: ; PXLL_RETURN(0); L2247: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3104_i1906_i4780_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = ((object****) lenv) [1][1][1][3]; r0[2] = r1; r1 = (object *) constructed_508[0]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3104_i1906_i4780_i4889; } else { goto fatbar_70; } PXLL_RETURN(0); goto fatbar_70_over; fatbar_70: r0 = (object *) constructed_518[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object**) lenv) [1][3]; switch (get_case (r0)) { case (TC_PAIR): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][3]; r1 = UOBJ_GET(r1,1); r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[18]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = (object*) &constructed_515; r1[4] = r2; r2 = top[70]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2264; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2fget_398; L2264: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][4]; r1[2] = r2; r2 = top[145]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2265; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ffree_531; L2265: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][5]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2266; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2266: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [4]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)>unbox(r0))) { r0 = allocate (TC_TUPLE, 4); r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][56]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2267; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2267: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[165]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2268; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L2268: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = (object *) 1; r1 = ((object*) lenv) [4]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)>unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r1; r1 = t; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; // def lambda_19630_i1921_i4780_i4889 goto L2269; FUN_lambda_19630_i1921_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 8); r1 = (object *) 1; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][5]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[5] = r1; r1 = ((object***) lenv) [1][1][3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[6] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][4]; r0[7] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][4]; r0[8] = r1; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][16]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_store_args_2738_i4780_i4889; L2269: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19630_i1921_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2270; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2270: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object**) lenv) [1][4]; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(11),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); } else { r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),1); t[1] = r0; r0 = t; r1 = (object *) 1; r2 = ((object******) lenv) [1][1][1][1][1][4]; r3 = r0; t = alloc_no_clear (UOTAG(11),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; PXLL_RETURN(1); } PXLL_RETURN(0); } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_75; } } PXLL_RETURN(0); } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_75; } } PXLL_RETURN(0); } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_75; } } PXLL_RETURN(0); } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_75; } } PXLL_RETURN(0); } break; default: { goto fatbar_75; } } PXLL_RETURN(0); goto fatbar_75_over; fatbar_75: r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_516; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; fatbar_75_over: ; PXLL_RETURN(0); } else { goto fatbar_74; } PXLL_RETURN(0); goto fatbar_74_over; fatbar_74: r0 = (object *) constructed_335[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][5]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2271; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2271: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)>unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 4); r1 = ((object*****) lenv) [1][1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*****) lenv) [1][1][1][1][56]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2272; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2272: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[165]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2273; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L2273: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 7); r1 = ((object*) lenv) [5]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object*) lenv) [3]; r0[4] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[5]; r0[5] = r1; r1 = ((object***) lenv) [1][1][4]; r0[6] = r1; r1 = ((object*) lenv) [4]; r0[7] = r1; r1 = ((object****) lenv) [1][1][1][14]; r0[1] = r1[2]; lenv = r0; goto FUN_c_primargs_2732_i4780_i4889; } else { goto fatbar_76; } PXLL_RETURN(0); goto fatbar_76_over; fatbar_76: r0 = (object *) constructed_520[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object*****) lenv) [1][1][1][1][22]; r1 = ((pxll_vector*)r1)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2274; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2274: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(3),2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = top[145]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2275; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ffree_531; L2275: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = top[146]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2276; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ftarget_532; L2276: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 5); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][5]; r2[2] = r3; r3 = (object *) 1; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2277; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L2277: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object*) lenv) [3]; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [4]; r2[2] = r3; // def lambda_19498_i1934_i4780_i4889 goto L2278; FUN_lambda_19498_i1934_i4780_i4889: check_heap (0); r0 = ((object**) lenv) [1][5]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(6),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2278: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_19498_i1934_i4780_i4889; r3[2] = lenv; r2[3] = r3; r3 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2279; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cont_2711_i4780_i4889; L2279: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2280; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2280: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = allocate (TC_TUPLE, 5); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][5]; r2[2] = r3; r3 = (object *) 3; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2281; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L2281: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][4]; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [4]; r2[2] = r3; // def lambda_19515_i1934_i4780_i4889 goto L2282; FUN_lambda_19515_i1934_i4780_i4889: check_heap (0); r0 = ((object**) lenv) [1][5]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(6),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2282: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_19515_i1934_i4780_i4889; r3[2] = lenv; r2[3] = r3; r3 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2283; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cont_2711_i4780_i4889; L2283: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2284; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2284: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r0 = ((object**) lenv) [1][4]; r1 = ((object*) lenv) [6]; r2 = ((object*) lenv) [7]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(20),4); t[1] = r3; t[2] = r1; t[3] = r2; t[4] = r0; r0 = t; PXLL_RETURN(0); } else { goto fatbar_77; } PXLL_RETURN(0); goto fatbar_77_over; fatbar_77: r0 = (object *) constructed_523[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3082_i1940_i4780_i4889 goto L2285; FUN_loop_3082_i1940_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UITAG(0)): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_521; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_521; result=r0; goto Lreturn; PXLL_RETURN(0); } break; case (UOTAG(1)): { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,1); r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r2 = r0; lenv[2] = r1; lenv[3] = r2; goto FUN_loop_3082_i1940_i4780_i4889; } break; case (UOTAG(2)): { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,2); r1 = r0; r2 = ((object*) lenv) [2]; lenv[2] = r2; lenv[3] = r1; goto FUN_loop_3082_i1940_i4780_i4889; } break; default: { r0 = ((object*) lenv) [3]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r2 = r0; t = alloc_no_clear (UOTAG(21),2); t[1] = r2; t[2] = r1; r1 = t; PXLL_RETURN(1); } break; } PXLL_RETURN(0); L2285: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3082_i1940_i4780_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); r1 = (object *) 1; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][4]; r0[3] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3082_i1940_i4780_i4889; } else { goto fatbar_78; } PXLL_RETURN(0); goto fatbar_78_over; fatbar_78: r0 = allocate (TC_TUPLE, 7); r1 = ((object*) lenv) [5]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object*) lenv) [3]; r0[4] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[5]; r0[5] = r1; r1 = ((object***) lenv) [1][1][4]; r0[6] = r1; r1 = ((object*) lenv) [4]; r0[7] = r1; r1 = ((object****) lenv) [1][1][1][14]; r0[1] = r1[2]; lenv = r0; goto FUN_c_primargs_2732_i4780_i4889; fatbar_78_over: ; PXLL_RETURN(0); fatbar_77_over: ; PXLL_RETURN(0); fatbar_76_over: ; PXLL_RETURN(0); fatbar_74_over: ; PXLL_RETURN(0); fatbar_70_over: ; PXLL_RETURN(0); fatbar_69_over: ; PXLL_RETURN(0); fatbar_68_over: ; PXLL_RETURN(0); fatbar_66_over: ; PXLL_RETURN(0); fatbar_65_over: ; PXLL_RETURN(0); fatbar_64_over: ; PXLL_RETURN(0); } break; case (UOTAG(4)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = (object *) constructed_45[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][5]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[145]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2286; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ffree_531; L2286: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2287; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2287: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) 3; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2288; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2288: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[24]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2289; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cdr_312; L2289: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2290; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L2290: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def finish_3059_i1945_i4780_i4889 goto L2291; FUN_finish_3059_i1945_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][4]; r1[2] = r2; // def lambda_19392_i1945_i4780_i4889 goto L2292; FUN_lambda_19392_i1945_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[2] = r2; r2 = top[146]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2293; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ftarget_532; L2293: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r1 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(6),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2292: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19392_i1945_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2294; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2294: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_19402_i1945_i4780_i4889 goto L2295; FUN_lambda_19402_i1945_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 5); r1 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object********) lenv) [1][1][1][1][1][1][1][4]; r0[4] = r1; r1 = ((object**) lenv) [1][2]; r0[5] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; L2295: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19402_i1945_i4780_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][7]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2296; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L2296: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object****) lenv) [1][1][1][6]; r1 = ((pxll_vector*)r1)->val[4]; r0[4] = r1; r1 = ((object*) lenv) [4]; switch (get_case (r1)) { case (UOTAG(12)): { r1 = ((object*) lenv) [4]; r1 = UOBJ_GET(r1,0); r2 = (object *) constructed_525[0]; r3 = r1; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = (object *) 6; r1 = r2; } else { goto fatbar_80; } } break; default: { goto fatbar_80; } } goto fatbar_80_over; fatbar_80: r1 = (object *) 262; fatbar_80_over: ; r0[5] = r1; r1 = ((object*) lenv) [5]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 5); r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][6]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r1[4] = r2; r2 = ((object*) lenv) [2]; r1[5] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2297; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2297: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = r1; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r1 = t; } else { r1 = (object*)UITAG(1); } r0[6] = r1; r0 = ((object*) lenv) [3]; r1 = ((object****) lenv) [1][1][1][3]; r2 = ((object*****) lenv) [1][1][1][1][3]; r3 = ((object*****) lenv) [1][1][1][1][4]; r4 = ((object*) lenv) [6]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(23),6); t[1] = r5; t[2] = r2; t[3] = r3; t[4] = r0; t[5] = r4; t[6] = r1; r0 = t; PXLL_RETURN(0); L2291: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_finish_3059_i1945_i4780_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 5); r1 = (object *) 6; r0[2] = r1; r1 = ((object**) lenv) [1][5]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2298; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2298: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object******) lenv) [1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; } else { goto fatbar_79; } PXLL_RETURN(0); goto fatbar_79_over; fatbar_79: r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][5]; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[145]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2299; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ffree_531; L2299: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2300; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L2300: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = ((object*) lenv) [5]; switch (get_case (r0)) { case (UITAG(1)): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_526; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; default: { r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][5]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2301; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2301: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) 3; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2302; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2302: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[24]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2303; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cdr_312; L2303: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2304; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L2304: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def finish_3040_i1951_i4780_i4889 goto L2305; FUN_finish_3040_i1951_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object*****) lenv) [1][1][1][1][4]; r1[2] = r2; // def lambda_19275_i1951_i4780_i4889 goto L2306; FUN_lambda_19275_i1951_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object*******) lenv) [1][1][1][1][1][1][3]; r1[2] = r2; r2 = top[146]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2307; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ftarget_532; L2307: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r1 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(6),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2306: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19275_i1951_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2308; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2308: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_19285_i1951_i4780_i4889 goto L2309; FUN_lambda_19285_i1951_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 5); r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r0[4] = r1; r1 = ((object**) lenv) [1][2]; r0[5] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; L2309: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19285_i1951_i4780_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][5]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2310; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L2310: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2311; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L2311: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2312; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L2312: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [2]; r2 = PXLL_TEST(unbox(r3)==unbox(r2)); r1[4] = r2; r1 = (object *) 6; r2 = ((object*) lenv) [4]; r1 = PXLL_TEST(r2==r1); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][4]; r2 = ((pxll_vector*)r2)->val[4]; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(12)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = (object *) constructed_525[0]; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_527; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2313; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2313: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { lenv = ((object *)lenv)[1]; goto fatbar_81; } lenv = lenv[1]; } break; default: { goto fatbar_81; } } goto fatbar_81_over; fatbar_81: r1 = allocate (TC_TUPLE, 5); r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][4]; r1[3] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r1[4] = r2; r2 = ((object**) lenv) [1][2]; r1[5] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2314; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2314: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r2 = r1; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r1 = t; fatbar_81_over: ; lenv = lenv[1]; } else { r1 = (object*)UITAG(1); } r0[4] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*****) lenv) [1][1][1][1][3]; r2 = ((object******) lenv) [1][1][1][1][1][2]; r3 = ((object******) lenv) [1][1][1][1][1][3]; r4 = ((object*) lenv) [4]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(22),6); t[1] = r5; t[2] = r2; t[3] = r3; t[4] = r0; t[5] = r4; t[6] = r1; r0 = t; PXLL_RETURN(0); L2305: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_finish_3040_i1951_i4780_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 5); r1 = (object *) 6; r0[2] = r1; r1 = ((object**) lenv) [1][3]; r0[3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][4]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][4]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2315; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2315: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; } break; } PXLL_RETURN(0); fatbar_79_over: ; PXLL_RETURN(0); } break; case (UOTAG(10)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 6); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[4] = r1; r1 = ((object***) lenv) [1][1][4]; r0[5] = r1; r1 = ((object***) lenv) [1][1][5]; r0[6] = r1; r1 = ((object****) lenv) [1][1][1][17]; r0[1] = r1[2]; lenv = r0; goto FUN_c_let_splat_2740_i4780_i4889; } break; case (UOTAG(9)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = ((object***) lenv) [1][1][3]; r0 = ((pxll_vector*)r0)->val[0]; r1 = top[204]; r2 = r0; r0 = PXLL_TEST((unbox(r2)&(1<0); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2316; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2316: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 11; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,78)]; r0[3] = r1; r0 = top[163]; r1 = ((object*) lenv) [3]; r0 = PXLL_TEST((unbox(r1)&(1<0); PXLL_RETURN(0); L2317: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_18800_i1959_i4780_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[43]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2319; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_some_question_335; L2319: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 6; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); lenv = lenv[1]; } else { r0 = (object *) 6; } } else { r0 = (object *) 6; } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][5]; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3009_i1964_i4780_i4889 goto L2320; FUN_loop_3009_i1964_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2321; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2321: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r1 = (object *) 1; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 5); r1 = ((object******) lenv) [1][1][1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2322; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2322: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [4]; r0[4] = r1; r1 = ((object***) lenv) [1][1][3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = ((object*) lenv) [3]; r3[2] = r4; r4 = (object *) constructed_17[0]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2323; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L2323: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object**) lenv) [1][5]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2324; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L2324: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; lenv = lenv[1]; } break; default: { r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_529; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_529; result=r1; goto Lreturn; } break; } r0[5] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; } else { r0 = allocate (TC_TUPLE, 5); r1 = (object *) 6; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2325; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2325: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [4]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object****) lenv) [1][1][1][3]; r3[2] = r4; r4 = top[145]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2326; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_k_2ffree_531; L2326: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = ((object**) lenv) [1][5]; r3[2] = r4; r4 = (object *) constructed_17[0]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2327; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L2327: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2328; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L2328: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; // def lambda_19143_i1964_i4780_i4889 goto L2329; FUN_lambda_19143_i1964_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 5); r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2330; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L2330: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2331; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L2331: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r3 = top[23]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2332; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_car_311; L2332: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object**) lenv) [1][2]; r2 = ((object***) lenv) [1][1][4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(2),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; lenv = lenv[1]; r0[4] = r1; r1 = ((object**) lenv) [1][5]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r1 = ((object***) lenv) [1][1][2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3009_i1964_i4780_i4889; L2329: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19143_i1964_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2333; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2333: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; } PXLL_RETURN(0); L2320: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3009_i1964_i4780_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 5); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = ((object*****) lenv) [1][1][1][1][4]; r0[4] = r1; r1 = (object *) constructed_528[0]; r0[5] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3009_i1964_i4780_i4889; } else { r0 = allocate (TC_TUPLE, 6); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r1 = ((pxll_vector*)r1)->val[3]; r0[4] = r1; r1 = ((object***) lenv) [1][1][4]; r0[5] = r1; r1 = ((object***) lenv) [1][1][5]; r0[6] = r1; r1 = ((object****) lenv) [1][1][1][17]; r0[1] = r1[2]; lenv = r0; goto FUN_c_let_splat_2740_i4780_i4889; } PXLL_RETURN(0); } break; default: { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L2172: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_compile_2713_i4780_i4889; r2[2] = lenv; r1[3] = r2; // def add-literal_2714_i4780_i4889 goto L2334; FUN_add_literal_2714_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[9]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2335; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2335: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object****) lenv) [1][1][1][2]; r0 = ((pxll_vector*)r0)->val[9]; r1 = r0; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; r1 = ((object****) lenv) [1][1][1][2]; ((pxll_vector*)r1)->val[9] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); L2334: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_add_literal_2714_i4780_i4889; r2[2] = lenv; r1[4] = r2; // def get-literal-index_2715_i4780_i4889 goto L2336; FUN_get_literal_index_2715_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 4); r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[8]; r1[2] = r2; r2 = top[12]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; r1[4] = r2; r2 = top[77]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2337; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_tree_2fmember_411; L2337: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2338; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_add_literal_2714_i4780_i4889; L2338: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 5); r1 = ((object*****) lenv) [1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[8]; r0[2] = r1; r1 = top[12]; r0[3] = r1; r1 = ((object***) lenv) [1][1][3]; r0[4] = r1; r1 = ((object*) lenv) [2]; r0[5] = r1; r1 = top[76]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2339; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_tree_2finsert_409; L2339: ; lenv = k[2]; k = k[1]; r0 = result; r1 = ((object*****) lenv) [1][1][1][1][2]; ((pxll_vector*)r1)->val[8] = r0; r0 = ((object*) lenv) [2]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L2336: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_literal_index_2715_i4780_i4889; r2[2] = lenv; r1[5] = r2; // def get-symbol-index_2716_i4780_i4889 goto L2340; FUN_get_symbol_index_2716_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r2 = ((pxll_vector*)r2)->val[17]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2341; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L2341: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r3 = r2; t = alloc_no_clear (UOTAG(0),1); t[1] = r3; r2 = t; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2342; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_add_literal_2714_i4780_i4889; L2342: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (UOTAG(4),1); t[1] = r2; r2 = t; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2343; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_add_literal_2714_i4780_i4889; L2343: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*****) lenv) [1][1][1][1][2]; r0 = ((pxll_vector*)r0)->val[17]; r1 = ((object*) lenv) [3]; r2 = r0; r3 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r0 = t; r1 = ((object*****) lenv) [1][1][1][1][2]; ((pxll_vector*)r1)->val[17] = r0; r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L2340: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_get_symbol_index_2716_i4780_i4889; r2[2] = lenv; r1[6] = r2; // def scan-literals_2717_i4780_i4889 goto L2344; FUN_scan_literals_2717_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object *) 1; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(4)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2345; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_get_symbol_index_2716_i4780_i4889; L2345: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2346; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_add_literal_2714_i4780_i4889; L2346: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; case (UOTAG(5)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,2); r1 = allocate (TC_TUPLE, 2); r2 = r0; r1[2] = r2; r2 = ((object***) lenv) [1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2347; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_scan_literals_2717_i4780_i4889; L2347: r0 = k[4]; lenv = k[2]; k = k[1]; r0 = result; } break; case (UOTAG(6)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = allocate (TC_TUPLE, 2); r2 = r0; r1[2] = r2; r2 = ((object***) lenv) [1][1][7]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2348; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_scan_literals_2717_i4780_i4889; L2348: r0 = k[4]; lenv = k[2]; k = k[1]; r0 = result; } break; default: { goto fatbar_53; } } goto fatbar_53_over; fatbar_53: r0 = (object *) 1; fatbar_53_over: ; r0 = ((object*) lenv) [3]; lenv = ((object *)lenv)[1]; lenv[2] = r0; goto FUN_scan_literals_2717_i4780_i4889; } break; } PXLL_RETURN(0); L2344: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_scan_literals_2717_i4780_i4889; r2[2] = lenv; r1[7] = r2; // def c-sequence_2719_i4780_i4889 goto L2349; FUN_c_sequence_2719_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_488; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_488; result=r0; goto Lreturn; PXLL_RETURN(0); } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 5); r1 = ((object**) lenv) [1][2]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][4]; r0[4] = r1; r1 = ((object**) lenv) [1][5]; r0[5] = r1; r1 = ((object***) lenv) [1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; } break; default: { goto fatbar_52; } } PXLL_RETURN(0); goto fatbar_52_over; fatbar_52: r0 = allocate (TC_TUPLE, 5); r1 = (object *) 6; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][4]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][5]; r2[2] = r3; r3 = top[145]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2350; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ffree_531; L2350: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 5); r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r3 = ((object**) lenv) [1][3]; r2[3] = r3; r3 = ((object***) lenv) [1][1][4]; r2[4] = r3; r3 = ((object***) lenv) [1][1][5]; r2[5] = r3; r3 = ((object****) lenv) [1][1][1][8]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2351; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_c_sequence_2719_i4780_i4889; L2351: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = ((object*) lenv) [2]; r2 = ((object*) lenv) [3]; r3 = (object *) -1; t = alloc_no_clear (UOTAG(0),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; lenv = lenv[1]; r0[5] = r1; r1 = ((object***) lenv) [1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; fatbar_52_over: ; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L2349: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_c_sequence_2719_i4780_i4889; r2[2] = lenv; r1[8] = r2; // def extend-lenv_2722_i4780_i4889 goto L2352; FUN_extend_lenv_2722_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = ((object*) lenv) [3]; PXLL_RETURN(0); } break; default: { goto fatbar_51; } } PXLL_RETURN(0); goto fatbar_51_over; fatbar_51: r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); fatbar_51_over: ; PXLL_RETURN(0); L2352: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_extend_lenv_2722_i4780_i4889; r2[2] = lenv; r1[9] = r2; // def search-rib_2724_i4780_i4889 goto L2353; FUN_search_rib_2724_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (TC_NIL): { r0 = (object*)UITAG(1); PXLL_RETURN(0); } break; default: { r0 = ((object*) lenv) [4]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [4]; r1 = UOBJ_GET(r1,1); r2 = r0; r3 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = ((object*) lenv) [3]; t = alloc_no_clear (UOTAG(0),1); t[1] = r2; r2 = t; PXLL_RETURN(2); } else { r2 = (object *) 3; r3 = ((object*) lenv) [3]; r2 = box((pxll_int)unbox(r3)+unbox(r2)); r3 = r1; r4 = ((object*) lenv) [2]; lenv[2] = r4; lenv[3] = r2; lenv[4] = r3; goto FUN_search_rib_2724_i4780_i4889; } PXLL_RETURN(2); } break; } PXLL_RETURN(0); L2353: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_search_rib_2724_i4780_i4889; r2[2] = lenv; r1[10] = r2; // def lexical-address_2725_i4780_i4889 goto L2354; FUN_lexical_address_2725_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UITAG(0)): { r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_487; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; } break; case (UOTAG(1)): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][4]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = ((object*) lenv) [2]; r1[4] = r2; r2 = ((object***) lenv) [1][1][10]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2355; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_search_rib_2724_i4780_i4889; L2355: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r0 = ((object*) lenv) [4]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [4]; r0 = UOBJ_GET(r0,0); r1 = (object*)UITAG(0); r2 = r1; r3 = ((object*) lenv) [3]; r1 = PXLL_TEST(r3==r2); if PXLL_IS_TRUE(r1) { r1 = allocate (UOTAG(7), 2); r2 = ((object**) lenv) [1][3]; r1[1] = r2; r2 = r0; r1[2] = r2; PXLL_RETURN(1); } else { r1 = allocate (UOTAG(1), 2); r2 = ((object**) lenv) [1][3]; r1[1] = r2; r2 = r0; r1[2] = r2; PXLL_RETURN(1); } PXLL_RETURN(1); } break; default: { r0 = (object *) 3; r1 = ((object**) lenv) [1][3]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); r1 = ((object*) lenv) [3]; r2 = ((object**) lenv) [1][2]; lenv = ((object *)lenv)[1]; lenv[2] = r2; lenv[3] = r0; lenv[4] = r1; goto FUN_lexical_address_2725_i4780_i4889; } break; } PXLL_RETURN(0); } break; case (UOTAG(3)): { r0 = ((object*) lenv) [4]; r0 = UOBJ_GET(r0,1); r1 = ((object*) lenv) [3]; r2 = r0; r3 = ((object*) lenv) [2]; lenv[2] = r3; lenv[3] = r1; lenv[4] = r2; goto FUN_lexical_address_2725_i4780_i4889; } break; default: { r0 = ((object*) lenv) [4]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [4]; r1 = UOBJ_GET(r1,1); r2 = ((object*) lenv) [4]; r2 = UOBJ_GET(r2,2); r3 = r0; r4 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = allocate (UOTAG(8), 1); r4 = r1; r3[1] = r4; PXLL_RETURN(3); } else { r3 = ((object*) lenv) [3]; r4 = r2; r5 = ((object*) lenv) [2]; lenv[2] = r5; lenv[3] = r3; lenv[4] = r4; goto FUN_lexical_address_2725_i4780_i4889; } PXLL_RETURN(3); } break; } PXLL_RETURN(0); L2354: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lexical_address_2725_i4780_i4889; r2[2] = lenv; r1[11] = r2; // def collect-primargs_2730_i4780_i4889 goto L2356; FUN_collect_primargs_2730_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2357; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2357: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_2927_i4780_i4889 goto L2358; FUN__24loop_2927_i4780_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (UOTAG(1), 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object*****) lenv) [1][1][1][1][2]; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2359; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L2359: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[1] = r2; r2 = ((object**) lenv) [1][2]; r1[2] = r2; r0[2] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_2927_i4780_i4889; } PXLL_RETURN(0); L2358: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_2927_i4780_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2360; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_2927_i4780_i4889; L2360: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_18658_i4780_i4889 goto L2361; FUN_lambda_18658_i4780_i4889: r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [3]; switch (get_case_noint (r1)) { default: { r1 = ((object*) lenv) [3]; r1 = UOBJ_GET(r1,0); r2 = r0; r2 = ((pxll_vector*)r2)->val[2]; r3 = r1; r3 = ((pxll_vector*)r3)->val[2]; r4 = r3; r5 = r2; r4 = PXLL_TEST(unbox(r5)>unbox(r4)); PXLL_RETURN(4); } break; } PXLL_RETURN(1); } break; } PXLL_RETURN(0); L2361: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_18658_i4780_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[48]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2362; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_sort_342; L2362: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[20]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2363; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L2363: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[19]; r1[2] = r2; r2 = ((object*) lenv) [4]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2364; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L2364: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r0 = allocate (TC_TUPLE, 7); r1 = ((object*) lenv) [6]; r0[2] = r1; r1 = (object *) constructed_486[0]; r0[3] = r1; r1 = ((object*) lenv) [5]; r0[4] = r1; r1 = ((object**) lenv) [1][3]; r0[5] = r1; r1 = ((object**) lenv) [1][4]; r0[6] = r1; r1 = ((object**) lenv) [1][5]; r0[7] = r1; r1 = ((object***) lenv) [1][1][13]; r0[1] = r1[2]; lenv = r0; goto FUN_collect_primargs_splat_2731_i4780_i4889; L2356: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_collect_primargs_2730_i4780_i4889; r2[2] = lenv; r1[12] = r2; // def collect-primargs*_2731_i4780_i4889 goto L2365; FUN_collect_primargs_splat_2731_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2366; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2366: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2367; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2367: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_2946_i4780_i4889 goto L2368; FUN__24loop_2946_i4780_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][3]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][2]; r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = ((object*****) lenv) [1][1][1][1][4]; r2[3] = r3; r3 = top[32]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2369; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_index_eq_324; L2369: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2370; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2370: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_2946_i4780_i4889; } PXLL_RETURN(0); L2368: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_2946_i4780_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = (object *) 1; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2371; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_2946_i4780_i4889; L2371: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[4] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [4]; r0[2] = r1; r1 = ((object**) lenv) [1][7]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 5); r1 = (object *) 6; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = ((object**) lenv) [1][5]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][6]; r3[2] = r4; r4 = top[145]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2372; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_k_2ffree_531; L2372: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 3); r4 = ((object*) lenv) [2]; r3[2] = r4; r4 = (object *) constructed_17[0]; r3[3] = r4; r4 = top[25]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2373; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_reverse_onto_313; L2373: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object***) lenv) [1][1][3]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2374; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L2374: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[2] = r2; // def lambda_18755_i4780_i4889 goto L2375; FUN_lambda_18755_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 7); r1 = ((object**) lenv) [1][3]; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[3] = r1; r1 = ((object***) lenv) [1][1][4]; r0[4] = r1; r1 = ((object***) lenv) [1][1][5]; r0[5] = r1; r1 = ((object***) lenv) [1][1][6]; r0[6] = r1; r1 = ((object***) lenv) [1][1][7]; r0[7] = r1; r1 = ((object****) lenv) [1][1][1][13]; r0[1] = r1[2]; lenv = r0; goto FUN_collect_primargs_splat_2731_i4780_i4889; L2375: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_18755_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2376; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2376: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object***) lenv) [1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; } break; } PXLL_RETURN(0); L2365: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_collect_primargs_splat_2731_i4780_i4889; r2[2] = lenv; r1[13] = r2; // def c-primargs_2732_i4780_i4889 goto L2377; FUN_c_primargs_2732_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 5); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [6]; r0[3] = r1; r1 = ((object*) lenv) [7]; r0[4] = r1; // def lambda_18778_i4780_i4889 goto L2378; FUN_lambda_18778_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [2]; r1 = ((object**) lenv) [1][4]; r2 = ((object**) lenv) [1][5]; r3 = ((object**) lenv) [1][7]; r4 = ((object**) lenv) [1][3]; t = alloc_no_clear (UOTAG(18),5); t[1] = r4; t[2] = r1; t[3] = r2; t[4] = r0; t[5] = r3; r0 = t; PXLL_RETURN(0); L2378: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_18778_i4780_i4889; r1[2] = lenv; r0[5] = r1; r1 = ((object**) lenv) [1][12]; r0[1] = r1[2]; lenv = r0; goto FUN_collect_primargs_2730_i4780_i4889; L2377: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_c_primargs_2732_i4780_i4889; r2[2] = lenv; r1[14] = r2; // def c-trcall_2735_i4780_i4889 goto L2379; FUN_c_trcall_2735_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 5); r1 = ((object*) lenv) [4]; r0[2] = r1; r1 = ((object*) lenv) [5]; r0[3] = r1; r1 = ((object*) lenv) [6]; r0[4] = r1; // def lambda_18847_i4780_i4889 goto L2380; FUN_lambda_18847_i4780_i4889: check_heap (0); r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; r2 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(15),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); L2380: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_18847_i4780_i4889; r1[2] = lenv; r0[5] = r1; r1 = ((object**) lenv) [1][12]; r0[1] = r1[2]; lenv = r0; goto FUN_collect_primargs_2730_i4780_i4889; L2379: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_c_trcall_2735_i4780_i4889; r2[2] = lenv; r1[15] = r2; // def compile-store-args_2738_i4780_i4889 goto L2381; FUN_compile_store_args_2738_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 5); r1 = (object *) 6; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2382; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2382: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [7]; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [6]; r1[2] = r2; // def lambda_19088_i4780_i4889 goto L2383; FUN_lambda_19088_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object****) lenv) [1][1][1][4]; r2[2] = r3; r3 = top[24]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2384; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cdr_312; L2384: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_NIL): { r1 = (object *) 262; } break; default: { goto fatbar_50; } } goto fatbar_50_over; fatbar_50: r1 = (object *) 6; fatbar_50_over: ; lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = ((object***) lenv) [1][1][8]; } else { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 8); r3 = (object *) 3; r4 = ((object****) lenv) [1][1][1][2]; r3 = box((pxll_int)unbox(r4)+unbox(r3)); r2[2] = r3; r3 = ((object****) lenv) [1][1][1][3]; r2[3] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object****) lenv) [1][1][1][4]; r3[2] = r4; r4 = top[24]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2385; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_cdr_312; L2385: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r3 = ((object****) lenv) [1][1][1][5]; r2[5] = r3; r3 = ((object****) lenv) [1][1][1][6]; r2[6] = r3; r3 = ((object****) lenv) [1][1][1][7]; r2[7] = r3; r3 = ((object****) lenv) [1][1][1][8]; r2[8] = r3; r3 = ((object*****) lenv) [1][1][1][1][16]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2386; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_compile_store_args_2738_i4780_i4889; L2386: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = ((object****) lenv) [1][1][1][6]; r2 = ((object*) lenv) [2]; r3 = (object *) -1; t = alloc_no_clear (UOTAG(0),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; lenv = lenv[1]; } r0[2] = r1; r0 = ((object***) lenv) [1][1][2]; r1 = ((object**) lenv) [1][2]; r2 = ((object***) lenv) [1][1][5]; r3 = ((object*) lenv) [2]; r4 = ((object***) lenv) [1][1][3]; t = alloc_no_clear (UOTAG(12),5); t[1] = r4; t[2] = r1; t[3] = r2; t[4] = r0; t[5] = r3; r0 = t; PXLL_RETURN(0); L2383: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19088_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object**) lenv) [1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2387; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2387: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object**) lenv) [1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_compile_2713_i4780_i4889; L2381: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_compile_store_args_2738_i4780_i4889; r2[2] = lenv; r1[16] = r2; // def c-let-splat_2740_i4780_i4889 goto L2388; FUN_c_let_splat_2740_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 9); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2389; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2389: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2390; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2390: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2391; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L2391: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2392; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2392: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2393; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2393: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][6]; r1[2] = r2; r2 = top[145]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2394; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_k_2ffree_531; L2394: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = allocate (TC_TUPLE, 5); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = ((object**) lenv) [1][3]; switch (get_case (r2)) { case (TC_NIL): { r2 = ((object**) lenv) [1][5]; } break; default: { goto fatbar_49; } } goto fatbar_49_over; fatbar_49: r2 = ((object**) lenv) [1][5]; r3 = ((object**) lenv) [1][3]; t = alloc_no_clear (UOTAG(1),2); t[1] = r3; t[2] = r2; r2 = t; fatbar_49_over: ; r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][6]; r3[2] = r4; r4 = top[145]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2395; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_k_2ffree_531; L2395: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; // def lambda_19194_i4780_i4889 goto L2396; FUN_lambda_19194_i4780_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][6]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(17),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2396: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_19194_i4780_i4889; r3[2] = lenv; r2[3] = r3; r3 = ((object***) lenv) [1][1][2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2397; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cont_2711_i4780_i4889; L2397: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object***) lenv) [1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2398; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2398: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[8] = r1; r1 = ((object*) lenv) [7]; r2 = ((object*) lenv) [8]; r3 = (object *) -1; t = alloc_no_clear (UOTAG(0),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; r0[9] = r1; r0 = allocate (TC_TUPLE, 4); r1 = ((object****) lenv) [1][1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][56]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2399; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2399: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[165]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2400; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L2400: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][5]; switch (get_case (r1)) { case (UITAG(0)): { r1 = (object *) 262; } break; default: { goto fatbar_48; } } goto fatbar_48_over; fatbar_48: r1 = (object *) 6; fatbar_48_over: ; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][7]; r1[2] = r2; // def lambda_19230_i4780_i4889 goto L2401; FUN_lambda_19230_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 8); r2 = (object *) 1; r1[2] = r2; r2 = (object *) 3; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][5]; r1[4] = r2; r2 = ((object**) lenv) [1][2]; r1[5] = r2; r2 = ((object****) lenv) [1][1][1][7]; r3 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; switch (get_case (r2)) { case (TC_NIL): { r2 = ((object*****) lenv) [1][1][1][1][5]; } break; default: { goto fatbar_47; } } goto fatbar_47_over; fatbar_47: r2 = ((object*****) lenv) [1][1][1][1][5]; r3 = ((object*****) lenv) [1][1][1][1][3]; t = alloc_no_clear (UOTAG(1),2); t[1] = r3; t[2] = r2; r2 = t; fatbar_47_over: ; r1[7] = r2; r2 = ((object****) lenv) [1][1][1][9]; r1[8] = r2; r2 = ((object******) lenv) [1][1][1][1][1][16]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2402; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_store_args_2738_i4780_i4889; L2402: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][7]; r2 = ((object*) lenv) [2]; r3 = (object *) -1; t = alloc_no_clear (UOTAG(0),3); t[1] = r3; t[2] = r1; t[3] = r2; r1 = t; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object**) lenv) [1][2]; t = alloc_no_clear (UOTAG(16),2); t[1] = r1; t[2] = r0; r0 = t; PXLL_RETURN(0); L2401: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_19230_i4780_i4889; r2[2] = lenv; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2403; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cont_2711_i4780_i4889; L2403: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [2]; r1 = ((object*) lenv) [3]; r2 = ((object**) lenv) [1][6]; t = alloc_no_clear (UOTAG(10),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); L2388: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_c_let_splat_2740_i4780_i4889; r2[2] = lenv; r1[17] = r2; // def record-label-tag_2748_i4780_i4889 goto L2404; FUN_record_label_tag_2748_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def loop_3131_i4780_i4889 goto L2405; FUN_loop_3131_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (TC_PAIR): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = ((object*) lenv) [2]; r1 = UOBJ_GET(r1,1); r2 = r0; switch (get_case_noint (r2)) { default: { r2 = r0; r2 = UOBJ_GET(r2,0); r3 = r0; r3 = UOBJ_GET(r3,1); r4 = ((object***) lenv) [1][1][2]; r5 = r2; if PXLL_IS_TRUE(PXLL_TEST(r5==r4)) { r4 = (object *) 14; PXLL_RETURN(4); } else { r4 = r1; lenv[2] = r4; goto FUN_loop_3131_i4780_i4889; } PXLL_RETURN(4); } break; } PXLL_RETURN(2); } break; default: { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object******) lenv) [1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[7]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2406; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2406: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (UOTAG(1), 2); r1 = ((object****) lenv) [1][1][1][2]; r0[1] = r1; r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[7]; r2 = r1; r3 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r0 = t; r1 = ((object******) lenv) [1][1][1][1][1][2]; ((pxll_vector*)r1)->val[7] = r0; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L2405: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_loop_3131_i4780_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[7]; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[1] = r1[2]; lenv = r0; goto FUN_loop_3131_i4780_i4889; L2404: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_record_label_tag_2748_i4780_i4889; r2[2] = lenv; r1[18] = r2; // def gen-return_2751_i4780_i4889 goto L2407; FUN_gen_return_2751_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); L2407: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_gen_return_2751_i4780_i4889; r2[2] = lenv; r1[19] = r2; // def gen-invoke_2752_i4780_i4889 goto L2408; FUN_gen_invoke_2752_i4780_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r1 = ((object***) lenv) [1][1][2]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][56]; r1[2] = r2; r2 = top[23]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2409; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_car_311; L2409: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = top[165]; r0[4] = r1; r1 = top[6]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2410; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_vars_set_flag_bang_249; L2410: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [5]; r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(13),4); t[1] = r3; t[2] = r1; t[3] = r2; t[4] = r0; r0 = t; PXLL_RETURN(0); L2408: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_gen_invoke_2752_i4780_i4889; r2[2] = lenv; r1[20] = r2; // def gen-tail_2753_i4780_i4889 goto L2411; FUN_gen_tail_2753_i4780_i4889: check_heap (0); r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(14),3); t[1] = r2; t[2] = r0; t[3] = r1; r0 = t; PXLL_RETURN(0); L2411: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_gen_tail_2753_i4780_i4889; r2[2] = lenv; r1[21] = r2; r2 = allocate (TC_TUPLE, 2); r3 = (object *) 1; r2[2] = r3; r3 = top[117]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2412; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_make_counter_474; L2412: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[22] = r2; r1 = allocate (TC_TUPLE, 5); r2 = (object *) 262; r1[2] = r2; r2 = ((object**) lenv) [1][55]; r1[3] = r2; r2 = (object*)UITAG(0); r1[4] = r2; r2 = allocate (TC_TUPLE, 3); r3 = (object *) constructed_485[0]; r2[2] = r3; r3 = ((object*) lenv) [19]; r2[3] = r3; r3 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2413; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_cont_2711_i4780_i4889; L2413: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = ((object*) lenv) [3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2414; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_compile_2713_i4780_i4889; L2414: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[57] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object*)UITAG(5); r1[2] = r2; r2 = (object *) constructed_484[0]; r1[3] = r2; r2 = top[122]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2415; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_make_node_488; L2415: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; ((object*) lenv) [34] = r1; r0[58] = r1; r1 = allocate (UOTAG(1), 3); r2 = (object *) 32769; r2 = box((pxll_int)string_tuple_length (unbox(r2))); ensure_heap (2, unbox(r2)); r2 = (object *) 32769; r2 = (t=alloc_no_clear (TC_STRING, string_tuple_length (unbox(r2))), ((pxll_string*)(t))->len = unbox(r2), t); r1[1] = r2; r2 = allocate (TC_TUPLE, 4); r3 = ((object*) lenv) [12]; r2[2] = r3; r3 = top[172]; r4 = top[171]; r3 = box((pxll_int)unbox(r4)|unbox(r3)); r4 = r3; r5 = top[173]; r3 = box((pxll_int)unbox(r5)|unbox(r4)); r2[3] = r3; r3 = (object *) 841; r2[4] = r3; r3 = top[64]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2416; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_open_375; L2416: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r0[59] = r1; r1 = (object *) 1; r0[60] = r1; r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; // def write-string_4284_i4783_i4889 goto L2417; FUN_write_string_4284_i4783_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][59]; r1 = ((pxll_vector*)r1)->val[lookup_field((GET_TYPECODE(*r1)-TC_USEROBJ)>>2,6)]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 3); r5 = ((object*****) lenv) [1][1][1][1][60]; r4[2] = r5; r5 = (object*) &constructed_483; r4[3] = r5; r5 = top[35]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2418; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_n_of_327; L2418: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[51]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2419; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_string_concat_354; L2419: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_482; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object***) lenv) [1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2420; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2420: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [3]; r2 = ((object*) lenv) [2]; r0 = box((pxll_int)write (unbox(r2), ((pxll_string*)(r1))->data, unbox(r0))); lenv = lenv[1]; r0 = (object *) 14; PXLL_RETURN(0); L2417: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_write_string_4284_i4783_i4889; r2[2] = lenv; r1[2] = r2; // def copy_4285_i4783_i4889 goto L2421; FUN_copy_4285_i4783_i4889: r0 = ((object***) lenv) [1][1][59]; r0 = ((pxll_vector*)r0)->val[lookup_field((GET_TYPECODE(*r0)-TC_USEROBJ)>>2,6)]; r1 = ((object*) lenv) [2]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = ((object*) lenv) [2]; r3 = r0; r1 = box((pxll_int)write (unbox(r3), ((pxll_string*)(r2))->data, unbox(r1))); PXLL_RETURN(1); L2421: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_copy_4285_i4783_i4889; r2[2] = lenv; r1[3] = r2; // def indent_4286_i4783_i4889 goto L2422; FUN_indent_4286_i4783_i4889: r0 = ((object**) lenv) [1][60]; r1 = (object *) 3; r2 = r0; r0 = box((pxll_int)unbox(r2)+unbox(r1)); ((object**) lenv) [1][60] = r0; PXLL_RETURN(0); L2422: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_indent_4286_i4783_i4889; r2[2] = lenv; r1[4] = r2; // def dedent_4287_i4783_i4889 goto L2423; FUN_dedent_4287_i4783_i4889: r0 = ((object**) lenv) [1][60]; r1 = (object *) 3; r2 = r0; r0 = box((pxll_int)unbox(r2)-unbox(r1)); ((object**) lenv) [1][60] = r0; PXLL_RETURN(0); L2423: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_dedent_4287_i4783_i4889; r2[2] = lenv; r1[5] = r2; // def close-file_4288_i4783_i4889 goto L2424; FUN_close_file_4288_i4783_i4889: r0 = ((object**) lenv) [1][59]; r0 = ((pxll_vector*)r0)->val[lookup_field((GET_TYPECODE(*r0)-TC_USEROBJ)>>2,6)]; r1 = r0; r1 = box((pxll_int)close (unbox(r1))); PXLL_RETURN(1); L2424: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_close_file_4288_i4783_i4889; r2[2] = lenv; r1[6] = r2; r1 = allocate (UOTAG(0), 5); r2 = ((object*) lenv) [6]; r1[1] = r2; r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object*) lenv) [5]; r1[3] = r2; r2 = ((object*) lenv) [4]; r1[4] = r2; r2 = ((object*) lenv) [2]; r1[5] = r2; lenv = lenv[1]; r0[61] = r1; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[11]; r0 = ((pxll_vector*)r0)->val[7]; if PXLL_IS_TRUE(r0) { r0 = (object*) &constructed_481; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_481; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [57]; r0[2] = r1; r1 = (object *) 1; r0[3] = r1; r1 = top[147]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2425; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_print_insn_535; L2425: ; lenv = k[2]; k = k[1]; r0 = top[167]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2426; ; k = t; lenv = r0[2]; goto *r0[1]; L2426: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_480; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_480; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); // def lambda_35704_i4889 goto L2427; FUN_lambda_35704_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = top[121]; r0[1] = r1[2]; lenv = r0; goto FUN_print_datatype_483; L2427: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_35704_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[3]; r0[3] = r1; r1 = top[71]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2428; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; L2428: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_479; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_479; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); // def lambda_35738_i4889 goto L2429; FUN_lambda_35738_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][2]; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object***) lenv) [1][1][3]; r3 = ((object***) lenv) [1][1][3]; r3 = UOBJ_GET(r3,0); r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_478; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_477; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_476; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2430; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2430: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L2429: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_35738_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[0]; r0[3] = r1; r1 = top[71]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2431; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; L2431: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_475; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_475; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[7]; r1 = r0; dump_object (r1, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_474; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_474; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[13]; r1 = r0; dump_object (r1, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_473; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_473; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); // def lambda_35786_i4889 goto L2432; FUN_lambda_35786_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][3]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2433; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2433: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object***) lenv) [1][1][2]; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_472; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_471; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_470; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2434; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2434: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L2432: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_35786_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[17]; r0[3] = r1; r1 = top[71]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2435; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; L2435: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_469; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_469; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); // def lambda_35820_i4889 goto L2436; FUN_lambda_35820_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][3]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2437; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2437: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = ((object***) lenv) [1][1][2]; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_468; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_467; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_466; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2438; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2438: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L2436: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_35820_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[18]; r0[3] = r1; r1 = top[71]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2439; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; L2439: ; lenv = k[2]; k = k[1]; r0 = (object*) &constructed_465; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_465; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 3); // def lambda_35856_i4889 goto L2440; FUN_lambda_35856_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][2]; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = top[148]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2441; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_apply_subst_538; L2441: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[111]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2442; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_type_repr_464; L2442: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_464; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_463; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_462; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2443; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2443: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; PXLL_RETURN(0); L2440: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_35856_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[5]; r0[3] = r1; r1 = top[71]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2444; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; L2444: ; lenv = k[2]; k = k[1]; r0 = (object *) 14; } else { r0 = (object *) 14; } r0 = (object*) &constructed_461; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_461; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_460; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_460; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [12]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [12]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = top[167]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2445; ; k = t; lenv = r0[2]; goto *r0[1]; L2445: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_35893_i4889 goto L2446; FUN_lambda_35893_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = (object*)TC_NIL; r3 = r2; r4 = (object*) &constructed_459; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = (object*) &constructed_458; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r2 = t; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2447; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2447: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**) lenv) [1][61]; r1 = ((pxll_vector*)r1)->val[4]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2446: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_35893_i4889; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[1]; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2448; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2448: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2449; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2449: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [61]; r1 = ((pxll_vector*)r1)->val[4]; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[2]; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2450; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2450: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2451; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2451: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_457; r1[2] = r2; r2 = top[65]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2452; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_file_2fopen_read_382; L2452: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def loop_4812_i4709_i4836_i4889 goto L2453; FUN_loop_4812_i4709_i4836_i4889: check_heap (0); r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object *) 1; r2 = r0; r0 = PXLL_TEST(unbox(r2)==unbox(r1)); if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2454; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2454: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } else { r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][2]; r1[2] = r2; r2 = top[67]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2455; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_file_2fread_buffer_388; L2455: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv[2] = r1; lenv[3] = r0; goto FUN_loop_4812_i4709_i4836_i4889; } PXLL_RETURN(0); L2453: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_loop_4812_i4709_i4836_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[67]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2456; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_file_2fread_buffer_388; L2456: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object *) constructed_456[0]; r1[3] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2457; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_loop_4812_i4709_i4836_i4889; L2457: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[216]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[55]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2458; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_find_358; L2458: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = top[217]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = top[55]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2459; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_find_358; L2459: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = (object *) -1; r2 = ((object*) lenv) [4]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)==unbox(r1))) { r1 = (object *) 262; } else { r1 = (object *) -1; r2 = ((object*) lenv) [5]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); } if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_455; r1[2] = r2; r2 = allocate (UOTAG(1), 2); r3 = ((object*) lenv) [4]; r2[1] = r3; r3 = ((object*) lenv) [5]; r2[2] = r3; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2460; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2460: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 8); r1[1] = lenv; lenv = r1; r2 = top[216]; r2 = box((pxll_int)((pxll_string*)(r2))->len); r1[2] = r2; r2 = ((object*) lenv) [2]; r3 = ((object**) lenv) [1][4]; r2 = box((pxll_int)unbox(r3)+unbox(r2)); r1[3] = r2; r2 = top[217]; r2 = box((pxll_int)((pxll_string*)(r2))->len); r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object**) lenv) [1][5]; r2 = box((pxll_int)unbox(r3)+unbox(r2)); r1[5] = r2; r2 = allocate (TC_TUPLE, 4); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = (object *) 1; r2[3] = r3; r3 = ((object*) lenv) [3]; r2[4] = r3; r3 = top[49]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2461; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_substring_347; L2461: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[6] = r2; r2 = allocate (TC_TUPLE, 4); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = ((object*) lenv) [3]; r2[3] = r3; r3 = ((object*) lenv) [5]; r2[4] = r3; r3 = top[49]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2462; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_substring_347; L2462: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[7] = r2; r2 = allocate (TC_TUPLE, 4); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = ((object*) lenv) [5]; r2[3] = r3; r3 = ((object**) lenv) [1][3]; r3 = box((pxll_int)((pxll_string*)(r3))->len); r2[4] = r3; r3 = top[49]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2463; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_substring_347; L2463: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[8] = r2; r1 = allocate (UOTAG(9), 3); r2 = ((object*) lenv) [6]; r1[1] = r2; r2 = ((object*) lenv) [7]; r1[2] = r2; r2 = ((object*) lenv) [8]; r1[3] = r2; lenv = lenv[1]; } r0[6] = r1; r0 = ((object*) lenv) [6]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][6]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][6]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][6]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object***) lenv) [1][1][61]; r1 = ((pxll_vector*)r1)->val[1]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2464; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2464: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 8); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[9]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2465; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2465: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2466; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2466: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = (object*)UITAG(0); r0[5] = r1; r1 = (object *) constructed_454[0]; r0[6] = r1; r1 = (object *) 1; r0[7] = r1; r1 = (object *) 1; r0[8] = r1; r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; // def uohead_4749_i4837_i4889 goto L2467; FUN_uohead_4749_i4837_i4889: check_heap (0); r0 = (object *) constructed_47[0]; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) constructed_57[0]; r1 = ((object*) lenv) [4]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object*) &constructed_450; PXLL_RETURN(0); } else { goto fatbar_46; } PXLL_RETURN(0); } else { goto fatbar_46; } PXLL_RETURN(0); goto fatbar_46_over; fatbar_46: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 8); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2468; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2468: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][5]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2469; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2469: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = (object*) &constructed_453; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = (object*) &constructed_452; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r2 = ((object*) lenv) [7]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[8] = r2; r1 = ((object*) lenv) [8]; r2 = (object*) &constructed_451; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; fatbar_46_over: ; PXLL_RETURN(0); L2467: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_uohead_4749_i4837_i4889; r1[2] = lenv; r0[2] = r1; // def uitag_4750_i4837_i4889 goto L2470; FUN_uitag_4750_i4837_i4889: check_heap (0); r0 = (object *) constructed_47[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) constructed_45[0]; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object*) &constructed_447; PXLL_RETURN(0); } else { goto fatbar_45; } PXLL_RETURN(0); } else { goto fatbar_45; } PXLL_RETURN(0); goto fatbar_45_over; fatbar_45: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2471; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2471: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = (object*) &constructed_449; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = (object*) &constructed_448; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; fatbar_45_over: ; PXLL_RETURN(0); L2470: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_uitag_4750_i4837_i4889; r1[2] = lenv; r0[3] = r1; // def walk_4751_i4837_i4889 goto L2472; FUN_walk_4751_i4837_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(5)): { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,2); r0[4] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = (object*) &constructed_435; r1[4] = r2; r2 = top[70]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2473; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2fget_398; L2473: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object*) lenv) [5]; r2 = ((pxll_vector*)r2)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2474; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2474: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2475; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2475: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [7]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)>unbox(r0))) { r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][4]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2476; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L2476: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*****) lenv) [1][1][1][1][6]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2477; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2477: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = ((object*) lenv) [3]; r2 = (object *) 3; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[4] = r1; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 5); r2 = ((object***) lenv) [1][1][7]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = ((object***) lenv) [1][1][3]; r1[4] = r2; r2 = ((object***) lenv) [1][1][6]; r2 = ((pxll_vector*)r2)->val[1]; r1[5] = r2; r2 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2478; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_uohead_4749_i4837_i4889; L2478: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][6]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object*****) lenv) [1][1][1][1][6] = r0; r0 = allocate (TC_TUPLE, 3); // def lambda_34383_i4837_i4889 goto L2479; FUN_lambda_34383_i4837_i4889: check_heap (0); r0 = ((object******) lenv) [1][1][1][1][1][6]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object******) lenv) [1][1][1][1][1][6] = r0; PXLL_RETURN(0); L2479: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_34383_i4837_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2480; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2480: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 8); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object******) lenv) [1][1][1][1][1][7]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2481; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2481: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2482; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2482: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = (object*) &constructed_434; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = (object*) &constructed_433; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r2 = ((object*) lenv) [7]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[8] = r2; r1 = ((object*) lenv) [8]; r2 = (object*) &constructed_432; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } else { r0 = allocate (TC_TUPLE, 4); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = ((object*) lenv) [6]; r1 = ((pxll_vector*)r1)->val[1]; r0[4] = r1; r1 = ((object***) lenv) [1][1][3]; r0[1] = r1[2]; lenv = r0; goto FUN_uitag_4750_i4837_i4889; } PXLL_RETURN(0); } break; case (UOTAG(6)): { r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object***) lenv) [1][1][4]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2483; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L2483: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2484; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2484: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object****) lenv) [1][1][1][6]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2485; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2485: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; r2 = (object *) 3; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[6] = r1; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][4]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2486; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2486: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_440; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_439; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2487; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2487: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][6]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object****) lenv) [1][1][1][6] = r0; r0 = allocate (TC_TUPLE, 3); // def lambda_34467_i4837_i4889 goto L2488; FUN_lambda_34467_i4837_i4889: check_heap (0); r0 = ((object*****) lenv) [1][1][1][1][6]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object*****) lenv) [1][1][1][1][6] = r0; PXLL_RETURN(0); L2488: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_34467_i4837_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [3]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2489; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2489: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 8); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object*****) lenv) [1][1][1][1][7]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2490; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2490: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][6]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2491; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2491: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object*)TC_NIL; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = (object*) &constructed_438; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[6] = r2; r2 = ((object*) lenv) [6]; r3 = (object*) &constructed_437; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[7] = r2; r2 = ((object*) lenv) [7]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[8] = r2; r1 = ((object*) lenv) [8]; r2 = (object*) &constructed_436; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; case (UOTAG(4)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 4); r2 = ((object*******) lenv) [1][1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[17]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = (object*) &constructed_443; r1[4] = r2; r2 = top[70]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2492; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2fget_398; L2492: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2493; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2493: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = (object*) &constructed_442; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = (object*) &constructed_441; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object****) lenv) [1][1][1][5]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2494; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L2494: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2495; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2495: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = (object*) &constructed_445; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = (object*) &constructed_444; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_446; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_446; result=r0; goto Lreturn; PXLL_RETURN(0); } break; } PXLL_RETURN(0); } break; default: { goto fatbar_44; } } PXLL_RETURN(0); goto fatbar_44_over; fatbar_44: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = top[156]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2496; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_encode_immediate_566; L2496: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[60]; r0[1] = r1[2]; lenv = r0; goto FUN_int__3estring_366; fatbar_44_over: ; PXLL_RETURN(0); L2472: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_walk_4751_i4837_i4889; r1[2] = lenv; r0[4] = r1; r0 = ((object*****) lenv) [1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2497; ; k = t; lenv = r0[2]; goto *r0[1]; L2497: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object***) lenv) [1][1][4]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_4780_i4837_i4889 goto L2498; FUN__24loop_4780_i4837_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = (object *) constructed_431[0]; ((object*****) lenv) [1][1][1][1][6] = r0; r0 = ((object*) lenv) [2]; ((object*****) lenv) [1][1][1][1][7] = r0; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2499; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2499: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = box((pxll_int)((pxll_string*)(r1))->len); r0[3] = r1; r0 = ((object*******) lenv) [1][1][1][1][1][1][5]; r1 = ((object***) lenv) [1][1][2]; r2 = r0; r3 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(1),3); t[1] = r3; t[2] = r1; t[3] = r2; r0 = t; ((object*******) lenv) [1][1][1][1][1][1][5] = r0; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 14); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object****) lenv) [1][1][1][2]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2500; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2500: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][3]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2501; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2501: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][3]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2502; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2502: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r3 = allocate (TC_TUPLE, 2); r3[1] = lenv; lenv = r3; // def loop_4795_i4614_i4837_i4889 goto L2503; FUN_loop_4795_i4614_i4837_i4889: check_heap (0); r0 = ((object*) lenv) [3]; switch (get_case (r0)) { case (TC_NIL): { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2504; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2504: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; } break; default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][3]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) 8706; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object*) &constructed_411; } else { goto fatbar_36; } goto fatbar_36_over; fatbar_36: r1 = (object *) 23554; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object*) &constructed_412; } else { goto fatbar_37; } goto fatbar_37_over; fatbar_37: r1 = (object *) 2306; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object*) &constructed_413; } else { goto fatbar_38; } goto fatbar_38_over; fatbar_38: r1 = (object *) 2562; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object*) &constructed_414; } else { goto fatbar_39; } goto fatbar_39_over; fatbar_39: r1 = (object *) 3330; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object*) &constructed_415; } else { goto fatbar_40; } goto fatbar_40_over; fatbar_40: r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[215]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2505; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2505: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[50]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2506; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_char__3estring_350; L2506: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = box((pxll_int)GET_CHAR(r2)); r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; // def loop_1053_i4623_i4837_i4889 goto L2507; FUN_loop_1053_i4623_i4837_i4889: check_heap (0); r0 = ((object*) lenv) [2]; r1 = (object *) 1; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)val[unbox(r0)]; r1 = ((object*) lenv) [3]; r2 = r0; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; r1 = (object *) 7; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)>>unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN_loop_1053_i4623_i4837_i4889; } PXLL_RETURN(0); L2507: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_loop_1053_i4623_i4837_i4889; r3[2] = lenv; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) 1; r4 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r4)len); r2[2] = r3; r3 = (object *) 5; r4 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = (object*) &constructed_416; } else { goto fatbar_41; } goto fatbar_41_over; fatbar_41: r3 = (object *) 3; r4 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = (object*) &constructed_417; } else { goto fatbar_42; } goto fatbar_42_over; fatbar_42: r3 = (object *) 1; r4 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r4==r3)) { r3 = (object*) &constructed_418; } else { goto fatbar_43; } goto fatbar_43_over; fatbar_43: r3 = allocate (TC_TUPLE, 3); r4 = (object*) &constructed_419; r3[2] = r4; r4 = ((object****) lenv) [1][1][1][2]; r3[3] = r4; r4 = top[15]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2509; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_error1_294; L2509: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; fatbar_43_over: ; fatbar_42_over: ; fatbar_41_over: ; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2510; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2510: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } fatbar_40_over: ; fatbar_39_over: ; fatbar_38_over: ; fatbar_37_over: ; fatbar_36_over: ; r0[2] = r1; r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = ((object*) lenv) [3]; lenv = ((object *)lenv)[1]; lenv[2] = r0; lenv[3] = r1; goto FUN_loop_4795_i4614_i4837_i4889; } break; } PXLL_RETURN(0); L2503: r4 = allocate (TC_CLOSURE, 2); r4[1] = &&FUN_loop_4795_i4614_i4837_i4889; r4[2] = lenv; r3[2] = r4; r3 = allocate (TC_TUPLE, 3); r4 = (object *) constructed_410[0]; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[59]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2511; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string__3elist_364; L2511: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2512; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_loop_4795_i4614_i4837_i4889; L2512: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; lenv = lenv[1]; r2[5] = r3; r3 = (object*)TC_NIL; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_409; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_408; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[9] = r3; r3 = ((object*) lenv) [9]; r4 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[10] = r3; r3 = ((object*) lenv) [10]; r4 = (object*) &constructed_407; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[11] = r3; r3 = ((object*) lenv) [11]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[12] = r3; r3 = ((object*) lenv) [12]; r4 = (object*) &constructed_406; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[13] = r3; r3 = ((object*) lenv) [13]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[14] = r3; r2 = ((object*) lenv) [14]; r3 = (object*) &constructed_405; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2513; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2513: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2514; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2514: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; } break; case (UOTAG(4)): { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r2 = ((object*) lenv) [2]; r2 = UOBJ_GET(r2,0); r3 = (object*)TC_NIL; r4 = r3; r5 = r2; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = (object*) &constructed_426; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r2 = t; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2515; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2515: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2516; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2516: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 14); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object****) lenv) [1][1][1][2]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2517; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2517: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object****) lenv) [1][1][1][2]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2518; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2518: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object********) lenv) [1][1][1][1][1][1][1][7]; r5 = (object *) 3; r6 = r4; r4 = box((pxll_int)unbox(r6)-unbox(r5)); r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2519; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2519: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object********) lenv) [1][1][1][1][1][1][1][8]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2520; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2520: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[5] = r3; r3 = (object*)TC_NIL; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_425; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_424; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[9] = r3; r3 = ((object*) lenv) [9]; r4 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[10] = r3; r3 = ((object*) lenv) [10]; r4 = (object*) &constructed_423; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[11] = r3; r3 = ((object*) lenv) [11]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[12] = r3; r3 = ((object*) lenv) [12]; r4 = (object*) &constructed_422; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[13] = r3; r3 = ((object*) lenv) [13]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[14] = r3; r2 = ((object*) lenv) [14]; r3 = (object*) &constructed_421; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2521; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2521: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2522; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2522: ; lenv = k[2]; k = k[1]; r0 = ((object*******) lenv) [1][1][1][1][1][1][8]; r1 = r0; r2 = (object *) 3; r0 = box((pxll_int)unbox(r2)+unbox(r1)); ((object*******) lenv) [1][1][1][1][1][1][8] = r0; lenv = lenv[1]; } break; default: { goto fatbar_35; } } goto fatbar_35_over; fatbar_35: r0 = allocate (TC_TUPLE, 5); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object*******) lenv) [1][1][1][1][1][1][3]; r2[2] = r3; r3 = ((object***) lenv) [1][1][2]; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2523; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L2523: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2524; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_walk_4751_i4837_i4889; L2524: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][6]; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2525; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2525: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [4]; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; r0[5] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object****) lenv) [1][1][1][2]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2526; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2526: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = top[16]; r4[2] = r5; r5 = ((object**) lenv) [1][5]; r4[3] = r5; r5 = top[36]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2527; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_map_328; L2527: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*) &constructed_430; r3[3] = r4; r4 = top[52]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2528; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_string_join_355; L2528: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_429; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_428; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_427; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2529; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2529: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2530; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2530: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; fatbar_35_over: ; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4780_i4837_i4889; } PXLL_RETURN(0); L2498: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_4780_i4837_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2531; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_4780_i4837_i4889; L2531: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = (object *) constructed_404[0]; r0[2] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_34810_i4837_i4889 goto L2532; FUN_lambda_34810_i4837_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object***) lenv) [1][1][3]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2533; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2533: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_403; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_402; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2534; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2534: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][2]; r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; ((object**) lenv) [1][2] = r0; PXLL_RETURN(0); L2532: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_34810_i4837_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[17]; r0[3] = r1; r1 = top[71]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2535; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_alist_2fiterate_399; L2535: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[26]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2536; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_length_316; L2536: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2537; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2537: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = top[16]; r4[2] = r5; r5 = ((object**) lenv) [1][2]; r4[3] = r5; r5 = top[36]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2538; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_map_328; L2538: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*) &constructed_401; r3[3] = r4; r4 = top[52]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2539; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_string_join_355; L2539: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_400; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_399; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_398; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2540; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2540: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2541; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2541: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = ((object*****) lenv) [1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2542; ; k = t; lenv = r0[2]; goto *r0[1]; L2542: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = ((object***) lenv) [1][1][2]; r0 = ((pxll_vector*)r0)->val[11]; r0 = ((pxll_vector*)r0)->val[5]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_397; r0[2] = r1; r1 = ((object***) lenv) [1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2543; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2543: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object****) lenv) [1][1][1][2]; r1 = ((pxll_vector*)r1)->val[14]; r1 = ((pxll_vector*)r1)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2544; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2544: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*) lenv) [2]; r2 = (object *) 3; r1 = box((pxll_int)unbox(r2)+unbox(r1)); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][3]; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_4731_i4839_i4889 goto L2545; FUN__24loop_4731_i4839_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2546; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2546: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_396; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_395; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2547; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2547: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2548; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2548: ; lenv = k[2]; k = k[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4731_i4839_i4889; } PXLL_RETURN(0); L2545: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_4731_i4839_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2549; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_4731_i4839_i4889; L2549: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_394; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2550; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2550: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_393; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2551; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2551: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_34120_i4839_i4889 goto L2552; FUN_lambda_34120_i4839_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 11); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = (object *) 3; r5 = ((object**) lenv) [1][2]; r4 = box((pxll_int)unbox(r5)+unbox(r4)); r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2553; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2553: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = (object *) 7; r5 = ((object**) lenv) [1][2]; r4 = box((pxll_int)unbox(r5)+unbox(r4)); r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2554; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2554: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2555; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2555: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r3 = (object*)TC_NIL; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_392; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_391; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r3 = ((object*) lenv) [8]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[9] = r3; r3 = ((object*) lenv) [9]; r4 = (object*) &constructed_390; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[10] = r3; r3 = ((object*) lenv) [10]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[11] = r3; r2 = ((object*) lenv) [11]; r3 = (object*) &constructed_389; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2556; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2556: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2552: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_34120_i4839_i4889; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[34]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2557; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_range_326; L2557: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2558; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2558: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2559; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2559: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_388; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2560; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2560: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_387; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2561; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2561: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_386; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2562; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2562: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_34181_i4839_i4889 goto L2563; FUN_lambda_34181_i4839_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 11); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = (object *) 3; r5 = ((object**) lenv) [1][2]; r4 = box((pxll_int)unbox(r5)+unbox(r4)); r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2564; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2564: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2565; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2565: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = allocate (TC_TUPLE, 2); r4 = (object *) 7; r5 = ((object**) lenv) [1][2]; r4 = box((pxll_int)unbox(r5)+unbox(r4)); r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2566; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2566: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r3 = (object*)TC_NIL; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_385; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_384; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r3 = ((object*) lenv) [8]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[9] = r3; r3 = ((object*) lenv) [9]; r4 = (object*) &constructed_383; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[10] = r3; r3 = ((object*) lenv) [10]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[11] = r3; r2 = ((object*) lenv) [11]; r3 = (object*) &constructed_382; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2567; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2567: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2563: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_34181_i4839_i4889; r1[2] = lenv; r0[2] = r1; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[34]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2568; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_range_326; L2568: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = (object *) constructed_17[0]; r1[3] = r2; r2 = top[25]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2569; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_reverse_onto_313; L2569: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2570; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L2570: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_381; r0[2] = r1; r1 = ((object****) lenv) [1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2571; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2571: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = ((object***) lenv) [1][1][61]; r1 = ((pxll_vector*)r1)->val[1]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2572; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2572: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [4]; r0[2] = r1; r1 = ((object***) lenv) [1][1][61]; r1 = ((pxll_vector*)r1)->val[1]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2573; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2573: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = (object *) 3; r0[2] = r1; r1 = (object *) constructed_380[0]; r0[3] = r1; r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; // def emit_4345_i4840_i4889 goto L2574; FUN_emit_4345_i4840_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2575; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2575: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_69; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_68; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2576; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2576: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2577; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2577: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = (object*)UITAG(1); lenv = lenv[1]; } break; case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2578; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2578: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[156]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2579; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_encode_immediate_566; L2579: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = (object *) -1; r3 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r3)==unbox(r2))) { r2 = (object*) &constructed_72; } else { r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 4); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2580; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2580: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_73; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2581; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2581: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } r1[4] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 6); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2582; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2582: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_71; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_70; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r3 = ((object*) lenv) [6]; r4 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2583; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2583: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2584; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2584: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r1 = ((object*) lenv) [3]; lenv = lenv[1]; } break; case (UOTAG(2)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2585; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2585: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>=unbox(r1))) { r1 = (object *) constructed_81[0]; r2 = ((object**) lenv) [1][3]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2586; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2586: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2587; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2587: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_76; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_75; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_74; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2588; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2588: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2589; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2589: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2590; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2590: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2591; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2591: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_79; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_78; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_77; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2592; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2592: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2593; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2593: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } } else { r1 = (object *) 14; } lenv = lenv[1]; r1 = ((object*) lenv) [4]; lenv = lenv[1]; } break; case (UOTAG(4)): { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2594; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2594: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_85; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_84; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2595; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2595: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2596; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2596: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2597; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2597: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2598; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L2598: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2599; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2599: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_83; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2600; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2600: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2601; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2601: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2602; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L2602: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2603; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2603: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_82; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2604; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2604: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object*) lenv) [5]; lenv = lenv[1]; } break; case (UOTAG(5)): { r1 = allocate (TC_TUPLE, 7); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,4); r1[6] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,5); r1[7] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = (object *) constructed_92[0]; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = allocate (TC_TUPLE, 3); // def lambda_30212_i3324_i4840_i4889 goto L2605; FUN_lambda_30212_i3324_i4840_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2606; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2606: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r1 = ((object*) lenv) [4]; r2 = (object*) &constructed_90; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; L2605: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN_lambda_30212_i3324_i4840_i4889; r3[2] = lenv; r2[2] = r3; r3 = ((object***) lenv) [1][1][2]; r2[3] = r3; r3 = top[36]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2607; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_map_328; L2607: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = allocate (TC_TUPLE, 4); r3 = top[157]; r2[2] = r3; r3 = ((object*) lenv) [3]; r2[3] = r3; r3 = ((object*) lenv) [4]; r2[4] = r3; r3 = top[37]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2608; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_map2_329; L2608: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = ((object***) lenv) [1][1][4]; r3[2] = r4; r4 = ((object*) lenv) [5]; r3[3] = r4; r4 = top[160]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2609; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_cexp_subst_570; L2609: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = top[159]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2610; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_wrap_out_569; L2610: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[6] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = (object*)TC_NIL; r4 = r3; r5 = (object*) &constructed_89; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = ((object*) lenv) [6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r5 = t; r6 = r5; r7 = (object*) &constructed_88; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2611; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2611: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2612; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2612: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2613; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2613: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][5]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2614; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L2614: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2615; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2615: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_87; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2616; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2616: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2617; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2617: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = ((object***) lenv) [1][1][6]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2618; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L2618: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2619; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2619: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_86; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2620; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2620: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_6; } } } else { lenv = ((object *)lenv)[1]; goto fatbar_6; } lenv = lenv[1]; } break; default: { goto fatbar_6; } } goto fatbar_6_over; fatbar_6: r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_63; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_63; result=r1; goto Lreturn; fatbar_6_over: ; r1 = ((object*) lenv) [7]; lenv = lenv[1]; } break; case (UOTAG(6)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object*) lenv) [3]; r1[3] = r2; r2 = ((object****) lenv) [1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2621; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_move_4346_i4840_i4889; L2621: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = (object*)UITAG(1); lenv = lenv[1]; } break; case (UOTAG(3)): { r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,4); r1[6] = r2; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][6]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2622; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2622: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**) lenv) [1][2]; switch (get_case (r2)) { case (UOTAG(1)): { r2 = allocate (TC_TUPLE, 3); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,1); r2[3] = r3; r2 = (object *) constructed_92[0]; r3 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = ((object*) lenv) [3]; switch (get_case (r2)) { case (TC_PAIR): { r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][3]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r3 = ((object**) lenv) [1][3]; r3 = UOBJ_GET(r3,1); r2[3] = r3; r3 = allocate (TC_TUPLE, 3); // def lambda_30323_i3336_i4840_i4889 goto L2623; FUN_lambda_30323_i3336_i4840_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2624; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2624: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r1 = ((object*) lenv) [4]; r2 = (object*) &constructed_97; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; L2623: r4 = allocate (TC_CLOSURE, 2); r4[1] = &&FUN_lambda_30323_i3336_i4840_i4889; r4[2] = lenv; r3[2] = r4; r4 = ((object****) lenv) [1][1][1][5]; r3[3] = r4; r4 = top[36]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2625; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map_328; L2625: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[4] = r3; r3 = allocate (TC_TUPLE, 4); r4 = top[157]; r3[2] = r4; r4 = ((object*) lenv) [3]; r3[3] = r4; r4 = ((object*) lenv) [4]; r3[4] = r4; r4 = top[37]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2626; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_map2_329; L2626: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[5] = r3; r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][3]; r2[2] = r3; r3 = allocate (TC_TUPLE, 3); r4 = ((object****) lenv) [1][1][1][4]; r3[2] = r4; r4 = ((object*) lenv) [5]; r3[3] = r4; r4 = top[160]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2627; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_cexp_subst_570; L2627: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = top[159]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2628; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_wrap_out_569; L2628: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_7; } } } else { lenv = ((object *)lenv)[1]; goto fatbar_7; } lenv = lenv[1]; } break; default: { goto fatbar_7; } } goto fatbar_7_over; fatbar_7: r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = ((object**) lenv) [1][4]; r2[3] = r3; r3 = top[159]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2629; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_wrap_out_569; L2629: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; fatbar_7_over: ; r1[3] = r2; r1 = (object *) -1; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)==unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = (object*)TC_NIL; r4 = r3; r5 = (object*) &constructed_93; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2630; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2630: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2631; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2631: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2632; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2632: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_96; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_95; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_94; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2633; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2633: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2634; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2634: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } lenv = lenv[1]; r1 = ((object*) lenv) [6]; lenv = lenv[1]; } break; case (UOTAG(7)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2635; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2635: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[155]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2636; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_gen_function_label_565; L2636: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = top[213]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2637; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L2637: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r1 = ((object******) lenv) [1][1][1][1][1][2]; r2 = ((object******) lenv) [1][1][1][1][1][3]; r3 = r2; r4 = r1; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r1 = t; ((object******) lenv) [1][1][1][1][1][3] = r1; r1 = ((object******) lenv) [1][1][1][1][1][2]; r2 = r1; r3 = (object *) 3; r1 = box((pxll_int)unbox(r3)+unbox(r2)); ((object******) lenv) [1][1][1][1][1][2] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][2]; r3 = ((object**) lenv) [1][2]; r3 = UOBJ_GET(r3,0); r4 = (object*)TC_NIL; r5 = r4; r6 = r3; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r5 = t; r6 = r5; r7 = (object*) &constructed_118; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2638; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2638: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2639; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2639: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = (object*)TC_NIL; r4 = r3; r5 = (object*) &constructed_117; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r5 = t; r6 = r5; r7 = (object*) &constructed_116; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2640; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2640: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2641; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2641: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = (object*)TC_NIL; r4 = r3; r5 = (object*) &constructed_115; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2642; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2642: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2643; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2643: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2644; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2644: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[11]; r1 = ((pxll_vector*)r1)->val[6]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = (object*)TC_NIL; r4 = r3; r5 = (object*) &constructed_114; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r5 = t; r6 = r5; r7 = (object*) &constructed_113; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2645; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2645: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2646; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2646: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[11]; r1 = ((pxll_vector*)r1)->val[5]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_112; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2647; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2647: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_111; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2648; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2648: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 2); r6 = ((object*******) lenv) [1][1][1][1][1][1][3]; r5[2] = r6; r6 = top[23]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2649; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_car_311; L2649: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2650; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2650: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_110; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_109; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2651; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2651: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2652; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2652: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_108; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2653; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2653: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; r2[2] = r3; r3 = ((object***) lenv) [1][1][2]; r2[3] = r3; r3 = top[5]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2654; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_vars_get_var_247; L2654: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*) lenv) [2]; r2 = ((pxll_vector*)r2)->val[lookup_field((GET_TYPECODE(*r2)-TC_USEROBJ)>>2,78)]; r1[3] = r2; r1 = top[165]; r2 = ((object*) lenv) [3]; r1 = PXLL_TEST((unbox(r2)&(1<0); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_107; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2655; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2655: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[11]; r1 = ((pxll_vector*)r1)->val[5]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_106; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2656; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2656: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][3]; r1[2] = r2; r2 = ((object*****) lenv) [1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2657; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L2657: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object******) lenv) [1][1][1][1][1][3]; switch (get_case (r1)) { case (TC_NIL): { r1 = (object*) &constructed_64; r1 = box((pxll_int)((pxll_string*)(r1))->len); r2 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r2))->data, 1, unbox(r1), stdout)); // dead = (object *) 14; r1 = (object*) &constructed_105; dump_object (r1, 0); fprintf (stdout, "\n"); r1 = (object*) &constructed_105; result=r1; goto Lreturn; } break; default: { r1 = ((object******) lenv) [1][1][1][1][1][3]; r1 = UOBJ_GET(r1,0); r2 = ((object******) lenv) [1][1][1][1][1][3]; r2 = UOBJ_GET(r2,1); r3 = r2; ((object******) lenv) [1][1][1][1][1][3] = r3; } break; } r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2658; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L2658: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = (object*)TC_NIL; r4 = r3; r5 = (object*) &constructed_104; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2659; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2659: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2660; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2660: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2661; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2661: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_103; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_102; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2662; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2662: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2663; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2663: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 10); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2664; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2664: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2665; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2665: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_101; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_100; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = (object*) &constructed_99; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r3 = ((object*) lenv) [10]; r4 = (object*) &constructed_98; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2666; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2666: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2667; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2667: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r1 = ((object*) lenv) [4]; lenv = lenv[1]; } break; case (UOTAG(8)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2668; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2668: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>=unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = (object *) -1; r3 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r3)==unbox(r2))) { r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][3]; r6 = (object *) 5; r5 = box((pxll_int)unbox(r6)+unbox(r5)); r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2669; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2669: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_122; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_121; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2670; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2670: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } else { r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object****) lenv) [1][1][1][2]; r5[2] = r6; r6 = (object*) &constructed_128; r5[3] = r6; r6 = top[35]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2671; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_n_of_327; L2671: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[51]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2672; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_concat_354; L2672: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object****) lenv) [1][1][1][2]; r5[2] = r6; r6 = (object*) &constructed_127; r5[3] = r6; r6 = top[35]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2673; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_n_of_327; L2673: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[51]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2674; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_concat_354; L2674: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = (object *) 5; r6 = ((object****) lenv) [1][1][1][3]; r5 = box((pxll_int)unbox(r6)+unbox(r5)); r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2675; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2675: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_126; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_125; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_124; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_123; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2676; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2676: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 6); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2677; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2677: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_120; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_119; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2678; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2678: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2679; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2679: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } else { r1 = (object *) 14; } lenv = lenv[1]; r1 = ((object*) lenv) [4]; lenv = lenv[1]; } break; case (UOTAG(9)): { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r1 = (object *) -1; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)==unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][3]; r6 = (object *) 5; r5 = box((pxll_int)unbox(r6)+unbox(r5)); r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2680; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2680: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][4]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2681; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2681: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_131; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_130; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_129; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2682; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2682: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2683; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2683: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 14); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object**) lenv) [1][2]; r5[2] = r6; r6 = (object*) &constructed_138; r5[3] = r6; r6 = top[35]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2684; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_n_of_327; L2684: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[51]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2685; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_concat_354; L2685: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object**) lenv) [1][2]; r5[2] = r6; r6 = (object*) &constructed_137; r5[3] = r6; r6 = top[35]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2686; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_n_of_327; L2686: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[51]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2687; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_concat_354; L2687: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = (object *) 5; r6 = ((object**) lenv) [1][3]; r5 = box((pxll_int)unbox(r6)+unbox(r5)); r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2688; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2688: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][4]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2689; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2689: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[5] = r4; r4 = (object*)TC_NIL; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_136; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = (object*) &constructed_135; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = (object*) &constructed_134; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r4 = ((object*) lenv) [11]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[12] = r4; r4 = ((object*) lenv) [12]; r5 = (object*) &constructed_133; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[13] = r4; r4 = ((object*) lenv) [13]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[14] = r4; r3 = ((object*) lenv) [14]; r4 = (object*) &constructed_132; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2690; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2690: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2691; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2691: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } r1 = ((object*) lenv) [5]; lenv = lenv[1]; } break; case (UOTAG(10)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2692; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2692: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2693; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2693: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = (object *) 3; r6 = ((object***) lenv) [1][1][2]; r5 = box((pxll_int)unbox(r6)+unbox(r5)); r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2694; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2694: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_143; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_142; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_141; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2695; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2695: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2696; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2696: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object**) lenv) [1][3]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2697; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2697: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_140; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_139; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2698; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2698: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2699; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2699: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } lenv = lenv[1]; r1 = ((object*) lenv) [4]; lenv = lenv[1]; } break; case (UOTAG(11)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2700; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2700: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**) lenv) [1][2]; switch (get_case (r2)) { case (UOTAG(0)): { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2701; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L2701: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; default: { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 6); r3[1] = lenv; lenv = r3; r4 = (object *) 1; r5 = ((object****) lenv) [1][1][1][3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r5)==unbox(r4))) { r4 = (object*) &constructed_152; } else { r4 = (object*) &constructed_153; } r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2702; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2702: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_151; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r3 = ((object*) lenv) [6]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2703; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2703: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; } r1[3] = r2; r1 = (object *) 1; r2 = ((object**) lenv) [1][3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)==unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2704; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2704: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_146; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_145; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_144; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2705; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2705: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2706; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2706: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 10); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2707; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2707: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2708; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2708: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_150; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_149; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = (object*) &constructed_148; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r3 = ((object*) lenv) [10]; r4 = (object*) &constructed_147; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2709; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2709: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2710; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2710: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } lenv = lenv[1]; r1 = ((object*) lenv) [4]; lenv = lenv[1]; } break; case (UOTAG(12)): { r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,4); r1[6] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][4]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2711; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2711: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r6 = ((object**) lenv) [1][5]; r5 = box((pxll_int)unbox(r6)+unbox(r5)); r6 = r5; r7 = (object *) 3; r5 = box((pxll_int)unbox(r7)+unbox(r6)); r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2712; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2712: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2713; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2713: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_157; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_156; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_155; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_154; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2714; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2714: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2715; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2715: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object*) lenv) [6]; lenv = lenv[1]; } break; case (UOTAG(13)): { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = top[12]; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][5]; r3[2] = r4; r4 = top[145]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2716; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_k_2ffree_531; L2716: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = top[48]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2717; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_sort_342; L2717: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[213]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2718; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L2718: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object*) lenv) [2]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2719; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L2719: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][5]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2720; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2720: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[5] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][4]; r6 = (object *) 7; r5 = box((pxll_int)unbox(r6)+unbox(r5)); r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2721; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2721: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_188; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_187; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2722; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2722: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2723; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2723: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; // def $loop_4545_i3476_i4840_i4889 goto L2724; FUN__24loop_4545_i3476_i4840_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 7); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = (object *) 9; r5 = ((object***) lenv) [1][1][2]; r4 = box((pxll_int)unbox(r5)+unbox(r4)); r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2725; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2725: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 3); r5 = ((object******) lenv) [1][1][1][1][1][2]; r4[2] = r5; r5 = ((object***) lenv) [1][1][2]; r4[3] = r5; r5 = top[31]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2726; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_nth_323; L2726: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2727; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2727: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_186; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r2 = ((object*) lenv) [7]; r3 = (object*) &constructed_185; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2728; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2728: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_4545_i3476_i4840_i4889; } PXLL_RETURN(0); L2724: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN__24loop_4545_i3476_i4840_i4889; r3[2] = lenv; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) 1; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2729; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN__24loop_4545_i3476_i4840_i4889; L2729: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[3] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 3); r5 = ((object**) lenv) [1][3]; r4[2] = r5; r5 = (object*) &constructed_184; r4[3] = r5; r5 = top[52]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2730; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_join_355; L2730: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_183; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_182; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object***) lenv) [1][1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_181; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2731; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2731: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2732; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2732: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; switch (get_case (r2)) { case (UITAG(1)): { r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2733; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2733: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_178; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_177; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2734; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2734: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } break; default: { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object****) lenv) [1][1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[155]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2735; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_gen_function_label_565; L2735: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_180; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_179; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2736; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2736: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; } r1[2] = r2; r1 = (object *) 1; r2 = ((object***) lenv) [1][1][4]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>=unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 12); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][4]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2737; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2737: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2738; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2738: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][4]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2739; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2739: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_174; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = (object*) &constructed_173; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = (object*) &constructed_172; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r4 = ((object*) lenv) [11]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[12] = r4; r3 = ((object*) lenv) [12]; r4 = (object*) &constructed_171; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2740; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2740: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2741; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2741: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 6); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2742; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2742: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_176; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_175; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2743; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2743: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2744; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2744: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = (object*)TC_NIL; r4 = r3; r5 = (object*) &constructed_170; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2745; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2745: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2746; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2746: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[11]; r1 = ((pxll_vector*)r1)->val[5]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_169; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2747; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2747: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_168; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2748; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2748: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_167; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2749; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2749: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 2); r6 = ((object*******) lenv) [1][1][1][1][1][1][3]; r5[2] = r6; r6 = top[23]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2750; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_car_311; L2750: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2751; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2751: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_166; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_165; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2752; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2752: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2753; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2753: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; // def $loop_4552_i3476_i4840_i4889 goto L2754; FUN__24loop_4552_i3476_i4840_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = (object *) constructed_17[0]; r0[3] = r1; r1 = top[25]; r0[1] = r1[2]; lenv = r0; goto FUN_reverse_onto_313; } else { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 3); r5 = ((object******) lenv) [1][1][1][1][1][2]; r4[2] = r5; r5 = ((object***) lenv) [1][1][2]; r4[3] = r5; r5 = top[31]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2755; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_nth_323; L2755: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2756; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2756: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = (object *) 9; r5 = ((object***) lenv) [1][1][2]; r4 = box((pxll_int)unbox(r5)+unbox(r4)); r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2757; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2757: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_164; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_163; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_162; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2758; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2758: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object**) lenv) [1][3]; r1 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r1; t[2] = r0; r0 = t; lenv = lenv[1]; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); lenv[2] = r1; lenv[3] = r0; goto FUN__24loop_4552_i3476_i4840_i4889; } PXLL_RETURN(0); L2754: r3 = allocate (TC_CLOSURE, 2); r3[1] = &&FUN__24loop_4552_i3476_i4840_i4889; r3[2] = lenv; r2[2] = r3; r2 = allocate (TC_TUPLE, 3); r3 = (object *) 1; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2759; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN__24loop_4552_i3476_i4840_i4889; L2759: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; r1[3] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 4); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 3); r5 = ((object**) lenv) [1][3]; r4[2] = r5; r5 = (object*) &constructed_161; r4[3] = r5; r5 = top[52]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2760; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_join_355; L2760: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_160; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2761; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2761: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2762; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2762: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r1 = (object *) 1; r2 = ((object*) lenv) [5]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>=unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][5]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2763; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2763: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_159; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_158; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2764; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2764: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2765; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2765: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } lenv = lenv[1]; r1 = ((object*) lenv) [5]; lenv = lenv[1]; } break; case (UOTAG(14)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; switch (get_case (r2)) { case (UITAG(1)): { r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2766; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2766: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_196; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_195; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2767; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2767: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } break; default: { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object***) lenv) [1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[155]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2768; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_gen_function_label_565; L2768: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_198; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_197; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2769; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2769: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; lenv = lenv[1]; } break; } r1[2] = r2; r1 = (object *) 1; r2 = ((object**) lenv) [1][4]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>=unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 12); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][4]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2770; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2770: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2771; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2771: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][4]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2772; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2772: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_192; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = (object*) &constructed_191; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = (object*) &constructed_190; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r4 = ((object*) lenv) [11]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[12] = r4; r3 = ((object*) lenv) [12]; r4 = (object*) &constructed_189; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2773; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2773: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2774; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2774: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 6); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2775; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2775: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_194; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_193; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2776; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2776: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2777; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2777: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } lenv = lenv[1]; r1 = (object*)UITAG(1); lenv = lenv[1]; } break; case (UOTAG(15)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2778; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L2778: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object *) 3; r3 = ((object**) lenv) [1][2]; r2 = box((pxll_int)unbox(r3)-unbox(r2)); r1[3] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)==unbox(r1))) { r1 = (object *) 3; r2 = ((object*) lenv) [3]; r1 = box((pxll_int)unbox(r2)+unbox(r1)); ((object*) lenv) [3] = r1; } else { r1 = (object *) 14; } r1 = (object *) 1; r2 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object**) lenv) [1][3]; r5[2] = r6; r6 = (object*) &constructed_208; r5[3] = r6; r6 = top[35]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2779; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_n_of_327; L2779: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[51]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2780; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_concat_354; L2780: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object**) lenv) [1][3]; r5[2] = r6; r6 = (object*) &constructed_207; r5[3] = r6; r6 = top[35]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2781; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_n_of_327; L2781: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[51]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2782; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_concat_354; L2782: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_206; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_205; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_204; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2783; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2783: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2784; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2784: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_4562_i3574_i4840_i4889 goto L2785; FUN__24loop_4562_i3574_i4840_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r5 = (object *) 5; r4 = box((pxll_int)unbox(r5)+unbox(r4)); r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2786; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2786: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 3); r5 = ((object******) lenv) [1][1][1][1][1][4]; r4[2] = r5; r5 = ((object**) lenv) [1][2]; r4[3] = r5; r5 = top[31]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2787; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_nth_323; L2787: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2788; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2788: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_203; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_202; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_201; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2789; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2789: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2790; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2790: ; lenv = k[2]; k = k[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4562_i3574_i4840_i4889; } PXLL_RETURN(0); L2785: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_4562_i3574_i4840_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2791; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_4562_i3574_i4840_i4889; L2791: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = top[155]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2792; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_gen_function_label_565; L2792: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_200; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_199; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2793; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2793: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2794; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2794: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r1 = (object*)UITAG(1); lenv = lenv[1]; } break; case (UOTAG(16)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2795; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2795: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2796; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2796: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_211; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_210; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_209; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2797; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2797: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2798; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2798: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object*) lenv) [3]; lenv = lenv[1]; } break; case (UOTAG(17)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2799; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2799: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_212; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2800; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2800: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = ((object*****) lenv) [1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2801; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_move_4346_i4840_i4889; L2801: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r1 = ((object*) lenv) [3]; lenv = lenv[1]; } break; case (UOTAG(18)): { r1 = allocate (TC_TUPLE, 6); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,4); r1[6] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def primop-error_4591_i3607_i4840_i4889 goto L2802; FUN_primop_error_4591_i3607_i4840_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = (object*) &constructed_215; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[15]; r0[1] = r1[2]; lenv = r0; goto FUN_error1_294; L2802: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_primop_error_4591_i3607_i4840_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][6]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2803; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2803: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][5]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2804; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L2804: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = (object *) constructed_217[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][5]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2805; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2805: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_214; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_213; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2806; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2806: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2807; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2807: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 3); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2808; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_move_4346_i4840_i4889; L2808: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_9; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_9; } } lenv = lenv[1]; } break; default: { goto fatbar_9; } } goto fatbar_9_over; fatbar_9: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2809; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2809: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_9_over: ; } else { goto fatbar_8; } goto fatbar_8_over; fatbar_8: r1 = (object *) constructed_221[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][5]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2810; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2810: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_219; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_218; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2811; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2811: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2812; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2812: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { goto fatbar_11; } } goto fatbar_11_over; fatbar_11: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2813; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2813: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_11_over: ; } else { goto fatbar_10; } goto fatbar_10_over; fatbar_10: r1 = (object *) constructed_237[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][5]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = ((object******) lenv) [1][1][1][1][1][4]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object*******) lenv) [1][1][1][1][1][1][4]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = (object *) constructed_92[0]; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 4); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object******) lenv) [1][1][1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2814; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2814: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_235; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2815; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2815: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; switch (get_case (r2)) { case (UOTAG(1)): { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object****) lenv) [1][1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = ((object***) lenv) [1][1][2]; switch (get_case (r2)) { case (UOTAG(1)): { r2 = allocate (TC_TUPLE, 2); r2[1] = lenv; lenv = r2; r3 = ((object****) lenv) [1][1][1][2]; r3 = UOBJ_GET(r3,0); r2[2] = r3; r2 = (object *) constructed_233[0]; r3 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r3==r2)) { r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = top[214]; r2[3] = r3; r3 = top[29]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2816; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_member_eq_question_321; L2816: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; if PXLL_IS_TRUE(r2) { r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = ((object***) lenv) [1][1][2]; r4 = ((object***) lenv) [1][1][2]; r4 = UOBJ_GET(r4,0); r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_230; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object****) lenv) [1][1][1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_229; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_228; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2817; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2817: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } else { r2 = allocate (TC_TUPLE, 3); r3 = (object*) &constructed_231; r2[2] = r3; r3 = ((object**) lenv) [1][2]; r2[3] = r3; r3 = top[15]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2818; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_error1_294; L2818: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; } } else { lenv = ((object **)lenv)[1][1]; goto fatbar_14; } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_14; } } lenv = lenv[1]; } break; default: { goto fatbar_14; } } goto fatbar_14_over; fatbar_14: r2 = allocate (TC_TUPLE, 3); r3 = (object*) &constructed_234; r2[2] = r3; r3 = allocate (UOTAG(1), 2); r4 = ((object***) lenv) [1][1][2]; r3[1] = r4; r4 = ((object**) lenv) [1][2]; r3[2] = r4; r2[3] = r3; r3 = top[15]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2819; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_error1_294; L2819: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; fatbar_14_over: ; r1[3] = r2; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[111]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2820; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_type_repr_464; L2820: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2821; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2821: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object*******) lenv) [1][1][1][1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2822; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2822: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_227; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_226; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_225; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_224; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2823; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2823: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = (object*)TC_NIL; r4 = r3; r5 = (object*) &constructed_223; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r5 = t; r6 = r5; r7 = (object*) &constructed_222; t = alloc_no_clear (TC_PAIR,2); t[1] = r7; t[2] = r6; r6 = t; r7 = r6; r8 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r8; t[2] = r7; r3 = t; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2824; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2824: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*****************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2825; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2825: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; default: { lenv = ((object ******)lenv)[1][1][1][1][1][1]; goto fatbar_13; } } lenv = lenv[1]; } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_13; } } lenv = lenv[1]; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_13; } } } else { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_13; } lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_13; } } } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_13; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_13; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_13; } } lenv = lenv[1]; } break; default: { goto fatbar_13; } } goto fatbar_13_over; fatbar_13: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2826; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2826: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_13_over: ; } else { goto fatbar_12; } goto fatbar_12_over; fatbar_12: r1 = (object *) constructed_246[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][5]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object*******) lenv) [1][1][1][1][1][1][4]; r4[2] = r5; r5 = top[111]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2827; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_type_repr_464; L2827: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2828; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2828: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2829; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2829: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_244; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_243; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_242; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_241; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2830; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2830: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object*****) lenv) [1][1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2831; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2831: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 3); r5 = ((object*******) lenv) [1][1][1][1][1][1][4]; r4[2] = r5; r5 = ((object**) lenv) [1][2]; r4[3] = r5; r5 = top[159]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2832; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_wrap_out_569; L2832: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_240; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_239; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_238; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2833; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2833: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2834; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2834: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_16; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_16; } } lenv = lenv[1]; } break; default: { goto fatbar_16; } } goto fatbar_16_over; fatbar_16: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2835; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2835: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_16_over: ; } else { goto fatbar_15; } goto fatbar_15_over; fatbar_15: r1 = (object *) constructed_250[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 2); r6 = ((object****) lenv) [1][1][1][5]; r5[2] = r6; r6 = top[23]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2836; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_car_311; L2836: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2837; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2837: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_248; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_247; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2838; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2838: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2839; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2839: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { goto fatbar_17; } goto fatbar_17_over; fatbar_17: r1 = (object *) constructed_257[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object****) lenv) [1][1][1][3]; r2[2] = r3; r3 = top[207]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2840; t[4] = r0; t[5] = r1; t[6] = r2; k = t; lenv = r3[2]; goto *r3[1]; L2840: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = top[115]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2841; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_parse_type_splat_469; L2841: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object**) lenv) [1][2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>=unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2842; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2842: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[158]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2843; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_irken_type__3ec_type_568; L2843: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 2); r6 = ((object*****) lenv) [1][1][1][1][5]; r5[2] = r6; r6 = top[23]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2844; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_car_311; L2844: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2845; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2845: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_254; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_253; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_252; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_251; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2846; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2846: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2847; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2847: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_255; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2848; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2848: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } lenv = lenv[1]; } else { goto fatbar_18; } goto fatbar_18_over; fatbar_18: r1 = (object *) constructed_262[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 2); r6 = allocate (TC_TUPLE, 2); r7 = ((object****) lenv) [1][1][1][6]; r6[2] = r7; r7 = top[145]; t = allocate (TC_SAVE, 9); t[1] = k; t[2] = lenv; t[3] = &&L2849; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; t[9] = r5; k = t; r6[1] = r7[2]; lenv = r6; goto FUN_k_2ffree_531; L2849: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; r5 = k[9]; lenv = k[2]; k = k[1]; r6 = result; r5[2] = r6; r6 = top[26]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2850; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_length_316; L2850: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2851; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2851: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 2); r6 = ((object****) lenv) [1][1][1][5]; r5[2] = r6; r6 = top[23]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2852; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_car_311; L2852: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2853; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2853: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_260; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_259; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_258; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2854; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2854: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2855; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2855: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { goto fatbar_19; } goto fatbar_19_over; fatbar_19: r1 = (object *) constructed_273[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_NIL): { r1 = ((object********) lenv) [1][1][1][1][1][1][1][5]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object******) lenv) [1][1][1][1][1][2]; r2[2] = r3; r3 = ((object******************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][2]; r2[3] = r3; r3 = top[9]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2856; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_lookup_label_code_254; L2856: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object****) lenv) [1][1][1][2]; r2[2] = r3; r3 = ((object**************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2857; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_guess_record_type_4366_i4840_i4889; L2857: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object*****) lenv) [1][1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2858; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2858: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r5[2] = r6; r6 = ((object**) lenv) [1][2]; r5[3] = r6; r6 = top[32]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2859; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_index_eq_324; L2859: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2860; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2860: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2861; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2861: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_266; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_265; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_264; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_263; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2862; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2862: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*******************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2863; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2863: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; default: { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 14); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2864; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2864: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2865; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2865: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2866; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2866: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2867; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2867: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[5] = r4; r4 = (object*)TC_NIL; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_271; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = (object*) &constructed_270; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = (object*) &constructed_269; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r4 = ((object*) lenv) [11]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[12] = r4; r4 = ((object*) lenv) [12]; r5 = (object*) &constructed_268; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[13] = r4; r4 = ((object*) lenv) [13]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[14] = r4; r3 = ((object*) lenv) [14]; r4 = (object*) &constructed_267; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2868; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2868: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object******************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2869; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2869: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; } lenv = lenv[1]; } break; default: { lenv = ((object *******)lenv)[1][1][1][1][1][1][1]; goto fatbar_21; } } lenv = lenv[1]; } break; default: { lenv = ((object ******)lenv)[1][1][1][1][1][1]; goto fatbar_21; } } lenv = lenv[1]; } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_21; } } } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_21; } } lenv = lenv[1]; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_21; } } lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_21; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_21; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_21; } } lenv = lenv[1]; } break; default: { goto fatbar_21; } } goto fatbar_21_over; fatbar_21: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2870; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2870: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_21_over: ; } else { goto fatbar_20; } goto fatbar_20_over; fatbar_20: r1 = (object *) constructed_284[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(1)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_NIL): { r1 = ((object********) lenv) [1][1][1][1][1][1][1][5]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 3); r3 = ((object*****) lenv) [1][1][1][1][2]; r2[2] = r3; r3 = ((object*****************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][2]; r2[3] = r3; r3 = top[9]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2871; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_lookup_label_code_254; L2871: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object***) lenv) [1][1][2]; r2[2] = r3; r3 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][4]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2872; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_guess_record_type_4366_i4840_i4889; L2872: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2873; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2873: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2874; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2874: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object*******) lenv) [1][1][1][1][1][1][2]; r5[2] = r6; r6 = ((object**) lenv) [1][2]; r5[3] = r6; r6 = top[32]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2875; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_index_eq_324; L2875: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2876; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2876: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_277; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_276; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_275; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_274; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2877; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2877: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object******************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2878; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2878: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; default: { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 14); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2879; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2879: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2880; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2880: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2881; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2881: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2882; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2882: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[5] = r4; r4 = (object*)TC_NIL; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_282; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = (object*) &constructed_281; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = (object*) &constructed_280; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r4 = ((object*) lenv) [11]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[12] = r4; r4 = ((object*) lenv) [12]; r5 = (object*) &constructed_279; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[13] = r4; r4 = ((object*) lenv) [13]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[14] = r4; r3 = ((object*) lenv) [14]; r4 = (object*) &constructed_278; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2883; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2883: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*****************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2884; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2884: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; } lenv = lenv[1]; } break; default: { lenv = ((object ******)lenv)[1][1][1][1][1][1]; goto fatbar_23; } } lenv = lenv[1]; } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_23; } } } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_23; } } lenv = lenv[1]; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_23; } } lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_23; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_23; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_23; } } lenv = lenv[1]; } break; default: { goto fatbar_23; } } goto fatbar_23_over; fatbar_23: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2885; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2885: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_23_over: ; } else { goto fatbar_22; } goto fatbar_22_over; fatbar_22: r1 = (object *) constructed_293[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][5]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2886; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2886: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2887; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2887: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_291; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_290; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_289; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2888; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2888: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2889; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2889: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2890; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2890: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2891; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2891: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2892; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2892: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_288; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_287; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_286; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_285; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2893; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2893: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2894; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2894: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_25; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_25; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_25; } } lenv = lenv[1]; } break; default: { goto fatbar_25; } } goto fatbar_25_over; fatbar_25: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2895; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2895: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_25_over: ; } else { goto fatbar_24; } goto fatbar_24_over; fatbar_24: r1 = (object *) constructed_302[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][5]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2896; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2896: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2897; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2897: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_300; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_299; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_298; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2898; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2898: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2899; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2899: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2900; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2900: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2901; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2901: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2902; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2902: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_297; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_296; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_295; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_294; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2903; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2903: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2904; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2904: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_27; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_27; } } lenv = lenv[1]; } break; default: { goto fatbar_27; } } goto fatbar_27_over; fatbar_27: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2905; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2905: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_27_over: ; } else { goto fatbar_26; } goto fatbar_26_over; fatbar_26: r1 = (object *) constructed_315[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][5]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object****) lenv) [1][1][1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2906; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2906: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2907; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2907: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_313; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_312; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_311; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2908; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2908: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2909; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2909: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2910; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2910: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_310; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_309; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2911; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2911: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2912; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2912: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2913; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2913: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2914; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2914: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_308; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_307; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_306; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2915; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2915: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2916; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2916: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2917; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2917: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_305; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_304; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2918; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2918: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2919; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2919: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_303; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2920; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2920: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_29; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_29; } } lenv = lenv[1]; } break; default: { goto fatbar_29; } } goto fatbar_29_over; fatbar_29: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2921; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2921: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_29_over: ; } else { goto fatbar_28; } goto fatbar_28_over; fatbar_28: r1 = (object *) constructed_321[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][3]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (UOTAG(5)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**) lenv) [1][3]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][3]; r2 = UOBJ_GET(r2,1); r1[2] = r2; r1 = ((object*) lenv) [2]; switch (get_case (r1)) { case (TC_NIL): { r1 = ((object********) lenv) [1][1][1][1][1][1][1][5]; switch (get_case (r1)) { case (TC_PAIR): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][5]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][5]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (TC_NIL): { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 11); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object********) lenv) [1][1][1][1][1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2922; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2922: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2923; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2923: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2924; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2924: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[4] = r4; r4 = (object*)TC_NIL; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_319; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object*) lenv) [4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = (object*) &constructed_318; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r4 = ((object*) lenv) [8]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[9] = r4; r4 = ((object*) lenv) [9]; r5 = (object*) &constructed_317; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[10] = r4; r4 = ((object*) lenv) [10]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[11] = r4; r3 = ((object*) lenv) [11]; r4 = (object*) &constructed_316; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2925; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2925: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object****************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2926; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2926: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { lenv = ((object ******)lenv)[1][1][1][1][1][1]; goto fatbar_31; } } lenv = lenv[1]; } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_31; } } } break; default: { lenv = ((object *****)lenv)[1][1][1][1][1]; goto fatbar_31; } } lenv = lenv[1]; } break; default: { lenv = ((object ****)lenv)[1][1][1][1]; goto fatbar_31; } } lenv = lenv[1]; } break; default: { lenv = ((object ***)lenv)[1][1][1]; goto fatbar_31; } } lenv = lenv[1]; } break; default: { lenv = ((object **)lenv)[1][1]; goto fatbar_31; } } lenv = lenv[1]; } break; default: { lenv = ((object *)lenv)[1]; goto fatbar_31; } } lenv = lenv[1]; } break; default: { goto fatbar_31; } } goto fatbar_31_over; fatbar_31: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2927; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2927: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_31_over: ; } else { goto fatbar_30; } goto fatbar_30_over; fatbar_30: r1 = (object *) constructed_335[0]; r2 = ((object***) lenv) [1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = ((object***) lenv) [1][1][3]; switch (get_case (r1)) { case (UOTAG(9)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object****) lenv) [1][1][1][3]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r3 = ((object*) lenv) [2]; r2[3] = r3; r3 = top[69]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2928; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_alist_2flookup_396; L2928: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[4] = r2; r1 = ((object*) lenv) [4]; switch (get_case (r1)) { case (UITAG(1)): { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_322; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2929; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2929: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][4]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][3]; r2[2] = r3; r3 = ((object*) lenv) [2]; r3 = ((pxll_vector*)r3)->val[1]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2930; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto *r3[1]; L2930: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = (object *) 1; r2 = ((object***) lenv) [1][1][3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)==unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2931; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2931: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 4); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = ((object***) lenv) [1][1][3]; r4[3] = r5; r5 = ((object**) lenv) [1][3]; r5 = ((pxll_vector*)r5)->val[1]; r4[4] = r5; r5 = ((object*********) lenv) [1][1][1][1][1][1][1][1][6]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2932; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_get_uitag_4368_i4840_i4889; L2932: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_325; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_324; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_323; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2933; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2933: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2934; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2934: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 4); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = ((object***) lenv) [1][1][3]; r4[3] = r5; r5 = ((object**) lenv) [1][3]; r5 = ((pxll_vector*)r5)->val[1]; r4[4] = r5; r5 = ((object*********) lenv) [1][1][1][1][1][1][1][1][5]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2935; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_get_uotag_4367_i4840_i4889; L2935: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2936; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2936: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_333; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_332; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_331; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2937; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2937: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2938; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2938: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object****) lenv) [1][1][1][3]; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_4672_i3607_i4840_i4889 goto L2939; FUN__24loop_4672_i3607_i4840_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = (object *) 3; r5 = ((object**) lenv) [1][2]; r4 = box((pxll_int)unbox(r5)+unbox(r4)); r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2940; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2940: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 3); r5 = ((object*********) lenv) [1][1][1][1][1][1][1][1][5]; r4[2] = r5; r5 = ((object**) lenv) [1][2]; r4[3] = r5; r5 = top[31]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2941; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_nth_323; L2941: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L2942; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L2942: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_330; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_329; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_328; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2943; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2943: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2944; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2944: ; lenv = k[2]; k = k[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4672_i3607_i4840_i4889; } PXLL_RETURN(0); L2939: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_4672_i3607_i4840_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2945; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_4672_i3607_i4840_i4889; L2945: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; lenv = lenv[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object****) lenv) [1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2946; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2946: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_327; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_326; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2947; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2947: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2948; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2948: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } lenv = lenv[1]; } break; } lenv = lenv[1]; } break; default: { goto fatbar_33; } } goto fatbar_33_over; fatbar_33: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2949; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2949: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_33_over: ; } else { goto fatbar_32; } goto fatbar_32_over; fatbar_32: r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_215; r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2950; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2950: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; fatbar_32_over: ; fatbar_30_over: ; fatbar_28_over: ; fatbar_26_over: ; fatbar_24_over: ; fatbar_22_over: ; fatbar_20_over: ; fatbar_19_over: ; fatbar_18_over: ; fatbar_17_over: ; fatbar_15_over: ; fatbar_12_over: ; fatbar_10_over: ; fatbar_8_over: ; lenv = lenv[1]; lenv = lenv[1]; r1 = ((object*) lenv) [6]; lenv = lenv[1]; } break; case (UOTAG(19)): { r1 = allocate (TC_TUPLE, 4); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[146]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2951; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_k_2ftarget_532; L2951: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 1; r2 = ((object**) lenv) [1][3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>=unbox(r1))) { r1 = ((object**) lenv) [1][2]; r2 = ((object**) lenv) [1][3]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); r2 = (object *) 6; r3 = r1; r1 = PXLL_TEST(r3==r2); } else { r1 = (object *) 6; } if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2952; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2952: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][3]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2953; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2953: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_338; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_337; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_336; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2954; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2954: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2955; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2955: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 1; r2 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>=unbox(r1))) { r1 = ((object**) lenv) [1][2]; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); r2 = (object *) 6; r3 = r1; r1 = PXLL_TEST(r3==r2); } else { r1 = (object *) 6; } if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2956; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2956: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = ((object***) lenv) [1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2957; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2957: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_341; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_340; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_339; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2958; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2958: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2959; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2959: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } } lenv = lenv[1]; r1 = ((object*) lenv) [4]; lenv = lenv[1]; } break; case (UOTAG(20)): { r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [3]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2960; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L2960: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2961; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2961: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_347; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_346; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2962; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2962: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2963; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2963: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2964; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2964: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_345; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_344; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2965; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2965: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2966; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2966: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [4]; r1[2] = r2; r2 = ((object****) lenv) [1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2967; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L2967: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2968; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2968: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_343; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_342; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2969; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2969: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2970; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2970: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object*) lenv) [5]; lenv = lenv[1]; } break; case (UOTAG(21)): { r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r1 = (object *) 1; r2 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)>unbox(r1))) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 8); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object**) lenv) [1][3]; r5[2] = r6; r6 = (object*) &constructed_354; r5[3] = r6; r6 = top[35]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2971; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_n_of_327; L2971: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[51]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2972; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_concat_354; L2972: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = allocate (TC_TUPLE, 2); r5 = allocate (TC_TUPLE, 3); r6 = ((object**) lenv) [1][3]; r5[2] = r6; r6 = (object*) &constructed_353; r5[3] = r6; r6 = top[35]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L2973; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_n_of_327; L2973: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = top[51]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2974; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_string_concat_354; L2974: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[3] = r4; r4 = (object*)TC_NIL; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = (object*) &constructed_352; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = (object*) &constructed_351; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r4 = ((object*) lenv) [7]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[8] = r4; r3 = ((object*) lenv) [8]; r4 = (object*) &constructed_350; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2975; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2975: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2976; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2976: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = (object *) 14; } r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2977; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2977: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_349; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_348; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2978; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2978: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2979; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2979: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = (object*)UITAG(1); lenv = lenv[1]; } break; case (UOTAG(22)): { r1 = allocate (TC_TUPLE, 7); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,4); r1[6] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,5); r1[7] = r2; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][6]; switch (get_case (r2)) { case (UOTAG(0)): { r2 = (object *) 262; } break; default: { r2 = (object *) 6; } break; } r1[2] = r2; r2 = allocate (TC_TUPLE, 3); r3 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; r3 = ((pxll_vector*)r3)->val[3]; r2[2] = r3; r3 = ((object**) lenv) [1][3]; r2[3] = r3; r3 = top[69]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2980; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_alist_2flookup_396; L2980: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = ((object*) lenv) [3]; switch (get_case (r1)) { case (UITAG(1)): { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_355; r1[2] = r2; r2 = ((object**) lenv) [1][3]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2981; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L2981: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; default: { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object****) lenv) [1][1][1][5]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2982; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L2982: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[3]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2983; t[4] = r0; t[5] = r1; k = t; lenv = r2[2]; goto *r2[1]; L2983: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = PXLL_TEST(unbox(r2)==unbox(r1)); lenv = lenv[1]; } else { r1 = (object *) 6; } if PXLL_IS_TRUE(r1) { r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object***) lenv) [1][1][5]; r2[2] = r3; r3 = (object *) 1; r2[3] = r3; r3 = top[31]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2984; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_nth_323; L2984: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2985; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L2985: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = (object*) &constructed_366; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 7); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object*****) lenv) [1][1][1][1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L2986; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L2986: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_365; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r4 = ((object*) lenv) [5]; r5 = (object*) &constructed_364; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[6] = r4; r4 = ((object*) lenv) [6]; r5 = ((object**) lenv) [1][2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[7] = r4; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_363; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2987; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L2987: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2988; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2988: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object*****) lenv) [1][1][1][1][4]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L2989; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L2989: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_4698_i3853_i4840_i4889 goto L2990; FUN__24loop_4698_i3853_i4840_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 7); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object********) lenv) [1][1][1][1][1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2991; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2991: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object********) lenv) [1][1][1][1][1][1][1][5]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2992; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L2992: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[1]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2993; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L2993: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = ((object*) lenv) [4]; r1 = ((pxll_vector*)r1)->val[0]; r0[5] = r1; r1 = (object *) 6; r0[6] = r1; r1 = (object *) 1; r2 = ((object*) lenv) [5]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r2)==unbox(r1))) { r1 = allocate (TC_TUPLE, 4); r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = ((object*) lenv) [4]; r2 = ((pxll_vector*)r2)->val[1]; r1[4] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][6]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2994; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_uitag_4368_i4840_i4889; L2994: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } else { r1 = allocate (TC_TUPLE, 4); r2 = ((object********) lenv) [1][1][1][1][1][1][1][3]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = ((object*) lenv) [4]; r2 = ((pxll_vector*)r2)->val[1]; r1[4] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][5]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2995; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_get_uotag_4367_i4840_i4889; L2995: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } r0[7] = r1; r0 = ((object***************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2996; ; k = t; lenv = r0[2]; goto *r0[1]; L2996: ; lenv = k[2]; k = k[1]; r0 = (object *) 6; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][4]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2997; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L2997: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = (object *) 3; r2 = ((object*) lenv) [2]; r1 = box((pxll_int)unbox(r2)-unbox(r1)); r0[3] = r1; r0 = ((object*) lenv) [3]; r1 = ((object***) lenv) [1][1][2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; } else { r0 = (object *) 6; } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_360; r0[2] = r1; r1 = ((object***************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L2998; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L2998: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = (object*)TC_NIL; r3 = r2; r4 = (object*) &constructed_362; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = (object*) &constructed_361; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r2 = t; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L2999; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L2999: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3000; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3000: ; lenv = k[2]; k = k[1]; r0 = result; } r0 = ((object***************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3001; ; k = t; lenv = r0[2]; goto *r0[1]; L3001: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [3]; r0[2] = r1; r1 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3002; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_emit_4345_i4840_i4889; L3002: ; lenv = k[2]; k = k[1]; r0 = ((object***************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3003; ; k = t; lenv = r0[2]; goto *r0[1]; L3003: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_359; r0[2] = r1; r1 = ((object***************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3004; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3004: ; lenv = k[2]; k = k[1]; r0 = ((object***************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3005; ; k = t; lenv = r0[2]; goto *r0[1]; L3005: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4698_i3853_i4840_i4889; } PXLL_RETURN(0); L2990: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_4698_i3853_i4840_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3006; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_4698_i3853_i4840_i4889; L3006: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; lenv = lenv[1]; r1 = ((object****) lenv) [1][1][1][6]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object*****) lenv) [1][1][1][1][6]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3007; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L3007: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_358; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3008; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L3008: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3009; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L3009: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3010; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L3010: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3011; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L3011: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_357; r1[2] = r2; r2 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3012; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L3012: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object************) lenv) [1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3013; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L3013: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; default: { goto fatbar_34; } } goto fatbar_34_over; fatbar_34: r1 = (object *) 14; fatbar_34_over: ; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_356; r1[2] = r2; r2 = ((object***********) lenv) [1][1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3014; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L3014: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } lenv = lenv[1]; } break; } lenv = lenv[1]; r1 = ((object*) lenv) [7]; lenv = lenv[1]; } break; default: { r1 = allocate (TC_TUPLE, 7); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,1); r1[3] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,2); r1[4] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,3); r1[5] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,4); r1[6] = r2; r2 = ((object***) lenv) [1][1][2]; r2 = UOBJ_GET(r2,5); r1[7] = r2; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 2); r3 = allocate (TC_TUPLE, 5); r3[1] = lenv; lenv = r3; r4 = allocate (TC_TUPLE, 2); r5 = ((object**) lenv) [1][2]; r4[2] = r5; r5 = top[60]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L3015; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_int__3estring_366; L3015: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*)TC_NIL; r3[3] = r4; r4 = ((object*) lenv) [3]; r5 = (object*) &constructed_379; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[4] = r4; r4 = ((object*) lenv) [4]; r5 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r3[5] = r4; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_378; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; lenv = lenv[1]; r2[2] = r3; r3 = top[51]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L3016; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_string_concat_354; L3016: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = ((object********) lenv) [1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3017; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L3017: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 3); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][6]; switch (get_case (r2)) { case (UOTAG(0)): { r2 = (object *) 262; } break; default: { r2 = (object *) 6; } break; } r1[2] = r2; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][5]; r2[2] = r3; r3 = top[26]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L3018; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_length_316; L3018: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[3] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object**) lenv) [1][3]; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; // def $loop_4715_i3874_i4840_i4889 goto L3019; FUN__24loop_4715_i3874_i4840_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 9); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][3]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3020; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L3020: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][4]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3021; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L3021: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object******) lenv) [1][1][1][1][1][5]; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3022; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L3022: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 3); r2 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][2]; r2 = ((pxll_vector*)r2)->val[18]; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[69]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3023; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_alist_2flookup_396; L3023: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = ((object*) lenv) [5]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = ((object*) lenv) [5]; r1 = UOBJ_GET(r1,0); } break; default: { r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_377; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[15]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3024; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_error1_294; L3024: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; } break; } r0[6] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 6); r2[1] = lenv; lenv = r2; r3 = (object *) 1; r4 = ((object**) lenv) [1][3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r4)==unbox(r3))) { r3 = (object*) &constructed_375; } else { r3 = (object*) &constructed_376; } r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][6]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L3025; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L3025: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_374; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r2 = ((object*) lenv) [6]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3026; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L3026: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[7] = r1; r1 = allocate (TC_TUPLE, 2); r2 = (object*)TC_NIL; r3 = r2; r4 = (object*) &constructed_373; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object*) lenv) [7]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = (object*) &constructed_372; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r2 = t; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3027; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L3027: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[8] = r1; r1 = (object *) 6; r2 = ((object*****) lenv) [1][1][1][1][2]; if PXLL_IS_TRUE(PXLL_TEST(r2==r1)) { r1 = (object *) 3; r2 = ((object*****) lenv) [1][1][1][1][3]; r1 = box((pxll_int)unbox(r2)-unbox(r1)); r2 = r1; r3 = ((object**) lenv) [1][2]; r1 = PXLL_TEST(unbox(r3)==unbox(r2)); } else { r1 = (object *) 6; } if PXLL_IS_TRUE(r1) { r1 = (object*) &constructed_371; } else { r1 = ((object*) lenv) [8]; } r0[9] = r1; r0 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3028; ; k = t; lenv = r0[2]; goto *r0[1]; L3028: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [9]; r0[2] = r1; r1 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3029; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3029: ; lenv = k[2]; k = k[1]; r0 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3030; ; k = t; lenv = r0[2]; goto *r0[1]; L3030: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [4]; r0[2] = r1; r1 = ((object*********) lenv) [1][1][1][1][1][1][1][1][2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3031; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_emit_4345_i4840_i4889; L3031: ; lenv = k[2]; k = k[1]; r0 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3032; ; k = t; lenv = r0[2]; goto *r0[1]; L3032: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_370; r0[2] = r1; r1 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3033; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3033: ; lenv = k[2]; k = k[1]; r0 = ((object*************) lenv) [1][1][1][1][1][1][1][1][1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3034; ; k = t; lenv = r0[2]; goto *r0[1]; L3034: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4715_i3874_i4840_i4889; } PXLL_RETURN(0); L3019: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN__24loop_4715_i3874_i4840_i4889; r2[2] = lenv; r1[2] = r2; r1 = allocate (TC_TUPLE, 2); r2 = (object *) 1; r1[2] = r2; r2 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3035; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN__24loop_4715_i3874_i4840_i4889; L3035: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; lenv = lenv[1]; r1 = ((object**) lenv) [1][6]; switch (get_case (r1)) { case (UOTAG(0)): { r1 = allocate (TC_TUPLE, 2); r1[1] = lenv; lenv = r1; r2 = ((object***) lenv) [1][1][6]; r2 = UOBJ_GET(r2,0); r1[2] = r2; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3036; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L3036: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_369; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3037; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L3037: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[3]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3038; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L3038: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = ((object*) lenv) [2]; r1[2] = r2; r2 = ((object******) lenv) [1][1][1][1][1][2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3039; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_emit_4345_i4840_i4889; L3039: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3040; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L3040: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_368; r1[2] = r2; r2 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3041; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L3041: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = ((object**********) lenv) [1][1][1][1][1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[2]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3042; t[4] = r0; k = t; lenv = r1[2]; goto *r1[1]; L3042: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; } break; default: { r1 = (object *) 14; } break; } r1 = allocate (TC_TUPLE, 2); r2 = (object*) &constructed_367; r1[2] = r2; r2 = ((object*********) lenv) [1][1][1][1][1][1][1][1][61]; r2 = ((pxll_vector*)r2)->val[4]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3043; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto *r2[1]; L3043: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; lenv = lenv[1]; r1 = ((object*) lenv) [7]; lenv = lenv[1]; } break; } r0[2] = r1; r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(0)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,2); r1 = r0; lenv = ((object *)lenv)[1]; lenv[2] = r1; goto FUN_emit_4345_i4840_i4889; } break; default: { r0 = (object *) 14; PXLL_RETURN(0); } break; } PXLL_RETURN(0); L2574: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_emit_4345_i4840_i4889; r1[2] = lenv; r0[2] = r1; // def move_4346_i4840_i4889 goto L3044; FUN_move_4346_i4840_i4889: check_heap (0); r0 = (object *) 1; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)>=unbox(r0))) { r0 = ((object*) lenv) [3]; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); r1 = (object *) 6; r2 = r0; r0 = PXLL_TEST(r2==r1); } else { r0 = (object *) 6; } if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][3]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L3045; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L3045: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L3046; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L3046: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_67; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_66; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_65; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3047; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L3047: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); L3044: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_move_4346_i4840_i4889; r1[2] = lenv; r0[3] = r1; // def guess-record-type_4366_i4840_i4889 goto L3048; FUN_guess_record_type_4366_i4840_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 4); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); // def lambda_31699_i4840_i4889 goto L3049; FUN_lambda_31699_i4840_i4889: r0 = ((object*) lenv) [2]; switch (get_case (r0)) { case (UOTAG(1)): { r0 = ((object*) lenv) [2]; r0 = UOBJ_GET(r0,0); r1 = r0; PXLL_RETURN(1); } break; default: { goto fatbar_5; } } PXLL_RETURN(0); goto fatbar_5_over; fatbar_5: r0 = (object*) &constructed_64; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_64; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = (object*) &constructed_63; dump_object (r0, 0); fprintf (stdout, "\n"); r0 = (object*) &constructed_63; result=r0; goto Lreturn; PXLL_RETURN(0); fatbar_5_over: ; PXLL_RETURN(0); L3049: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_31699_i4840_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object**) lenv) [1][2]; r1[3] = r2; r2 = top[36]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3050; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_map_328; L3050: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); // def lambda_31710_i4840_i4889 goto L3051; FUN_lambda_31710_i4840_i4889: r0 = (object *) constructed_62[0]; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(r1==r0); r1 = (object *) 6; r2 = r0; r1 = PXLL_TEST(r2==r1); PXLL_RETURN(1); L3051: r2 = allocate (TC_CLOSURE, 2); r2[1] = &&FUN_lambda_31710_i4840_i4889; r2[2] = lenv; r1[2] = r2; r2 = ((object*) lenv) [2]; r1[3] = r2; r2 = top[38]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3052; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_filter_330; L3052: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = (object *) constructed_60[0]; r0[4] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_31738_i4840_i4889 goto L3053; FUN_lambda_31738_i4840_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 3); // def lambda_31680_i4199_i4840_i4889 goto L3054; FUN_lambda_31680_i4199_i4840_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 3); r1 = ((object*) lenv) [2]; r0[2] = r1; r1 = ((object**) lenv) [1][2]; r0[3] = r1; r1 = top[29]; r0[1] = r1[2]; lenv = r0; goto FUN_member_eq_question_321; L3054: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_31680_i4199_i4840_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object***) lenv) [1][1][3]; r0[3] = r1; r1 = top[44]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3055; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_every_question_336; L3055: ; lenv = k[2]; k = k[1]; r0 = result; if PXLL_IS_TRUE(r0) { r0 = ((object***) lenv) [1][1][4]; r1 = r0; r2 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r0 = t; ((object***) lenv) [1][1][4] = r0; PXLL_RETURN(0); } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); } break; } PXLL_RETURN(0); L3053: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_31738_i4840_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*******) lenv) [1][1][1][1][1][1][2]; r1 = ((pxll_vector*)r1)->val[13]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3056; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L3056: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3057; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L3057: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r1 = (object *) 3; r0 = PXLL_TEST(unbox(r1)==unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 3); r2 = ((object**) lenv) [1][4]; r1[2] = r2; r2 = (object *) 1; r1[3] = r2; r2 = top[31]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3058; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_nth_323; L3058: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; t = alloc_no_clear (UOTAG(0),1); t[1] = r0; r0 = t; PXLL_RETURN(0); } else { r0 = (object*)UITAG(1); PXLL_RETURN(0); } PXLL_RETURN(0); L3048: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_guess_record_type_4366_i4840_i4889; r1[2] = lenv; r0[4] = r1; // def get-uotag_4367_i4840_i4889 goto L3059; FUN_get_uotag_4367_i4840_i4889: check_heap (0); r0 = (object *) constructed_54[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) constructed_52[0]; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object*) &constructed_50; PXLL_RETURN(0); } else { goto fatbar_3; } PXLL_RETURN(0); } else { goto fatbar_3; } PXLL_RETURN(0); goto fatbar_3_over; fatbar_3: r0 = (object *) constructed_47[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) constructed_57[0]; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object*) &constructed_55; PXLL_RETURN(0); } else { goto fatbar_4; } PXLL_RETURN(0); } else { goto fatbar_4; } PXLL_RETURN(0); goto fatbar_4_over; fatbar_4: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L3060; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L3060: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = (object*) &constructed_59; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = (object*) &constructed_58; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; fatbar_4_over: ; PXLL_RETURN(0); fatbar_3_over: ; PXLL_RETURN(0); L3059: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_get_uotag_4367_i4840_i4889; r1[2] = lenv; r0[5] = r1; // def get-uitag_4368_i4840_i4889 goto L3061; FUN_get_uitag_4368_i4840_i4889: check_heap (0); r0 = (object *) constructed_42[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) constructed_37[0]; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object*) &constructed_35; PXLL_RETURN(0); } else { goto fatbar_1; } PXLL_RETURN(0); goto fatbar_1_over; fatbar_1: r0 = (object *) constructed_40[0]; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object*) &constructed_38; PXLL_RETURN(0); } else { goto fatbar_0; } PXLL_RETURN(0); fatbar_1_over: ; PXLL_RETURN(0); } else { goto fatbar_0; } PXLL_RETURN(0); goto fatbar_0_over; fatbar_0: r0 = (object *) constructed_47[0]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object *) constructed_45[0]; r1 = ((object*) lenv) [3]; if PXLL_IS_TRUE(PXLL_TEST(r1==r0)) { r0 = (object*) &constructed_43; PXLL_RETURN(0); } else { goto fatbar_2; } PXLL_RETURN(0); } else { goto fatbar_2; } PXLL_RETURN(0); goto fatbar_2_over; fatbar_2: r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 5); r1[1] = lenv; lenv = r1; r2 = allocate (TC_TUPLE, 2); r3 = ((object**) lenv) [1][4]; r2[2] = r3; r3 = top[60]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L3062; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_int__3estring_366; L3062: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = (object*)TC_NIL; r1[3] = r2; r2 = ((object*) lenv) [3]; r3 = (object*) &constructed_49; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[4] = r2; r2 = ((object*) lenv) [4]; r3 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; r1[5] = r2; r1 = ((object*) lenv) [5]; r2 = (object*) &constructed_48; t = alloc_no_clear (TC_PAIR,2); t[1] = r2; t[2] = r1; r1 = t; lenv = lenv[1]; r0[2] = r1; r1 = top[51]; r0[1] = r1[2]; lenv = r0; goto FUN_string_concat_354; fatbar_2_over: ; PXLL_RETURN(0); fatbar_0_over: ; PXLL_RETURN(0); L3061: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_get_uitag_4368_i4840_i4889; r1[2] = lenv; r0[6] = r1; r0 = ((object*****) lenv) [1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[3]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3063; ; k = t; lenv = r0[2]; goto *r0[1]; L3063: ; lenv = k[2]; k = k[1]; r0 = ((object*****) lenv) [1][1][1][1][2]; r0 = ((pxll_vector*)r0)->val[11]; r0 = ((pxll_vector*)r0)->val[5]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_34; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3064; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3064: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_33; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3065; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3065: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 2); r1 = ((object*****) lenv) [1][1][1][1][57]; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3066; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_emit_4345_i4840_i4889; L3066: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_32; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3067; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3067: ; lenv = k[2]; k = k[1]; r0 = ((object*****) lenv) [1][1][1][1][2]; r0 = ((pxll_vector*)r0)->val[11]; r0 = ((pxll_vector*)r0)->val[5]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_31; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3068; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3068: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_30; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3069; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3069: ; lenv = k[2]; k = k[1]; r0 = ((object*****) lenv) [1][1][1][1][61]; r0 = ((pxll_vector*)r0)->val[2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3070; ; k = t; lenv = r0[2]; goto *r0[1]; L3070: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_29; r0[2] = r1; r1 = ((object*****) lenv) [1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3071; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3071: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; lenv = lenv[1]; } break; } lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r2 = ((pxll_vector*)r2)->val[13]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3072; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L3072: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = (object *) 1; r1 = ((object*) lenv) [2]; r0 = PXLL_TEST(unbox(r1)>unbox(r0)); lenv = lenv[1]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_28; r0[2] = r1; r1 = ((object*) lenv) [61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3073; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3073: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_27; r0[2] = r1; r1 = ((object*) lenv) [61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3074; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3074: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_35111_i4841_i4889 goto L3075; FUN_lambda_35111_i4841_i4889: check_heap (0); r0 = ((object*) lenv) [2]; switch (get_case_noint (r0)) { default: { r0 = allocate (TC_TUPLE, 3); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,0); r0[2] = r1; r1 = ((object**) lenv) [1][2]; r1 = UOBJ_GET(r1,1); r0[3] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][3]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L3076; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L3076: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_26; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_25; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3077; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L3077: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3078; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3078: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_24; r0[2] = r1; r1 = ((object***) lenv) [1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3079; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3079: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = ((object**) lenv) [1][2]; r1[2] = r2; r2 = top[26]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3080; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_length_316; L3080: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; // def $loop_4806_i4841_i4889 goto L3081; FUN__24loop_4806_i4841_i4889: check_heap (0); r0 = ((object***) lenv) [1][1][2]; r1 = ((object*) lenv) [2]; if PXLL_IS_TRUE(PXLL_TEST(unbox(r1)==unbox(r0))) { r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 2); r4 = allocate (TC_TUPLE, 3); r5 = allocate (TC_TUPLE, 3); r6 = ((object*****) lenv) [1][1][1][1][2]; r5[2] = r6; r6 = ((object**) lenv) [1][2]; r5[3] = r6; r6 = top[31]; t = allocate (TC_SAVE, 8); t[1] = k; t[2] = lenv; t[3] = &&L3082; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; t[8] = r4; k = t; r5[1] = r6[2]; lenv = r5; goto FUN_nth_323; L3082: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; r4 = k[8]; lenv = k[2]; k = k[1]; r5 = result; r4[2] = r5; r5 = ((object*******) lenv) [1][1][1][1][1][1][2]; r4[3] = r5; r5 = top[9]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L3083; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_lookup_label_code_254; L3083: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L3084; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L3084: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = allocate (TC_TUPLE, 2); r4 = ((object**) lenv) [1][2]; r3[2] = r4; r4 = top[60]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L3085; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_int__3estring_366; L3085: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = (object*) &constructed_23; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = (object*) &constructed_22; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = (object*) &constructed_21; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3086; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L3086: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object******) lenv) [1][1][1][1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3087; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3087: ; lenv = k[2]; k = k[1]; r0 = (object *) 3; r1 = ((object*) lenv) [2]; r0 = box((pxll_int)unbox(r1)+unbox(r0)); lenv[2] = r0; goto FUN__24loop_4806_i4841_i4889; } PXLL_RETURN(0); L3081: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN__24loop_4806_i4841_i4889; r1[2] = lenv; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = (object *) 1; r0[2] = r1; r1 = ((object*) lenv) [2]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3088; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN__24loop_4806_i4841_i4889; L3088: ; lenv = k[2]; k = k[1]; r0 = result; lenv = lenv[1]; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_20; r0[2] = r1; r1 = ((object***) lenv) [1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; } break; } PXLL_RETURN(0); L3075: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_35111_i4841_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[13]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3089; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L3089: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_19; r0[2] = r1; r1 = ((object*) lenv) [61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3090; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3090: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[11]; r0 = ((pxll_vector*)r0)->val[5]; if PXLL_IS_TRUE(r0) { r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_18; r0[2] = r1; r1 = ((object*) lenv) [61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3091; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3091: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 3); // def lambda_34238_i4842_i4889 goto L3092; FUN_lambda_34238_i4842_i4889: check_heap (0); r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 3); r3 = ((object**) lenv) [1][2]; r2[2] = r3; r3 = (object *) constructed_17[0]; r2[3] = r3; r3 = top[25]; t = allocate (TC_SAVE, 5); t[1] = k; t[2] = lenv; t[3] = &&L3093; t[4] = r0; t[5] = r1; k = t; r2[1] = r3[2]; lenv = r2; goto FUN_reverse_onto_313; L3093: r0 = k[4]; r1 = k[5]; lenv = k[2]; k = k[1]; r2 = result; r1[2] = r2; r2 = top[24]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3094; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_cdr_312; L3094: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = allocate (TC_TUPLE, 2); r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 5); r2[1] = lenv; lenv = r2; r3 = allocate (TC_TUPLE, 3); r4 = allocate (TC_TUPLE, 3); r5 = top[82]; r4[2] = r5; r5 = ((object**) lenv) [1][2]; r4[3] = r5; r5 = top[36]; t = allocate (TC_SAVE, 7); t[1] = k; t[2] = lenv; t[3] = &&L3095; t[4] = r0; t[5] = r1; t[6] = r2; t[7] = r3; k = t; r4[1] = r5[2]; lenv = r4; goto FUN_map_328; L3095: r0 = k[4]; r1 = k[5]; r2 = k[6]; r3 = k[7]; lenv = k[2]; k = k[1]; r4 = result; r3[2] = r4; r4 = (object*) &constructed_16; r3[3] = r4; r4 = top[52]; t = allocate (TC_SAVE, 6); t[1] = k; t[2] = lenv; t[3] = &&L3096; t[4] = r0; t[5] = r1; t[6] = r2; k = t; r3[1] = r4[2]; lenv = r3; goto FUN_string_join_355; L3096: r0 = k[4]; r1 = k[5]; r2 = k[6]; lenv = k[2]; k = k[1]; r3 = result; r2[2] = r3; r3 = (object*)TC_NIL; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_15; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r2 = ((object*) lenv) [5]; r3 = (object*) &constructed_14; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3097; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L3097: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r1 = ((object***) lenv) [1][1][61]; r1 = ((pxll_vector*)r1)->val[4]; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3092: r1 = allocate (TC_CLOSURE, 2); r1[1] = &&FUN_lambda_34238_i4842_i4889; r1[2] = lenv; r0[2] = r1; r1 = ((object*) lenv) [2]; r1 = ((pxll_vector*)r1)->val[12]; r0[3] = r1; r1 = top[39]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3098; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_for_each_331; L3098: ; lenv = k[2]; k = k[1]; r0 = allocate (TC_TUPLE, 2); r1 = (object*) &constructed_13; r0[2] = r1; r1 = ((object*) lenv) [61]; r1 = ((pxll_vector*)r1)->val[4]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3099; ; k = t; r0[1] = r1[2]; lenv = r0; goto *r1[1]; L3099: ; lenv = k[2]; k = k[1]; r0 = result; } else { r0 = (object *) 14; } r0 = (object*) &constructed_12; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_12; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = ((object*) lenv) [61]; r0 = ((pxll_vector*)r0)->val[0]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3100; ; k = t; lenv = r0[2]; goto *r0[1]; L3100: ; lenv = k[2]; k = k[1]; r0 = ((object*) lenv) [2]; r0 = ((pxll_vector*)r0)->val[11]; r0 = ((pxll_vector*)r0)->val[2]; r1 = (object *) 6; r2 = r0; r0 = PXLL_TEST(r2==r1); if PXLL_IS_TRUE(r0) { r0 = (object*) &constructed_11; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = (object*) &constructed_11; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); // dead = (object *) 14; r0 = allocate (TC_TUPLE, 6); r0[1] = lenv; lenv = r0; r1 = ((object**) lenv) [1][2]; r1 = ((pxll_vector*)r1)->val[11]; r0[2] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_10; r1[2] = r2; r2 = top[218]; r1[3] = r2; r2 = top[161]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3101; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_getenv_or_582; L3101: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[3] = r1; r1 = allocate (TC_TUPLE, 3); r2 = (object*) &constructed_9; r1[2] = r2; r2 = top[219]; r1[3] = r2; r2 = top[161]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3102; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_getenv_or_582; L3102: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[4] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[4]; if PXLL_IS_TRUE(r3) { r3 = (object*) &constructed_7; } else { r3 = (object*) &constructed_8; } r2[2] = r3; r3 = ((object**) lenv) [1][2]; r3 = ((pxll_vector*)r3)->val[1]; r2[3] = r3; r3 = (object*)TC_NIL; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object*) lenv) [3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_6; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = ((object*) lenv) [2]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_5; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = ((object**) lenv) [1][4]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3103; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L3103: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[5] = r1; r1 = allocate (TC_TUPLE, 2); r2 = allocate (TC_TUPLE, 8); r2[1] = lenv; lenv = r2; r3 = (object*)TC_NIL; r2[2] = r3; r3 = ((object*) lenv) [2]; r4 = ((object***) lenv) [1][1][11]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[3] = r3; r3 = ((object*) lenv) [3]; r4 = (object*) &constructed_4; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[4] = r3; r3 = ((object*) lenv) [4]; r4 = ((object***) lenv) [1][1][11]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[5] = r3; r3 = ((object*) lenv) [5]; r4 = (object*) &constructed_3; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[6] = r3; r3 = ((object*) lenv) [6]; r4 = ((object**) lenv) [1][5]; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[7] = r3; r3 = ((object*) lenv) [7]; r4 = (object*) &constructed_2; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r2[8] = r3; r2 = ((object*) lenv) [8]; r3 = ((object**) lenv) [1][3]; t = alloc_no_clear (TC_PAIR,2); t[1] = r3; t[2] = r2; r2 = t; lenv = lenv[1]; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3104; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L3104: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[6] = r1; r0 = allocate (TC_TUPLE, 2); r0[1] = lenv; lenv = r0; r1 = allocate (TC_TUPLE, 2); r2 = (object*)TC_NIL; r3 = r2; r4 = (object*) &constructed_1; t = alloc_no_clear (TC_PAIR,2); t[1] = r4; t[2] = r3; r3 = t; r4 = r3; r5 = ((object**) lenv) [1][6]; t = alloc_no_clear (TC_PAIR,2); t[1] = r5; t[2] = r4; r4 = t; r5 = r4; r6 = (object*) &constructed_0; t = alloc_no_clear (TC_PAIR,2); t[1] = r6; t[2] = r5; r2 = t; r1[2] = r2; r2 = top[51]; t = allocate (TC_SAVE, 4); t[1] = k; t[2] = lenv; t[3] = &&L3105; t[4] = r0; k = t; r1[1] = r2[2]; lenv = r1; goto FUN_string_concat_354; L3105: r0 = k[4]; lenv = k[2]; k = k[1]; r1 = result; r0[2] = r1; r0 = ((object*) lenv) [2]; r0 = box((pxll_int)((pxll_string*)(r0))->len); r1 = ((object*) lenv) [2]; box((pxll_int)fwrite (((pxll_string*)(r1))->data, 1, unbox(r0), stdout)); r0 = (object *) 14; lenv = lenv[1]; r0 = allocate (TC_TUPLE, 2); r1 = ((object*) lenv) [6]; r0[2] = r1; r1 = top[57]; t = allocate (TC_SAVE, 3); t[1] = k; t[2] = lenv; t[3] = &&L3106; ; k = t; r0[1] = r1[2]; lenv = r0; goto FUN_zero_terminate_362; L3106: ; lenv = k[2]; k = k[1]; r0 = result; r0 = box((pxll_int)system (((pxll_string*)(r0))->data)); lenv = lenv[1]; r0 = (object *) 14; PXLL_RETURN(0); } else { r0 = (object *) 14; PXLL_RETURN(0); } PXLL_RETURN(0); Lreturn: return (pxll_int) result; } static int lookup_field (int tag, int label) { switch (tag) { case 25: switch (label) { case 92: return 0; break; case 78: return 1; break; case 93: return 2; break; case 76: return 3; break; case 94: return 4; break; } break; case 24: switch (label) { case 5: return 0; break; case 91: return 1; break; case 6: return 2; break; case 7: return 3; break; } break; case 23: switch (label) { case 88: return 0; break; case 89: return 1; break; case 90: return 2; break; } break; case 22: switch (label) { case 11: return 0; break; case 87: return 1; break; } break; case 21: switch (label) { case 11: return 0; break; case 83: return 1; break; case 84: return 2; break; case 85: return 3; break; case 86: return 4; break; } break; case 20: switch (label) { case 78: return 0; break; case 79: return 1; break; case 80: return 2; break; case 81: return 3; break; case 57: return 4; break; case 82: return 5; break; } break; case 19: switch (label) { case 74: return 0; break; case 16: return 1; break; case 75: return 2; break; case 76: return 3; break; case 77: return 4; break; } break; case 18: switch (label) { case 72: return 0; break; case 73: return 1; break; } break; case 17: switch (label) { case 67: return 0; break; case 68: return 1; break; case 69: return 2; break; case 70: return 3; break; case 71: return 4; break; } break; case 16: switch (label) { case 66: return 0; break; case 56: return 1; break; } break; case 15: switch (label) { case 65: return 0; break; case 56: return 1; break; } break; case 14: switch (label) { case 10: return 0; break; case 11: return 1; break; case 60: return 2; break; case 61: return 3; break; case 25: return 4; break; case 62: return 5; break; case 63: return 6; break; case 64: return 7; break; } break; case 13: switch (label) { case 59: return 0; break; case 56: return 1; break; case 57: return 2; break; } break; case 12: switch (label) { case 10: return 0; break; case 11: return 1; break; case 58: return 2; break; case 25: return 3; break; } break; case 11: switch (label) { case 56: return 0; break; case 57: return 1; break; } break; case 10: switch (label) { case 48: return 0; break; case 49: return 1; break; case 50: return 2; break; case 51: return 3; break; case 52: return 4; break; case 53: return 5; break; case 54: return 6; break; case 55: return 7; break; } break; case 9: switch (label) { case 46: return 0; break; case 47: return 1; break; } break; case 8: switch (label) { case 26: return 0; break; case 27: return 1; break; case 28: return 2; break; case 29: return 3; break; case 30: return 4; break; case 31: return 5; break; case 32: return 6; break; case 33: return 7; break; case 34: return 8; break; case 35: return 9; break; case 36: return 10; break; case 37: return 11; break; case 38: return 12; break; case 39: return 13; break; case 40: return 14; break; case 41: return 15; break; case 42: return 16; break; case 43: return 17; break; case 44: return 18; break; case 45: return 19; break; } break; case 7: switch (label) { case 10: return 0; break; case 11: return 1; break; case 21: return 2; break; case 22: return 3; break; case 23: return 4; break; case 24: return 5; break; case 25: return 6; break; case 16: return 7; break; } break; case 6: switch (label) { case 18: return 0; break; case 16: return 1; break; case 19: return 2; break; case 20: return 3; break; } break; case 5: switch (label) { case 15: return 0; break; case 9: return 1; break; case 16: return 2; break; case 17: return 3; break; } break; case 4: switch (label) { case 13: return 0; break; case 14: return 1; break; } break; case 3: switch (label) { case 10: return 0; break; case 11: return 1; break; case 12: return 2; break; } break; case 2: switch (label) { case 8: return 0; break; case 9: return 1; break; } break; case 1: switch (label) { case 5: return 0; break; case 6: return 1; break; case 7: return 2; break; } break; case 0: switch (label) { case 0: return 0; break; case 1: return 1; break; case 2: return 2; break; case 3: return 3; break; case 4: return 4; break; } break; } return 0; }