diff --git a/k.c b/k.c index 02cb9ad..c4a57cf 100644 --- a/k.c +++ b/k.c @@ -427,6 +427,7 @@ extern obj cx__25residual_2Dcdr; /* %residual-cdr */ extern obj cx__25residual_2Dcons; /* %residual-cons */ extern obj cx__25residual_2Dlist; /* %residual-list */ extern obj cx__25residual_2Dmap; /* %residual-map */ +extern obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */ extern obj cx__2Acurrent_2Dinput_2Dport_2A; /* *current-input-port* */ extern obj cx__2Acurrent_2Doutput_2Dport_2A; /* *current-output-port* */ extern obj cx_apply; /* apply */ @@ -451,6 +452,7 @@ obj cx__25residual_2Dval_2Dcore_3F; /* %residual-val-core? */ obj cx__25residual_2Dval_2Dspecial_3F; /* %residual-val-special? */ obj cx__2Aglobals_2A; /* *globals* */ obj cx__2Ahide_2Drefs_2A; /* *hide-refs* */ +obj cx__2Areset_2A; /* *reset* */ obj cx__2Atransformers_2A; /* *transformers* */ obj cx__2Averbose_2A; /* *verbose* */ obj cx_add_2Dbinding; /* add-binding */ @@ -467,6 +469,7 @@ obj cx_den_2D_3Esym; /* den->sym */ obj cx_denotation_2Dof_2Ddefault_2Dellipsis; /* denotation-of-default-ellipsis */ obj cx_display_2Dcode; /* display-code */ obj cx_empty_2Dxenv; /* empty-xenv */ +obj cx_error_2A; /* error* */ obj cx_evaluate; /* evaluate */ obj cx_execute; /* execute */ obj cx_execute_2Dthunk_2Dclosure; /* execute-thunk-closure */ @@ -555,89 +558,92 @@ obj cx_xform_2Dquote; /* xform-quote */ obj cx_xform_2Dref; /* xform-ref */ obj cx_xform_2Dset_21; /* xform-set! */ obj cx_xform_2Dset_26; /* xform-set& */ +obj cx_xform_2Dsyntax_2Dlambda; /* xform-syntax-lambda */ obj cx_xform_2Dwithcc; /* xform-withcc */ -static obj cx__231017; /* constant #1017 */ -static obj cx__231126; /* constant #1126 */ -static obj cx__231157; /* constant #1157 */ -static obj cx__231173; /* constant #1173 */ -static obj cx__231187; /* constant #1187 */ -static obj cx__231617; /* constant #1617 */ -static obj cx__231677; /* constant #1677 */ -static obj cx__231718; /* constant #1718 */ -static obj cx__231750; /* constant #1750 */ -static obj cx__231808; /* constant #1808 */ -static obj cx__231840; /* constant #1840 */ -static obj cx__231920; /* constant #1920 */ -static obj cx__231958; /* constant #1958 */ -static obj cx__231998; /* constant #1998 */ -static obj cx__232050; /* constant #2050 */ -static obj cx__232157; /* constant #2157 */ -static obj cx__232163; /* constant #2163 */ -static obj cx__232198; /* constant #2198 */ -static obj cx__232202; /* constant #2202 */ -static obj cx__232246; /* constant #2246 */ -static obj cx__232312; /* constant #2312 */ -static obj cx__232511; /* constant #2511 */ -static obj cx__232519; /* constant #2519 */ -static obj cx__232539; /* constant #2539 */ -static obj cx__232563; /* constant #2563 */ -static obj cx__232611; /* constant #2611 */ -static obj cx__232652; /* constant #2652 */ -static obj cx__232732; /* constant #2732 */ -static obj cx__233078; /* constant #3078 */ +static obj cx__231002; /* constant #1002 */ +static obj cx__231052; /* constant #1052 */ +static obj cx__231161; /* constant #1161 */ +static obj cx__231192; /* constant #1192 */ +static obj cx__231208; /* constant #1208 */ +static obj cx__231222; /* constant #1222 */ +static obj cx__231659; /* constant #1659 */ +static obj cx__231719; /* constant #1719 */ +static obj cx__231760; /* constant #1760 */ +static obj cx__231792; /* constant #1792 */ +static obj cx__231850; /* constant #1850 */ +static obj cx__231882; /* constant #1882 */ +static obj cx__231962; /* constant #1962 */ +static obj cx__232000; /* constant #2000 */ +static obj cx__232040; /* constant #2040 */ +static obj cx__232092; /* constant #2092 */ +static obj cx__232199; /* constant #2199 */ +static obj cx__232205; /* constant #2205 */ +static obj cx__232240; /* constant #2240 */ +static obj cx__232244; /* constant #2244 */ +static obj cx__232288; /* constant #2288 */ +static obj cx__232354; /* constant #2354 */ +static obj cx__232553; /* constant #2553 */ +static obj cx__232561; /* constant #2561 */ +static obj cx__232581; /* constant #2581 */ +static obj cx__232605; /* constant #2605 */ +static obj cx__232653; /* constant #2653 */ +static obj cx__232692; /* constant #2692 */ +static obj cx__232772; /* constant #2772 */ +static obj cx__233118; /* constant #3118 */ static obj cx__23334; /* constant #334 */ -static obj cx__233355; /* constant #3355 */ -static obj cx__233520; /* constant #3520 */ -static obj cx__233650; /* constant #3650 */ -static obj cx__233681; /* constant #3681 */ -static obj cx__233686; /* constant #3686 */ +static obj cx__233395; /* constant #3395 */ +static obj cx__233560; /* constant #3560 */ static obj cx__233690; /* constant #3690 */ +static obj cx__233721; /* constant #3721 */ static obj cx__233726; /* constant #3726 */ -static obj cx__233752; /* constant #3752 */ -static obj cx__233763; /* constant #3763 */ -static obj cx__233814; /* constant #3814 */ -static obj cx__233818; /* constant #3818 */ -static obj cx__233928; /* constant #3928 */ -static obj cx__233970; /* constant #3970 */ -static obj cx__233978; /* constant #3978 */ -static obj cx__233979; /* constant #3979 */ -static obj cx__233980; /* constant #3980 */ -static obj cx__233981; /* constant #3981 */ -static obj cx__233982; /* constant #3982 */ -static obj cx__234004; /* constant #4004 */ -static obj cx__234006; /* constant #4006 */ +static obj cx__233730; /* constant #3730 */ +static obj cx__233766; /* constant #3766 */ +static obj cx__233792; /* constant #3792 */ +static obj cx__233803; /* constant #3803 */ +static obj cx__233854; /* constant #3854 */ +static obj cx__233858; /* constant #3858 */ +static obj cx__233968; /* constant #3968 */ static obj cx__234010; /* constant #4010 */ -static obj cx__234280; /* constant #4280 */ -static obj cx__23434; /* constant #434 */ -static obj cx__234482; /* constant #4482 */ -static obj cx__23470; /* constant #470 */ -static obj cx__23480; /* constant #480 */ -static obj cx__234884; /* constant #4884 */ -static obj cx__23493; /* constant #493 */ -static obj cx__235014; /* constant #5014 */ -static obj cx__23518; /* constant #518 */ -static obj cx__23524; /* constant #524 */ -static obj cx__235398; /* constant #5398 */ -static obj cx__235422; /* constant #5422 */ -static obj cx__235423; /* constant #5423 */ -static obj cx__235476; /* constant #5476 */ -static obj cx__235483; /* constant #5483 */ -static obj cx__235490; /* constant #5490 */ -static obj cx__23550; /* constant #550 */ -static obj cx__235544; /* constant #5544 */ -static obj cx__235564; /* constant #5564 */ -static obj cx__235567; /* constant #5567 */ -static obj cx__235573; /* constant #5573 */ -static obj cx__23575; /* constant #575 */ -static obj cx__23593; /* constant #593 */ -static obj cx__23603; /* constant #603 */ -static obj cx__23626; /* constant #626 */ -static obj cx__23864; /* constant #864 */ -static obj cx__23910; /* constant #910 */ -static obj cx__23912; /* constant #912 */ -static obj cx__23951; /* constant #951 */ -static obj cx__23967; /* constant #967 */ +static obj cx__234018; /* constant #4018 */ +static obj cx__234019; /* constant #4019 */ +static obj cx__234020; /* constant #4020 */ +static obj cx__234021; /* constant #4021 */ +static obj cx__234022; /* constant #4022 */ +static obj cx__234044; /* constant #4044 */ +static obj cx__234046; /* constant #4046 */ +static obj cx__234050; /* constant #4050 */ +static obj cx__234320; /* constant #4320 */ +static obj cx__23435; /* constant #435 */ +static obj cx__234522; /* constant #4522 */ +static obj cx__23471; /* constant #471 */ +static obj cx__23481; /* constant #481 */ +static obj cx__234924; /* constant #4924 */ +static obj cx__23494; /* constant #494 */ +static obj cx__235054; /* constant #5054 */ +static obj cx__23519; /* constant #519 */ +static obj cx__23525; /* constant #525 */ +static obj cx__235462; /* constant #5462 */ +static obj cx__235486; /* constant #5486 */ +static obj cx__235487; /* constant #5487 */ +static obj cx__23551; /* constant #551 */ +static obj cx__235541; /* constant #5541 */ +static obj cx__235548; /* constant #5548 */ +static obj cx__235555; /* constant #5555 */ +static obj cx__235610; /* constant #5610 */ +static obj cx__235630; /* constant #5630 */ +static obj cx__235633; /* constant #5633 */ +static obj cx__235639; /* constant #5639 */ +static obj cx__23576; /* constant #576 */ +static obj cx__23594; /* constant #594 */ +static obj cx__23604; /* constant #604 */ +static obj cx__23627; /* constant #627 */ +static obj cx__23865; /* constant #865 */ +static obj cx__23911; /* constant #911 */ +static obj cx__23913; /* constant #913 */ +static obj cx__23952; /* constant #952 */ +static obj cx__23960; /* constant #960 */ static obj cx__2398; /* constant #98 */ +static obj cx__23986; /* constant #986 */ /* helper functions */ /* set-member? */ @@ -651,11 +657,11 @@ static obj cxs_set_2Dmember_3F(obj v2_x, obj v1_s) return obj_from_bool(1); } else { { /* let */ - obj v5999_tmp = (cdr((v1_s))); - obj v5998_tmp = (v2_x); + obj v6073_tmp = (cdr((v1_s))); + obj v6072_tmp = (v2_x); /* tail call */ - v2_x = (v5998_tmp); - v1_s = (v5999_tmp); + v2_x = (v6072_tmp); + v1_s = (v6073_tmp); goto s_set_2Dmember_3F; } } @@ -676,18 +682,18 @@ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) } else { if ((ispair((v41_pat)))) { { /* let */ - obj v5992_tmp; + obj v6066_tmp; { /* let */ - obj v5996_tmp; + obj v6070_tmp; { /* let */ - obj v5997_tmp; + obj v6071_tmp; { static obj o = 0; static char s[] = { 36, 0 }; - v5997_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; - v5996_tmp = obj_from_bool((car((v41_pat))) == (v5997_tmp)); + v6071_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; + v6070_tmp = obj_from_bool((car((v41_pat))) == (v6071_tmp)); } - v5992_tmp = (bool_from_obj(v5996_tmp) ? ((ispair((cdr((v41_pat))))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0)); + v6066_tmp = (bool_from_obj(v6070_tmp) ? ((ispair((cdr((v41_pat))))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0)); } - if (bool_from_obj(v5992_tmp)) { + if (bool_from_obj(v6066_tmp)) { return obj_from_bool((v40_exp) == (car((cdr((v41_pat)))))); } else { if (bool_from_obj((ispair((cdr((v41_pat))))) ? (((car((cdr((v41_pat))))) == (mksymbol(internsym("...")))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0))) { @@ -705,9 +711,9 @@ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) if ((ispair((v58_lst)))) { if (bool_from_obj(cxs_syntax_2Dmatch_3F((v56_pat), (car((v58_lst)))))) { { /* let */ - obj v5995_tmp = (cdr((v58_lst))); + obj v6069_tmp = (cdr((v58_lst))); /* tail call */ - v58_lst = (v5995_tmp); + v58_lst = (v6069_tmp); goto s_f; } } else { @@ -723,11 +729,11 @@ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) if ((ispair((v40_exp)))) { if (bool_from_obj(cxs_syntax_2Dmatch_3F((car((v41_pat))), (car((v40_exp)))))) { { /* let */ - obj v5994_tmp = (cdr((v40_exp))); - obj v5993_tmp = (cdr((v41_pat))); + obj v6068_tmp = (cdr((v40_exp))); + obj v6067_tmp = (cdr((v41_pat))); /* tail call */ - v41_pat = (v5993_tmp); - v40_exp = (v5994_tmp); + v41_pat = (v6067_tmp); + v40_exp = (v6068_tmp); goto s_syntax_2Dmatch_3F; } } else { @@ -754,11 +760,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) obj v120_l; obj v119_n; { /* let */ - obj v5991_tmp = obj_from_fixnum(+0); - obj v5990_tmp = (v116_l); + obj v6065_tmp = obj_from_fixnum(+0); + obj v6064_tmp = (v116_l); /* tail call */ - v120_l = (v5990_tmp); - v119_n = (v5991_tmp); + v120_l = (v6064_tmp); + v119_n = (v6065_tmp); goto s_loop; } s_loop: @@ -769,11 +775,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) return (v119_n); } else { { /* let */ - obj v5989_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); - obj v5988_tmp = (cdr((v120_l))); + obj v6063_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); + obj v6062_tmp = (cdr((v120_l))); /* tail call */ - v120_l = (v5988_tmp); - v119_n = (v5989_tmp); + v120_l = (v6062_tmp); + v119_n = (v6063_tmp); goto s_loop; } } @@ -827,6 +833,7 @@ static obj cxs_den_2D_3Esym(obj v297_den) static obj *globv[] = { &cx__2Aglobals_2A, &cx__2Ahide_2Drefs_2A, + &cx__2Areset_2A, &cx__2Atransformers_2A, &cx__2Averbose_2A, &cx_c_2Derror, @@ -853,88 +860,90 @@ static obj *globv[] = { &cx_test5, &cx_transform, &cx_x_2Derror, - &cx__231017, - &cx__231126, - &cx__231157, - &cx__231173, - &cx__231187, - &cx__231617, - &cx__231677, - &cx__231718, - &cx__231750, - &cx__231808, - &cx__231840, - &cx__231920, - &cx__231958, - &cx__231998, - &cx__232050, - &cx__232157, - &cx__232163, - &cx__232198, - &cx__232202, - &cx__232246, - &cx__232312, - &cx__232511, - &cx__232519, - &cx__232539, - &cx__232563, - &cx__232611, - &cx__232652, - &cx__232732, - &cx__233078, + &cx__231002, + &cx__231052, + &cx__231161, + &cx__231192, + &cx__231208, + &cx__231222, + &cx__231659, + &cx__231719, + &cx__231760, + &cx__231792, + &cx__231850, + &cx__231882, + &cx__231962, + &cx__232000, + &cx__232040, + &cx__232092, + &cx__232199, + &cx__232205, + &cx__232240, + &cx__232244, + &cx__232288, + &cx__232354, + &cx__232553, + &cx__232561, + &cx__232581, + &cx__232605, + &cx__232653, + &cx__232692, + &cx__232772, + &cx__233118, &cx__23334, - &cx__233355, - &cx__233520, - &cx__233650, - &cx__233681, - &cx__233686, + &cx__233395, + &cx__233560, &cx__233690, + &cx__233721, &cx__233726, - &cx__233752, - &cx__233763, - &cx__233814, - &cx__233818, - &cx__233928, - &cx__233970, - &cx__233978, - &cx__233979, - &cx__233980, - &cx__233981, - &cx__233982, - &cx__234004, - &cx__234006, + &cx__233730, + &cx__233766, + &cx__233792, + &cx__233803, + &cx__233854, + &cx__233858, + &cx__233968, &cx__234010, - &cx__234280, - &cx__23434, - &cx__234482, - &cx__23470, - &cx__23480, - &cx__234884, - &cx__23493, - &cx__235014, - &cx__23518, - &cx__23524, - &cx__235398, - &cx__235422, - &cx__235423, - &cx__235476, - &cx__235483, - &cx__235490, - &cx__23550, - &cx__235544, - &cx__235564, - &cx__235567, - &cx__235573, - &cx__23575, - &cx__23593, - &cx__23603, - &cx__23626, - &cx__23864, - &cx__23910, - &cx__23912, - &cx__23951, - &cx__23967, + &cx__234018, + &cx__234019, + &cx__234020, + &cx__234021, + &cx__234022, + &cx__234044, + &cx__234046, + &cx__234050, + &cx__234320, + &cx__23435, + &cx__234522, + &cx__23471, + &cx__23481, + &cx__234924, + &cx__23494, + &cx__235054, + &cx__23519, + &cx__23525, + &cx__235462, + &cx__235486, + &cx__235487, + &cx__23551, + &cx__235541, + &cx__235548, + &cx__235555, + &cx__235610, + &cx__235630, + &cx__235633, + &cx__235639, + &cx__23576, + &cx__23594, + &cx__23604, + &cx__23627, + &cx__23865, + &cx__23911, + &cx__23913, + &cx__23952, + &cx__23960, &cx__2398, + &cx__23986, }; static cxroot_t root = { @@ -943,7 +952,9 @@ static cxroot_t root = { /* entry points */ static obj host(obj); -static obj cases[560] = { +static obj cases[570] = { + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, @@ -1072,20 +1083,20 @@ jump: case 0: /* load module */ cx__2398 = (hpushstr(0, newstring("#"))); cx__23334 = (hpushstr(0, newstring("transformer: "))); - cx__23434 = (hpushstr(0, newstring("improper quote form"))); - cx__23470 = (hpushstr(0, newstring("improper set! form"))); - cx__23480 = (hpushstr(0, newstring("set! to non-identifier form"))); + cx__23435 = (hpushstr(0, newstring("improper quote form"))); + cx__23471 = (hpushstr(0, newstring("improper set! form"))); + cx__23481 = (hpushstr(0, newstring("set! to non-identifier form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__23493 = (hendblk(3)); } - cx__23518 = (hpushstr(0, newstring("improper set& form"))); - cx__23524 = (hpushstr(0, newstring("set& of a non-variable"))); - cx__23550 = (hpushstr(0, newstring("improper begin form"))); - cx__23575 = (hpushstr(0, newstring("improper if form"))); - cx__23593 = (hpushstr(0, newstring("malformed if form"))); + cx__23494 = (hendblk(3)); } + cx__23519 = (hpushstr(0, newstring("improper set& form"))); + cx__23525 = (hpushstr(0, newstring("set& of a non-variable"))); + cx__23551 = (hpushstr(0, newstring("improper begin form"))); + cx__23576 = (hpushstr(0, newstring("improper if form"))); + cx__23594 = (hpushstr(0, newstring("malformed if form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1097,29 +1108,31 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__23603 = (hendblk(3)); } - cx__23626 = (hpushstr(0, newstring("improper application"))); - cx__23864 = (hpushstr(0, newstring("improper lambda body"))); - cx__23910 = (hpushstr(0, newstring("improper lambda* form"))); - cx__23912 = (hpushstr(0, newstring("improper lambda* clause"))); - cx__23951 = (hpushstr(0, newstring("improper letcc form"))); - cx__23967 = (hpushstr(0, newstring("improper withcc form"))); + cx__23604 = (hendblk(3)); } + cx__23627 = (hpushstr(0, newstring("improper application"))); + cx__23865 = (hpushstr(0, newstring("improper lambda body"))); + cx__23911 = (hpushstr(0, newstring("improper lambda* form"))); + cx__23913 = (hpushstr(0, newstring("improper lambda* clause"))); + cx__23952 = (hpushstr(0, newstring("improper syntax-lambda body"))); + cx__23960 = (hpushstr(0, newstring("invalif syntax-lambda application"))); + cx__23986 = (hpushstr(0, newstring("improper letcc form"))); + cx__231002 = (hpushstr(0, newstring("improper withcc form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("undefined"))); *--hp = obj_from_size(PAIR_BTAG); - cx__231017 = (hendblk(3)); } + cx__231052 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__231126 = (hendblk(3)); } - cx__231157 = (hpushstr(0, newstring("improper define form"))); - cx__231173 = (hpushstr(0, newstring("improper define-syntax form"))); - cx__231187 = (hpushstr(0, newstring("improper use of ..."))); - cx__231617 = (hpushstr(0, newstring("invalid syntax"))); + cx__231161 = (hendblk(3)); } + cx__231192 = (hpushstr(0, newstring("improper define form"))); + cx__231208 = (hpushstr(0, newstring("improper define-syntax form"))); + cx__231222 = (hpushstr(0, newstring("improper use of ..."))); + cx__231659 = (hpushstr(0, newstring("invalid syntax"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1239,7 +1252,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__231677 = (hendblk(3)); } + cx__231719 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("forms"))); @@ -1329,7 +1342,7 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__231718 = (hendblk(3)); } + cx__231760 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1497,7 +1510,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__231750 = (hendblk(3)); } + cx__231792 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("forms"))); @@ -1587,7 +1600,7 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__231808 = (hendblk(3)); } + cx__231850 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1821,7 +1834,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__231840 = (hendblk(3)); } + cx__231882 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("forms"))); @@ -1929,7 +1942,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__231920 = (hendblk(3)); } + cx__231962 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2043,7 +2056,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__231958 = (hendblk(3)); } + cx__232000 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("tests"))); @@ -2193,7 +2206,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__231998 = (hendblk(3)); } + cx__232040 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("rest"))); @@ -2511,7 +2524,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__232050 = (hendblk(3)); } + cx__232092 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2523,7 +2536,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("else"))); *--hp = obj_from_size(PAIR_BTAG); - cx__232157 = (hendblk(3)); } + cx__232199 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2625,13 +2638,13 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__232163 = (hendblk(3)); } + cx__232205 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("else"))); *--hp = obj_from_size(PAIR_BTAG); - cx__232198 = (hendblk(3)); } + cx__232240 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2757,7 +2770,7 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__232202 = (hendblk(3)); } + cx__232244 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2949,7 +2962,7 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__232246 = (hendblk(3)); } + cx__232288 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3549,7 +3562,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__232312 = (hendblk(3)); } + cx__232354 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3567,7 +3580,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("unquote"))); *--hp = obj_from_size(PAIR_BTAG); - cx__232511 = (hendblk(3)); } + cx__232553 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("rest"))); @@ -3621,7 +3634,7 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__232519 = (hendblk(3)); } + cx__232561 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("rest"))); @@ -3687,7 +3700,7 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__232539 = (hendblk(3)); } + cx__232581 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3771,11 +3784,11 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__232563 = (hendblk(3)); } - cx__232611 = (hpushstr(0, newstring("compiler: "))); - cx__232652 = (hpushstr(0, newstring("cannot encode literal: ~s"))); - cx__232732 = (hpushstr(0, newstring("0123456789"))); - cx__233078 = (hpushstr(0, newstring("unsupported integrable type"))); + cx__232605 = (hendblk(3)); } + cx__232653 = (hpushstr(0, newstring("compiler: "))); + cx__232692 = (hpushstr(0, newstring("cannot encode literal: ~s"))); + cx__232772 = (hpushstr(0, newstring("0123456789"))); + cx__233118 = (hpushstr(0, newstring("unsupported integrable type"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3793,13 +3806,13 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("quote"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233355 = (hendblk(3)); } + cx__233395 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233520 = (hendblk(3)); } + cx__233560 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3865,25 +3878,25 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("define-inline"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233650 = (hendblk(3)); } + cx__233690 = (hendblk(3)); } { static char s[] = { 34, 10, 0 }; - cx__233681 = (hpushstr(0, newstring(s))); } + cx__233721 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 0 }; - cx__233686 = (hpushstr(0, newstring(s))); } + cx__233726 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 0 }; - cx__233690 = (hpushstr(0, newstring(s))); } + cx__233730 = (hpushstr(0, newstring(s))); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("args"))); *--hp = (mksymbol(internsym("_"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233726 = (hendblk(3)); } + cx__233766 = (hendblk(3)); } { static char s[] = { 34, 44, 10, 0 }; - cx__233752 = (hpushstr(0, newstring(s))); } + cx__233792 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 48, 44, 10, 0 }; - cx__233763 = (hpushstr(0, newstring(s))); } - cx__233814 = (hpushstr(0, newstring("r"))); - cx__233818 = (hpushstr(0, newstring("cannot open input file"))); + cx__233803 = (hpushstr(0, newstring(s))); } + cx__233854 = (hpushstr(0, newstring("r"))); + cx__233858 = (hpushstr(0, newstring("cannot open input file"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3901,16 +3914,16 @@ case 0: /* load module */ *--hp = r[0]; *--hp = obj_from_char(92); *--hp = obj_from_size(PAIR_BTAG); - cx__233928 = (hendblk(3)); } + cx__233968 = (hendblk(3)); } { static char s[] = { 10, 32, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 }; - cx__233970 = (hpushstr(0, newstring(s))); } - cx__233978 = (hpushstr(0, newstring("_code[] = {"))); - cx__233979 = (hpushstr(0, newstring("char *"))); - cx__233980 = (hpushstr(0, newstring(" */"))); - cx__233981 = (hpushstr(0, newstring(".c -- generated via skint -c "))); - cx__233982 = (hpushstr(0, newstring("/* "))); - cx__234004 = (hpushstr(0, newstring("k!"))); - cx__234006 = (hpushstr(0, newstring("K5"))); + cx__234010 = (hpushstr(0, newstring(s))); } + cx__234018 = (hpushstr(0, newstring("_code[] = {"))); + cx__234019 = (hpushstr(0, newstring("char *"))); + cx__234020 = (hpushstr(0, newstring(" */"))); + cx__234021 = (hpushstr(0, newstring(".c -- generated via skint -c "))); + cx__234022 = (hpushstr(0, newstring("/* "))); + cx__234044 = (hpushstr(0, newstring("k!"))); + cx__234046 = (hpushstr(0, newstring("K5"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -4726,7 +4739,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234010 = (hendblk(3)); } + cx__234050 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5326,7 +5339,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234280 = (hendblk(3)); } + cx__234320 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -6526,7 +6539,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234482 = (hendblk(3)); } + cx__234522 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -6910,7 +6923,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234884 = (hendblk(3)); } + cx__234924 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -8050,29 +8063,29 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__235014 = (hendblk(3)); } - cx__235398 = (hpushstr(0, newstring(" ms."))); - cx__235422 = (hpushstr(0, newstring("Elapsed time: "))); - cx__235423 = (hpushstr(0, newstring("Running tests ..."))); - cx__235476 = (hpushstr(0, newstring("DECODE+EXECUTE =>"))); - cx__235483 = (hpushstr(0, newstring("COMPILE-TO-STRING =>"))); - cx__235490 = (hpushstr(0, newstring("TRANSFORM =>"))); + cx__235054 = (hendblk(3)); } + cx__235462 = (hpushstr(0, newstring(" ms."))); + cx__235486 = (hpushstr(0, newstring("Elapsed time: "))); + cx__235487 = (hpushstr(0, newstring("Running tests ..."))); + cx__235541 = (hpushstr(0, newstring("DECODE+EXECUTE =>"))); + cx__235548 = (hpushstr(0, newstring("COMPILE-TO-STRING =>"))); + cx__235555 = (hpushstr(0, newstring("TRANSFORM =>"))); { static char s[] = { 10, 115, 107, 105, 110, 116, 62, 32, 0 }; - cx__235544 = (hpushstr(0, newstring(s))); } + cx__235610 = (hpushstr(0, newstring(s))); } r[0] = (hpushstr(0, newstring("-v"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__235564 = (hendblk(3)); } + cx__235630 = (hendblk(3)); } r[0] = (hpushstr(0, newstring("-t"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__235567 = (hendblk(3)); } + cx__235633 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -8085,7 +8098,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__235573 = (hendblk(3)); } + cx__235639 = (hendblk(3)); } { static obj c[] = { obj_from_case(1) }; cx_set_2Dmember_3F = (obj)c; } { static obj c[] = { obj_from_case(2) }; cx_set_2Dcons = (obj)c; } { static obj c[] = { obj_from_case(3) }; cx_set_2Dunion = (obj)c; } @@ -8179,14 +8192,15 @@ case 0: /* load module */ { static obj c[] = { obj_from_case(90) }; cx_xform_2Dintegrable = (obj)c; } { static obj c[] = { obj_from_case(97) }; cx_xform_2Dlambda = (obj)c; } { static obj c[] = { obj_from_case(108) }; cx_xform_2Dlambda_2A = (obj)c; } - { static obj c[] = { obj_from_case(115) }; cx_xform_2Dletcc = (obj)c; } - { static obj c[] = { obj_from_case(120) }; cx_xform_2Dwithcc = (obj)c; } - { static obj c[] = { obj_from_case(123) }; cx_xform_2Dbody = (obj)c; } - { static obj c[] = { obj_from_case(131) }; cx_xform_2Dlabels = (obj)c; } - { static obj c[] = { obj_from_case(141) }; cx_xform_2Ddefine = (obj)c; } - { static obj c[] = { obj_from_case(144) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; } + { static obj c[] = { obj_from_case(115) }; cx_xform_2Dsyntax_2Dlambda = (obj)c; } + { static obj c[] = { obj_from_case(123) }; cx_xform_2Dletcc = (obj)c; } + { static obj c[] = { obj_from_case(128) }; cx_xform_2Dwithcc = (obj)c; } + { static obj c[] = { obj_from_case(131) }; cx_xform_2Dbody = (obj)c; } + { static obj c[] = { obj_from_case(139) }; cx_xform_2Dlabels = (obj)c; } + { static obj c[] = { obj_from_case(149) }; cx_xform_2Ddefine = (obj)c; } + { static obj c[] = { obj_from_case(152) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(147); + *--hp = obj_from_case(155); r[0] = (hendblk(0+1)); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -8262,6 +8276,18 @@ case 0: /* load module */ r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ + *--hp = (mksymbol(internsym("syntax-lambda"))); + *--hp = (mksymbol(internsym("syntax-lambda"))); + *--hp = obj_from_size(PAIR_BTAG); + r[1] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 2); /* 2 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[0] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mksymbol(internsym("lambda*"))); *--hp = (mksymbol(internsym("lambda*"))); *--hp = obj_from_size(PAIR_BTAG); @@ -8356,11 +8382,11 @@ case 0: /* load module */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__2Atransformers_2A = (hendblk(3)); } - { static obj c[] = { obj_from_case(148) }; cx_top_2Dtransformer_2Denv = (obj)c; } - { static obj c[] = { obj_from_case(152) }; cx_install_2Dtransformer_21 = (obj)c; } - { static obj c[] = { obj_from_case(154) }; cx_install_2Dtransformer_2Drules_21 = (obj)c; } + { static obj c[] = { obj_from_case(156) }; cx_top_2Dtransformer_2Denv = (obj)c; } + { static obj c[] = { obj_from_case(160) }; cx_install_2Dtransformer_21 = (obj)c; } + { static obj c[] = { obj_from_case(162) }; cx_install_2Dtransformer_2Drules_21 = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(157); + *--hp = obj_from_case(165); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -8368,9 +8394,9 @@ case 0: /* load module */ *--hp = obj_from_fixnum(+2); *--hp = obj_from_objptr(appcases+1); cx_transform = (hendblk(3)); } - { static obj c[] = { obj_from_case(158) }; cx_syntax_2Drules_2A = (obj)c; } + { static obj c[] = { obj_from_case(166) }; cx_syntax_2Drules_2A = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(214); + *--hp = obj_from_case(222); r[0] = (hendblk(0+1)); r[1+0] = r[0]; r[1+1] = (mksymbol(internsym("syntax-rules"))); @@ -8960,16 +8986,16 @@ gs_normalize_2Darity: /* k arity */ r[2+2] = r[1]; r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v15133; + goto s_loop_v15336; } -s_loop_v15133: /* k cnt l */ +s_loop_v15336: /* k cnt l */ if ((ispair((r[2])))) { r[3] = (cdr((r[2]))); /* r[0] */ r[1] = obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[1]))); r[2] = r[3]; - goto s_loop_v15133; + goto s_loop_v15336; } else { if ((isnull((r[2])))) { { /* cons */ @@ -9027,10 +9053,10 @@ gs_flatten_2Didslist: /* k ilist */ r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v15120; + goto s_loop_v15323; } -s_loop_v15120: /* k l r */ +s_loop_v15323: /* k l r */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); r[4] = (car((r[1]))); @@ -9043,7 +9069,7 @@ s_loop_v15120: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v15120; + goto s_loop_v15323; } else { if ((isnull((r[1])))) { { /* reverse! */ @@ -9534,21 +9560,10 @@ case 53: /* clo k msg args */ { /* string-append */ int *d = stringcat(stringdata((cx__23334)), stringdata((r[1]))); r[3] = (hpushstr(3, d)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[2]; - *--hp = r[3]; - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - r[4+0] = (cx_apply); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[0]; - r[4+2] = (cx_error); - r[4+3] = r[3]; - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; + /* r[0] */ + r[1] = r[3]; + /* r[2] */ + goto gs_error_2A; case 54: /* xform k appos? sexp env */ assert(rc == 5); @@ -9792,6 +9807,12 @@ case 59: /* clo ek r */ r[2] = r[4]; goto gs_xform_2Dlambda_2A; } else { + if ((((r[1]) == (mksymbol(internsym("syntax-lambda")))) && (1))) { + r[0] = r[5]; + r[1] = r[6]; + r[2] = r[4]; + goto gs_xform_2Dsyntax_2Dlambda; + } else { if ((((r[1]) == (mksymbol(internsym("letcc")))) && (1))) { r[0] = r[5]; r[1] = r[6]; @@ -9855,6 +9876,7 @@ case 59: /* clo ek r */ } } } + } case 60: /* clo ek r */ assert(rc == 3); @@ -9985,7 +10007,7 @@ gs_xform_2Dquote: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23434); + r[4+2] = (cx__23435); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10032,7 +10054,7 @@ s_conv: /* k sexp */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14833; + goto s_loop_v15036; } else { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -10089,7 +10111,7 @@ case 67: /* clo ek r */ rc = 3; goto jump; -s_loop_v14833: /* k l conv */ +s_loop_v15036: /* k l conv */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -10101,7 +10123,7 @@ s_loop_v14833: /* k l conv */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14833; + goto s_loop_v15036; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10161,13 +10183,13 @@ case 70: /* clo ek r */ r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ - { fixnum_t v15393_tmp; + { fixnum_t v15598_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15393_tmp = (n); } + v15598_tmp = (n); } { /* list->vector */ - obj l; int i, c = (v15393_tmp); + obj l; int i, c = (v15598_tmp); hreserve(hbsz(c+1), 3); /* 3 live regs */ l = r[1]; /* gc-safe */ for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l); @@ -10244,7 +10266,7 @@ gs_xform_2Dset_21: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23470); + r[4+2] = (cx__23471); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10312,7 +10334,7 @@ case 74: /* clo ek r */ r[4] = obj_from_bool(!(ispair((r[4])))); if (bool_from_obj(r[4])) { (void)(cdr((r[1])) = (r[3])); - r[4] = (cx__23493); + r[4] = (cx__23494); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); @@ -10357,7 +10379,7 @@ case 74: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23480); + r[2] = (cx__23481); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -10392,7 +10414,7 @@ gs_xform_2Dset_26: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23518); + r[4+2] = (cx__23519); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10434,7 +10456,7 @@ case 76: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23524); + r[2] = (cx__23525); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -10468,7 +10490,7 @@ case 76: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23524); + r[2] = (cx__23525); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -10488,7 +10510,7 @@ gs_xform_2Dbegin: /* k tail env */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v14761; + goto s_loop_v14964; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -10499,7 +10521,7 @@ gs_xform_2Dbegin: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23550); + r[4+2] = (cx__23551); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10507,7 +10529,7 @@ gs_xform_2Dbegin: /* k tail env */ goto jump; } -s_loop_v14761: /* k l env */ +s_loop_v14964: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -10519,7 +10541,7 @@ s_loop_v14761: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14761; + goto s_loop_v14964; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10617,7 +10639,7 @@ gs_xform_2Dif: /* k tail env */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v14730; + goto s_loop_v14933; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -10628,7 +10650,7 @@ gs_xform_2Dif: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23575); + r[4+2] = (cx__23576); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10636,7 +10658,7 @@ gs_xform_2Dif: /* k tail env */ goto jump; } -s_loop_v14730: /* k l env */ +s_loop_v14933: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -10648,7 +10670,7 @@ s_loop_v14730: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14730; + goto s_loop_v14933; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10714,15 +10736,15 @@ case 84: /* clo ek r */ for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[4] = obj_from_fixnum(n); } if (((((r[4]) == obj_from_fixnum(+2)) && ((r[4]) == obj_from_fixnum(+2))) && (1))) { - { fixnum_t v15392_tmp; + { fixnum_t v15597_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15392_tmp = (n); } + v15597_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15392_tmp); + obj t, l, o, *p, *d; int c = (v15597_tmp); hreserve(hbsz(3)*c, 5); /* 5 live regs */ - l = r[1]; t = (cx__23603); /* gc-safe */ + l = r[1]; t = (cx__23604); /* gc-safe */ o = t; p = &o; for (; l != mknull(); l = cdr(l)) { *--hp = t; d = hp; *--hp = car(l); @@ -10769,7 +10791,7 @@ case 84: /* clo ek r */ r[6+0] = (cx_x_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[3]; - r[6+2] = (cx__23593); + r[6+2] = (cx__23594); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10791,7 +10813,7 @@ gs_xform_2Dcall: /* k xexp tail env */ r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; - goto s_loop_v14697; + goto s_loop_v14900; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -10802,7 +10824,7 @@ gs_xform_2Dcall: /* k xexp tail env */ r[5+0] = (cx_x_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; - r[5+2] = (cx__23626); + r[5+2] = (cx__23627); r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10810,7 +10832,7 @@ gs_xform_2Dcall: /* k xexp tail env */ goto jump; } -s_loop_v14697: /* k l env */ +s_loop_v14900: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -10822,7 +10844,7 @@ s_loop_v14697: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14697; + goto s_loop_v14900; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10928,79 +10950,79 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+0)); } else { - { const flonum_t v15391_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15391_tmp)); } + { const flonum_t v15596_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15596_tmp)); } } } else { if (((((r[1]) == obj_from_char('1')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+1)); } else { - { const flonum_t v15390_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15390_tmp)); } + { const flonum_t v15595_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15595_tmp)); } } } else { if (((((r[1]) == obj_from_char('2')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+2)); } else { - { const flonum_t v15389_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15389_tmp)); } + { const flonum_t v15594_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15594_tmp)); } } } else { if (((((r[1]) == obj_from_char('3')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+3)); } else { - { const flonum_t v15388_tmp = ((flonum_t)(+3)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15388_tmp)); } + { const flonum_t v15593_tmp = ((flonum_t)(+3)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15593_tmp)); } } } else { if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+0)); } else { - { const flonum_t v15387_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15387_tmp)); } + { const flonum_t v15592_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15592_tmp)); } } } else { if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+1)); } else { - { const flonum_t v15386_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15386_tmp)); } + { const flonum_t v15591_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15591_tmp)); } } } else { if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+2)); } else { - { const flonum_t v15385_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15385_tmp)); } + { const flonum_t v15590_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15590_tmp)); } } } else { if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+1)); } else { - { const flonum_t v15384_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15384_tmp)); } + { const flonum_t v15589_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15589_tmp)); } } } else { if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool((+0) <= fixnum_from_obj(r[2])); } else { - { const flonum_t v15383_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool((v15383_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v15588_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool((v15588_tmp) <= flonum_from_obj(r[2])); } } if (bool_from_obj(r[3])) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+1)); } else { - { const flonum_t v15382_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v15382_tmp)); } + { const flonum_t v15587_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v15587_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -11010,15 +11032,15 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool((+1) <= fixnum_from_obj(r[2])); } else { - { const flonum_t v15381_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool((v15381_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v15586_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool((v15586_tmp) <= flonum_from_obj(r[2])); } } if (bool_from_obj(r[3])) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+2)); } else { - { const flonum_t v15380_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v15380_tmp)); } + { const flonum_t v15585_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v15585_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -11028,8 +11050,8 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+0)); } else { - { const flonum_t v15379_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15379_tmp)); } + { const flonum_t v15584_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15584_tmp)); } } } else { r[3] = obj_from_bool(((((r[1]) == obj_from_char('@')) || ((is_flonum_obj(r[1])) && (0))) && (1)) && (0)); @@ -11119,7 +11141,7 @@ case 92: /* clo ek r */ r[0] = r[6]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14648; + goto s_loop_v14851; } else { { /* define integrable-global */ static obj c[] = { obj_from_objptr(vmcases+11) }; @@ -11139,7 +11161,7 @@ case 92: /* clo ek r */ goto jump; } -s_loop_v14648: /* k l env */ +s_loop_v14851: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -11151,7 +11173,7 @@ s_loop_v14648: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14648; + goto s_loop_v14851; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -11282,7 +11304,7 @@ gs_xform_2Dlambda: /* k tail env */ r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v14562; + goto s_l_v14765; } case 98: /* clo ek r */ @@ -11292,7 +11314,7 @@ case 98: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v14562: /* ek r env tail k */ +s_l_v14765: /* ek r env tail k */ if (bool_from_obj(r[1])) { r[5] = (car((r[3]))); r[6+0] = r[4]; @@ -11302,7 +11324,7 @@ s_l_v14562: /* ek r env tail k */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v14563; + goto s_loop_v14766; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -11313,7 +11335,7 @@ s_l_v14562: /* ek r env tail k */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__23864); + r[2] = (cx__23865); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; @@ -11325,7 +11347,7 @@ case 99: /* clo k vars ienv ipars */ { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v14563: /* k vars ienv ipars tail */ +s_loop_v14766: /* k vars ienv ipars tail */ if ((ispair((r[1])))) { r[5] = (car((r[1]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ @@ -11466,13 +11488,13 @@ case 103: /* clo ek r */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } - { fixnum_t v15378_tmp; + { fixnum_t v15583_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15378_tmp = (n); } + v15583_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15378_tmp); + obj l, o = mknull(); int c = (v15583_tmp); hreserve(hbsz(3)*c, 5); /* 5 live regs */ l = r[3]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -11586,25 +11608,25 @@ case 107: /* clo ek r */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } - { fixnum_t v15376_tmp; + { fixnum_t v15581_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15376_tmp = (n); } + v15581_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15376_tmp); + obj l, o = mknull(); int c = (v15581_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[4]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[6] = (o); } } - { fixnum_t v15377_tmp; + { fixnum_t v15582_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15377_tmp = (n); } + v15582_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15377_tmp); + obj t, l, o, *p, *d; int c = (v15582_tmp); hreserve(hbsz(3)*c, 7); /* 7 live regs */ l = r[6]; t = r[3]; /* gc-safe */ o = t; p = &o; @@ -11645,7 +11667,7 @@ gs_xform_2Dlambda_2A: /* k tail env */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v14518; + goto s_loop_v14721; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -11656,7 +11678,7 @@ gs_xform_2Dlambda_2A: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23910); + r[4+2] = (cx__23911); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -11664,7 +11686,7 @@ gs_xform_2Dlambda_2A: /* k tail env */ goto jump; } -s_loop_v14518: /* k l env */ +s_loop_v14721: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -11676,7 +11698,7 @@ s_loop_v14518: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14518; + goto s_loop_v14721; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -11738,7 +11760,7 @@ case 109: /* clo ek r */ r[9+4] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v14522; + goto s_l_v14725; } else { r[0] = r[6]; r[1] = (car((r[5]))); @@ -11757,7 +11779,7 @@ case 109: /* clo ek r */ r[8+4] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v14522; + goto s_l_v14725; } case 110: /* clo ek r */ @@ -11789,7 +11811,7 @@ case 111: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v14522: /* ek r env aexp k */ +s_l_v14725: /* ek r env aexp k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; @@ -11809,7 +11831,7 @@ s_l_v14522: /* ek r env aexp k */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__23912); + r[2] = (cx__23913); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -11881,7 +11903,247 @@ case 114: /* clo ek r */ rc = 3; goto jump; -case 115: /* xform-letcc k tail env */ +case 115: /* xform-syntax-lambda k tail env */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ +gs_xform_2Dsyntax_2Dlambda: /* k tail env */ + hreserve(hbsz(3+1), 3); /* 3 live regs */ + *--hp = r[1]; + *--hp = r[2]; + *--hp = r[0]; + *--hp = obj_from_case(116); + r[3] = (hendblk(3+1)); + if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(122); + r[4] = (hendblk(0+1)); + r[5+0] = r[3]; + r[5+1] = r[4]; + r[5+2] = (car((r[1]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_andmap; + } else { + r[4+0] = obj_from_ktrap(); + r[4+1] = obj_from_bool(0); + r[4+2] = r[0]; + r[4+3] = r[2]; + r[4+4] = r[1]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v14667; + } + +case 116: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ +s_l_v14667: /* ek r k env tail */ + if (bool_from_obj(r[1])) { + r[5] = (car((r[4]))); + r[6] = (cdr((r[4]))); + hreserve(hbsz(3+1), 7); /* 7 live regs */ + *--hp = r[5]; + *--hp = r[3]; + *--hp = r[6]; + *--hp = obj_from_case(117); + r[5] = (hendblk(3+1)); + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = r[5]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + { /* cons */ + hreserve(hbsz(3), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = (mksymbol(internsym("syntax-lambda"))); + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + r[0] = (cx_x_2Derror); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[2]; + r[2] = (cx__23952); + r[3] = r[5]; + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 117: /* clo k use useenv */ + assert(rc == 4); + { obj* p = objptr_from_obj(r[0]); + r[1+3] = p[1]; + r[1+4] = p[2]; + r[1+5] = p[3]; } + r += 1; /* shift reg. wnd */ + /* k use useenv forms env vars */ + if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { + { fixnum_t v15580_tmp; + { fixnum_t v15579_tmp; + { /* length */ + int n; obj l = r[5]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v15580_tmp = (n); } + r[6] = (cdr((r[1]))); + { /* length */ + int n; obj l = r[6]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v15579_tmp = (n); } + r[6] = obj_from_bool((v15580_tmp) == (v15579_tmp)); } } + } else { + r[6] = obj_from_bool(0); + } + if (bool_from_obj(r[6])) { + r[6] = (cdr((r[1]))); + r[7+0] = r[0]; + r[7+1] = r[5]; + r[7+2] = r[6]; + r[7+3] = r[4]; + r[7+4] = r[2]; + r[7+5] = r[3]; + r += 7; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v14670; + } else { + r[6+0] = (cx_x_2Derror); + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[0]; + r[6+2] = (cx__23960); + r[6+3] = r[1]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 118: /* clo k vars exps env */ + assert(rc == 5); + { obj* p = objptr_from_obj(r[0]); + r[1+4] = p[1]; + r[1+5] = p[2]; } + r += 1; /* shift reg. wnd */ +s_loop_v14670: /* k vars exps env useenv forms */ + if ((isnull((r[1])))) { + hreserve(hbsz(1+1), 6); /* 6 live regs */ + *--hp = r[0]; + *--hp = obj_from_case(119); + r[6] = (hendblk(1+1)); + r[0] = r[6]; + r[1] = r[5]; + r[2] = r[3]; + goto gs_xform_2Dbody; + } else { + hreserve(hbsz(2+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[4]; + *--hp = obj_from_case(118); + r[6] = (hendblk(2+1)); + hreserve(hbsz(5+1), 7); /* 7 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[2]; + *--hp = r[6]; + *--hp = r[3]; + *--hp = obj_from_case(120); + r[6] = (hendblk(5+1)); + r[0] = r[6]; + r[1] = obj_from_bool(1); + r[2] = (car((r[2]))); + r[3] = r[4]; + goto gs_xform; + } + +case 119: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* ek r k */ + { /* cons */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = (mknull()); + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[3] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = (mksymbol(internsym("syntax"))); + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = r[4]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 120: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; } + r += 1; /* shift reg. wnd */ + /* ek r env loop exps vars k */ + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(121); + r[7] = (hendblk(4+1)); + r[8+0] = r[7]; + r[8+1] = (car((r[5]))); + r[8+2] = r[1]; + r[8+3] = r[2]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_add_2Dbinding; + +case 121: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek r loop exps vars k */ + r[6+0] = r[2]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[5]; + r[6+2] = (cdr((r[4]))); + r[6+3] = (cdr((r[3]))); + r[6+4] = r[1]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 5; + goto jump; + +case 122: /* clo k x */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k x */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (cxs_id_3F((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 123: /* xform-letcc k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dletcc: /* k tail env */ @@ -11898,7 +12160,7 @@ gs_xform_2Dletcc: /* k tail env */ *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(116); + *--hp = obj_from_case(124); r[4] = (hendblk(4+1)); r[0] = r[4]; r[1] = r[3]; @@ -11913,7 +12175,7 @@ gs_xform_2Dletcc: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23951); + r[4+2] = (cx__23986); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -11921,7 +12183,7 @@ gs_xform_2Dletcc: /* k tail env */ goto jump; } -case 116: /* clo ek r */ +case 124: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11935,7 +12197,7 @@ case 116: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(117); + *--hp = obj_from_case(125); r[6] = (hendblk(4+1)); r[7+0] = (cx_gensym); pc = objptr_from_obj(r[7+0])[0]; @@ -11946,7 +12208,7 @@ case 116: /* clo ek r */ rc = 3; goto jump; -case 117: /* clo ek r */ +case 125: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11959,7 +12221,7 @@ case 117: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(118); + *--hp = obj_from_case(126); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = r[3]; @@ -11969,7 +12231,7 @@ case 117: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 118: /* clo ek r */ +case 126: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11980,7 +12242,7 @@ case 118: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(119); + *--hp = obj_from_case(127); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = (cdr((r[2]))); @@ -11989,7 +12251,7 @@ case 118: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dbody; -case 119: /* clo ek r */ +case 127: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12022,7 +12284,7 @@ case 119: /* clo ek r */ rc = 3; goto jump; -case 120: /* xform-withcc k tail env */ +case 128: /* xform-withcc k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dwithcc: /* k tail env */ @@ -12031,7 +12293,7 @@ gs_xform_2Dwithcc: /* k tail env */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(121); + *--hp = obj_from_case(129); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (cdr((r[1]))); @@ -12047,7 +12309,7 @@ gs_xform_2Dwithcc: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23967); + r[4+2] = (cx__231002); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -12055,7 +12317,7 @@ gs_xform_2Dwithcc: /* k tail env */ goto jump; } -case 121: /* clo ek r */ +case 129: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12072,7 +12334,7 @@ case 121: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(122); + *--hp = obj_from_case(130); r[6] = (hendblk(2+1)); r[7+0] = r[6]; r[7+1] = obj_from_bool(0); @@ -12082,7 +12344,7 @@ case 121: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 122: /* clo ek r */ +case 130: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12109,7 +12371,7 @@ case 122: /* clo ek r */ rc = 3; goto jump; -case 123: /* xform-body k tail env */ +case 131: /* xform-body k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dbody: /* k tail env */ @@ -12136,13 +12398,13 @@ gs_xform_2Dbody: /* k tail env */ r[3+5] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v14403; + goto s_loop_v14551; } -case 124: /* clo k env ids inits nids body */ +case 132: /* clo k env ids inits nids body */ assert(rc == 7); r += 1; /* shift reg. wnd */ -s_loop_v14403: /* k env ids inits nids body */ +s_loop_v14551: /* k env ids inits nids body */ if ((ispair((r[5])))) { r[6] = (car((r[5]))); r[6] = obj_from_bool(ispair((r[6]))); @@ -12154,7 +12416,7 @@ s_loop_v14403: /* k env ids inits nids body */ r[7] = (cdr((r[5]))); r[8] = (car((r[6]))); hreserve(hbsz(0+1), 9); /* 9 live regs */ - *--hp = obj_from_case(124); + *--hp = obj_from_case(132); r[9] = (hendblk(0+1)); hreserve(hbsz(9+1), 10); /* 10 live regs */ *--hp = r[0]; @@ -12166,7 +12428,7 @@ s_loop_v14403: /* k env ids inits nids body */ *--hp = r[7]; *--hp = r[9]; *--hp = r[5]; - *--hp = obj_from_case(125); + *--hp = obj_from_case(133); r[9] = (hendblk(9+1)); r[10+0] = r[9]; r[10+1] = obj_from_bool(1); @@ -12176,37 +12438,37 @@ s_loop_v14403: /* k env ids inits nids body */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { - { fixnum_t v15375_tmp; + { fixnum_t v15578_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15375_tmp = (n); } + v15578_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15375_tmp); + obj l, o = mknull(); int c = (v15578_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[6] = (o); } } - { fixnum_t v15374_tmp; + { fixnum_t v15577_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15374_tmp = (n); } + v15577_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15374_tmp); + obj l, o = mknull(); int c = (v15577_tmp); hreserve(hbsz(3)*c, 7); /* 7 live regs */ l = r[3]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[7] = (o); } } - { fixnum_t v15373_tmp; + { fixnum_t v15576_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15373_tmp = (n); } + v15576_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15373_tmp); + obj l, o = mknull(); int c = (v15576_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[4]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -12223,7 +12485,7 @@ s_loop_v14403: /* k env ids inits nids body */ goto gs_xform_2Dlabels; } -case 125: /* clo ek r */ +case 133: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12239,13 +12501,13 @@ case 125: /* clo ek r */ /* ek r body loop rest first nids inits ids env k */ if ((((r[1]) == (mksymbol(internsym("begin")))) && (1))) { r[11] = (cdr((r[5]))); - { fixnum_t v15372_tmp; + { fixnum_t v15575_tmp; { /* length */ int n; obj l = (r[11]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15372_tmp = (n); } + v15575_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15372_tmp); + obj t, l, o, *p, *d; int c = (v15575_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = (r[11]); t = r[4]; /* gc-safe */ o = t; p = &o; @@ -12283,7 +12545,7 @@ case 125: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[9]; - *--hp = obj_from_case(126); + *--hp = obj_from_case(134); r[13] = (hendblk(9+1)); r[0] = (r[13]); r[1] = (r[11]); @@ -12304,11 +12566,11 @@ case 125: /* clo ek r */ *--hp = r[6]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(129); + *--hp = obj_from_case(137); r[13] = (hendblk(8+1)); r[0] = (r[13]); r[1] = (r[11]); - r[2] = (cx__231017); + r[2] = (cx__231052); r[3] = r[9]; goto gs_add_2Dbinding; } else { @@ -12321,7 +12583,7 @@ case 125: /* clo ek r */ *--hp = r[7]; *--hp = r[6]; *--hp = r[3]; - *--hp = obj_from_case(130); + *--hp = obj_from_case(138); r[11] = (hendblk(7+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -12332,37 +12594,37 @@ case 125: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v15371_tmp; + { fixnum_t v15574_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15371_tmp = (n); } + v15574_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15371_tmp); + obj l, o = mknull(); int c = (v15574_tmp); hreserve(hbsz(3)*c, 11); /* 11 live regs */ l = r[8]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[11] = (o); } } - { fixnum_t v15370_tmp; + { fixnum_t v15573_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15370_tmp = (n); } + v15573_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15370_tmp); + obj l, o = mknull(); int c = (v15573_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[12] = (o); } } - { fixnum_t v15369_tmp; + { fixnum_t v15572_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15369_tmp = (n); } + v15572_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15369_tmp); + obj l, o = mknull(); int c = (v15572_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[6]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -12382,7 +12644,7 @@ case 125: /* clo ek r */ } } -case 126: /* clo ek r */ +case 134: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12406,7 +12668,7 @@ case 126: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(127); + *--hp = obj_from_case(135); r[11] = (hendblk(9+1)); r[12+0] = (cx_gensym); pc = objptr_from_obj(r[12+0])[0]; @@ -12417,7 +12679,7 @@ case 126: /* clo ek r */ rc = 3; goto jump; -case 127: /* clo ek r */ +case 135: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12441,7 +12703,7 @@ case 127: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(128); + *--hp = obj_from_case(136); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[9]; @@ -12451,7 +12713,7 @@ case 127: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 128: /* clo ek r */ +case 136: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12496,7 +12758,7 @@ case 128: /* clo ek r */ rc = 7; goto jump; -case 129: /* clo ek r */ +case 137: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12540,7 +12802,7 @@ case 129: /* clo ek r */ rc = 7; goto jump; -case 130: /* clo ek r */ +case 138: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12571,7 +12833,7 @@ case 130: /* clo ek r */ rc = 7; goto jump; -case 131: /* xform-labels k ids inits nids body env */ +case 139: /* xform-labels k ids inits nids body env */ assert(rc == 7); r += 1; /* shift reg. wnd */ gs_xform_2Dlabels: /* k ids inits nids body env */ @@ -12585,31 +12847,31 @@ gs_xform_2Dlabels: /* k ids inits nids body env */ r[6+7] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v14318; + goto s_loop_v14466; -case 132: /* clo k ids inits nids sets lids */ +case 140: /* clo k ids inits nids sets lids */ assert(rc == 7); { obj* p = objptr_from_obj(r[0]); r[1+6] = p[1]; r[1+7] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v14318: /* k ids inits nids sets lids env body */ +s_loop_v14466: /* k ids inits nids sets lids env body */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; - *--hp = obj_from_case(132); + *--hp = obj_from_case(140); r[8] = (hendblk(2+1)); if ((isnull((r[1])))) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = r[0]; - *--hp = obj_from_case(135); + *--hp = obj_from_case(143); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[7]; r[2] = r[6]; - goto s_loop_v14360; + goto s_loop_v14508; } else { r[9] = (car((r[3]))); r[9] = obj_from_bool(issymbol((r[9]))); @@ -12622,7 +12884,7 @@ s_loop_v14318: /* k ids inits nids sets lids env body */ *--hp = r[3]; *--hp = r[5]; *--hp = r[8]; - *--hp = obj_from_case(138); + *--hp = obj_from_case(146); r[9] = (hendblk(7+1)); r[10] = (car((r[2]))); { /* cons */ @@ -12652,7 +12914,7 @@ s_loop_v14318: /* k ids inits nids sets lids env body */ *--hp = r[5]; *--hp = r[8]; *--hp = r[6]; - *--hp = obj_from_case(139); + *--hp = obj_from_case(147); r[9] = (hendblk(8+1)); r[10+0] = r[6]; pc = objptr_from_obj(r[10+0])[0]; @@ -12665,19 +12927,19 @@ s_loop_v14318: /* k ids inits nids sets lids env body */ } } -s_loop_v14360: /* k l env */ +s_loop_v14508: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(133); + *--hp = obj_from_case(141); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14360; + goto s_loop_v14508; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -12688,7 +12950,7 @@ s_loop_v14360: /* k l env */ goto jump; } -case 133: /* clo ek r */ +case 141: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12699,7 +12961,7 @@ case 133: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(134); + *--hp = obj_from_case(142); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -12709,7 +12971,7 @@ case 133: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 134: /* clo ek r */ +case 142: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12731,7 +12993,7 @@ case 134: /* clo ek r */ rc = 3; goto jump; -case 135: /* clo ek r */ +case 143: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12739,25 +13001,25 @@ case 135: /* clo ek r */ r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k lids sets */ - { fixnum_t v15367_tmp; + { fixnum_t v15570_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15367_tmp = (n); } + v15570_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15367_tmp); + obj l, o = mknull(); int c = (v15570_tmp); hreserve(hbsz(3)*c, 5); /* 5 live regs */ l = r[4]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[5] = (o); } } - { fixnum_t v15368_tmp; + { fixnum_t v15571_tmp; { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15368_tmp = (n); } + v15571_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15368_tmp); + obj t, l, o, *p, *d; int c = (v15571_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[5]; t = r[1]; /* gc-safe */ o = t; p = &o; @@ -12795,23 +13057,23 @@ case 135: /* clo ek r */ *--hp = r[2]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(137); + *--hp = obj_from_case(145); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[3]; - goto s_loop_v14345; + goto s_loop_v14493; } -s_loop_v14345: /* k l */ +s_loop_v14493: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(136); + *--hp = obj_from_case(144); r[3] = (hendblk(1+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v14345; + goto s_loop_v14493; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -12823,7 +13085,7 @@ s_loop_v14345: /* k l */ goto jump; } -case 136: /* clo ek r */ +case 144: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -12832,7 +13094,7 @@ case 136: /* clo ek r */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = (cx__231126); + *--hp = (cx__231161); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; @@ -12844,7 +13106,7 @@ case 136: /* clo ek r */ rc = 3; goto jump; -case 137: /* clo ek r */ +case 145: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12858,13 +13120,13 @@ case 137: /* clo ek r */ *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } - { fixnum_t v15366_tmp; + { fixnum_t v15569_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15366_tmp = (n); } + v15569_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15366_tmp); + obj l, o = mknull(); int c = (v15569_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -12893,7 +13155,7 @@ case 137: /* clo ek r */ rc = 5; goto jump; -case 138: /* clo ek r */ +case 146: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12931,7 +13193,7 @@ case 138: /* clo ek r */ rc = 7; goto jump; -case 139: /* clo ek r */ +case 147: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12953,7 +13215,7 @@ case 139: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(140); + *--hp = obj_from_case(148); r[10] = (hendblk(8+1)); r[11+0] = (r[10]); r[11+1] = obj_from_bool(1); @@ -12963,7 +13225,7 @@ case 139: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 140: /* clo ek r */ +case 148: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12990,7 +13252,7 @@ case 140: /* clo ek r */ rc = 7; goto jump; -case 141: /* xform-define k tail env */ +case 149: /* xform-define k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine: /* k tail env */ @@ -13004,7 +13266,7 @@ gs_xform_2Ddefine: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(142); + *--hp = obj_from_case(150); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -13025,7 +13287,7 @@ gs_xform_2Ddefine: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231157); + r[4+2] = (cx__231192); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -13033,7 +13295,7 @@ gs_xform_2Ddefine: /* k tail env */ goto jump; } -case 142: /* clo ek r */ +case 150: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13049,13 +13311,13 @@ case 142: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(143); + *--hp = obj_from_case(151); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; -case 143: /* clo ek r */ +case 151: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13082,7 +13344,7 @@ case 143: /* clo ek r */ rc = 3; goto jump; -case 144: /* xform-define-syntax k tail env */ +case 152: /* xform-define-syntax k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ @@ -13096,7 +13358,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(145); + *--hp = obj_from_case(153); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -13117,7 +13379,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231173); + r[4+2] = (cx__231208); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -13125,7 +13387,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ goto jump; } -case 145: /* clo ek r */ +case 153: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13141,13 +13403,13 @@ case 145: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(146); + *--hp = obj_from_case(154); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; -case 146: /* clo ek r */ +case 154: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13174,21 +13436,21 @@ case 146: /* clo ek r */ rc = 3; goto jump; -case 147: /* clo k sexp env */ +case 155: /* clo k sexp env */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k sexp env */ r[3+0] = (cx_x_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__231187); + r[3+2] = (cx__231222); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 148: /* top-transformer-env k id */ +case 156: /* top-transformer-env k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_top_2Dtransformer_2Denv: /* k id */ @@ -13208,7 +13470,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(149); + *--hp = obj_from_case(157); r[4] = (hendblk(2+1)); r[5+0] = (cx_transform); pc = objptr_from_obj(r[5+0])[0]; @@ -13236,7 +13498,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(150); + *--hp = obj_from_case(158); r[4] = (hendblk(2+1)); r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; @@ -13249,7 +13511,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(151); + *--hp = obj_from_case(159); r[3] = (hendblk(1+1)); r[4+0] = r[1]; pc = objptr_from_obj(r[4+0])[0]; @@ -13261,7 +13523,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ } } -case 149: /* clo ek r */ +case 157: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13277,7 +13539,7 @@ case 149: /* clo ek r */ rc = 3; goto jump; -case 150: /* clo ek r */ +case 158: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13321,7 +13583,7 @@ case 150: /* clo ek r */ rc = 3; goto jump; -case 151: /* clo ek r */ +case 159: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13336,20 +13598,20 @@ case 151: /* clo ek r */ rc = 3; goto jump; -case 152: /* install-transformer! k s t */ +case 160: /* install-transformer! k s t */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s t */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(153); + *--hp = obj_from_case(161); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_top_2Dtransformer_2Denv; -case 153: /* clo ek r */ +case 161: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13365,14 +13627,14 @@ case 153: /* clo ek r */ rc = 3; goto jump; -case 154: /* install-transformer-rules! k s ell lits rules */ +case 162: /* install-transformer-rules! k s ell lits rules */ assert(rc == 6); r += 1; /* shift reg. wnd */ /* k s ell lits rules */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(155); + *--hp = obj_from_case(163); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cx_top_2Dtransformer_2Denv); @@ -13381,7 +13643,7 @@ case 154: /* install-transformer-rules! k s ell lits rules */ /* r[4] */ goto gs_syntax_2Drules_2A; -case 155: /* clo ek r */ +case 163: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13391,13 +13653,13 @@ case 155: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(156); + *--hp = obj_from_case(164); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; goto gs_top_2Dtransformer_2Denv; -case 156: /* clo ek r */ +case 164: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13413,7 +13675,7 @@ case 156: /* clo ek r */ rc = 3; goto jump; -case 157: /* clo k appos? sexp optenv */ +case 165: /* clo k appos? sexp optenv */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k appos? sexp optenv */ @@ -13423,22 +13685,22 @@ case 157: /* clo k appos? sexp optenv */ r[3] = ((isnull((r[3]))) ? (cx_top_2Dtransformer_2Denv) : (car((r[3])))); goto gs_xform; -case 158: /* syntax-rules* k mac-env ellipsis pat-literals rules */ +case 166: /* syntax-rules* k mac-env ellipsis pat-literals rules */ assert(rc == 6); r += 1; /* shift reg. wnd */ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(160); + *--hp = obj_from_case(168); r[5] = (hendblk(2+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[5]; - *--hp = obj_from_case(162); + *--hp = obj_from_case(170); r[6] = (hendblk(1+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[3]; - *--hp = obj_from_case(159); + *--hp = obj_from_case(167); r[7] = (hendblk(1+1)); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[4]; @@ -13447,7 +13709,7 @@ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ *--hp = r[7]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(168); + *--hp = obj_from_case(176); r[5] = (hendblk(6+1)); r[6+0] = r[0]; pc = objptr_from_obj(r[6+0])[0]; @@ -13458,7 +13720,7 @@ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ rc = 3; goto jump; -case 159: /* clo k id */ +case 167: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13478,7 +13740,7 @@ case 159: /* clo k id */ rc = 3; goto jump; -case 160: /* clo k x */ +case 168: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13499,7 +13761,7 @@ case 160: /* clo k x */ if (bool_from_obj(cxs_id_3F((r[4])))) { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; - *--hp = obj_from_case(161); + *--hp = obj_from_case(169); r[5] = (hendblk(1+1)); r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; @@ -13529,7 +13791,7 @@ case 160: /* clo k x */ goto jump; } -case 161: /* clo ek r */ +case 169: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13544,7 +13806,7 @@ case 161: /* clo ek r */ rc = 3; goto jump; -case 162: /* clo k x include-scalars pred? */ +case 170: /* clo k x include-scalars pred? */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -13560,7 +13822,7 @@ case 162: /* clo k x include-scalars pred? */ rreserve(MAX_HOSTREGS); goto s_collect; -case 163: /* clo k x inc l */ +case 171: /* clo k x inc l */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -13570,14 +13832,14 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(163); + *--hp = obj_from_case(171); r[6] = (hendblk(2+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(164); + *--hp = obj_from_case(172); r[7] = (hendblk(3+1)); if (bool_from_obj(r[2])) { r[8+0] = r[5]; @@ -13596,7 +13858,7 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ r[8+4] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v14147; + goto s_l_v14295; } } else { if ((isvector((r[1])))) { @@ -13622,7 +13884,7 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ *--hp = r[6]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(165); + *--hp = obj_from_case(173); r[7] = (hendblk(5+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; @@ -13644,14 +13906,14 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ } } -case 164: /* clo ek r */ +case 172: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v14147: /* ek r k l x */ +s_l_v14295: /* ek r k l x */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -13676,7 +13938,7 @@ s_l_v14147: /* ek r k l x */ goto jump; } -case 165: /* clo ek r */ +case 173: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13691,7 +13953,7 @@ case 165: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(166); + *--hp = obj_from_case(174); r[7] = (hendblk(3+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); @@ -13711,7 +13973,7 @@ case 165: /* clo ek r */ *--hp = r[5]; *--hp = r[3]; *--hp = r[4]; - *--hp = obj_from_case(167); + *--hp = obj_from_case(175); r[7] = (hendblk(4+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; @@ -13725,7 +13987,7 @@ case 165: /* clo ek r */ goto jump; } -case 166: /* clo ek r */ +case 174: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13744,7 +14006,7 @@ case 166: /* clo ek r */ rc = 5; goto jump; -case 167: /* clo ek r */ +case 175: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13764,7 +14026,7 @@ case 167: /* clo ek r */ rc = 5; goto jump; -case 168: /* clo k use use-env */ +case 176: /* clo k use use-env */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -13786,9 +14048,9 @@ case 168: /* clo k use use-env */ r[9+8] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13827; + goto s_loop_v13975; -case 169: /* clo k rules */ +case 177: /* clo k rules */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13799,7 +14061,7 @@ case 169: /* clo k rules */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_loop_v13827: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */ +s_loop_v13975: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; @@ -13808,7 +14070,7 @@ s_loop_v13827: /* k rules use-env pat-literals use mac-env not-pat-literal? elli *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(169); + *--hp = obj_from_case(177); r[9] = (hendblk(7+1)); hreserve(hbsz(10+1), 10); /* 10 live regs */ *--hp = r[1]; @@ -13821,13 +14083,13 @@ s_loop_v13827: /* k rules use-env pat-literals use mac-env not-pat-literal? elli *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(170); + *--hp = obj_from_case(178); r[9] = (hendblk(10+1)); if ((isnull((r[1])))) { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; - r[2] = (cx__231617); + r[2] = (cx__231659); r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; @@ -13841,7 +14103,7 @@ s_loop_v13827: /* k rules use-env pat-literals use mac-env not-pat-literal? elli *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(169); + *--hp = obj_from_case(177); r[10] = (hendblk(7+1)); r[11+0] = obj_from_ktrap(); r[11+1] = obj_from_void(0); @@ -13857,10 +14119,10 @@ s_loop_v13827: /* k rules use-env pat-literals use mac-env not-pat-literal? elli r[11+11] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13829; + goto s_l_v13977; } -case 170: /* clo ek . */ +case 178: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -13875,7 +14137,7 @@ case 170: /* clo ek . */ r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ -s_l_v13829: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */ +s_l_v13977: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */ r[12] = (car((r[11]))); r[13] = (car((r[12]))); r[14] = (cdr((r[12]))); @@ -13890,7 +14152,7 @@ s_l_v13829: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip *--hp = r[6]; *--hp = (r[11]); *--hp = r[5]; - *--hp = obj_from_case(171); + *--hp = obj_from_case(179); r[15] = (hendblk(9+1)); hreserve(hbsz(8+1), 16); /* 16 live regs */ *--hp = (r[13]); @@ -13901,7 +14163,7 @@ s_l_v13829: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip *--hp = r[7]; *--hp = r[9]; *--hp = r[8]; - *--hp = obj_from_case(195); + *--hp = obj_from_case(203); r[16] = (hendblk(8+1)); r[0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation); pc = objptr_from_obj(r[0])[0]; @@ -13911,7 +14173,7 @@ s_l_v13829: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip rc = 3; goto jump; -case 171: /* clo ek r */ +case 179: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13943,11 +14205,11 @@ case 171: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(172); + *--hp = obj_from_case(180); r[13] = (hendblk(10+1)); hreserve(hbsz(1+1), 14); /* 14 live regs */ *--hp = r[1]; - *--hp = obj_from_case(194); + *--hp = obj_from_case(202); r[14] = (hendblk(1+1)); r[15+0] = r[8]; pc = objptr_from_obj(r[15+0])[0]; @@ -13969,7 +14231,7 @@ case 171: /* clo ek r */ goto jump; } -case 172: /* clo ek r */ +case 180: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13994,26 +14256,26 @@ case 172: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(176); + *--hp = obj_from_case(184); r[12] = (hendblk(9+1)); r[0] = (r[12]); /* r[1] */ /* r[2] */ - goto s_loop_v14080; + goto s_loop_v14228; -s_loop_v14080: /* k l mac-env */ +s_loop_v14228: /* k l mac-env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(173); + *--hp = obj_from_case(181); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14080; + goto s_loop_v14228; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14024,7 +14286,7 @@ s_loop_v14080: /* k l mac-env */ goto jump; } -case 173: /* clo ek r */ +case 181: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14037,7 +14299,7 @@ case 173: /* clo ek r */ *--hp = r[5]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(174); + *--hp = obj_from_case(182); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -14047,7 +14309,7 @@ case 173: /* clo ek r */ rc = 3; goto jump; -case 174: /* clo ek r */ +case 182: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14059,13 +14321,13 @@ case 174: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(175); + *--hp = obj_from_case(183); r[5] = (hendblk(3+1)); r[0] = r[5]; /* r[1] */ goto gs_new_2Did; -case 175: /* clo ek r */ +case 183: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14093,7 +14355,7 @@ case 175: /* clo ek r */ rc = 3; goto jump; -case 176: /* clo ek r */ +case 184: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14116,7 +14378,7 @@ case 176: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(177); + *--hp = obj_from_case(185); r[11] = (hendblk(8+1)); r[12+0] = r[5]; pc = objptr_from_obj(r[12+0])[0]; @@ -14129,7 +14391,7 @@ case 176: /* clo ek r */ rc = 5; goto jump; -case 177: /* clo ek r */ +case 185: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14156,7 +14418,7 @@ case 177: /* clo ek r */ rreserve(MAX_HOSTREGS); goto s_expand; -case 178: /* clo k tmpl bindings */ +case 186: /* clo k tmpl bindings */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -14172,7 +14434,7 @@ s_expand: /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars new-literals *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(178); + *--hp = obj_from_case(186); r[8] = (hendblk(5+1)); r[9+0] = r[0]; r[9+1] = r[1]; @@ -14187,7 +14449,7 @@ s_expand: /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars new-literals rreserve(MAX_HOSTREGS); goto s_expand_2Dpart; -case 179: /* clo k tmpl */ +case 187: /* clo k tmpl */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14207,7 +14469,7 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(179); + *--hp = obj_from_case(187); r[9] = (hendblk(7+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* assq */ @@ -14251,7 +14513,7 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite r[10] = (l); } hreserve(hbsz(1+1), 11); /* 11 live regs */ *--hp = r[0]; - *--hp = obj_from_case(180); + *--hp = obj_from_case(188); r[11] = (hendblk(1+1)); r[0] = (r[11]); r[1] = (r[10]); @@ -14272,7 +14534,7 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite *--hp = r[8]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(181); + *--hp = obj_from_case(189); r[10] = (hendblk(7+1)); if ((ispair((r[1])))) { r[11+0] = r[2]; @@ -14295,24 +14557,24 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite r[11+8] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13974; + goto s_l_v14122; } } } -case 180: /* clo ek r */ +case 188: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ - { fixnum_t v15365_tmp; + { fixnum_t v15568_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15365_tmp = (n); } + v15568_tmp = (n); } { /* list->vector */ - obj l; int i, c = (v15365_tmp); + obj l; int i, c = (v15568_tmp); hreserve(hbsz(c+1), 3); /* 3 live regs */ l = r[1]; /* gc-safe */ for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l); @@ -14327,7 +14589,7 @@ case 180: /* clo ek r */ rc = 3; goto jump; -case 181: /* clo ek r */ +case 189: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14338,7 +14600,7 @@ case 181: /* clo ek r */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_l_v13974: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ +s_l_v14122: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ if (bool_from_obj(r[1])) { hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[8]; @@ -14346,11 +14608,11 @@ s_l_v13974: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(182); + *--hp = obj_from_case(190); r[9] = (hendblk(5+1)); hreserve(hbsz(1+1), 10); /* 10 live regs */ *--hp = r[3]; - *--hp = obj_from_case(191); + *--hp = obj_from_case(199); r[10] = (hendblk(1+1)); r[11+0] = r[2]; pc = objptr_from_obj(r[11+0])[0]; @@ -14368,7 +14630,7 @@ s_l_v13974: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ *--hp = r[6]; *--hp = r[8]; *--hp = r[5]; - *--hp = obj_from_case(192); + *--hp = obj_from_case(200); r[9] = (hendblk(3+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -14388,7 +14650,7 @@ s_l_v13974: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ } } -case 182: /* clo ek r */ +case 190: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14405,7 +14667,7 @@ case 182: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; - *--hp = obj_from_case(183); + *--hp = obj_from_case(191); r[8] = (hendblk(3+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -14419,7 +14681,7 @@ case 182: /* clo ek r */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; - *--hp = obj_from_case(185); + *--hp = obj_from_case(193); r[8] = (hendblk(3+1)); r[9] = (cdr((r[6]))); r[9] = (cdr((r[9]))); @@ -14436,15 +14698,15 @@ case 182: /* clo ek r */ *--hp = r[6]; *--hp = r[3]; *--hp = r[7]; - *--hp = obj_from_case(188); + *--hp = obj_from_case(196); r[8] = (hendblk(4+1)); r[0] = r[8]; /* r[1] */ /* r[2] */ - goto s_loop_v14013; + goto s_loop_v14161; } -case 183: /* clo k vals */ +case 191: /* clo k vals */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14456,7 +14718,7 @@ case 183: /* clo k vals */ *--hp = r[0]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(184); + *--hp = obj_from_case(192); r[5] = (hendblk(3+1)); r[6+0] = (cx__25residual_2Dmap); pc = objptr_from_obj(r[6+0])[0]; @@ -14469,7 +14731,7 @@ case 183: /* clo k vals */ rc = 5; goto jump; -case 184: /* clo ek r */ +case 192: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14487,7 +14749,7 @@ case 184: /* clo ek r */ rc = 4; goto jump; -case 185: /* clo ek r */ +case 193: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14498,7 +14760,7 @@ case 185: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(186); + *--hp = obj_from_case(194); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -14508,7 +14770,7 @@ case 185: /* clo ek r */ rc = 3; goto jump; -case 186: /* clo ek r */ +case 194: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14530,19 +14792,19 @@ case 186: /* clo ek r */ rc = 3; goto jump; -s_loop_v14013: /* k l bindings */ +s_loop_v14161: /* k l bindings */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(187); + *--hp = obj_from_case(195); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14013; + goto s_loop_v14161; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14553,7 +14815,7 @@ s_loop_v14013: /* k l bindings */ goto jump; } -case 187: /* clo ek r */ +case 195: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14582,7 +14844,7 @@ case 187: /* clo ek r */ rc = 3; goto jump; -case 188: /* clo ek r */ +case 196: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14595,7 +14857,7 @@ case 188: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(189); + *--hp = obj_from_case(197); r[6] = (hendblk(3+1)); r[7] = (objptr_from_obj(r[2])[0]); { /* cons */ @@ -14614,7 +14876,7 @@ case 188: /* clo ek r */ rc = 4; goto jump; -case 189: /* clo ek r */ +case 197: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14625,7 +14887,7 @@ case 189: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(190); + *--hp = obj_from_case(198); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -14637,20 +14899,20 @@ case 189: /* clo ek r */ rc = 3; goto jump; -case 190: /* clo ek r */ +case 198: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ - { fixnum_t v15364_tmp; + { fixnum_t v15567_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15364_tmp = (n); } + v15567_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15364_tmp); + obj t, l, o, *p, *d; int c = (v15567_tmp); hreserve(hbsz(3)*c, 4); /* 4 live regs */ l = r[3]; t = r[1]; /* gc-safe */ o = t; p = &o; @@ -14668,7 +14930,7 @@ case 190: /* clo ek r */ rc = 3; goto jump; -case 191: /* clo k id */ +case 199: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -14688,7 +14950,7 @@ case 191: /* clo k id */ rc = 3; goto jump; -case 192: /* clo ek r */ +case 200: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14699,7 +14961,7 @@ case 192: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(193); + *--hp = obj_from_case(201); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -14709,7 +14971,7 @@ case 192: /* clo ek r */ rc = 3; goto jump; -case 193: /* clo ek r */ +case 201: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14731,7 +14993,7 @@ case 193: /* clo ek r */ rc = 3; goto jump; -case 194: /* clo k id */ +case 202: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -14751,7 +15013,7 @@ case 194: /* clo k id */ rc = 3; goto jump; -case 195: /* clo k return */ +case 203: /* clo k return */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14779,7 +15041,7 @@ case 195: /* clo k return */ rreserve(MAX_HOSTREGS); goto s_match; -case 196: /* clo k pat sexp bindings */ +case 204: /* clo k pat sexp bindings */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -14799,12 +15061,12 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(196); + *--hp = obj_from_case(204); r[11] = (hendblk(7+1)); hreserve(hbsz(2+1), 12); /* 12 live regs */ *--hp = r[3]; *--hp = (r[10]); - *--hp = obj_from_case(197); + *--hp = obj_from_case(205); r[12] = (hendblk(2+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* memq */ @@ -14818,7 +15080,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = (r[12]); *--hp = r[1]; *--hp = r[8]; - *--hp = obj_from_case(198); + *--hp = obj_from_case(206); r[13] = (hendblk(4+1)); r[14+0] = r[7]; pc = objptr_from_obj(r[14+0])[0]; @@ -14833,7 +15095,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env r[1] = obj_from_bool(0); r[2] = (r[10]); /* r[3] */ - goto s_l_v13940; + goto s_l_v14088; } } else { { /* cons */ @@ -14865,7 +15127,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = r[2]; *--hp = r[3]; *--hp = (r[11]); - *--hp = obj_from_case(200); + *--hp = obj_from_case(208); r[13] = (hendblk(5+1)); if ((isvector((r[2])))) { r[14+0] = obj_from_ktrap(); @@ -14877,7 +15139,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env r[14+6] = r[0]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13922; + goto s_l_v14070; } else { r[0] = (r[10]); pc = objptr_from_obj(r[0])[0]; @@ -14894,7 +15156,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env r[1] = (r[13]); r[2] = (r[10]); /* r[3] */ - goto s_l_v13940; + goto s_l_v14088; } else { hreserve(hbsz(8+1), 13); /* 13 live regs */ *--hp = r[1]; @@ -14905,7 +15167,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = r[6]; *--hp = r[5]; *--hp = (r[10]); - *--hp = obj_from_case(201); + *--hp = obj_from_case(209); r[13] = (hendblk(8+1)); r[14+0] = r[4]; pc = objptr_from_obj(r[14+0])[0]; @@ -14919,13 +15181,13 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env } } -case 197: /* clo k condition */ +case 205: /* clo k condition */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ -s_l_v13940: /* k condition return bindings */ +s_l_v14088: /* k condition return bindings */ if (bool_from_obj(r[1])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14945,7 +15207,7 @@ s_l_v13940: /* k condition return bindings */ goto jump; } -case 198: /* clo ek r */ +case 206: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14958,7 +15220,7 @@ case 198: /* clo ek r */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(199); + *--hp = obj_from_case(207); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -14968,7 +15230,7 @@ case 198: /* clo ek r */ rc = 3; goto jump; -case 199: /* clo ek r */ +case 207: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14985,7 +15247,7 @@ case 199: /* clo ek r */ rc = 3; goto jump; -case 200: /* clo ek . */ +case 208: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14995,7 +15257,7 @@ case 200: /* clo ek . */ r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ -s_l_v13922: /* ek . match bindings sexp pat k */ +s_l_v14070: /* ek . match bindings sexp pat k */ { /* vector->list */ obj v, l = mknull(); int c = (vectorlen((r[5]))); hreserve(hbsz(3)*c, 7); /* 7 live regs */ @@ -15021,7 +15283,7 @@ s_l_v13922: /* ek . match bindings sexp pat k */ rc = 5; goto jump; -case 201: /* clo ek r */ +case 209: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15051,7 +15313,7 @@ case 201: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(202); + *--hp = obj_from_case(210); r[11] = (hendblk(9+1)); if ((islist((r[8])))) { { /* length */ @@ -15071,7 +15333,7 @@ case 201: /* clo ek r */ r[13+10] = (r[10]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13842; + goto s_l_v13990; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -15088,7 +15350,7 @@ case 201: /* clo ek r */ *--hp = r[9]; *--hp = r[8]; *--hp = r[5]; - *--hp = obj_from_case(213); + *--hp = obj_from_case(221); r[10] = (hendblk(4+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -15110,7 +15372,7 @@ case 201: /* clo ek r */ } } -case 202: /* clo ek r */ +case 210: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15123,7 +15385,7 @@ case 202: /* clo ek r */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -s_l_v13842: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */ +s_l_v13990: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[1]; @@ -15134,7 +15396,7 @@ s_l_v13842: /* ek r return list-ids not-pat-literal? match bindings pat k sexp t *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(203); + *--hp = obj_from_case(211); r[11] = (hendblk(9+1)); if (((fxsub(fixnum_from_obj(r[1]), fixnum_from_obj(r[10]))) < 0)) { r[0] = r[2]; @@ -15158,10 +15420,10 @@ s_l_v13842: /* ek r return list-ids not-pat-literal? match bindings pat k sexp t r[12+10] = (r[10]); r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13844; + goto s_l_v13992; } -case 203: /* clo ek . */ +case 211: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -15175,35 +15437,35 @@ case 203: /* clo ek . */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -s_l_v13844: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */ - { const fixnum_t v15361_tail_2Dlen = fixnum_from_obj(r[10]); +s_l_v13992: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */ + { const fixnum_t v15564_tail_2Dlen = fixnum_from_obj(r[10]); { /* list-tail */ - obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v15361_tail_2Dlen))); + obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v15564_tail_2Dlen))); while (c-- > 0) l = cdr(l); r[11] = (l); } - { fixnum_t v15362_tmp; + { fixnum_t v15565_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15362_tmp = (n); } + v15565_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15362_tmp); + obj l, o = mknull(); int c = (v15565_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = r[8]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[12] = (o); } } { /* list-tail */ - obj l = (r[12]); int c = (v15361_tail_2Dlen); + obj l = (r[12]); int c = (v15564_tail_2Dlen); while (c-- > 0) l = cdr(l); r[12] = (l); } - { fixnum_t v15363_tmp; + { fixnum_t v15566_tmp; { /* length */ int n; obj l = (r[12]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15363_tmp = (n); } + v15566_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15363_tmp); + obj l, o = mknull(); int c = (v15566_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = (r[12]); /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -15216,7 +15478,7 @@ s_l_v13844: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-l *--hp = r[5]; *--hp = r[4]; *--hp = (r[12]); - *--hp = obj_from_case(204); + *--hp = obj_from_case(212); r[13] = (hendblk(6+1)); r[14+0] = r[2]; pc = objptr_from_obj(r[14+0])[0]; @@ -15229,7 +15491,7 @@ s_l_v13844: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-l rc = 5; goto jump; } -case 204: /* clo ek r */ +case 212: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15247,15 +15509,15 @@ case 204: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(210); + *--hp = obj_from_case(218); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = r[2]; r[2] = r[3]; r[3] = r[6]; - goto s_loop_v13865; + goto s_loop_v14013; -s_loop_v13865: /* k l match pat */ +s_loop_v14013: /* k l match pat */ if ((ispair((r[1])))) { r[4] = (cdr((r[1]))); hreserve(hbsz(4+1), 5); /* 5 live regs */ @@ -15263,13 +15525,13 @@ s_loop_v13865: /* k l match pat */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(205); + *--hp = obj_from_case(213); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = r[4]; /* r[2] */ /* r[3] */ - goto s_loop_v13865; + goto s_loop_v14013; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15280,7 +15542,7 @@ s_loop_v13865: /* k l match pat */ goto jump; } -case 205: /* clo ek r */ +case 213: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15295,7 +15557,7 @@ case 205: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[7]; - *--hp = obj_from_case(206); + *--hp = obj_from_case(214); r[8] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -15307,7 +15569,7 @@ case 205: /* clo ek r */ rc = 5; goto jump; -case 206: /* clo ek r */ +case 214: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15318,26 +15580,26 @@ case 206: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(209); + *--hp = obj_from_case(217); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ - goto s_loop_v13876; + goto s_loop_v14024; -s_loop_v13876: /* k l f */ +s_loop_v14024: /* k l f */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(207); + *--hp = obj_from_case(215); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13876; + goto s_loop_v14024; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15348,7 +15610,7 @@ s_loop_v13876: /* k l f */ goto jump; } -case 207: /* clo ek r */ +case 215: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15359,7 +15621,7 @@ case 207: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(208); + *--hp = obj_from_case(216); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -15369,7 +15631,7 @@ case 207: /* clo ek r */ rc = 3; goto jump; -case 208: /* clo ek r */ +case 216: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15391,7 +15653,7 @@ case 208: /* clo ek r */ rc = 3; goto jump; -case 209: /* clo ek r */ +case 217: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15413,7 +15675,7 @@ case 209: /* clo ek r */ rc = 3; goto jump; -case 210: /* clo ek r */ +case 218: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15442,7 +15704,7 @@ case 210: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(211); + *--hp = obj_from_case(219); r[10] = (hendblk(5+1)); r[0] = (cx_apply); pc = objptr_from_obj(r[0])[0]; @@ -15453,7 +15715,7 @@ case 210: /* clo ek r */ rc = 4; goto jump; -case 211: /* clo ek r */ +case 219: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15466,7 +15728,7 @@ case 211: /* clo ek r */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[6]; - *--hp = obj_from_case(212); + *--hp = obj_from_case(220); r[7] = (hendblk(2+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); @@ -15481,20 +15743,20 @@ case 211: /* clo ek r */ rc = 5; goto jump; -case 212: /* clo ek r */ +case 220: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ - { fixnum_t v15360_tmp; + { fixnum_t v15563_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15360_tmp = (n); } + v15563_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15360_tmp); + obj t, l, o, *p, *d; int c = (v15563_tmp); hreserve(hbsz(3)*c, 4); /* 4 live regs */ l = r[3]; t = r[1]; /* gc-safe */ o = t; p = &o; @@ -15512,7 +15774,7 @@ case 212: /* clo ek r */ rc = 3; goto jump; -case 213: /* clo ek r */ +case 221: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15532,16 +15794,16 @@ case 213: /* clo ek r */ rc = 5; goto jump; -case 214: /* clo ek r */ +case 222: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(215); + *--hp = obj_from_case(223); r[2] = (hendblk(0+1)); (void)(cdr((r[1])) = (r[2])); hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(219); + *--hp = obj_from_case(227); r[2] = (hendblk(0+1)); r[3+0] = r[2]; r[3+1] = (mksymbol(internsym("define"))); @@ -15551,7 +15813,7 @@ case 214: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dbinding; -case 215: /* clo k sexp env */ +case 223: /* clo k sexp env */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k sexp env */ @@ -15563,7 +15825,7 @@ case 215: /* clo k sexp env */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(216); + *--hp = obj_from_case(224); r[4] = (hendblk(4+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -15575,7 +15837,7 @@ case 215: /* clo k sexp env */ r[1] = r[5]; goto gs_new_2Did; -case 216: /* clo ek r */ +case 224: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15592,7 +15854,7 @@ case 216: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; - *--hp = obj_from_case(217); + *--hp = obj_from_case(225); r[6] = (hendblk(2+1)); r[7] = (cdr((r[4]))); r[7] = (car((r[7]))); @@ -15612,7 +15874,7 @@ case 216: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; - *--hp = obj_from_case(218); + *--hp = obj_from_case(226); r[6] = (hendblk(2+1)); r[7] = (cdr((r[4]))); r[7] = (car((r[7]))); @@ -15626,7 +15888,7 @@ case 216: /* clo ek r */ goto gs_syntax_2Drules_2A; } -case 217: /* clo ek r */ +case 225: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15653,7 +15915,7 @@ case 217: /* clo ek r */ rc = 3; goto jump; -case 218: /* clo ek r */ +case 226: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15680,158 +15942,22 @@ case 218: /* clo ek r */ rc = 3; goto jump; -case 219: /* clo ek r */ +case 227: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(220); + *--hp = obj_from_case(228); r[2] = (hendblk(0+1)); r[3+0] = r[2]; r[3+1] = r[1]; r[3+2] = obj_from_bool(0); r[3+3] = (mknull()); - r[3+4] = (cx__231677); + r[3+4] = (cx__231719); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_syntax_2Drules_2A; -case 220: /* clo ek r */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ - /* ek r */ - hreserve(hbsz(1+1), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = obj_from_case(221); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("define"))); - goto gs_top_2Dtransformer_2Denv; - -case 221: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; } - r += 1; /* shift reg. wnd */ - /* ek r r */ - (void)(cdr((r[1])) = (r[2])); - hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(222); - r[3] = (hendblk(0+1)); - r[4+0] = (cx_syntax_2Drules_2A); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[3]; - r[4+2] = (cx_top_2Dtransformer_2Denv); - r[4+3] = obj_from_bool(0); - r[4+4] = (mknull()); - r[4+5] = (cx__231718); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 222: /* clo ek r */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ - /* ek r */ - hreserve(hbsz(1+1), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = obj_from_case(223); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("letrec-syntax"))); - goto gs_top_2Dtransformer_2Denv; - -case 223: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; } - r += 1; /* shift reg. wnd */ - /* ek r r */ - (void)(cdr((r[1])) = (r[2])); - hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(224); - r[3] = (hendblk(0+1)); - r[4+0] = (cx_syntax_2Drules_2A); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[3]; - r[4+2] = (cx_top_2Dtransformer_2Denv); - r[4+3] = obj_from_bool(0); - r[4+4] = (mknull()); - r[4+5] = (cx__231750); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 224: /* clo ek r */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ - /* ek r */ - hreserve(hbsz(1+1), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = obj_from_case(225); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("let-syntax"))); - goto gs_top_2Dtransformer_2Denv; - -case 225: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; } - r += 1; /* shift reg. wnd */ - /* ek r r */ - (void)(cdr((r[1])) = (r[2])); - hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(226); - r[3] = (hendblk(0+1)); - r[4+0] = (cx_syntax_2Drules_2A); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[3]; - r[4+2] = (cx_top_2Dtransformer_2Denv); - r[4+3] = obj_from_bool(0); - r[4+4] = (mknull()); - r[4+5] = (cx__231808); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 226: /* clo ek r */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ - /* ek r */ - hreserve(hbsz(1+1), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = obj_from_case(227); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("letrec"))); - goto gs_top_2Dtransformer_2Denv; - -case 227: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; } - r += 1; /* shift reg. wnd */ - /* ek r r */ - (void)(cdr((r[1])) = (r[2])); - hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(228); - r[3] = (hendblk(0+1)); - r[4+0] = (cx_syntax_2Drules_2A); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[3]; - r[4+2] = (cx_top_2Dtransformer_2Denv); - r[4+3] = obj_from_bool(0); - r[4+4] = (mknull()); - r[4+5] = (cx__231840); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - case 228: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ @@ -15841,7 +15967,7 @@ case 228: /* clo ek r */ *--hp = obj_from_case(229); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("let"))); + r[1] = (mksymbol(internsym("define"))); goto gs_top_2Dtransformer_2Denv; case 229: /* clo ek r */ @@ -15860,7 +15986,7 @@ case 229: /* clo ek r */ r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); r[4+4] = (mknull()); - r[4+5] = (cx__231920); + r[4+5] = (cx__231760); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -15875,7 +16001,7 @@ case 230: /* clo ek r */ *--hp = obj_from_case(231); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("let*"))); + r[1] = (mksymbol(internsym("letrec-syntax"))); goto gs_top_2Dtransformer_2Denv; case 231: /* clo ek r */ @@ -15894,7 +16020,7 @@ case 231: /* clo ek r */ r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); r[4+4] = (mknull()); - r[4+5] = (cx__231958); + r[4+5] = (cx__231792); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -15909,7 +16035,7 @@ case 232: /* clo ek r */ *--hp = obj_from_case(233); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("and"))); + r[1] = (mksymbol(internsym("let-syntax"))); goto gs_top_2Dtransformer_2Denv; case 233: /* clo ek r */ @@ -15928,7 +16054,7 @@ case 233: /* clo ek r */ r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); r[4+4] = (mknull()); - r[4+5] = (cx__231998); + r[4+5] = (cx__231850); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -15943,7 +16069,7 @@ case 234: /* clo ek r */ *--hp = obj_from_case(235); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("or"))); + r[1] = (mksymbol(internsym("letrec"))); goto gs_top_2Dtransformer_2Denv; case 235: /* clo ek r */ @@ -15961,8 +16087,8 @@ case 235: /* clo ek r */ r[4+1] = r[3]; r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); - r[4+4] = (cx__232157); - r[4+5] = (cx__232050); + r[4+4] = (mknull()); + r[4+5] = (cx__231882); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -15977,7 +16103,7 @@ case 236: /* clo ek r */ *--hp = obj_from_case(237); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("cond"))); + r[1] = (mksymbol(internsym("let"))); goto gs_top_2Dtransformer_2Denv; case 237: /* clo ek r */ @@ -15995,8 +16121,8 @@ case 237: /* clo ek r */ r[4+1] = r[3]; r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); - r[4+4] = (cx__232198); - r[4+5] = (cx__232163); + r[4+4] = (mknull()); + r[4+5] = (cx__231962); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -16011,7 +16137,7 @@ case 238: /* clo ek r */ *--hp = obj_from_case(239); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("case-test"))); + r[1] = (mksymbol(internsym("let*"))); goto gs_top_2Dtransformer_2Denv; case 239: /* clo ek r */ @@ -16030,7 +16156,7 @@ case 239: /* clo ek r */ r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); r[4+4] = (mknull()); - r[4+5] = (cx__232202); + r[4+5] = (cx__232000); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -16045,7 +16171,7 @@ case 240: /* clo ek r */ *--hp = obj_from_case(241); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("case"))); + r[1] = (mksymbol(internsym("and"))); goto gs_top_2Dtransformer_2Denv; case 241: /* clo ek r */ @@ -16064,7 +16190,7 @@ case 241: /* clo ek r */ r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); r[4+4] = (mknull()); - r[4+5] = (cx__232246); + r[4+5] = (cx__232040); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -16079,7 +16205,7 @@ case 242: /* clo ek r */ *--hp = obj_from_case(243); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("do"))); + r[1] = (mksymbol(internsym("or"))); goto gs_top_2Dtransformer_2Denv; case 243: /* clo ek r */ @@ -16097,8 +16223,8 @@ case 243: /* clo ek r */ r[4+1] = r[3]; r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); - r[4+4] = (cx__232511); - r[4+5] = (cx__232312); + r[4+4] = (cx__232199); + r[4+5] = (cx__232092); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -16113,7 +16239,7 @@ case 244: /* clo ek r */ *--hp = obj_from_case(245); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("quasiquote"))); + r[1] = (mksymbol(internsym("cond"))); goto gs_top_2Dtransformer_2Denv; case 245: /* clo ek r */ @@ -16131,8 +16257,8 @@ case 245: /* clo ek r */ r[4+1] = r[3]; r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); - r[4+4] = (mknull()); - r[4+5] = (cx__232519); + r[4+4] = (cx__232240); + r[4+5] = (cx__232205); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -16147,7 +16273,7 @@ case 246: /* clo ek r */ *--hp = obj_from_case(247); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("when"))); + r[1] = (mksymbol(internsym("case-test"))); goto gs_top_2Dtransformer_2Denv; case 247: /* clo ek r */ @@ -16166,7 +16292,7 @@ case 247: /* clo ek r */ r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); r[4+4] = (mknull()); - r[4+5] = (cx__232539); + r[4+5] = (cx__232244); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -16181,7 +16307,7 @@ case 248: /* clo ek r */ *--hp = obj_from_case(249); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("unless"))); + r[1] = (mksymbol(internsym("case"))); goto gs_top_2Dtransformer_2Denv; case 249: /* clo ek r */ @@ -16200,7 +16326,7 @@ case 249: /* clo ek r */ r[4+2] = (cx_top_2Dtransformer_2Denv); r[4+3] = obj_from_bool(0); r[4+4] = (mknull()); - r[4+5] = (cx__232563); + r[4+5] = (cx__232288); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; @@ -16215,7 +16341,7 @@ case 250: /* clo ek r */ *--hp = obj_from_case(251); r[2] = (hendblk(1+1)); r[0] = r[2]; - r[1] = (mksymbol(internsym("case-lambda"))); + r[1] = (mksymbol(internsym("do"))); goto gs_top_2Dtransformer_2Denv; case 251: /* clo ek r */ @@ -16225,10 +16351,146 @@ case 251: /* clo ek r */ r += 1; /* shift reg. wnd */ /* ek r r */ (void)(cdr((r[1])) = (r[2])); - cx__2Aglobals_2A = (mknull()); - { static obj c[] = { obj_from_case(252) }; cx_global_2Dlocation = (obj)c; } hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(252); + r[3] = (hendblk(0+1)); + r[4+0] = (cx_syntax_2Drules_2A); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[3]; + r[4+2] = (cx_top_2Dtransformer_2Denv); + r[4+3] = obj_from_bool(0); + r[4+4] = (cx__232553); + r[4+5] = (cx__232354); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 6; + goto jump; + +case 252: /* clo ek r */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* ek r */ + hreserve(hbsz(1+1), 2); /* 2 live regs */ + *--hp = r[1]; *--hp = obj_from_case(253); + r[2] = (hendblk(1+1)); + r[0] = r[2]; + r[1] = (mksymbol(internsym("quasiquote"))); + goto gs_top_2Dtransformer_2Denv; + +case 253: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* ek r r */ + (void)(cdr((r[1])) = (r[2])); + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(254); + r[3] = (hendblk(0+1)); + r[4+0] = (cx_syntax_2Drules_2A); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[3]; + r[4+2] = (cx_top_2Dtransformer_2Denv); + r[4+3] = obj_from_bool(0); + r[4+4] = (mknull()); + r[4+5] = (cx__232561); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 6; + goto jump; + +case 254: /* clo ek r */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* ek r */ + hreserve(hbsz(1+1), 2); /* 2 live regs */ + *--hp = r[1]; + *--hp = obj_from_case(255); + r[2] = (hendblk(1+1)); + r[0] = r[2]; + r[1] = (mksymbol(internsym("when"))); + goto gs_top_2Dtransformer_2Denv; + +case 255: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* ek r r */ + (void)(cdr((r[1])) = (r[2])); + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(256); + r[3] = (hendblk(0+1)); + r[4+0] = (cx_syntax_2Drules_2A); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[3]; + r[4+2] = (cx_top_2Dtransformer_2Denv); + r[4+3] = obj_from_bool(0); + r[4+4] = (mknull()); + r[4+5] = (cx__232581); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 6; + goto jump; + +case 256: /* clo ek r */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* ek r */ + hreserve(hbsz(1+1), 2); /* 2 live regs */ + *--hp = r[1]; + *--hp = obj_from_case(257); + r[2] = (hendblk(1+1)); + r[0] = r[2]; + r[1] = (mksymbol(internsym("unless"))); + goto gs_top_2Dtransformer_2Denv; + +case 257: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* ek r r */ + (void)(cdr((r[1])) = (r[2])); + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(258); + r[3] = (hendblk(0+1)); + r[4+0] = (cx_syntax_2Drules_2A); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[3]; + r[4+2] = (cx_top_2Dtransformer_2Denv); + r[4+3] = obj_from_bool(0); + r[4+4] = (mknull()); + r[4+5] = (cx__232605); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 6; + goto jump; + +case 258: /* clo ek r */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* ek r */ + hreserve(hbsz(1+1), 2); /* 2 live regs */ + *--hp = r[1]; + *--hp = obj_from_case(259); + r[2] = (hendblk(1+1)); + r[0] = r[2]; + r[1] = (mksymbol(internsym("case-lambda"))); + goto gs_top_2Dtransformer_2Denv; + +case 259: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* ek r r */ + (void)(cdr((r[1])) = (r[2])); + cx__2Aglobals_2A = (mknull()); + { static obj c[] = { obj_from_case(260) }; cx_global_2Dlocation = (obj)c; } + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(261); r[3] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16236,57 +16498,57 @@ case 251: /* clo ek r */ *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); cx_c_2Derror = (hendblk(3)); } - { static obj c[] = { obj_from_case(254) }; cx_write_2Dserialized_2Dchar = (obj)c; } - { static obj c[] = { obj_from_case(256) }; cx_write_2Dserialized_2Dsize = (obj)c; } - { static obj c[] = { obj_from_case(258) }; cx_write_2Dserialized_2Delement = (obj)c; } - { static obj c[] = { obj_from_case(260) }; cx_write_2Dserialized_2Dsexp = (obj)c; } - { static obj c[] = { obj_from_case(276) }; cx_write_2Dserialized_2Darg = (obj)c; } - { static obj c[] = { obj_from_case(278) }; cx_find_2Dfree_2A = (obj)c; } - { static obj c[] = { obj_from_case(281) }; cx_find_2Dfree = (obj)c; } - { static obj c[] = { obj_from_case(309) }; cx_find_2Dsets_2A = (obj)c; } - { static obj c[] = { obj_from_case(312) }; cx_find_2Dsets = (obj)c; } - { static obj c[] = { obj_from_case(340) }; cx_codegen = (obj)c; } - { static obj c[] = { obj_from_case(448) }; cx_compile_2Dto_2Dstring = (obj)c; } + { static obj c[] = { obj_from_case(262) }; cx_write_2Dserialized_2Dchar = (obj)c; } + { static obj c[] = { obj_from_case(264) }; cx_write_2Dserialized_2Dsize = (obj)c; } + { static obj c[] = { obj_from_case(266) }; cx_write_2Dserialized_2Delement = (obj)c; } + { static obj c[] = { obj_from_case(268) }; cx_write_2Dserialized_2Dsexp = (obj)c; } + { static obj c[] = { obj_from_case(284) }; cx_write_2Dserialized_2Darg = (obj)c; } + { static obj c[] = { obj_from_case(286) }; cx_find_2Dfree_2A = (obj)c; } + { static obj c[] = { obj_from_case(289) }; cx_find_2Dfree = (obj)c; } + { static obj c[] = { obj_from_case(317) }; cx_find_2Dsets_2A = (obj)c; } + { static obj c[] = { obj_from_case(320) }; cx_find_2Dsets = (obj)c; } + { static obj c[] = { obj_from_case(348) }; cx_codegen = (obj)c; } + { static obj c[] = { obj_from_case(456) }; cx_compile_2Dto_2Dstring = (obj)c; } { /* define execute-thunk-closure */ static obj c[] = { obj_from_objptr(vmcases+0) }; cx_execute_2Dthunk_2Dclosure = obj_from_objptr(c); } { /* define make-closure */ static obj c[] = { obj_from_objptr(vmcases+1) }; cx_make_2Dclosure = obj_from_objptr(c); } - { static obj c[] = { obj_from_case(451) }; cx_execute = (obj)c; } + { static obj c[] = { obj_from_case(459) }; cx_execute = (obj)c; } { /* define decode-sexp */ static obj c[] = { obj_from_objptr(vmcases+2) }; cx_decode_2Dsexp = obj_from_objptr(c); } { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; cx_decode = obj_from_objptr(c); } - { static obj c[] = { obj_from_case(453) }; cx_evaluate = (obj)c; } - cx__2Ahide_2Drefs_2A = (cx__233650); - { static obj c[] = { obj_from_case(458) }; cx_display_2Dcode = (obj)c; } - { static obj c[] = { obj_from_case(459) }; cx_process_2Ddefine_2Dsyntax = (obj)c; } - { static obj c[] = { obj_from_case(466) }; cx_process_2Dstatement = (obj)c; } - { static obj c[] = { obj_from_case(470) }; cx_process_2Ddefine = (obj)c; } - { static obj c[] = { obj_from_case(474) }; cx_scan_2Dtop_2Dform = (obj)c; } - { static obj c[] = { obj_from_case(487) }; cx_process_2Dtop_2Dform = (obj)c; } - { static obj c[] = { obj_from_case(512) }; cx_path_2Dstrip_2Ddirectory = (obj)c; } - { static obj c[] = { obj_from_case(513) }; cx_path_2Dstrip_2Dextension = (obj)c; } - { static obj c[] = { obj_from_case(514) }; cx_module_2Dname = (obj)c; } - { static obj c[] = { obj_from_case(516) }; cx_process_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(461) }; cx_evaluate = (obj)c; } + cx__2Ahide_2Drefs_2A = (cx__233690); + { static obj c[] = { obj_from_case(466) }; cx_display_2Dcode = (obj)c; } + { static obj c[] = { obj_from_case(467) }; cx_process_2Ddefine_2Dsyntax = (obj)c; } + { static obj c[] = { obj_from_case(474) }; cx_process_2Dstatement = (obj)c; } + { static obj c[] = { obj_from_case(478) }; cx_process_2Ddefine = (obj)c; } + { static obj c[] = { obj_from_case(482) }; cx_scan_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(495) }; cx_process_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(520) }; cx_path_2Dstrip_2Ddirectory = (obj)c; } + { static obj c[] = { obj_from_case(521) }; cx_path_2Dstrip_2Dextension = (obj)c; } + { static obj c[] = { obj_from_case(522) }; cx_module_2Dname = (obj)c; } + { static obj c[] = { obj_from_case(524) }; cx_process_2Dfile = (obj)c; } { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; r[3] = obj_from_objptr(c); } hreserve(hbsz(0+1), 4); /* 4 live regs */ - *--hp = obj_from_case(525); + *--hp = obj_from_case(533); r[4] = (hendblk(0+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__234004); + r[2] = (cx__234044); rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 252: /* global-location k sym */ +case 260: /* global-location k sym */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k sym */ @@ -16325,45 +16587,34 @@ case 252: /* global-location k sym */ rc = 3; goto jump; -case 253: /* clo k msg args */ +case 261: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ { /* string-append */ - int *d = stringcat(stringdata((cx__232611)), stringdata((r[1]))); + int *d = stringcat(stringdata((cx__232653)), stringdata((r[1]))); r[3] = (hpushstr(3, d)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[2]; - *--hp = r[3]; - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - r[4+0] = (cx_apply); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[0]; - r[4+2] = (cx_error); - r[4+3] = r[3]; - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; + /* r[0] */ + r[1] = r[3]; + /* r[2] */ + goto gs_error_2A; -case 254: /* write-serialized-char k x port */ +case 262: /* write-serialized-char k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dchar: /* k x port */ - { const char_t v15359_x = char_from_obj(r[1]); - if ((((v15359_x) == ('%')) || (((v15359_x) == (34)) || (((v15359_x) == (92)) || (((v15359_x) < (' ')) || ((v15359_x) > ('~'))))))) { + { const char_t v15562_x = char_from_obj(r[1]); + if ((((v15562_x) == ('%')) || (((v15562_x) == (34)) || (((v15562_x) == (92)) || (((v15562_x) < (' ')) || ((v15562_x) > ('~'))))))) { (void)(oportputc(('%'), (r[2]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(255); + *--hp = obj_from_case(263); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; - r[4+2] = obj_from_fixnum((fixnum_t)(v15359_x)); + r[4+2] = obj_from_fixnum((fixnum_t)(v15562_x)); r[4+3] = obj_from_fixnum(+16); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -16373,13 +16624,13 @@ gs_write_2Dserialized_2Dchar: /* k x port */ /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); - r[2] = obj_from_void(oportputc((v15359_x), (r[2]))); + r[2] = obj_from_void(oportputc((v15562_x), (r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } -case 255: /* clo ek r */ +case 263: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16397,14 +16648,14 @@ case 255: /* clo ek r */ rc = 3; goto jump; -case 256: /* write-serialized-size k n port */ +case 264: /* write-serialized-size k n port */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k n port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(257); + *--hp = obj_from_case(265); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -16416,7 +16667,7 @@ case 256: /* write-serialized-size k n port */ rc = 4; goto jump; -case 257: /* clo ek r */ +case 265: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16432,21 +16683,21 @@ case 257: /* clo ek r */ rc = 3; goto jump; -case 258: /* write-serialized-element k x port */ +case 266: /* write-serialized-element k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(259); + *--hp = obj_from_case(267); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_write_2Dserialized_2Dsexp; -case 259: /* clo ek . */ +case 267: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16462,7 +16713,7 @@ case 259: /* clo ek . */ rc = 3; goto jump; -case 260: /* write-serialized-sexp k x port */ +case 268: /* write-serialized-sexp k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dsexp: /* k x port */ @@ -16505,7 +16756,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(261); + *--hp = obj_from_case(269); r[3] = (hendblk(2+1)); if ((is_fixnum_obj(r[1]))) { r[4+0] = (cx_fixnum_2D_3Estring); @@ -16538,7 +16789,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(262); + *--hp = obj_from_case(270); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -16557,7 +16808,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(265); + *--hp = obj_from_case(273); r[4] = (hendblk(3+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -16575,7 +16826,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(267); + *--hp = obj_from_case(275); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -16593,7 +16844,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(270); + *--hp = obj_from_case(278); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -16612,7 +16863,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[3]; - *--hp = obj_from_case(273); + *--hp = obj_from_case(281); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -16627,7 +16878,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__232652); + r[3+2] = (cx__232692); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -16644,7 +16895,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ } } -case 261: /* clo ek r */ +case 269: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16660,7 +16911,7 @@ case 261: /* clo ek r */ rc = 3; goto jump; -case 262: /* clo ek r */ +case 270: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16673,14 +16924,14 @@ case 262: /* clo ek r */ r[0] = r[3]; r[1] = r[2]; r[2] = r[4]; - goto s_loop_v13578; + goto s_loop_v13726; -case 263: /* clo k x */ +case 271: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v13578: /* k x port */ +s_loop_v13726: /* k x port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16693,14 +16944,14 @@ s_loop_v13578: /* k x port */ r[3] = (car((r[1]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; - *--hp = obj_from_case(263); + *--hp = obj_from_case(271); r[4] = (hendblk(1+1)); hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(264); + *--hp = obj_from_case(272); r[4] = (hendblk(4+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -16713,7 +16964,7 @@ s_loop_v13578: /* k x port */ goto jump; } -case 264: /* clo ek . */ +case 272: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16732,7 +16983,7 @@ case 264: /* clo ek . */ rc = 3; goto jump; -case 265: /* clo ek . */ +case 273: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16746,7 +16997,7 @@ case 265: /* clo ek . */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(266); + *--hp = obj_from_case(274); r[6] = (hendblk(2+1)); r[0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[0])[0]; @@ -16757,7 +17008,7 @@ case 265: /* clo ek . */ rc = 4; goto jump; -case 266: /* clo ek . */ +case 274: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16773,7 +17024,7 @@ case 266: /* clo ek . */ rc = 3; goto jump; -case 267: /* clo ek r */ +case 275: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16789,15 +17040,15 @@ case 267: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13549; + goto s_loop_v13697; -case 268: /* clo k i */ +case 276: /* clo k i */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v13549: /* k i port x */ +s_loop_v13697: /* k i port x */ if ((fixnum_from_obj(r[1]) == (vectorlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16811,14 +17062,14 @@ s_loop_v13549: /* k i port x */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(268); + *--hp = obj_from_case(276); r[5] = (hendblk(2+1)); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = r[5]; - *--hp = obj_from_case(269); + *--hp = obj_from_case(277); r[5] = (hendblk(4+1)); r[6+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[6+0])[0]; @@ -16831,7 +17082,7 @@ s_loop_v13549: /* k i port x */ goto jump; } -case 269: /* clo ek . */ +case 277: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16850,7 +17101,7 @@ case 269: /* clo ek . */ rc = 3; goto jump; -case 270: /* clo ek r */ +case 278: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16866,15 +17117,15 @@ case 270: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13532; + goto s_loop_v13680; -case 271: /* clo k i */ +case 279: /* clo k i */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v13532: /* k i port x */ +s_loop_v13680: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16887,13 +17138,13 @@ s_loop_v13532: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(271); + *--hp = obj_from_case(279); r[4] = (hendblk(2+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(272); + *--hp = obj_from_case(280); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); @@ -16901,7 +17152,7 @@ s_loop_v13532: /* k i port x */ goto gs_write_2Dserialized_2Dchar; } -case 272: /* clo ek . */ +case 280: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16918,7 +17169,7 @@ case 272: /* clo ek . */ rc = 3; goto jump; -case 273: /* clo ek r */ +case 281: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16934,15 +17185,15 @@ case 273: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13515; + goto s_loop_v13663; -case 274: /* clo k i */ +case 282: /* clo k i */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v13515: /* k i port x */ +s_loop_v13663: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16955,13 +17206,13 @@ s_loop_v13515: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(274); + *--hp = obj_from_case(282); r[4] = (hendblk(2+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(275); + *--hp = obj_from_case(283); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); @@ -16969,7 +17220,7 @@ s_loop_v13515: /* k i port x */ goto gs_write_2Dserialized_2Dchar; } -case 275: /* clo ek . */ +case 283: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16986,14 +17237,14 @@ case 275: /* clo ek . */ rc = 3; goto jump; -case 276: /* write-serialized-arg k arg port */ +case 284: /* write-serialized-arg k arg port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Darg: /* k arg port */ if (((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1])))) { if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v15358_arg = fixnum_from_obj(r[1]); - r[3] = obj_from_bool(((+0) <= (v15358_arg)) && ((v15358_arg) <= (+9))); } + { const fixnum_t v15561_arg = fixnum_from_obj(r[1]); + r[3] = obj_from_bool(((+0) <= (v15561_arg)) && ((v15561_arg) <= (+9))); } } else { r[3] = obj_from_bool(0); } @@ -17001,8 +17252,8 @@ gs_write_2Dserialized_2Darg: /* k arg port */ r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { - { const char_t v15357_tmp = (*(unsigned char*)stringref((cx__232732), fixnum_from_obj(r[1]))); - r[3] = obj_from_void(oportputc((v15357_tmp), (r[2]))); } + { const char_t v15560_tmp = (*(unsigned char*)stringref((cx__232772), fixnum_from_obj(r[1]))); + r[3] = obj_from_void(oportputc((v15560_tmp), (r[2]))); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); @@ -17016,7 +17267,7 @@ gs_write_2Dserialized_2Darg: /* k arg port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(277); + *--hp = obj_from_case(285); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ @@ -17024,7 +17275,7 @@ gs_write_2Dserialized_2Darg: /* k arg port */ goto gs_write_2Dserialized_2Dsexp; } -case 277: /* clo ek . */ +case 285: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17040,7 +17291,7 @@ case 277: /* clo ek . */ rc = 3; goto jump; -case 278: /* find-free* k x* b */ +case 286: /* find-free* k x* b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree_2A: /* k x* b */ @@ -17057,7 +17308,7 @@ gs_find_2Dfree_2A: /* k x* b */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(279); + *--hp = obj_from_case(287); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -17065,7 +17316,7 @@ gs_find_2Dfree_2A: /* k x* b */ goto gs_find_2Dfree; } -case 279: /* clo ek r */ +case 287: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17076,14 +17327,14 @@ case 279: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(280); + *--hp = obj_from_case(288); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dfree_2A; -case 280: /* clo ek r */ +case 288: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17097,7 +17348,7 @@ case 280: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 281: /* find-free k x b */ +case 289: /* find-free k x b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree: /* k x b */ @@ -17105,7 +17356,7 @@ gs_find_2Dfree: /* k x b */ r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(282); + *--hp = obj_from_case(290); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17122,7 +17373,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(283); + *--hp = obj_from_case(291); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17139,7 +17390,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(284); + *--hp = obj_from_case(292); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17156,7 +17407,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(286); + *--hp = obj_from_case(294); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17173,7 +17424,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(287); + *--hp = obj_from_case(295); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17190,7 +17441,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(290); + *--hp = obj_from_case(298); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -17213,7 +17464,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(294); + *--hp = obj_from_case(302); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17230,7 +17481,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(296); + *--hp = obj_from_case(304); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17247,7 +17498,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(299); + *--hp = obj_from_case(307); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17264,7 +17515,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(304); + *--hp = obj_from_case(312); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -17287,7 +17538,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(305); + *--hp = obj_from_case(313); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -17310,7 +17561,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(306); + *--hp = obj_from_case(314); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -17348,7 +17599,7 @@ gs_find_2Dfree: /* k x b */ } } -case 282: /* clo k obj */ +case 290: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -17361,7 +17612,7 @@ case 282: /* clo k obj */ rc = 3; goto jump; -case 283: /* clo k id */ +case 291: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -17386,7 +17637,7 @@ case 283: /* clo k id */ rc = 3; goto jump; -case 284: /* clo k id exp */ +case 292: /* clo k id exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17396,14 +17647,14 @@ case 284: /* clo k id exp */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(285); + *--hp = obj_from_case(293); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; -case 285: /* clo ek r */ +case 293: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17428,7 +17679,7 @@ case 285: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 286: /* clo k id */ +case 294: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -17453,7 +17704,7 @@ case 286: /* clo k id */ rc = 3; goto jump; -case 287: /* clo k idsi exp */ +case 295: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17463,13 +17714,13 @@ case 287: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(288); + *--hp = obj_from_case(296); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 288: /* clo ek r */ +case 296: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17480,14 +17731,14 @@ case 288: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(289); + *--hp = obj_from_case(297); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ goto gs_set_2Dunion; -case 289: /* clo ek r */ +case 297: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17501,7 +17752,7 @@ case 289: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 290: /* clo k clauses */ +case 298: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -17511,26 +17762,26 @@ case 290: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(293); + *--hp = obj_from_case(301); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v13398; + goto s_loop_v13546; -s_loop_v13398: /* k l f */ +s_loop_v13546: /* k l f */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(291); + *--hp = obj_from_case(299); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13398; + goto s_loop_v13546; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -17541,7 +17792,7 @@ s_loop_v13398: /* k l f */ goto jump; } -case 291: /* clo ek r */ +case 299: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17552,7 +17803,7 @@ case 291: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(292); + *--hp = obj_from_case(300); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -17562,7 +17813,7 @@ case 291: /* clo ek r */ rc = 3; goto jump; -case 292: /* clo ek r */ +case 300: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17584,7 +17835,7 @@ case 292: /* clo ek r */ rc = 3; goto jump; -case 293: /* clo ek r */ +case 301: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17596,7 +17847,7 @@ case 293: /* clo ek r */ /* r[2] */ goto gs_find_2Dfree_2A; -case 294: /* clo k kid exp */ +case 302: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17605,7 +17856,7 @@ case 294: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(295); + *--hp = obj_from_case(303); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -17618,7 +17869,7 @@ case 294: /* clo k kid exp */ r[2] = r[3]; goto gs_set_2Dunion; -case 295: /* clo ek r */ +case 303: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17632,7 +17883,7 @@ case 295: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 296: /* clo k kexp exp */ +case 304: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17642,14 +17893,14 @@ case 296: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(297); + *--hp = obj_from_case(305); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; -case 297: /* clo ek r */ +case 305: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17660,14 +17911,14 @@ case 297: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(298); + *--hp = obj_from_case(306); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; -case 298: /* clo ek r */ +case 306: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17681,7 +17932,7 @@ case 298: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 299: /* clo k test then else */ +case 307: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -17692,14 +17943,14 @@ case 299: /* clo k test then else */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(300); + *--hp = obj_from_case(308); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dfree; -case 300: /* clo ek r */ +case 308: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17713,14 +17964,14 @@ case 300: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(301); + *--hp = obj_from_case(309); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; -case 301: /* clo ek r */ +case 309: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17733,14 +17984,14 @@ case 301: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(302); + *--hp = obj_from_case(310); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; -case 302: /* clo ek r */ +case 310: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17751,7 +18002,7 @@ case 302: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(303); + *--hp = obj_from_case(311); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -17760,7 +18011,7 @@ case 302: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 303: /* clo ek r */ +case 311: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17774,7 +18025,7 @@ case 303: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 304: /* clo k exps */ +case 312: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -17785,7 +18036,7 @@ case 304: /* clo k exps */ /* r[2] */ goto gs_find_2Dfree_2A; -case 305: /* clo k ig args */ +case 313: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17796,7 +18047,7 @@ case 305: /* clo k ig args */ r[2] = r[3]; goto gs_find_2Dfree_2A; -case 306: /* clo k exp args */ +case 314: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17806,14 +18057,14 @@ case 306: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(307); + *--hp = obj_from_case(315); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; -case 307: /* clo ek r */ +case 315: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17824,14 +18075,14 @@ case 307: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(308); + *--hp = obj_from_case(316); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree_2A; -case 308: /* clo ek r */ +case 316: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17845,7 +18096,7 @@ case 308: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 309: /* find-sets* k x* v */ +case 317: /* find-sets* k x* v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets_2A: /* k x* v */ @@ -17862,7 +18113,7 @@ gs_find_2Dsets_2A: /* k x* v */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(310); + *--hp = obj_from_case(318); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -17870,7 +18121,7 @@ gs_find_2Dsets_2A: /* k x* v */ goto gs_find_2Dsets; } -case 310: /* clo ek r */ +case 318: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17881,14 +18132,14 @@ case 310: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(311); + *--hp = obj_from_case(319); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dsets_2A; -case 311: /* clo ek r */ +case 319: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17902,7 +18153,7 @@ case 311: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 312: /* find-sets k x v */ +case 320: /* find-sets k x v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets: /* k x v */ @@ -17910,7 +18161,7 @@ gs_find_2Dsets: /* k x v */ r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(313); + *--hp = obj_from_case(321); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17926,7 +18177,7 @@ gs_find_2Dsets: /* k x v */ r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("ref")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(314); + *--hp = obj_from_case(322); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17943,7 +18194,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(315); + *--hp = obj_from_case(323); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17960,7 +18211,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(317); + *--hp = obj_from_case(325); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17977,7 +18228,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(318); + *--hp = obj_from_case(326); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17994,7 +18245,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(321); + *--hp = obj_from_case(329); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -18017,7 +18268,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(325); + *--hp = obj_from_case(333); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18034,7 +18285,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(327); + *--hp = obj_from_case(335); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18051,7 +18302,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(330); + *--hp = obj_from_case(338); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -18074,7 +18325,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(331); + *--hp = obj_from_case(339); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18091,7 +18342,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(336); + *--hp = obj_from_case(344); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -18114,7 +18365,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(337); + *--hp = obj_from_case(345); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -18152,7 +18403,7 @@ gs_find_2Dsets: /* k x v */ } } -case 313: /* clo k obj */ +case 321: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -18165,7 +18416,7 @@ case 313: /* clo k obj */ rc = 3; goto jump; -case 314: /* clo k id */ +case 322: /* clo k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k id */ @@ -18178,7 +18429,7 @@ case 314: /* clo k id */ rc = 3; goto jump; -case 315: /* clo k id x */ +case 323: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18188,14 +18439,14 @@ case 315: /* clo k id x */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(316); + *--hp = obj_from_case(324); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 316: /* clo ek r */ +case 324: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18220,7 +18471,7 @@ case 316: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 317: /* clo k id */ +case 325: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -18245,7 +18496,7 @@ case 317: /* clo k id */ rc = 3; goto jump; -case 318: /* clo k idsi exp */ +case 326: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18255,13 +18506,13 @@ case 318: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(319); + *--hp = obj_from_case(327); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 319: /* clo ek r */ +case 327: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18272,7 +18523,7 @@ case 319: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(320); + *--hp = obj_from_case(328); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -18281,7 +18532,7 @@ case 319: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 320: /* clo ek r */ +case 328: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18295,7 +18546,7 @@ case 320: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 321: /* clo k clauses */ +case 329: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -18305,26 +18556,26 @@ case 321: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(324); + *--hp = obj_from_case(332); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v13187; + goto s_loop_v13335; -s_loop_v13187: /* k l f */ +s_loop_v13335: /* k l f */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(322); + *--hp = obj_from_case(330); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13187; + goto s_loop_v13335; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18335,7 +18586,7 @@ s_loop_v13187: /* k l f */ goto jump; } -case 322: /* clo ek r */ +case 330: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18346,7 +18597,7 @@ case 322: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(323); + *--hp = obj_from_case(331); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -18356,7 +18607,7 @@ case 322: /* clo ek r */ rc = 3; goto jump; -case 323: /* clo ek r */ +case 331: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18378,7 +18629,7 @@ case 323: /* clo ek r */ rc = 3; goto jump; -case 324: /* clo ek r */ +case 332: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18390,7 +18641,7 @@ case 324: /* clo ek r */ /* r[2] */ goto gs_find_2Dsets_2A; -case 325: /* clo k kid exp */ +case 333: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18399,7 +18650,7 @@ case 325: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(326); + *--hp = obj_from_case(334); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -18414,7 +18665,7 @@ case 325: /* clo k kid exp */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 326: /* clo ek r */ +case 334: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18428,7 +18679,7 @@ case 326: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 327: /* clo k kexp exp */ +case 335: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18438,14 +18689,14 @@ case 327: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(328); + *--hp = obj_from_case(336); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; -case 328: /* clo ek r */ +case 336: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18456,14 +18707,14 @@ case 328: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(329); + *--hp = obj_from_case(337); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 329: /* clo ek r */ +case 337: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18477,7 +18728,7 @@ case 329: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 330: /* clo k exps */ +case 338: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -18488,7 +18739,7 @@ case 330: /* clo k exps */ /* r[2] */ goto gs_find_2Dsets_2A; -case 331: /* clo k test then else */ +case 339: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -18499,14 +18750,14 @@ case 331: /* clo k test then else */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(332); + *--hp = obj_from_case(340); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dsets; -case 332: /* clo ek r */ +case 340: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18520,14 +18771,14 @@ case 332: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(333); + *--hp = obj_from_case(341); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 333: /* clo ek r */ +case 341: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18540,14 +18791,14 @@ case 333: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(334); + *--hp = obj_from_case(342); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 334: /* clo ek r */ +case 342: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18558,7 +18809,7 @@ case 334: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(335); + *--hp = obj_from_case(343); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -18567,7 +18818,7 @@ case 334: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 335: /* clo ek r */ +case 343: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18581,7 +18832,7 @@ case 335: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 336: /* clo k ig args */ +case 344: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18592,7 +18843,7 @@ case 336: /* clo k ig args */ r[2] = r[3]; goto gs_find_2Dsets_2A; -case 337: /* clo k exp args */ +case 345: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18602,14 +18853,14 @@ case 337: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(338); + *--hp = obj_from_case(346); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; -case 338: /* clo ek r */ +case 346: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18620,14 +18871,14 @@ case 338: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(339); + *--hp = obj_from_case(347); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets_2A; -case 339: /* clo ek r */ +case 347: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18641,7 +18892,7 @@ case 339: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 340: /* codegen k x l f s g k port */ +case 348: /* codegen k x l f s g k port */ assert(rc == 9); r += 1; /* shift reg. wnd */ gs_codegen: /* k x l f s g k port */ @@ -18651,7 +18902,7 @@ gs_codegen: /* k x l f s g k port */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; - *--hp = obj_from_case(341); + *--hp = obj_from_case(349); r[8] = (hendblk(2+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18672,7 +18923,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(343); + *--hp = obj_from_case(351); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18694,7 +18945,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(347); + *--hp = obj_from_case(355); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18714,7 +18965,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[6]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(350); + *--hp = obj_from_case(358); r[8] = (hendblk(4+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18736,7 +18987,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(352); + *--hp = obj_from_case(360); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -18764,7 +19015,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(356); + *--hp = obj_from_case(364); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18786,7 +19037,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(360); + *--hp = obj_from_case(368); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18808,7 +19059,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(376); + *--hp = obj_from_case(384); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -18836,7 +19087,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(385); + *--hp = obj_from_case(393); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18857,7 +19108,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(392); + *--hp = obj_from_case(400); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18879,7 +19130,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(397); + *--hp = obj_from_case(405); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -18907,7 +19158,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[5]; *--hp = r[7]; *--hp = r[4]; - *--hp = obj_from_case(428); + *--hp = obj_from_case(436); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -18945,7 +19196,7 @@ gs_codegen: /* k x l f s g k port */ } } -case 341: /* clo k obj */ +case 349: /* clo k obj */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18956,7 +19207,7 @@ case 341: /* clo k obj */ *--hp = r[3]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(342); + *--hp = obj_from_case(350); r[4] = (hendblk(3+1)); if (((((r[1]) == obj_from_bool(1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[5] = obj_from_void(oportputc(('t'), (r[2]))); @@ -18967,7 +19218,7 @@ case 341: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13050; + goto s_l_v13198; } else { if (((((r[1]) == obj_from_bool(0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[5] = obj_from_void(oportputc(('f'), (r[2]))); @@ -18978,7 +19229,7 @@ case 341: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13050; + goto s_l_v13198; } else { if (((((r[1]) == (mknull())) || ((is_flonum_obj(r[1])) && ((is_flonum_obj(mknull())) && (flonum_from_obj(r[1]) == flonum_from_obj(mknull()))))) && (1))) { r[5] = obj_from_void(oportputc(('n'), (r[2]))); @@ -18989,7 +19240,7 @@ case 341: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13050; + goto s_l_v13198; } else { (void)(oportputc((39), (r[2]))); r[0] = r[4]; @@ -19000,7 +19251,7 @@ case 341: /* clo k obj */ } } -case 342: /* clo ek . */ +case 350: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19008,7 +19259,7 @@ case 342: /* clo ek . */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v13050: /* ek . k port k */ +s_l_v13198: /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; @@ -19025,7 +19276,7 @@ s_l_v13050: /* ek . k port k */ goto jump; } -case 343: /* clo k id */ +case 351: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19040,7 +19291,7 @@ case 343: /* clo k id */ *--hp = r[5]; *--hp = r[4]; *--hp = r[0]; - *--hp = obj_from_case(344); + *--hp = obj_from_case(352); r[8] = (hendblk(3+1)); if (bool_from_obj(r[7])) { (void)(oportputc(('.'), (r[4]))); @@ -19049,7 +19300,7 @@ case 343: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(345); + *--hp = obj_from_case(353); r[9] = (hendblk(4+1)); r[0] = r[9]; r[1] = r[7]; @@ -19064,7 +19315,7 @@ case 343: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(346); + *--hp = obj_from_case(354); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; @@ -19079,7 +19330,7 @@ case 343: /* clo k id */ } } -case 344: /* clo ek . */ +case 352: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19104,7 +19355,7 @@ case 344: /* clo ek . */ goto jump; } -case 345: /* clo ek . */ +case 353: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19122,7 +19373,7 @@ case 345: /* clo ek . */ rc = 3; goto jump; -case 346: /* clo ek . */ +case 354: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19140,7 +19391,7 @@ case 346: /* clo ek . */ rc = 3; goto jump; -case 347: /* clo k id x */ +case 355: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -19158,7 +19409,7 @@ case 347: /* clo k id x */ *--hp = r[6]; *--hp = r[0]; *--hp = r[5]; - *--hp = obj_from_case(348); + *--hp = obj_from_case(356); r[9] = (hendblk(6+1)); r[10+0] = r[9]; r[10+1] = r[2]; @@ -19172,7 +19423,7 @@ case 347: /* clo k id x */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 348: /* clo ek . */ +case 356: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19189,7 +19440,7 @@ case 348: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(349); + *--hp = obj_from_case(357); r[9] = (hendblk(3+1)); if (bool_from_obj(r[8])) { (void)(oportputc(('.'), (r[4]))); @@ -19217,7 +19468,7 @@ case 348: /* clo ek . */ } } -case 349: /* clo ek . */ +case 357: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19242,7 +19493,7 @@ case 349: /* clo ek . */ goto jump; } -case 350: /* clo k id */ +case 358: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19256,7 +19507,7 @@ case 350: /* clo k id */ *--hp = r[4]; *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(351); + *--hp = obj_from_case(359); r[7] = (hendblk(3+1)); if (bool_from_obj(r[6])) { (void)(oportputc(('.'), (r[3]))); @@ -19281,7 +19532,7 @@ case 350: /* clo k id */ } } -case 351: /* clo ek . */ +case 359: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19306,7 +19557,7 @@ case 351: /* clo ek . */ goto jump; } -case 352: /* clo k exps */ +case 360: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19322,7 +19573,7 @@ case 352: /* clo k exps */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; - *--hp = obj_from_case(355); + *--hp = obj_from_case(363); r[8] = (hendblk(4+1)); r[9+0] = r[8]; r[9+1] = r[1]; @@ -19334,9 +19585,9 @@ case 352: /* clo k exps */ r[9+7] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12976; + goto s_loop_v13124; -case 353: /* clo k xl */ +case 361: /* clo k xl */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19346,7 +19597,7 @@ case 353: /* clo k xl */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_loop_v12976: /* k xl port g s f l k */ +s_loop_v13124: /* k xl port g s f l k */ if ((ispair((r[1])))) { r[8] = (cdr((r[1]))); r[8] = obj_from_bool(ispair((r[8]))); @@ -19362,13 +19613,13 @@ s_loop_v12976: /* k xl port g s f l k */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(353); + *--hp = obj_from_case(361); r[9] = (hendblk(6+1)); hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[9]; - *--hp = obj_from_case(354); + *--hp = obj_from_case(362); r[9] = (hendblk(3+1)); r[10+0] = r[9]; r[10+1] = (car((r[1]))); @@ -19391,7 +19642,7 @@ s_loop_v12976: /* k xl port g s f l k */ goto jump; } -case 354: /* clo ek . */ +case 362: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19408,7 +19659,7 @@ case 354: /* clo ek . */ rc = 3; goto jump; -case 355: /* clo ek . */ +case 363: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19434,7 +19685,7 @@ case 355: /* clo ek . */ goto jump; } -case 356: /* clo k test then else */ +case 364: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -19455,7 +19706,7 @@ case 356: /* clo k test then else */ *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(357); + *--hp = obj_from_case(365); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[1]; @@ -19469,7 +19720,7 @@ case 356: /* clo k test then else */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 357: /* clo ek . */ +case 365: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19495,7 +19746,7 @@ case 357: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(358); + *--hp = obj_from_case(366); r[11] = (hendblk(8+1)); r[12+0] = (r[11]); r[12+1] = r[2]; @@ -19509,7 +19760,7 @@ case 357: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 358: /* clo ek . */ +case 366: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19537,7 +19788,7 @@ case 358: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { - r[10] = obj_from_bool(isequal((r[6]), (cx__233520))); + r[10] = obj_from_bool(isequal((r[6]), (cx__233560))); if (bool_from_obj(r[10])) { r[0] = r[7]; pc = objptr_from_obj(r[0])[0]; @@ -19552,7 +19803,7 @@ case 358: /* clo ek . */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[7]; - *--hp = obj_from_case(359); + *--hp = obj_from_case(367); r[11] = (hendblk(2+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -19577,7 +19828,7 @@ case 358: /* clo ek . */ } } -case 359: /* clo ek . */ +case 367: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19593,7 +19844,7 @@ case 359: /* clo ek . */ rc = 3; goto jump; -case 360: /* clo k idsi exp */ +case 368: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -19614,13 +19865,13 @@ case 360: /* clo k idsi exp */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(361); + *--hp = obj_from_case(369); r[9] = (hendblk(9+1)); r[0] = r[9]; /* r[1] */ goto gs_flatten_2Didslist; -case 361: /* clo ek r */ +case 369: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19645,7 +19896,7 @@ case 361: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(362); + *--hp = obj_from_case(370); r[11] = (hendblk(10+1)); r[12+0] = (r[11]); r[12+1] = r[7]; @@ -19654,7 +19905,7 @@ case 361: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 362: /* clo ek r */ +case 370: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19680,14 +19931,14 @@ case 362: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(363); + *--hp = obj_from_case(371); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ r[2] = r[6]; goto gs_set_2Dminus; -case 363: /* clo ek r */ +case 371: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19714,14 +19965,14 @@ case 363: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(364); + *--hp = obj_from_case(372); r[12] = (hendblk(11+1)); r[0] = (r[12]); r[1] = r[8]; r[2] = r[7]; goto gs_find_2Dsets; -case 364: /* clo ek r */ +case 372: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19737,13 +19988,13 @@ case 364: /* clo ek r */ r[1+12] = p[11]; } r += 1; /* shift reg. wnd */ /* ek r f l idsi s g r r exp k k port */ - { fixnum_t v15356_tmp; + { fixnum_t v15559_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15356_tmp = (n); } + v15559_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15356_tmp); + obj l, o = mknull(); int c = (v15559_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -19760,7 +20011,7 @@ case 364: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(367); + *--hp = obj_from_case(375); r[14] = (hendblk(10+1)); r[15+0] = (r[14]); r[15+1] = (r[13]); @@ -19770,16 +20021,16 @@ case 364: /* clo ek r */ r[15+5] = (r[12]); r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12905; + goto s_loop_v13053; -case 365: /* clo k free l */ +case 373: /* clo k free l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; } r += 1; /* shift reg. wnd */ -s_loop_v12905: /* k free l g f port */ +s_loop_v13053: /* k free l g f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19793,7 +20044,7 @@ s_loop_v12905: /* k free l g f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(365); + *--hp = obj_from_case(373); r[6] = (hendblk(3+1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[5]; @@ -19801,7 +20052,7 @@ s_loop_v12905: /* k free l g f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(366); + *--hp = obj_from_case(374); r[6] = (hendblk(5+1)); r[7] = (car((r[1]))); { /* cons */ @@ -19829,7 +20080,7 @@ s_loop_v12905: /* k free l g f port */ goto gs_codegen; } -case 366: /* clo ek . */ +case 374: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19856,7 +20107,7 @@ case 366: /* clo ek . */ rc = 4; goto jump; -case 367: /* clo ek . */ +case 375: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19884,7 +20135,7 @@ case 367: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(368); + *--hp = obj_from_case(376); r[12] = (hendblk(10+1)); { /* length */ int n; obj l = r[6]; @@ -19895,7 +20146,7 @@ case 367: /* clo ek . */ r[2] = (r[11]); goto gs_write_2Dserialized_2Darg; -case 368: /* clo ek . */ +case 376: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19922,7 +20173,7 @@ case 368: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(369); + *--hp = obj_from_case(377); r[12] = (hendblk(9+1)); if ((islist((r[2])))) { (void)(oportputc(('%'), (r[11]))); @@ -19943,7 +20194,7 @@ case 368: /* clo ek . */ goto gs_write_2Dserialized_2Darg; } -case 369: /* clo ek . */ +case 377: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19968,7 +20219,7 @@ case 369: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(372); + *--hp = obj_from_case(380); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -19977,15 +20228,15 @@ case 369: /* clo ek . */ r[12+4] = r[3]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12880; + goto s_loop_v13028; -case 370: /* clo k ids n */ +case 378: /* clo k ids n */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v12880: /* k ids n port r */ +s_loop_v13028: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19998,14 +20249,14 @@ s_loop_v12880: /* k ids n port r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(370); + *--hp = obj_from_case(378); r[5] = (hendblk(2+1)); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[5]; - *--hp = obj_from_case(371); + *--hp = obj_from_case(379); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); @@ -20019,7 +20270,7 @@ s_loop_v12880: /* k ids n port r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(370); + *--hp = obj_from_case(378); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); @@ -20029,11 +20280,11 @@ s_loop_v12880: /* k ids n port r */ r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12882; + goto s_l_v13030; } } -case 371: /* clo ek . */ +case 379: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20042,7 +20293,7 @@ case 371: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v12882: /* ek . loop n ids k */ +s_l_v13030: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; @@ -20052,7 +20303,7 @@ s_l_v12882: /* ek . loop n ids k */ rc = 4; goto jump; -case 372: /* clo ek . */ +case 380: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20076,14 +20327,14 @@ case 372: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(373); + *--hp = obj_from_case(381); r[11] = (hendblk(8+1)); r[0] = (r[11]); r[1] = r[2]; r[2] = r[5]; goto gs_set_2Dintersect; -case 373: /* clo ek r */ +case 381: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20104,7 +20355,7 @@ case 373: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(374); + *--hp = obj_from_case(382); r[10] = (hendblk(7+1)); r[11+0] = (r[10]); r[11+1] = r[2]; @@ -20113,7 +20364,7 @@ case 373: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 374: /* clo ek r */ +case 382: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20129,7 +20380,7 @@ case 374: /* clo ek r */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; - *--hp = obj_from_case(375); + *--hp = obj_from_case(383); r[9] = (hendblk(3+1)); { /* length */ int n; obj l = r[4]; @@ -20147,7 +20398,7 @@ case 374: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 375: /* clo ek . */ +case 383: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20173,7 +20424,7 @@ case 375: /* clo ek . */ goto jump; } -case 376: /* clo k clauses */ +case 384: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20184,13 +20435,13 @@ case 376: /* clo k clauses */ r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* k clauses g s f l k port */ - { fixnum_t v15355_tmp; + { fixnum_t v15558_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15355_tmp = (n); } + v15558_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15355_tmp); + obj l, o = mknull(); int c = (v15558_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[1]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -20201,7 +20452,7 @@ case 376: /* clo k clauses */ *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(379); + *--hp = obj_from_case(387); r[9] = (hendblk(4+1)); r[10+0] = r[9]; r[10+1] = r[8]; @@ -20212,9 +20463,9 @@ case 376: /* clo k clauses */ r[10+6] = r[7]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12823; + goto s_loop_v12971; -case 377: /* clo k clauses l */ +case 385: /* clo k clauses l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20222,7 +20473,7 @@ case 377: /* clo k clauses l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12823: /* k clauses l g s f port */ +s_loop_v12971: /* k clauses l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20237,7 +20488,7 @@ s_loop_v12823: /* k clauses l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(377); + *--hp = obj_from_case(385); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -20245,7 +20496,7 @@ s_loop_v12823: /* k clauses l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(378); + *--hp = obj_from_case(386); r[7] = (hendblk(5+1)); r[8] = (car((r[1]))); r[9] = (cdr((r[8]))); @@ -20263,7 +20514,7 @@ s_loop_v12823: /* k clauses l g s f port */ goto gs_codegen; } -case 378: /* clo ek . */ +case 386: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20292,7 +20543,7 @@ case 378: /* clo ek . */ rc = 4; goto jump; -case 379: /* clo ek . */ +case 387: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20308,7 +20559,7 @@ case 379: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(380); + *--hp = obj_from_case(388); r[6] = (hendblk(4+1)); { /* length */ int n; obj l = r[2]; @@ -20319,7 +20570,7 @@ case 379: /* clo ek . */ r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 380: /* clo ek . */ +case 388: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20334,20 +20585,20 @@ case 380: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(384); + *--hp = obj_from_case(392); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; r[2] = obj_from_fixnum(+0); r[3] = r[5]; - goto s_loop_v12796; + goto s_loop_v12944; -case 381: /* clo k clauses i */ +case 389: /* clo k clauses i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v12796: /* k clauses i port */ +s_loop_v12944: /* k clauses i port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20366,7 +20617,7 @@ s_loop_v12796: /* k clauses i port */ (void)(bool_from_obj(r[6]) ? (void)(oportputc(('!'), (r[3]))) : (void)(0)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[3]; - *--hp = obj_from_case(381); + *--hp = obj_from_case(389); r[7] = (hendblk(1+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; @@ -20374,7 +20625,7 @@ s_loop_v12796: /* k clauses i port */ *--hp = r[2]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(382); + *--hp = obj_from_case(390); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[5]; @@ -20382,7 +20633,7 @@ s_loop_v12796: /* k clauses i port */ goto gs_write_2Dserialized_2Darg; } -case 382: /* clo ek . */ +case 390: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20398,14 +20649,14 @@ case 382: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(383); + *--hp = obj_from_case(391); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[4]; /* r[2] */ goto gs_write_2Dserialized_2Darg; -case 383: /* clo ek . */ +case 391: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20424,7 +20675,7 @@ case 383: /* clo ek . */ rc = 4; goto jump; -case 384: /* clo ek . */ +case 392: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20452,7 +20703,7 @@ case 384: /* clo ek . */ goto jump; } -case 385: /* clo k kid exp */ +case 393: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20480,14 +20731,14 @@ case 385: /* clo k kid exp */ *--hp = r[4]; *--hp = r[3]; *--hp = r[9]; - *--hp = obj_from_case(386); + *--hp = obj_from_case(394); r[10] = (hendblk(10+1)); r[0] = (r[10]); r[1] = r[2]; r[2] = r[9]; goto gs_find_2Dsets; -case 386: /* clo ek r */ +case 394: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20512,14 +20763,14 @@ case 386: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(387); + *--hp = obj_from_case(395); r[12] = (hendblk(9+1)); r[0] = (r[12]); r[1] = r[3]; /* r[2] */ goto gs_set_2Dminus; -case 387: /* clo ek r */ +case 395: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20543,14 +20794,14 @@ case 387: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(388); + *--hp = obj_from_case(396); r[11] = (hendblk(9+1)); r[0] = (r[11]); /* r[1] */ r[2] = r[8]; goto gs_set_2Dunion; -case 388: /* clo ek r */ +case 396: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20577,7 +20828,7 @@ case 388: /* clo ek r */ *--hp = r[1]; *--hp = r[2]; *--hp = (r[10]); - *--hp = obj_from_case(389); + *--hp = obj_from_case(397); r[11] = (hendblk(10+1)); r[0] = (r[11]); r[1] = (r[10]); @@ -20597,7 +20848,7 @@ case 388: /* clo ek r */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[6]; - *--hp = obj_from_case(390); + *--hp = obj_from_case(398); r[11] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ @@ -20630,7 +20881,7 @@ case 388: /* clo ek r */ goto gs_codegen; } -case 389: /* clo ek . */ +case 397: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20670,7 +20921,7 @@ case 389: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 390: /* clo ek . */ +case 398: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20682,14 +20933,14 @@ case 390: /* clo ek . */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(391); + *--hp = obj_from_case(399); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = obj_from_fixnum(+3); r[2] = r[3]; goto gs_write_2Dserialized_2Darg; -case 391: /* clo ek . */ +case 399: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20705,7 +20956,7 @@ case 391: /* clo ek . */ rc = 3; goto jump; -case 392: /* clo k kexp exp */ +case 400: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20717,7 +20968,7 @@ case 392: /* clo k kexp exp */ /* k kexp exp g s f l port */ r[8] = (car((r[2]))); { /* memq */ - obj x = (r[8]), l = (cx__233355); + obj x = (r[8]), l = (cx__233395); for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[8] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[8])) { @@ -20729,7 +20980,7 @@ case 392: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(393); + *--hp = obj_from_case(401); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = r[2]; @@ -20751,7 +21002,7 @@ case 392: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(395); + *--hp = obj_from_case(403); r[8] = (hendblk(7+1)); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -20784,7 +21035,7 @@ case 392: /* clo k kexp exp */ goto gs_codegen; } -case 393: /* clo ek . */ +case 401: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20801,7 +21052,7 @@ case 393: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(394); + *--hp = obj_from_case(402); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -20821,7 +21072,7 @@ case 393: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 394: /* clo ek . */ +case 402: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20839,7 +21090,7 @@ case 394: /* clo ek . */ rc = 3; goto jump; -case 395: /* clo ek . */ +case 403: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20856,7 +21107,7 @@ case 395: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(396); + *--hp = obj_from_case(404); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -20876,7 +21127,7 @@ case 395: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 396: /* clo ek . */ +case 404: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20892,7 +21143,7 @@ case 396: /* clo ek . */ rc = 3; goto jump; -case 397: /* clo k ig args */ +case 405: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20916,7 +21167,7 @@ case 397: /* clo k ig args */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(398); + *--hp = obj_from_case(406); r[10] = (hendblk(9+1)); r[11+0] = r[9]; pc = objptr_from_obj(r[11+0])[0]; @@ -20928,7 +21179,7 @@ case 397: /* clo k ig args */ rc = 4; goto jump; -case 398: /* clo ek r */ +case 406: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20956,7 +21207,7 @@ case 398: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(399); + *--hp = obj_from_case(407); r[12] = (hendblk(10+1)); r[0] = (r[11]); pc = objptr_from_obj(r[0])[0]; @@ -20966,7 +21217,7 @@ case 398: /* clo ek r */ rc = 3; goto jump; -case 399: /* clo ek r */ +case 407: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20985,16 +21236,16 @@ case 399: /* clo ek r */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; - *--hp = obj_from_case(400); + *--hp = obj_from_case(408); r[12] = (hendblk(3+1)); if (((((r[1]) == obj_from_char('0')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('1')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('2')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('3')) || ((is_flonum_obj(r[1])) && (0))) && (1)))))) { - { fixnum_t v15354_tmp; + { fixnum_t v15557_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15354_tmp = (n); } + v15557_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15354_tmp); + obj l, o = mknull(); int c = (v15557_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -21004,7 +21255,7 @@ case 399: /* clo ek r */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); - *--hp = obj_from_case(403); + *--hp = obj_from_case(411); r[14] = (hendblk(3+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -21013,7 +21264,7 @@ case 399: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12675; + goto s_loop_v12823; } else { if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((isnull((r[7])))) { @@ -21023,7 +21274,7 @@ case 399: /* clo ek r */ hreserve(hbsz(2+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = (r[12]); - *--hp = obj_from_case(404); + *--hp = obj_from_case(412); r[14] = (hendblk(2+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; @@ -21034,19 +21285,19 @@ case 399: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v15352_tmp; + { fixnum_t v15555_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15352_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v15352_tmp), (+1))); } - { fixnum_t v15353_tmp; + v15555_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v15555_tmp), (+1))); } + { fixnum_t v15556_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15353_tmp = (n); } + v15556_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15353_tmp); + obj l, o = mknull(); int c = (v15556_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -21057,7 +21308,7 @@ case 399: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(407); + *--hp = obj_from_case(415); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -21066,7 +21317,7 @@ case 399: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12650; + goto s_loop_v12798; } } else { if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { @@ -21084,7 +21335,7 @@ case 399: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(408); + *--hp = obj_from_case(416); r[14] = (hendblk(7+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; @@ -21095,19 +21346,19 @@ case 399: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v15350_tmp; + { fixnum_t v15553_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15350_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v15350_tmp), (+1))); } - { fixnum_t v15351_tmp; + v15553_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v15553_tmp), (+1))); } + { fixnum_t v15554_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15351_tmp = (n); } + v15554_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15351_tmp); + obj l, o = mknull(); int c = (v15554_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -21118,7 +21369,7 @@ case 399: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(412); + *--hp = obj_from_case(420); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -21127,23 +21378,23 @@ case 399: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12614; + goto s_loop_v12762; } } else { if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v15348_tmp; + { fixnum_t v15551_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15348_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v15348_tmp), (+1))); } - { fixnum_t v15349_tmp; + v15551_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v15551_tmp), (+1))); } + { fixnum_t v15552_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15349_tmp = (n); } + v15552_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15349_tmp); + obj l, o = mknull(); int c = (v15552_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -21159,7 +21410,7 @@ case 399: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(413); + *--hp = obj_from_case(421); r[15] = (hendblk(9+1)); r[16+0] = (r[15]); r[16+1] = (car((r[14]))); @@ -21174,19 +21425,19 @@ case 399: /* clo ek r */ goto gs_codegen; } else { if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v15346_tmp; + { fixnum_t v15549_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15346_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v15346_tmp), (+1))); } - { fixnum_t v15347_tmp; + v15549_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v15549_tmp), (+1))); } + { fixnum_t v15550_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15347_tmp = (n); } + v15550_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15347_tmp); + obj l, o = mknull(); int c = (v15550_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -21197,7 +21448,7 @@ case 399: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(419); + *--hp = obj_from_case(427); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -21206,14 +21457,14 @@ case 399: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12560; + goto s_loop_v12708; } else { if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { hreserve(hbsz(3+1), 13); /* 13 live regs */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); - *--hp = obj_from_case(420); + *--hp = obj_from_case(428); r[13] = (hendblk(3+1)); if ((isnull((r[7])))) { { /* define integrable-code */ @@ -21222,7 +21473,7 @@ case 399: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(421); + *--hp = obj_from_case(429); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -21256,7 +21507,7 @@ case 399: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(422); + *--hp = obj_from_case(430); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = obj_from_bool(isnull((r[14]))); @@ -21267,7 +21518,7 @@ case 399: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(424); + *--hp = obj_from_case(432); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -21294,13 +21545,13 @@ case 399: /* clo ek r */ } } else { if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v15345_tmp; + { fixnum_t v15548_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15345_tmp = (n); } + v15548_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15345_tmp); + obj l, o = mknull(); int c = (v15548_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -21311,7 +21562,7 @@ case 399: /* clo ek r */ *--hp = r[8]; *--hp = (r[12]); *--hp = r[7]; - *--hp = obj_from_case(427); + *--hp = obj_from_case(435); r[14] = (hendblk(4+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -21320,12 +21571,12 @@ case 399: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12506; + goto s_loop_v12654; } else { r[13+0] = (cx_c_2Derror); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); - r[13+2] = (cx__233078); + r[13+2] = (cx__233118); r[13+3] = r[1]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -21340,7 +21591,7 @@ case 399: /* clo ek r */ } } -case 400: /* clo ek . */ +case 408: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21365,7 +21616,7 @@ case 400: /* clo ek . */ goto jump; } -case 401: /* clo k args l */ +case 409: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21373,7 +21624,7 @@ case 401: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12675: /* k args l g s f port */ +s_loop_v12823: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -21388,7 +21639,7 @@ s_loop_v12675: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(401); + *--hp = obj_from_case(409); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -21396,7 +21647,7 @@ s_loop_v12675: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(402); + *--hp = obj_from_case(410); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -21411,7 +21662,7 @@ s_loop_v12675: /* k args l g s f port */ goto gs_codegen; } -case 402: /* clo ek . */ +case 410: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21444,7 +21695,7 @@ case 402: /* clo ek . */ rc = 4; goto jump; -case 403: /* clo ek . */ +case 411: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21461,7 +21712,7 @@ case 403: /* clo ek . */ rc = 3; goto jump; -case 404: /* clo ek r */ +case 412: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21477,7 +21728,7 @@ case 404: /* clo ek r */ rc = 3; goto jump; -case 405: /* clo k args l */ +case 413: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21485,7 +21736,7 @@ case 405: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12650: /* k args l g s f port */ +s_loop_v12798: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -21500,7 +21751,7 @@ s_loop_v12650: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(405); + *--hp = obj_from_case(413); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -21508,7 +21759,7 @@ s_loop_v12650: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(406); + *--hp = obj_from_case(414); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -21523,7 +21774,7 @@ s_loop_v12650: /* k args l g s f port */ goto gs_codegen; } -case 406: /* clo ek . */ +case 414: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21556,7 +21807,7 @@ case 406: /* clo ek . */ rc = 4; goto jump; -case 407: /* clo ek . */ +case 415: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21571,11 +21822,11 @@ case 407: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12641; + goto s_loop_v12789; -s_loop_v12641: /* k i r port opc */ - { const fixnum_t v15344_i = fixnum_from_obj(r[1]); - if (((v15344_i) >= fixnum_from_obj(r[4]))) { +s_loop_v12789: /* k i r port opc */ + { const fixnum_t v15547_i = fixnum_from_obj(r[1]); + if (((v15547_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -21586,14 +21837,14 @@ s_loop_v12641: /* k i r port opc */ } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v15344_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v15547_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12641; + goto s_loop_v12789; } } -case 408: /* clo ek r */ +case 416: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21609,7 +21860,7 @@ case 408: /* clo ek r */ *--hp = r[8]; *--hp = r[1]; *--hp = r[7]; - *--hp = obj_from_case(409); + *--hp = obj_from_case(417); r[9] = (hendblk(3+1)); r[10+0] = r[9]; r[10+1] = (car((r[6]))); @@ -21623,7 +21874,7 @@ case 408: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 409: /* clo ek . */ +case 417: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21640,7 +21891,7 @@ case 409: /* clo ek . */ rc = 3; goto jump; -case 410: /* clo k args l */ +case 418: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21648,7 +21899,7 @@ case 410: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12614: /* k args l g s f port */ +s_loop_v12762: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -21663,7 +21914,7 @@ s_loop_v12614: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(410); + *--hp = obj_from_case(418); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -21671,7 +21922,7 @@ s_loop_v12614: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(411); + *--hp = obj_from_case(419); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -21686,7 +21937,7 @@ s_loop_v12614: /* k args l g s f port */ goto gs_codegen; } -case 411: /* clo ek . */ +case 419: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21719,7 +21970,7 @@ case 411: /* clo ek . */ rc = 4; goto jump; -case 412: /* clo ek . */ +case 420: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21734,11 +21985,11 @@ case 412: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12605; + goto s_loop_v12753; -s_loop_v12605: /* k i r port opc */ - { const fixnum_t v15343_i = fixnum_from_obj(r[1]); - if (((v15343_i) >= fixnum_from_obj(r[4]))) { +s_loop_v12753: /* k i r port opc */ + { const fixnum_t v15546_i = fixnum_from_obj(r[1]); + if (((v15546_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -21749,14 +22000,14 @@ s_loop_v12605: /* k i r port opc */ } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v15343_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v15546_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12605; + goto s_loop_v12753; } } -case 413: /* clo ek . */ +case 421: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21784,7 +22035,7 @@ case 413: /* clo ek . */ *--hp = r[8]; *--hp = (r[10]); *--hp = r[7]; - *--hp = obj_from_case(416); + *--hp = obj_from_case(424); r[13] = (hendblk(4+1)); r[14+0] = (r[13]); r[14+1] = (r[11]); @@ -21795,9 +22046,9 @@ case 413: /* clo ek . */ r[14+6] = (r[10]); r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12586; + goto s_loop_v12734; -case 414: /* clo k args l */ +case 422: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21805,7 +22056,7 @@ case 414: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12586: /* k args l g s f port */ +s_loop_v12734: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -21820,7 +22071,7 @@ s_loop_v12586: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(414); + *--hp = obj_from_case(422); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -21828,7 +22079,7 @@ s_loop_v12586: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(415); + *--hp = obj_from_case(423); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -21843,7 +22094,7 @@ s_loop_v12586: /* k args l g s f port */ goto gs_codegen; } -case 415: /* clo ek . */ +case 423: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21883,7 +22134,7 @@ case 415: /* clo ek . */ rc = 4; goto jump; -case 416: /* clo ek . */ +case 424: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21898,11 +22149,11 @@ case 416: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12577; + goto s_loop_v12725; -s_loop_v12577: /* k i r port opc */ - { const fixnum_t v15342_i = fixnum_from_obj(r[1]); - if (((v15342_i) >= fixnum_from_obj(r[4]))) { +s_loop_v12725: /* k i r port opc */ + { const fixnum_t v15545_i = fixnum_from_obj(r[1]); + if (((v15545_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -21911,17 +22162,17 @@ s_loop_v12577: /* k i r port opc */ rc = 3; goto jump; } else { - (void)(((v15342_i) == 0) ? ((0) ? obj_from_bool(0) : obj_from_void(0)) : obj_from_void(oportputc((';'), (r[3])))); + (void)(((v15545_i) == 0) ? ((0) ? obj_from_bool(0) : obj_from_void(0)) : obj_from_void(oportputc((';'), (r[3])))); (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v15342_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v15545_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12577; + goto s_loop_v12725; } } -case 417: /* clo k args l */ +case 425: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21929,7 +22180,7 @@ case 417: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12560: /* k args l g s f port */ +s_loop_v12708: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -21944,7 +22195,7 @@ s_loop_v12560: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(417); + *--hp = obj_from_case(425); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -21952,7 +22203,7 @@ s_loop_v12560: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(418); + *--hp = obj_from_case(426); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -21967,7 +22218,7 @@ s_loop_v12560: /* k args l g s f port */ goto gs_codegen; } -case 418: /* clo ek . */ +case 426: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22000,7 +22251,7 @@ case 418: /* clo ek . */ rc = 4; goto jump; -case 419: /* clo ek . */ +case 427: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22015,11 +22266,11 @@ case 419: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12551; + goto s_loop_v12699; -s_loop_v12551: /* k i r port opc */ - { const fixnum_t v15341_i = fixnum_from_obj(r[1]); - if (((v15341_i) >= fixnum_from_obj(r[4]))) { +s_loop_v12699: /* k i r port opc */ + { const fixnum_t v15544_i = fixnum_from_obj(r[1]); + if (((v15544_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -22030,14 +22281,14 @@ s_loop_v12551: /* k i r port opc */ } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v15341_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v15544_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12551; + goto s_loop_v12699; } } -case 420: /* clo ek . */ +case 428: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22054,7 +22305,7 @@ case 420: /* clo ek . */ rc = 3; goto jump; -case 421: /* clo ek r */ +case 429: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22070,7 +22321,7 @@ case 421: /* clo ek r */ rc = 3; goto jump; -case 422: /* clo ek . */ +case 430: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22089,7 +22340,7 @@ case 422: /* clo ek . */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(423); + *--hp = obj_from_case(431); r[10] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ @@ -22109,7 +22360,7 @@ case 422: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 423: /* clo ek . */ +case 431: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22126,7 +22377,7 @@ case 423: /* clo ek . */ rc = 3; goto jump; -case 424: /* clo ek r */ +case 432: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22142,7 +22393,7 @@ case 424: /* clo ek r */ rc = 3; goto jump; -case 425: /* clo k args l */ +case 433: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22150,7 +22401,7 @@ case 425: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12506: /* k args l g s f port */ +s_loop_v12654: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22165,7 +22416,7 @@ s_loop_v12506: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(425); + *--hp = obj_from_case(433); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -22173,7 +22424,7 @@ s_loop_v12506: /* k args l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(426); + *--hp = obj_from_case(434); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -22188,7 +22439,7 @@ s_loop_v12506: /* k args l g s f port */ goto gs_codegen; } -case 426: /* clo ek . */ +case 434: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22215,7 +22466,7 @@ case 426: /* clo ek . */ rc = 4; goto jump; -case 427: /* clo ek . */ +case 435: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22235,7 +22486,7 @@ case 427: /* clo ek . */ r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 428: /* clo k exp args */ +case 436: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22253,19 +22504,19 @@ case 428: /* clo k exp args */ r[9] = (car((r[9]))); r[9] = obj_from_bool(islist((r[9]))); if (bool_from_obj(r[9])) { - { fixnum_t v15340_tmp; - { fixnum_t v15339_tmp; + { fixnum_t v15543_tmp; + { fixnum_t v15542_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15340_tmp = (n); } + v15543_tmp = (n); } r[9] = (cdr((r[1]))); r[9] = (car((r[9]))); { /* length */ int n; obj l = r[9]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15339_tmp = (n); } - r[9] = obj_from_bool((v15340_tmp) == (v15339_tmp)); } } + v15542_tmp = (n); } + r[9] = obj_from_bool((v15543_tmp) == (v15542_tmp)); } } } else { r[9] = obj_from_bool(0); } @@ -22273,13 +22524,13 @@ case 428: /* clo k exp args */ r[9] = obj_from_bool(0); } if (bool_from_obj(r[9])) { - { fixnum_t v15338_tmp; + { fixnum_t v15541_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15338_tmp = (n); } + v15541_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15338_tmp); + obj l, o = mknull(); int c = (v15541_tmp); hreserve(hbsz(3)*c, 9); /* 9 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -22295,7 +22546,7 @@ case 428: /* clo k exp args */ *--hp = r[2]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(431); + *--hp = obj_from_case(439); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[9]; @@ -22306,16 +22557,16 @@ case 428: /* clo k exp args */ r[11+6] = r[4]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12475; + goto s_loop_v12623; } else { if (bool_from_obj(r[7])) { - { fixnum_t v15337_tmp; + { fixnum_t v15540_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15337_tmp = (n); } + v15540_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15337_tmp); + obj l, o = mknull(); int c = (v15540_tmp); hreserve(hbsz(3)*c, 9); /* 9 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -22326,7 +22577,7 @@ case 428: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(441); + *--hp = obj_from_case(449); r[10] = (hendblk(4+1)); r[11+0] = (r[10]); r[11+1] = r[9]; @@ -22338,17 +22589,17 @@ case 428: /* clo k exp args */ r[11+7] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12413; + goto s_loop_v12561; } else { (void)(oportputc((36), (r[4]))); (void)(oportputc(('{'), (r[4]))); - { fixnum_t v15336_tmp; + { fixnum_t v15539_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15336_tmp = (n); } + v15539_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15336_tmp); + obj l, o = mknull(); int c = (v15539_tmp); hreserve(hbsz(3)*c, 9); /* 9 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -22370,7 +22621,7 @@ case 428: /* clo k exp args */ *--hp = r[4]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(445); + *--hp = obj_from_case(453); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[9]; @@ -22382,11 +22633,11 @@ case 428: /* clo k exp args */ r[12+7] = r[1]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12388; + goto s_loop_v12536; } } -case 429: /* clo k args l */ +case 437: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22394,7 +22645,7 @@ case 429: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12475: /* k args l g s f port */ +s_loop_v12623: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22409,7 +22660,7 @@ s_loop_v12475: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(429); + *--hp = obj_from_case(437); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -22417,7 +22668,7 @@ s_loop_v12475: /* k args l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(430); + *--hp = obj_from_case(438); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -22432,7 +22683,7 @@ s_loop_v12475: /* k args l g s f port */ goto gs_codegen; } -case 430: /* clo ek . */ +case 438: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22459,7 +22710,7 @@ case 430: /* clo ek . */ rc = 4; goto jump; -case 431: /* clo ek . */ +case 439: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22490,14 +22741,14 @@ case 431: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(432); + *--hp = obj_from_case(440); r[13] = (hendblk(10+1)); r[0] = (r[13]); r[1] = (r[12]); r[2] = (r[11]); goto gs_find_2Dsets; -case 432: /* clo ek r */ +case 440: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22523,14 +22774,14 @@ case 432: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(433); + *--hp = obj_from_case(441); r[12] = (hendblk(10+1)); r[0] = (r[12]); r[1] = r[2]; r[2] = (r[11]); goto gs_set_2Dminus; -case 433: /* clo ek r */ +case 441: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22556,14 +22807,14 @@ case 433: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(434); + *--hp = obj_from_case(442); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ /* r[2] */ goto gs_set_2Dunion; -case 434: /* clo ek r */ +case 442: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22578,13 +22829,13 @@ case 434: /* clo ek r */ r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek r r port args g f exp k k l ids */ - { fixnum_t v15335_tmp; + { fixnum_t v15538_tmp; { /* length */ int n; obj l = (r[11]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15335_tmp = (n); } + v15538_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15335_tmp); + obj t, l, o, *p, *d; int c = (v15538_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = (r[11]); t = (r[10]); /* gc-safe */ o = t; p = &o; @@ -22603,7 +22854,7 @@ case 434: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(437); + *--hp = obj_from_case(445); r[13] = (hendblk(9+1)); r[14+0] = (r[13]); r[14+1] = (r[11]); @@ -22612,15 +22863,15 @@ case 434: /* clo ek r */ r[14+4] = r[2]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12446; + goto s_loop_v12594; -case 435: /* clo k ids n */ +case 443: /* clo k ids n */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v12446: /* k ids n port r */ +s_loop_v12594: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22633,14 +22884,14 @@ s_loop_v12446: /* k ids n port r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(435); + *--hp = obj_from_case(443); r[5] = (hendblk(2+1)); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[5]; - *--hp = obj_from_case(436); + *--hp = obj_from_case(444); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); @@ -22654,7 +22905,7 @@ s_loop_v12446: /* k ids n port r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(435); + *--hp = obj_from_case(443); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); @@ -22664,11 +22915,11 @@ s_loop_v12446: /* k ids n port r */ r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12448; + goto s_l_v12596; } } -case 436: /* clo ek . */ +case 444: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22677,7 +22928,7 @@ case 436: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v12448: /* ek . loop n ids k */ +s_l_v12596: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; @@ -22687,7 +22938,7 @@ s_l_v12448: /* ek . loop n ids k */ rc = 4; goto jump; -case 437: /* clo ek . */ +case 445: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22703,12 +22954,12 @@ case 437: /* clo ek . */ r += 1; /* shift reg. wnd */ /* ek . port args g r f newl exp k k */ if (bool_from_obj(r[10])) { - { fixnum_t v15334_tmp; + { fixnum_t v15537_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15334_tmp = (n); } - r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v15334_tmp))); } + v15537_tmp = (n); } + r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v15537_tmp))); } r[12+0] = r[9]; r[12+1] = r[8]; r[12+2] = r[7]; @@ -22725,7 +22976,7 @@ case 437: /* clo ek . */ *--hp = r[2]; *--hp = r[9]; *--hp = r[3]; - *--hp = obj_from_case(438); + *--hp = obj_from_case(446); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[8]; @@ -22740,7 +22991,7 @@ case 437: /* clo ek . */ goto gs_codegen; } -case 438: /* clo ek . */ +case 446: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22759,7 +23010,7 @@ case 438: /* clo ek . */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 439: /* clo k args l */ +case 447: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22768,7 +23019,7 @@ case 439: /* clo k args l */ r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ -s_loop_v12413: /* k args l port g s f exp */ +s_loop_v12561: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; @@ -22788,7 +23039,7 @@ s_loop_v12413: /* k args l port g s f exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(439); + *--hp = obj_from_case(447); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; @@ -22796,7 +23047,7 @@ s_loop_v12413: /* k args l port g s f exp */ *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; - *--hp = obj_from_case(440); + *--hp = obj_from_case(448); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); @@ -22811,7 +23062,7 @@ s_loop_v12413: /* k args l port g s f exp */ goto gs_codegen; } -case 440: /* clo ek . */ +case 448: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22838,7 +23089,7 @@ case 440: /* clo ek . */ rc = 4; goto jump; -case 441: /* clo ek . */ +case 449: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22853,14 +23104,14 @@ case 441: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[5]; - *--hp = obj_from_case(442); + *--hp = obj_from_case(450); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 442: /* clo ek . */ +case 450: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22878,7 +23129,7 @@ case 442: /* clo ek . */ /* r[2] */ goto gs_write_2Dserialized_2Darg; -case 443: /* clo k args l */ +case 451: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22887,7 +23138,7 @@ case 443: /* clo k args l */ r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ -s_loop_v12388: /* k args l port g s f exp */ +s_loop_v12536: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; @@ -22907,7 +23158,7 @@ s_loop_v12388: /* k args l port g s f exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(443); + *--hp = obj_from_case(451); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; @@ -22915,7 +23166,7 @@ s_loop_v12388: /* k args l port g s f exp */ *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; - *--hp = obj_from_case(444); + *--hp = obj_from_case(452); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); @@ -22930,7 +23181,7 @@ s_loop_v12388: /* k args l port g s f exp */ goto gs_codegen; } -case 444: /* clo ek . */ +case 452: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22957,7 +23208,7 @@ case 444: /* clo ek . */ rc = 4; goto jump; -case 445: /* clo ek . */ +case 453: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22971,14 +23222,14 @@ case 445: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(446); + *--hp = obj_from_case(454); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = obj_from_fixnum(+0); r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 446: /* clo ek . */ +case 454: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22990,7 +23241,7 @@ case 446: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(447); + *--hp = obj_from_case(455); r[5] = (hendblk(2+1)); { /* length */ int n; obj l = r[2]; @@ -23001,7 +23252,7 @@ case 446: /* clo ek . */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 447: /* clo ek . */ +case 455: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23017,7 +23268,7 @@ case 447: /* clo ek . */ rc = 3; goto jump; -case 448: /* compile-to-string k x */ +case 456: /* compile-to-string k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -23027,14 +23278,14 @@ case 448: /* compile-to-string k x */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(449); + *--hp = obj_from_case(457); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 449: /* clo ek r */ +case 457: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23045,7 +23296,7 @@ case 449: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(450); + *--hp = obj_from_case(458); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -23059,7 +23310,7 @@ case 449: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 450: /* clo ek . */ +case 458: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23081,7 +23332,7 @@ case 450: /* clo ek . */ rc = 3; goto jump; -case 451: /* execute k code */ +case 459: /* execute k code */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_execute: /* k code */ @@ -23090,7 +23341,7 @@ gs_execute: /* k code */ r[2] = obj_from_objptr(c); } hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(452); + *--hp = obj_from_case(460); r[3] = (hendblk(1+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -23101,7 +23352,7 @@ gs_execute: /* k code */ rc = 3; goto jump; -case 452: /* clo ek r */ +case 460: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -23119,13 +23370,13 @@ case 452: /* clo ek r */ rc = 3; goto jump; -case 453: /* evaluate k x */ +case 461: /* evaluate k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_evaluate: /* k x */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(454); + *--hp = obj_from_case(462); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -23137,7 +23388,7 @@ gs_evaluate: /* k x */ rc = 4; goto jump; -case 454: /* clo ek r */ +case 462: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -23149,14 +23400,14 @@ case 454: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(455); + *--hp = obj_from_case(463); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 455: /* clo ek r */ +case 463: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23167,7 +23418,7 @@ case 455: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(456); + *--hp = obj_from_case(464); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -23181,7 +23432,7 @@ case 455: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 456: /* clo ek . */ +case 464: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23200,7 +23451,7 @@ case 456: /* clo ek . */ r[5] = obj_from_objptr(c); } hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; - *--hp = obj_from_case(457); + *--hp = obj_from_case(465); r[6] = (hendblk(1+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -23210,7 +23461,7 @@ case 456: /* clo ek . */ rc = 3; goto jump; -case 457: /* clo ek r */ +case 465: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -23220,7 +23471,7 @@ case 457: /* clo ek r */ /* r[1] */ goto gs_execute; -case 458: /* display-code k cstr oport */ +case 466: /* display-code k cstr oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_display_2Dcode: /* k cstr oport */ @@ -23231,17 +23482,17 @@ gs_display_2Dcode: /* k cstr oport */ r[3+4] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12293; + goto s_loop_v12441; -s_loop_v12293: /* k i l cstr oport */ - { const fixnum_t v15333_i = fixnum_from_obj(r[1]); - if (((fxsub(fixnum_from_obj(r[2]), (v15333_i))) <= (+70))) { - (void)(oportputcircular((cx__233686), (r[4]), 1)); +s_loop_v12441: /* k i l cstr oport */ + { const fixnum_t v15536_i = fixnum_from_obj(r[1]); + if (((fxsub(fixnum_from_obj(r[2]), (v15536_i))) <= (+70))) { + (void)(oportputcircular((cx__233726), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v15333_i), fixnum_from_obj(r[2])); + int *d = substring(stringdata((r[3])), (v15536_i), fixnum_from_obj(r[2])); r[5] = (hpushstr(5, d)); } (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - r[5] = obj_from_void(oportputcircular((cx__233690), (r[4]), 1)); + r[5] = obj_from_void(oportputcircular((cx__233730), (r[4]), 1)); /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -23250,21 +23501,21 @@ s_loop_v12293: /* k i l cstr oport */ rc = 3; goto jump; } else { - (void)(oportputcircular((cx__233686), (r[4]), 1)); + (void)(oportputcircular((cx__233726), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v15333_i), (fxadd((v15333_i), (+70)))); + int *d = substring(stringdata((r[3])), (v15536_i), (fxadd((v15536_i), (+70)))); r[5] = (hpushstr(5, d)); } (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - (void)(oportputcircular((cx__233681), (r[4]), 1)); + (void)(oportputcircular((cx__233721), (r[4]), 1)); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v15333_i), (+70))); + r[1] = obj_from_fixnum(fxadd((v15536_i), (+70))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12293; + goto s_loop_v12441; } } -case 459: /* process-define-syntax k id xval oport */ +case 467: /* process-define-syntax k id xval oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_process_2Ddefine_2Dsyntax: /* k id xval oport */ @@ -23272,26 +23523,26 @@ gs_process_2Ddefine_2Dsyntax: /* k id xval oport */ *--hp = r[2]; r[4] = (hendblk(1)); (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233686), (r[3]), 1)); + (void)(oportputcircular((cx__233726), (r[3]), 1)); (void)(oportputcircular((r[1]), (r[3]), 1)); - (void)(oportputcircular((cx__233752), (r[3]), 1)); + (void)(oportputcircular((cx__233792), (r[3]), 1)); r[5] = (objptr_from_obj(r[4])[0]); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(463); + *--hp = obj_from_case(471); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[5]; goto s_hack; -case 460: /* clo k v */ +case 468: /* clo k v */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_hack: /* k v */ hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(460); + *--hp = obj_from_case(468); r[2] = (hendblk(0+1)); if ((isprocedure((r[1])))) { /* r[0] */ @@ -23317,7 +23568,7 @@ s_hack: /* k v */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(461); + *--hp = obj_from_case(469); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; @@ -23335,7 +23586,7 @@ s_hack: /* k v */ } } -case 461: /* clo ek r */ +case 469: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23346,7 +23597,7 @@ case 461: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(462); + *--hp = obj_from_case(470); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -23356,7 +23607,7 @@ case 461: /* clo ek r */ rc = 3; goto jump; -case 462: /* clo ek r */ +case 470: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23378,7 +23629,7 @@ case 462: /* clo ek r */ rc = 3; goto jump; -case 463: /* clo ek r */ +case 471: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23425,7 +23676,7 @@ case 463: /* clo ek r */ { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; - *--hp = (cx__233726); + *--hp = (cx__233766); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ @@ -23455,14 +23706,14 @@ case 463: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[5]; - *--hp = obj_from_case(464); + *--hp = obj_from_case(472); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[5]; goto gs_write_2Dserialized_2Dsexp; -case 464: /* clo ek . */ +case 472: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23474,7 +23725,7 @@ case 464: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(465); + *--hp = obj_from_case(473); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); @@ -23487,7 +23738,7 @@ case 464: /* clo ek . */ r[2] = r[4]; goto gs_display_2Dcode; -case 465: /* clo ek . */ +case 473: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23503,7 +23754,7 @@ case 465: /* clo ek . */ rc = 3; goto jump; -case 466: /* process-statement k xval oport */ +case 474: /* process-statement k xval oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k xval oport */ @@ -23518,14 +23769,14 @@ case 466: /* process-statement k xval oport */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(467); + *--hp = obj_from_case(475); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 467: /* clo ek r */ +case 475: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23540,7 +23791,7 @@ case 467: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(468); + *--hp = obj_from_case(476); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -23554,7 +23805,7 @@ case 467: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 468: /* clo ek . */ +case 476: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23572,18 +23823,18 @@ case 468: /* clo ek . */ r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233763), (r[3]), 1)); + (void)(oportputcircular((cx__233803), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(469); + *--hp = obj_from_case(477); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; -case 469: /* clo ek . */ +case 477: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23599,7 +23850,7 @@ case 469: /* clo ek . */ rc = 3; goto jump; -case 470: /* process-define k id xlam oport */ +case 478: /* process-define k id xlam oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k id xlam oport */ @@ -23632,14 +23883,14 @@ case 470: /* process-define k id xlam oport */ *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; - *--hp = obj_from_case(471); + *--hp = obj_from_case(479); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[4]; r[2] = (mknull()); goto gs_find_2Dfree; -case 471: /* clo ek r */ +case 479: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23654,7 +23905,7 @@ case 471: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(472); + *--hp = obj_from_case(480); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -23668,7 +23919,7 @@ case 471: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 472: /* clo ek . */ +case 480: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23686,18 +23937,18 @@ case 472: /* clo ek . */ r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233763), (r[3]), 1)); + (void)(oportputcircular((cx__233803), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(473); + *--hp = obj_from_case(481); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; -case 473: /* clo ek . */ +case 481: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23713,7 +23964,7 @@ case 473: /* clo ek . */ rc = 3; goto jump; -case 474: /* scan-top-form k x */ +case 482: /* scan-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_scan_2Dtop_2Dform: /* k x */ @@ -23733,10 +23984,10 @@ gs_scan_2Dtop_2Dform: /* k x */ if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (car((r[2]))); - r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233814)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233854)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(475); + *--hp = obj_from_case(483); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -23745,12 +23996,12 @@ gs_scan_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12154; + goto s_l_v12302; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233818); + r[5+2] = (cx__233858); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -23762,7 +24013,7 @@ gs_scan_2Dtop_2Dform: /* k x */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(481); + *--hp = obj_from_case(489); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -23785,16 +24036,16 @@ gs_scan_2Dtop_2Dform: /* k x */ } } -case 475: /* clo ek r */ +case 483: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_l_v12154: /* ek r k */ +s_l_v12302: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(476); + *--hp = obj_from_case(484); r[3] = (hendblk(2+1)); r[4+0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[4+0])[0]; @@ -23805,7 +24056,7 @@ s_l_v12154: /* ek r k */ rc = 3; goto jump; -case 476: /* clo ek r */ +case 484: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23815,19 +24066,19 @@ case 476: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(480); + *--hp = obj_from_case(488); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v12163; + goto s_loop_v12311; -case 477: /* clo k x */ +case 485: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v12163: /* k x r */ +s_loop_v12311: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -23839,20 +24090,20 @@ s_loop_v12163: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(477); + *--hp = obj_from_case(485); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(478); + *--hp = obj_from_case(486); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 478: /* clo ek . */ +case 486: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23864,7 +24115,7 @@ case 478: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(479); + *--hp = obj_from_case(487); r[5] = (hendblk(2+1)); r[0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[0])[0]; @@ -23874,7 +24125,7 @@ case 478: /* clo ek . */ rc = 3; goto jump; -case 479: /* clo ek r */ +case 487: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23890,7 +24141,7 @@ case 479: /* clo ek r */ rc = 3; goto jump; -case 480: /* clo ek . */ +case 488: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23906,7 +24157,7 @@ case 480: /* clo ek . */ rc = 3; goto jump; -case 481: /* clo ek r */ +case 489: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23917,13 +24168,13 @@ case 481: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v12138; + goto s_loop_v12286; } else { if (((r[1]) == (mksymbol(internsym("define-syntax"))))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(484); + *--hp = obj_from_case(492); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -23941,7 +24192,7 @@ case 481: /* clo ek r */ if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(486); + *--hp = obj_from_case(494); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -23963,19 +24214,19 @@ case 481: /* clo ek r */ } } -case 482: /* clo k l */ +case 490: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v12138: /* k l */ +s_loop_v12286: /* k l */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(482); + *--hp = obj_from_case(490); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(483); + *--hp = obj_from_case(491); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -23991,7 +24242,7 @@ s_loop_v12138: /* k l */ goto jump; } -case 483: /* clo ek . */ +case 491: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24008,7 +24259,7 @@ case 483: /* clo ek . */ rc = 3; goto jump; -case 484: /* clo ek r */ +case 492: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24020,13 +24271,13 @@ case 484: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(485); + *--hp = obj_from_case(493); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 485: /* clo ek r */ +case 493: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24042,7 +24293,7 @@ case 485: /* clo ek r */ rc = 3; goto jump; -case 486: /* clo ek r */ +case 494: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -24052,7 +24303,7 @@ case 486: /* clo ek r */ /* r[1] */ goto gs_scan_2Dtop_2Dform; -case 487: /* process-top-form k x oport */ +case 495: /* process-top-form k x oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_process_2Dtop_2Dform: /* k x oport */ @@ -24072,10 +24323,10 @@ gs_process_2Dtop_2Dform: /* k x oport */ if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); - r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233814)))); + r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233854)))); hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; - *--hp = obj_from_case(488); + *--hp = obj_from_case(496); r[5] = (hendblk(1+1)); if (bool_from_obj(r[4])) { r[6] = (mkiport_file(6, (void*)((r[4])))); @@ -24084,12 +24335,12 @@ gs_process_2Dtop_2Dform: /* k x oport */ r[7+2] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12076; + goto s_l_v12224; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; - r[2] = (cx__233818); + r[2] = (cx__233858); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -24101,7 +24352,7 @@ gs_process_2Dtop_2Dform: /* k x oport */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(494); + *--hp = obj_from_case(502); r[3] = (hendblk(3+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -24116,7 +24367,7 @@ gs_process_2Dtop_2Dform: /* k x oport */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(508); + *--hp = obj_from_case(516); r[3] = (hendblk(2+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -24130,16 +24381,16 @@ gs_process_2Dtop_2Dform: /* k x oport */ } } -case 488: /* clo ek r */ +case 496: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_l_v12076: /* ek r k */ +s_l_v12224: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(489); + *--hp = obj_from_case(497); r[3] = (hendblk(2+1)); r[4+0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[4+0])[0]; @@ -24150,7 +24401,7 @@ s_l_v12076: /* ek r k */ rc = 3; goto jump; -case 489: /* clo ek r */ +case 497: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24160,19 +24411,19 @@ case 489: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(493); + *--hp = obj_from_case(501); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v12085; + goto s_loop_v12233; -case 490: /* clo k x */ +case 498: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v12085: /* k x r */ +s_loop_v12233: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -24184,20 +24435,20 @@ s_loop_v12085: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(490); + *--hp = obj_from_case(498); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(491); + *--hp = obj_from_case(499); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 491: /* clo ek . */ +case 499: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24209,7 +24460,7 @@ case 491: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(492); + *--hp = obj_from_case(500); r[5] = (hendblk(2+1)); r[0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[0])[0]; @@ -24219,7 +24470,7 @@ case 491: /* clo ek . */ rc = 3; goto jump; -case 492: /* clo ek r */ +case 500: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24235,7 +24486,7 @@ case 492: /* clo ek r */ rc = 3; goto jump; -case 493: /* clo ek . */ +case 501: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24251,7 +24502,7 @@ case 493: /* clo ek . */ rc = 3; goto jump; -case 494: /* clo ek r */ +case 502: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24264,14 +24515,14 @@ case 494: /* clo ek r */ r[0] = r[4]; r[1] = r[5]; /* r[2] */ - goto s_loop_v12060; + goto s_loop_v12208; } else { if (((r[1]) == (mksymbol(internsym("define-syntax"))))) { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(497); + *--hp = obj_from_case(505); r[5] = (hendblk(3+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -24290,7 +24541,7 @@ case 494: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(499); + *--hp = obj_from_case(507); r[5] = (hendblk(3+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -24308,7 +24559,7 @@ case 494: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(503); + *--hp = obj_from_case(511); r[5] = (hendblk(2+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -24322,7 +24573,7 @@ case 494: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(504); + *--hp = obj_from_case(512); r[5] = (hendblk(2+1)); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; @@ -24337,22 +24588,22 @@ case 494: /* clo ek r */ } } -case 495: /* clo k x* */ +case 503: /* clo k x* */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v12060: /* k x* oport */ +s_loop_v12208: /* k x* oport */ if ((ispair((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(495); + *--hp = obj_from_case(503); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(496); + *--hp = obj_from_case(504); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -24368,7 +24619,7 @@ s_loop_v12060: /* k x* oport */ goto jump; } -case 496: /* clo ek . */ +case 504: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24385,7 +24636,7 @@ case 496: /* clo ek . */ rc = 3; goto jump; -case 497: /* clo ek r */ +case 505: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24400,13 +24651,13 @@ case 497: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(498); + *--hp = obj_from_case(506); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[5]; goto gs_top_2Dtransformer_2Denv; -case 498: /* clo ek r */ +case 506: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24445,7 +24696,7 @@ case 498: /* clo ek r */ goto gs_process_2Ddefine_2Dsyntax; } -case 499: /* clo ek r */ +case 507: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24484,14 +24735,14 @@ case 499: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(500); + *--hp = obj_from_case(508); r[9] = (hendblk(5+1)); r[0] = r[9]; r[1] = r[6]; r[2] = (mknull()); goto gs_find_2Dfree; -case 500: /* clo ek r */ +case 508: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24506,7 +24757,7 @@ case 500: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(501); + *--hp = obj_from_case(509); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -24520,7 +24771,7 @@ case 500: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 501: /* clo ek . */ +case 509: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24538,18 +24789,18 @@ case 501: /* clo ek . */ r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233763), (r[3]), 1)); + (void)(oportputcircular((cx__233803), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(502); + *--hp = obj_from_case(510); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; -case 502: /* clo ek . */ +case 510: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24565,7 +24816,7 @@ case 502: /* clo ek . */ rc = 3; goto jump; -case 503: /* clo ek r */ +case 511: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24577,7 +24828,7 @@ case 503: /* clo ek r */ /* r[2] */ goto gs_process_2Dtop_2Dform; -case 504: /* clo ek r */ +case 512: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24595,14 +24846,14 @@ case 504: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(505); + *--hp = obj_from_case(513); r[6] = (hendblk(5+1)); r[0] = r[6]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 505: /* clo ek r */ +case 513: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24617,7 +24868,7 @@ case 505: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(506); + *--hp = obj_from_case(514); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -24631,7 +24882,7 @@ case 505: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 506: /* clo ek . */ +case 514: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24649,18 +24900,18 @@ case 506: /* clo ek . */ r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233763), (r[3]), 1)); + (void)(oportputcircular((cx__233803), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(507); + *--hp = obj_from_case(515); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; -case 507: /* clo ek . */ +case 515: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24676,7 +24927,7 @@ case 507: /* clo ek . */ rc = 3; goto jump; -case 508: /* clo ek r */ +case 516: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24694,14 +24945,14 @@ case 508: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(509); + *--hp = obj_from_case(517); r[6] = (hendblk(5+1)); r[0] = r[6]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 509: /* clo ek r */ +case 517: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24716,7 +24967,7 @@ case 509: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(510); + *--hp = obj_from_case(518); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -24730,7 +24981,7 @@ case 509: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 510: /* clo ek . */ +case 518: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24748,18 +24999,18 @@ case 510: /* clo ek . */ r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233763), (r[3]), 1)); + (void)(oportputcircular((cx__233803), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(511); + *--hp = obj_from_case(519); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; -case 511: /* clo ek . */ +case 519: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24775,7 +25026,7 @@ case 511: /* clo ek . */ rc = 3; goto jump; -case 512: /* path-strip-directory k filename */ +case 520: /* path-strip-directory k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Ddirectory: /* k filename */ @@ -24787,13 +25038,13 @@ gs_path_2Dstrip_2Ddirectory: /* k filename */ while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]); *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); } r[2] = (l); } - { fixnum_t v15332_tmp; + { fixnum_t v15535_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15332_tmp = (n); } + v15535_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15332_tmp); + obj l, o = mknull(); int c = (v15535_tmp); hreserve(hbsz(3)*c, 3); /* 3 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -24802,17 +25053,17 @@ gs_path_2Dstrip_2Ddirectory: /* k filename */ /* r[0] */ r[1] = r[2]; r[2] = (mknull()); - goto s_loop_v11955; + goto s_loop_v12103; -s_loop_v11955: /* k l r */ +s_loop_v12103: /* k l r */ if ((isnull((r[1])))) { - { fixnum_t v15331_tmp; + { fixnum_t v15534_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15331_tmp = (n); } + v15534_tmp = (n); } { /* list->string */ - int i, c = (v15331_tmp); + int i, c = (v15534_tmp); obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ obj l = r[2]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -24827,15 +25078,15 @@ s_loop_v11955: /* k l r */ goto jump; } else { r[3] = (car((r[1]))); - r[3] = (ismemv((r[3]), (cx__233928))); + r[3] = (ismemv((r[3]), (cx__233968))); if (bool_from_obj(r[3])) { - { fixnum_t v15330_tmp; + { fixnum_t v15533_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15330_tmp = (n); } + v15533_tmp = (n); } { /* list->string */ - int i, c = (v15330_tmp); + int i, c = (v15533_tmp); obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ obj l = r[2]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -24860,11 +25111,11 @@ s_loop_v11955: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v11955; + goto s_loop_v12103; } } -case 513: /* path-strip-extension k filename */ +case 521: /* path-strip-extension k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Dextension: /* k filename */ @@ -24876,13 +25127,13 @@ gs_path_2Dstrip_2Dextension: /* k filename */ while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]); *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); } r[2] = (l); } - { fixnum_t v15327_tmp; + { fixnum_t v15530_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15327_tmp = (n); } + v15530_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15327_tmp); + obj l, o = mknull(); int c = (v15530_tmp); hreserve(hbsz(3)*c, 3); /* 3 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -24891,25 +25142,25 @@ gs_path_2Dstrip_2Dextension: /* k filename */ r[3] = (ismemv(obj_from_char('.'), (r[2]))); if (bool_from_obj(r[3])) { r[4] = (cdr((r[3]))); - { fixnum_t v15328_tmp; + { fixnum_t v15531_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15328_tmp = (n); } + v15531_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15328_tmp); + obj l, o = mknull(); int c = (v15531_tmp); hreserve(hbsz(3)*c, 5); /* 5 live regs */ l = r[4]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[4] = (o); } } - { fixnum_t v15329_tmp; + { fixnum_t v15532_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15329_tmp = (n); } + v15532_tmp = (n); } { /* list->string */ - int i, c = (v15329_tmp); + int i, c = (v15532_tmp); obj o = hpushstr(5, allocstring(c, ' ')); /* 5 live regs */ obj l = r[4]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -24927,19 +25178,19 @@ gs_path_2Dstrip_2Dextension: /* k filename */ rc = 3; goto jump; -case 514: /* module-name k filename */ +case 522: /* module-name k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_module_2Dname: /* k filename */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(515); + *--hp = obj_from_case(523); r[2] = (hendblk(1+1)); r[0] = r[2]; /* r[1] */ goto gs_path_2Dstrip_2Ddirectory; -case 515: /* clo ek r */ +case 523: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -24949,7 +25200,7 @@ case 515: /* clo ek r */ /* r[1] */ goto gs_path_2Dstrip_2Dextension; -case 516: /* process-file k fname */ +case 524: /* process-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_process_2Dfile: /* k fname */ @@ -24966,13 +25217,13 @@ gs_process_2Dfile: /* k fname */ *--hp = r[4]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(517); + *--hp = obj_from_case(525); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ goto gs_module_2Dname; -case 517: /* clo ek r */ +case 525: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24982,7 +25233,7 @@ case 517: /* clo ek r */ r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r k oport mname iport fname */ - r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233814)))); + r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233854)))); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[1]; @@ -24990,7 +25241,7 @@ case 517: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(518); + *--hp = obj_from_case(526); r[8] = (hendblk(6+1)); if (bool_from_obj(r[7])) { r[9] = (mkiport_file(9, (void*)((r[7])))); @@ -25004,19 +25255,19 @@ case 517: /* clo ek r */ r[10+7] = r[5]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11887; + goto s_l_v12035; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; - r[2] = (cx__233818); + r[2] = (cx__233858); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 518: /* clo ek r */ +case 526: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25026,25 +25277,25 @@ case 518: /* clo ek r */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_l_v11887: /* ek r fname k oport mname r iport */ +s_l_v12035: /* ek r fname k oport mname r iport */ (void)(objptr_from_obj(r[7])[0] = (r[1])); (void)(objptr_from_obj(r[5])[0] = (r[6])); - (void)(oportputcircular((cx__233982), (r[4]), 1)); + (void)(oportputcircular((cx__234022), (r[4]), 1)); r[8] = (objptr_from_obj(r[5])[0]); (void)(oportputcircular((r[8]), (r[4]), 1)); - (void)(oportputcircular((cx__233981), (r[4]), 1)); + (void)(oportputcircular((cx__234021), (r[4]), 1)); hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = r[3]; *--hp = r[7]; - *--hp = obj_from_case(519); + *--hp = obj_from_case(527); r[8] = (hendblk(4+1)); r[0] = r[8]; r[1] = r[2]; goto gs_path_2Dstrip_2Ddirectory; -case 519: /* clo ek r */ +case 527: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25054,19 +25305,19 @@ case 519: /* clo ek r */ r += 1; /* shift reg. wnd */ /* ek r iport k mname oport */ (void)(oportputcircular((r[1]), (r[5]), 1)); - (void)(oportputcircular((cx__233980), (r[5]), 1)); + (void)(oportputcircular((cx__234020), (r[5]), 1)); (void)(oportputc('\n', (r[5]))); (void)(oportputc('\n', (r[5]))); - (void)(oportputcircular((cx__233979), (r[5]), 1)); + (void)(oportputcircular((cx__234019), (r[5]), 1)); r[6] = (objptr_from_obj(r[4])[0]); (void)(oportputcircular((r[6]), (r[5]), 1)); - (void)(oportputcircular((cx__233978), (r[5]), 1)); + (void)(oportputcircular((cx__234018), (r[5]), 1)); (void)(oportputc('\n', (r[5]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(520); + *--hp = obj_from_case(528); r[6] = (hendblk(3+1)); r[0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[0])[0]; @@ -25076,7 +25327,7 @@ case 519: /* clo ek r */ rc = 3; goto jump; -case 520: /* clo ek r */ +case 528: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25088,7 +25339,7 @@ case 520: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(524); + *--hp = obj_from_case(532); r[5] = (hendblk(3+1)); r[6+0] = r[5]; r[6+1] = r[1]; @@ -25096,15 +25347,15 @@ case 520: /* clo ek r */ r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11898; + goto s_loop_v12046; -case 521: /* clo k x */ +case 529: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v11898: /* k x oport iport */ +s_loop_v12046: /* k x oport iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -25117,13 +25368,13 @@ s_loop_v11898: /* k x oport iport */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(521); + *--hp = obj_from_case(529); r[4] = (hendblk(2+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(522); + *--hp = obj_from_case(530); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ @@ -25131,7 +25382,7 @@ s_loop_v11898: /* k x oport iport */ goto gs_process_2Dtop_2Dform; } -case 522: /* clo ek . */ +case 530: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25143,7 +25394,7 @@ case 522: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(523); + *--hp = obj_from_case(531); r[5] = (hendblk(2+1)); r[0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[0])[0]; @@ -25153,7 +25404,7 @@ case 522: /* clo ek . */ rc = 3; goto jump; -case 523: /* clo ek r */ +case 531: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25169,7 +25420,7 @@ case 523: /* clo ek r */ rc = 3; goto jump; -case 524: /* clo ek . */ +case 532: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25178,7 +25429,7 @@ case 524: /* clo ek . */ r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . iport k oport */ - (void)(oportputcircular((cx__233970), (r[4]), 1)); + (void)(oportputcircular((cx__234010), (r[4]), 1)); r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; @@ -25187,7 +25438,7 @@ case 524: /* clo ek . */ rc = 3; goto jump; -case 525: /* clo ek r */ +case 533: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -25196,18 +25447,18 @@ case 525: /* clo ek r */ static obj c[] = { obj_from_objptr(vmcases+3) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(526); + *--hp = obj_from_case(534); r[3] = (hendblk(0+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; - r[4+2] = (cx__234006); + r[4+2] = (cx__234046); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 526: /* clo ek r */ +case 534: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -25215,7 +25466,7 @@ case 526: /* clo ek r */ static obj c[] = { obj_from_objptr(vmcases+1) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(527); + *--hp = obj_from_case(535); r[3] = (hendblk(0+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -25226,7 +25477,7 @@ case 526: /* clo ek r */ rc = 3; goto jump; -case 527: /* clo ek r */ +case 535: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -25238,7 +25489,7 @@ case 527: /* clo ek r */ static obj c[] = { obj_from_objptr(vmcases+6) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(528); + *--hp = obj_from_case(536); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -25247,7 +25498,7 @@ case 527: /* clo ek r */ rc = 2; goto jump; -case 528: /* clo ek . */ +case 536: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ @@ -25259,7 +25510,7 @@ case 528: /* clo ek . */ static obj c[] = { obj_from_objptr(vmcases+7) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(529); + *--hp = obj_from_case(537); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -25268,24 +25519,26 @@ case 528: /* clo ek . */ rc = 2; goto jump; -case 529: /* clo ek . */ +case 537: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ /* ek . */ - cx_test1 = (cx__234010); - cx_test2 = (cx__234280); - cx_test3 = (cx__234482); - cx_test4 = (cx__234884); - cx_test5 = (cx__235014); + cx_test1 = (cx__234050); + cx_test2 = (cx__234320); + cx_test3 = (cx__234522); + cx_test4 = (cx__234924); + cx_test5 = (cx__235054); cx__2Averbose_2A = obj_from_bool(0); - { static obj c[] = { obj_from_case(530) }; cx_run_2Dtests = (obj)c; } - { static obj c[] = { obj_from_case(536) }; cx_repl_2Deval = (obj)c; } - { static obj c[] = { obj_from_case(542) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; } - { static obj c[] = { obj_from_case(551) }; cx_repl_2Dread = (obj)c; } - { static obj c[] = { obj_from_case(552) }; cx_repl_2Dfrom_2Dport = (obj)c; } - { static obj c[] = { obj_from_case(557) }; cx_run_2Drepl = (obj)c; } - { static obj c[] = { obj_from_case(558) }; cx_main = (obj)c; } + cx__2Areset_2A = obj_from_bool(0); + { static obj c[] = { obj_from_case(538) }; cx_error_2A = (obj)c; } + { static obj c[] = { obj_from_case(540) }; cx_run_2Dtests = (obj)c; } + { static obj c[] = { obj_from_case(546) }; cx_repl_2Deval = (obj)c; } + { static obj c[] = { obj_from_case(552) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(561) }; cx_repl_2Dread = (obj)c; } + { static obj c[] = { obj_from_case(562) }; cx_repl_2Dfrom_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(567) }; cx_run_2Drepl = (obj)c; } + { static obj c[] = { obj_from_case(568) }; cx_main = (obj)c; } r[2] = obj_from_void(0); r[3+0] = r[0]; pc = 0; /* exit from module init */ @@ -25294,7 +25547,76 @@ case 529: /* clo ek . */ rc = 2; goto jump; -case 530: /* run-tests k */ +case 538: /* error* k msg args */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ +gs_error_2A: /* k msg args */ + if ((isprocedure((cx__2Areset_2A)))) { + r[3] = (cx__2Acurrent_2Derror_2Dport_2A); + (void)(oportputcircular((r[1]), (r[3]), 1)); + (void)(oportputc('\n', (r[3]))); + hreserve(hbsz(1+1), 4); /* 4 live regs */ + *--hp = r[0]; + *--hp = obj_from_case(539); + r[4] = (hendblk(1+1)); + r[0] = r[4]; + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v11999; + } else { + { /* cons */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[3] = (hendblk(3)); } + r[4+0] = (cx_apply); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[0]; + r[4+2] = (cx_error); + r[4+3] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +s_loop_v11999: /* k l p */ + if ((ispair((r[1])))) { + r[3] = (car((r[1]))); + (void)(oportputcircular((r[3]), (r[2]), 0)); + (void)(oportputc('\n', (r[2]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[3]; + /* r[2] */ + goto s_loop_v11999; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 539: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* ek . k */ + r[0] = (cx__2Areset_2A); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[2]; + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 540: /* run-tests k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Dtests: /* k */ @@ -25303,18 +25625,18 @@ gs_run_2Dtests: /* k */ r[1] = (hendblk(1)); r[2] = obj_from_flonum(2, clock()); (void)(objptr_from_obj(r[1])[0] = (r[2])); - (void)(oportputcircular((cx__235423), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__235487), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(531); + *--hp = obj_from_case(541); r[2] = (hendblk(2+1)); r[0] = r[2]; r[1] = (cx_test1); goto gs_evaluate; -case 531: /* clo ek r */ +case 541: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25326,13 +25648,13 @@ case 531: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(532); + *--hp = obj_from_case(542); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test2); goto gs_evaluate; -case 532: /* clo ek r */ +case 542: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25344,13 +25666,13 @@ case 532: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(533); + *--hp = obj_from_case(543); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test3); goto gs_evaluate; -case 533: /* clo ek r */ +case 543: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25362,13 +25684,13 @@ case 533: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(534); + *--hp = obj_from_case(544); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test4); goto gs_evaluate; -case 534: /* clo ek r */ +case 544: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25380,13 +25702,13 @@ case 534: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(535); + *--hp = obj_from_case(545); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test5); goto gs_evaluate; -case 535: /* clo ek r */ +case 545: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25395,23 +25717,23 @@ case 535: /* clo ek r */ /* ek r k start */ (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); - (void)(oportputcircular((cx__235422), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - { flonum_t v15325_b; - { flonum_t v15324_a; - { const flonum_t v15323_b = (CLOCKS_PER_SEC); - { const flonum_t v15321_a = (clock()); + (void)(oportputcircular((cx__235486), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v15528_b; + { flonum_t v15527_a; + { const flonum_t v15526_b = (CLOCKS_PER_SEC); + { const flonum_t v15524_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v15322_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v15324_a = ((v15321_a) - (v15322_tmp)); } + { const flonum_t v15525_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v15527_a = ((v15524_a) - (v15525_tmp)); } } else { - v15324_a = ((v15321_a) - flonum_from_obj(r[4])); + v15527_a = ((v15524_a) - flonum_from_obj(r[4])); } } - v15325_b = ((v15324_a) / (v15323_b)); } } - { const flonum_t v15326_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v15326_tmp) * (v15325_b)); } } + v15528_b = ((v15527_a) / (v15526_b)); } } + { const flonum_t v15529_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v15529_tmp) * (v15528_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__235398), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__235462), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -25421,13 +25743,14 @@ case 535: /* clo ek r */ rc = 3; goto jump; -case 536: /* repl-eval k x */ +case 546: /* repl-eval k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval: /* k x */ + cx__2Areset_2A = r[0]; hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(537); + *--hp = obj_from_case(547); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -25439,14 +25762,14 @@ gs_repl_2Deval: /* k x */ rc = 4; goto jump; -case 537: /* clo ek r */ +case 547: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__235490), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__235555), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); @@ -25459,7 +25782,7 @@ case 537: /* clo ek r */ } else { } if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__235483), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__235548), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { } @@ -25469,14 +25792,14 @@ case 537: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(538); + *--hp = obj_from_case(548); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 538: /* clo ek r */ +case 548: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25487,7 +25810,7 @@ case 538: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(539); + *--hp = obj_from_case(549); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -25501,7 +25824,7 @@ case 538: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 539: /* clo ek . */ +case 549: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25521,7 +25844,7 @@ case 539: /* clo ek . */ if (bool_from_obj(cx__2Averbose_2A)) { (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); - (void)(oportputcircular((cx__235476), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__235541), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); r[6] = obj_from_flonum(6, clock()); (void)(objptr_from_obj(r[5])[0] = (r[6])); @@ -25533,7 +25856,7 @@ case 539: /* clo ek . */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(540); + *--hp = obj_from_case(550); r[7] = (hendblk(2+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; @@ -25543,7 +25866,7 @@ case 539: /* clo ek . */ rc = 3; goto jump; -case 540: /* clo ek r */ +case 550: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25553,13 +25876,13 @@ case 540: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(541); + *--hp = obj_from_case(551); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ goto gs_execute; -case 541: /* clo ek r */ +case 551: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25569,23 +25892,23 @@ case 541: /* clo ek r */ (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__235422), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - { flonum_t v15319_b; - { flonum_t v15318_a; - { const flonum_t v15317_b = (CLOCKS_PER_SEC); - { const flonum_t v15315_a = (clock()); + (void)(oportputcircular((cx__235486), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v15522_b; + { flonum_t v15521_a; + { const flonum_t v15520_b = (CLOCKS_PER_SEC); + { const flonum_t v15518_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v15316_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v15318_a = ((v15315_a) - (v15316_tmp)); } + { const flonum_t v15519_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v15521_a = ((v15518_a) - (v15519_tmp)); } } else { - v15318_a = ((v15315_a) - flonum_from_obj(r[4])); + v15521_a = ((v15518_a) - flonum_from_obj(r[4])); } } - v15319_b = ((v15318_a) / (v15317_b)); } } - { const flonum_t v15320_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v15320_tmp) * (v15319_b)); } } + v15522_b = ((v15521_a) / (v15520_b)); } } + { const flonum_t v15523_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v15523_tmp) * (v15522_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__235398), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__235462), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { r[4] = obj_from_void(0); @@ -25598,7 +25921,7 @@ case 541: /* clo ek r */ rc = 3; goto jump; -case 542: /* repl-eval-top-form k x */ +case 552: /* repl-eval-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval_2Dtop_2Dform: /* k x */ @@ -25618,10 +25941,10 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (car((r[2]))); - r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233814)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233854)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(543); + *--hp = obj_from_case(553); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -25630,12 +25953,12 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11777; + goto s_l_v11906; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233818); + r[5+2] = (cx__233858); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -25647,7 +25970,7 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(545); + *--hp = obj_from_case(555); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -25665,22 +25988,22 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ } } -case 543: /* clo ek r */ +case 553: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_l_v11777: /* ek r k */ +s_l_v11906: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(544); + *--hp = obj_from_case(554); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Dfrom_2Dport; -case 544: /* clo ek . */ +case 554: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25696,7 +26019,7 @@ case 544: /* clo ek . */ rc = 3; goto jump; -case 545: /* clo ek r */ +case 555: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25707,13 +26030,13 @@ case 545: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v11761; + goto s_loop_v11890; } else { if (((r[1]) == (mksymbol(internsym("define-syntax"))))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(548); + *--hp = obj_from_case(558); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -25731,7 +26054,7 @@ case 545: /* clo ek r */ if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(550); + *--hp = obj_from_case(560); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -25749,19 +26072,19 @@ case 545: /* clo ek r */ } } -case 546: /* clo k x* */ +case 556: /* clo k x* */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v11761: /* k x* */ +s_loop_v11890: /* k x* */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(546); + *--hp = obj_from_case(556); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(547); + *--hp = obj_from_case(557); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -25777,7 +26100,7 @@ s_loop_v11761: /* k x* */ goto jump; } -case 547: /* clo ek . */ +case 557: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25794,7 +26117,7 @@ case 547: /* clo ek . */ rc = 3; goto jump; -case 548: /* clo ek r */ +case 558: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25806,13 +26129,13 @@ case 548: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(549); + *--hp = obj_from_case(559); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 549: /* clo ek r */ +case 559: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25828,7 +26151,7 @@ case 549: /* clo ek r */ rc = 3; goto jump; -case 550: /* clo ek r */ +case 560: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -25838,11 +26161,11 @@ case 550: /* clo ek r */ /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; -case 551: /* repl-read k iport */ +case 561: /* repl-read k iport */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Dread: /* k iport */ - (void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__235544), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0)); + (void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__235610), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0)); r[2+0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[0]; @@ -25852,20 +26175,20 @@ gs_repl_2Dread: /* k iport */ rc = 3; goto jump; -case 552: /* repl-from-port k iport */ +case 562: /* repl-from-port k iport */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Dfrom_2Dport: /* k iport */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(553); + *--hp = obj_from_case(563); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto gs_repl_2Dread; -case 553: /* clo ek r */ +case 563: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25875,14 +26198,14 @@ case 553: /* clo ek r */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v11708; + goto s_loop_v11837; -case 554: /* clo k x */ +case 564: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v11708: /* k x iport */ +s_loop_v11837: /* k x iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -25894,20 +26217,20 @@ s_loop_v11708: /* k x iport */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(554); + *--hp = obj_from_case(564); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(555); + *--hp = obj_from_case(565); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; } -case 555: /* clo ek . */ +case 565: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25919,13 +26242,13 @@ case 555: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(556); + *--hp = obj_from_case(566); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_repl_2Dread; -case 556: /* clo ek r */ +case 566: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25941,7 +26264,7 @@ case 556: /* clo ek r */ rc = 3; goto jump; -case 557: /* run-repl k */ +case 567: /* run-repl k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Drepl: /* k */ @@ -25951,13 +26274,13 @@ gs_run_2Drepl: /* k */ rreserve(MAX_HOSTREGS); goto gs_repl_2Dfrom_2Dport; -case 558: /* main k argv */ +case 568: /* main k argv */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k argv */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(559); + *--hp = obj_from_case(569); r[2] = (hendblk(1+1)); r[3+0] = (cx_command_2Dline); pc = objptr_from_obj(r[3+0])[0]; @@ -25967,25 +26290,25 @@ case 558: /* main k argv */ rc = 2; goto jump; -case 559: /* clo ek r */ +case 569: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[3] = (cdr((r[1]))); - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235573), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235639), (r[3])))) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); r[0] = r[2]; r[1] = r[4]; goto gs_process_2Dfile; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235567), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235633), (r[3])))) { r[0] = r[2]; goto gs_run_2Dtests; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235564), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235630), (r[3])))) { cx__2Averbose_2A = obj_from_bool(1); r[0] = r[2]; goto gs_run_2Drepl; diff --git a/src/k.sf b/src/k.sf index 88e9298..797ad6f 100644 --- a/src/k.sf +++ b/src/k.sf @@ -168,7 +168,8 @@ ; -> (set! ) ; -> (set& ) ; -> (lambda ) where -> ( ...) | ( ... . ) | -; -> (lambda* ( ) ...) where -> ( ) +; -> (lambda* ( ) ...) where -> ( ) +; -> (syntax-lambda ( ...) ) ; -> (letcc ) ; -> (withcc ) ; -> (begin ...) @@ -229,8 +230,9 @@ ; -> ( . ) ; -> | ; -> | -; -> syntax | define | define-syntax | -; quote | set! | begin | if | lambda | body +; -> syntax | quote | set! | set& | begin | if | lambda | +; lambda* | syntax-lambda | letcc | withcc | body | +; define | define-syntax ; top-level only ; -> (define-inline (val-core? val) (pair? val)) @@ -260,7 +262,7 @@ (extend-xenv env var (make-binding (id->sym var) (list 'ref val)))) (define (x-error msg . args) - (apply error (cons (string-append "transformer: " msg) args))) + (error* (string-append "transformer: " msg) args)) ; xform receives Scheme s-expressions and returns either Core Scheme ; (always a pair) or special-form, which is either a builtin (a symbol) or @@ -289,6 +291,7 @@ [(if) (xform-if tail env)] [(lambda) (xform-lambda tail env)] [(lambda*) (xform-lambda* tail env)] + [(syntax-lambda) (xform-syntax-lambda tail env)] [(letcc) (xform-letcc tail env)] [(withcc) (xform-withcc tail env)] [(body) (xform-body tail env)] @@ -379,15 +382,15 @@ (if (and (list1+? tail) (idslist? (car tail))) (let loop ([vars (car tail)] [ienv env] [ipars '()]) (cond [(pair? vars) - (let* ([var (car vars)] [nvar (gensym (id->sym var))]) - (loop (cdr vars) (add-var var nvar ienv) (cons nvar ipars)))] + (let* ([var (car vars)] [nvar (gensym (id->sym var))]) + (loop (cdr vars) (add-var var nvar ienv) (cons nvar ipars)))] [(null? vars) - (list 'lambda (reverse ipars) (xform-body (cdr tail) ienv))] + (list 'lambda (reverse ipars) (xform-body (cdr tail) ienv))] [else ; improper (let* ([var vars] [nvar (gensym (id->sym var))] [ienv (add-var var nvar ienv)]) - (list 'lambda (append (reverse ipars) nvar) - (xform-body (cdr tail) ienv)))])) + (list 'lambda (append (reverse ipars) nvar) + (xform-body (cdr tail) ienv)))])) (x-error "improper lambda body" (cons 'lambda tail)))) (define (xform-lambda* tail env) @@ -395,7 +398,9 @@ (cons 'lambda* (map (lambda (aexp) (if (and (list2? aexp) - (or (and (list2? (car aexp)) (fixnum? (caar aexp)) (boolean? (cadar aexp))) + (or (and (list2? (car aexp)) + (fixnum? (caar aexp)) + (boolean? (cadar aexp))) (idslist? (car aexp)))) (list (normalize-arity (car aexp)) (xform #f (cadr aexp) env)) @@ -403,6 +408,21 @@ tail)) (x-error "improper lambda* form" (cons 'lambda* tail)))) +(define (xform-syntax-lambda tail env) + (if (and (list2+? tail) (andmap id? (car tail))) + (let ([vars (car tail)] [macenv env] [forms (cdr tail)]) + ; return a transformer that wraps xformed body in (syntax ...) + (lambda (use useenv) + (if (and (list1+? use) (fx=? (length vars) (length (cdr use)))) + (let loop ([vars vars] [exps (cdr use)] [env macenv]) + (if (null? vars) + (list 'syntax (xform-body forms env)) + (loop (cdr vars) (cdr exps) + (add-binding (car vars) + (xform #t (car exps) useenv) env)))) + (x-error "invalif syntax-lambda application" use)))) + (x-error "improper syntax-lambda body" (cons 'syntax-lambda tail)))) + (define (xform-letcc tail env) (if (and (list2+? tail) (id? (car tail))) (let* ([var (car tail)] [nvar (gensym (id->sym var))]) @@ -486,6 +506,7 @@ (make-binding 'set& 'set&) (make-binding 'lambda 'lambda) (make-binding 'lambda* 'lambda*) + (make-binding 'syntax-lambda 'syntax-lambda) (make-binding 'letcc 'letcc) (make-binding 'withcc 'withcc) (make-binding 'begin 'begin) @@ -785,7 +806,7 @@ ;--------------------------------------------------------------------------------------------- (define (c-error msg . args) - (apply error (cons (string-append "compiler: " msg) args))) + (error* (string-append "compiler: " msg) args)) (define (write-serialized-char x port) (cond [(or (char=? x #\%) (char=? x #\") (char=? x #\\) (char? x #\~)) @@ -1535,6 +1556,16 @@ (define *verbose* #f) +(define *reset* #f) + +(define (error* msg args) + (if (procedure? *reset*) + (let ([p (current-error-port)]) + (display msg p) (newline p) + (for-each (lambda (arg) (write arg p) (newline p)) args) + (*reset* #f)) + (apply error (cons msg args)))) + (define (run-tests) (define start (current-jiffy)) (display "Running tests ...") (newline) @@ -1547,20 +1578,22 @@ (display " ms.") (newline)) (define (repl-eval x) - (let ([xexp (transform #f x)]) - (when *verbose* (display "TRANSFORM =>") (newline) (write xexp) (newline)) - (if (eq? (car xexp) 'define) (set-car! xexp 'set!)) - (when *verbose* (display "COMPILE-TO-STRING =>") (newline)) - (let ([cstr (compile-to-string xexp)] [start #f]) - (when *verbose* - (display cstr) (newline) - (display "DECODE+EXECUTE =>") (newline) - (set! start (current-jiffy))) - (let* ([thunk (decode cstr)] [res (execute thunk)]) - (write res) (newline)) - (when *verbose* - (display "Elapsed time: ") (write (* 1000 (/ (- (current-jiffy) start) (jiffies-per-second)))) - (display " ms.") (newline))))) + (letcc catch + (set! *reset* catch) + (let ([xexp (transform #f x)]) + (when *verbose* (display "TRANSFORM =>") (newline) (write xexp) (newline)) + (if (eq? (car xexp) 'define) (set-car! xexp 'set!)) + (when *verbose* (display "COMPILE-TO-STRING =>") (newline)) + (let ([cstr (compile-to-string xexp)] [start #f]) + (when *verbose* + (display cstr) (newline) + (display "DECODE+EXECUTE =>") (newline) + (set! start (current-jiffy))) + (let* ([thunk (decode cstr)] [res (execute thunk)]) + (write res) (newline)) + (when *verbose* + (display "Elapsed time: ") (write (* 1000 (/ (- (current-jiffy) start) (jiffies-per-second)))) + (display " ms.") (newline)))))) (define (repl-eval-top-form x) (cond diff --git a/src/s.scm b/src/s.scm index 237a3f6..79c8cb4 100644 --- a/src/s.scm +++ b/src/s.scm @@ -1,28 +1,112 @@ ;--------------------------------------------------------------------------------------------- -; Scheme library functions +; SCHEME LIBRARY FUNCTIONS ;--------------------------------------------------------------------------------------------- -;--------------------------------------------------------------------------------------------- -; helpers -;--------------------------------------------------------------------------------------------- - -(define-syntax define-inline - (syntax-rules () - [(_ (id v ...) rid expr) - (begin - (define-syntax id - (syntax-rules () - [(_ v ...) expr] ; NB: do not use the same var twice! - [(_ . r) (rid . r)] ; NB: use syntax-error? - [_ rid])) - (define rid (lambda (v ...) expr)))])) - ;--------------------------------------------------------------------------------------------- ; Derived expression types ;--------------------------------------------------------------------------------------------- +#| +(define-syntax let-syntax + (syntax-rules () + [(_ ([kw init] ...)) + (begin)] + [(_ ([kw init] ...) . forms) + ((syntax-lambda (kw ...) . forms) + init ...)])) + +(define-syntax syntax-lambda + (let-syntax ([org-sl syntax-lambda]) + (syntax-rules () + [(_ (v ...) form) (org-sl (v ...) form)] + [(_ (v ...) . forms) (org-sl (v ...) (block . forms))]))) + +(define-syntax letrec-syntax + (syntax-rules () + [(_ ([key trans] ...) . forms) ; non-splicing! + (body (define-syntax key trans) ... . forms)])) + +(define-syntax letrec + (syntax-rules () + [(_ ([var init] ...) . forms) + (body (define var init) ... . forms)])) + +(define-syntax let + (syntax-rules () + [(_ ([var init] ...) . forms) + ((lambda (var ...) . forms) init ...)] + [(_ name ([var init] ...) . forms) + ((letrec ((name (lambda (var ...) . forms))) name) init ...)])) + +(define-syntax let* + (syntax-rules () + [(_ () . forms) + (body . forms)] + [(_ (first . more) . forms) + (let (first) (let* more . forms))])) + +(define-syntax and + (syntax-rules () + [(_) #t] + [(_ test) test] + [(_ test . tests) (if test (and . tests) #f)])) + +(define-syntax or + (syntax-rules () + [(_) #f] + [(_ test) test] + [(_ test . tests) (let ([x test]) (if x x (or . tests)))])) + +(define-syntax cond + (syntax-rules (else =>) + [(_) #f] + [(_ (else . exps)) (begin . exps)] + [(_ (x) . rest) (or x (cond . rest))] + [(_ (x => proc) . rest) (let ([tmp x]) (cond [tmp (proc tmp)] . rest))] + [(_ (x . exps) . rest) (if x (begin . exps) (cond . rest))])) + +(define-syntax case-test + (syntax-rules (else) + [(_ k else) #t] + [(_ k atoms) (memv k 'atoms)])) + +(define-syntax case + (syntax-rules () + [(_ x (test . exprs) ...) + (let ([key x]) (cond ((case-test key test) . exprs) ...))])) + +(define-syntax do + (syntax-rules () + [(_ ((var init . step) ...) ending expr ...) + (let loop ([var init] ...) + (cond ending [else expr ... (loop (begin var . step) ...)]))])) + +(define-syntax quasiquote + (syntax-rules (unquote unquote-splicing quasiquote) + [(_ ,x) x] + [(_ (,@x . y)) (append x `y)] + [(_ `x . d) (cons 'quasiquote (quasiquote (x) d))] + [(_ ,x d) (cons 'unquote (quasiquote (x) . d))] + [(_ ,@x d) (cons 'unquote-splicing (quasiquote (x) . d))] + [(_ (x . y) . d) (cons (quasiquote x . d) (quasiquote y . d))] + [(_ #(x ...) . d) (list->vector (quasiquote (x ...) . d))] + [(_ x . d) 'x])) + +(define-syntax when + (syntax-rules () + [(_ test . rest) (if test (begin . rest))])) + +(define-syntax unless + (syntax-rules () + [(_ test . rest) (if (not test) (begin . rest))])) + +(define-syntax case-lambda + (syntax-rules () + [(_ [args . body] ...) (lambda* [args (lambda args . body)] ...)])) +|# + ;cond ;case ;and @@ -319,7 +403,11 @@ [(_ . args) (%assoc . args)] [_ %assoc])) -(define-inline (list-copy x) %residual-list-copy (%lcat x '())) +(define (list-copy obj) + (let loop ([obj obj]) + (if (pair? obj) + (cons (car obj) (loop (cdr obj))) + obj))) ; (list-tail l i) ; (last-pair l)