From 463d3622dd5316a9624909030103dd9e2bd893be Mon Sep 17 00:00:00 2001 From: ESL Date: Wed, 22 Mar 2023 14:20:17 -0400 Subject: [PATCH] transformers for basic forms moved from k to s --- k.c | 5760 +++++++++++++---------------------------------------- s.c | 92 +- src/k.sf | 106 +- src/s.scm | 12 +- src/t.scm | 159 +- t.c | 157 +- 6 files changed, 1634 insertions(+), 4652 deletions(-) diff --git a/k.c b/k.c index c4a57cf..f11b8c3 100644 --- a/k.c +++ b/k.c @@ -439,7 +439,6 @@ extern obj cx_file_2Derror; /* file-error */ extern obj cx_fixnum_2D_3Estring; /* fixnum->string */ extern obj cx_flonum_2D_3Estring; /* flonum->string */ extern obj cx_read_2Ddatum; /* read-datum */ -extern obj cx_syntax_2Drules_2A; /* syntax-rules* */ extern obj cx_write_2Dserialized_2Dsexp; /* write-serialized-sexp */ obj cx__25residual_2Dbinding_2Dset_2Dval_21; /* %residual-binding-set-val! */ obj cx__25residual_2Dbinding_2Dspecial_3F; /* %residual-binding-special? */ @@ -560,90 +559,74 @@ 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__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__231005; /* constant #1005 */ +static obj cx__231055; /* constant #1055 */ +static obj cx__231164; /* constant #1164 */ +static obj cx__231195; /* constant #1195 */ +static obj cx__231211; /* constant #1211 */ +static obj cx__231225; /* constant #1225 */ +static obj cx__231662; /* constant #1662 */ +static obj cx__231722; /* constant #1722 */ +static obj cx__231781; /* constant #1781 */ +static obj cx__231820; /* constant #1820 */ +static obj cx__231900; /* constant #1900 */ +static obj cx__232246; /* constant #2246 */ +static obj cx__232523; /* constant #2523 */ +static obj cx__232688; /* constant #2688 */ +static obj cx__232818; /* constant #2818 */ +static obj cx__232849; /* constant #2849 */ +static obj cx__232854; /* constant #2854 */ +static obj cx__232858; /* constant #2858 */ +static obj cx__232894; /* constant #2894 */ +static obj cx__232920; /* constant #2920 */ +static obj cx__232931; /* constant #2931 */ +static obj cx__232982; /* constant #2982 */ +static obj cx__232986; /* constant #2986 */ +static obj cx__233096; /* constant #3096 */ +static obj cx__233138; /* constant #3138 */ +static obj cx__233146; /* constant #3146 */ +static obj cx__233147; /* constant #3147 */ +static obj cx__233148; /* constant #3148 */ +static obj cx__233149; /* constant #3149 */ +static obj cx__233150; /* constant #3150 */ +static obj cx__233172; /* constant #3172 */ +static obj cx__233174; /* constant #3174 */ +static obj cx__233178; /* constant #3178 */ static obj cx__23334; /* constant #334 */ -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__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__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__233448; /* constant #3448 */ +static obj cx__233650; /* constant #3650 */ +static obj cx__234052; /* constant #4052 */ +static obj cx__23416; /* constant #416 */ +static obj cx__234182; /* constant #4182 */ +static obj cx__23438; /* constant #438 */ +static obj cx__234590; /* constant #4590 */ +static obj cx__234614; /* constant #4614 */ +static obj cx__234615; /* constant #4615 */ +static obj cx__234669; /* constant #4669 */ +static obj cx__234676; /* constant #4676 */ +static obj cx__234683; /* constant #4683 */ +static obj cx__234685; /* constant #4685 */ +static obj cx__23474; /* constant #474 */ +static obj cx__234741; /* constant #4741 */ +static obj cx__234761; /* constant #4761 */ +static obj cx__234764; /* constant #4764 */ +static obj cx__234770; /* constant #4770 */ +static obj cx__23484; /* constant #484 */ +static obj cx__23497; /* constant #497 */ +static obj cx__23522; /* constant #522 */ +static obj cx__23528; /* constant #528 */ +static obj cx__23554; /* constant #554 */ +static obj cx__23579; /* constant #579 */ +static obj cx__23597; /* constant #597 */ +static obj cx__23607; /* constant #607 */ +static obj cx__23630; /* constant #630 */ +static obj cx__23868; /* constant #868 */ +static obj cx__23914; /* constant #914 */ +static obj cx__23916; /* constant #916 */ +static obj cx__23955; /* constant #955 */ +static obj cx__23963; /* constant #963 */ static obj cx__2398; /* constant #98 */ -static obj cx__23986; /* constant #986 */ +static obj cx__23989; /* constant #989 */ /* helper functions */ /* set-member? */ @@ -657,11 +640,11 @@ static obj cxs_set_2Dmember_3F(obj v2_x, obj v1_s) return obj_from_bool(1); } else { { /* let */ - obj v6073_tmp = (cdr((v1_s))); - obj v6072_tmp = (v2_x); + obj v5158_tmp = (cdr((v1_s))); + obj v5157_tmp = (v2_x); /* tail call */ - v2_x = (v6072_tmp); - v1_s = (v6073_tmp); + v2_x = (v5157_tmp); + v1_s = (v5158_tmp); goto s_set_2Dmember_3F; } } @@ -682,18 +665,18 @@ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) } else { if ((ispair((v41_pat)))) { { /* let */ - obj v6066_tmp; + obj v5151_tmp; { /* let */ - obj v6070_tmp; + obj v5155_tmp; { /* let */ - obj v6071_tmp; + obj v5156_tmp; { static obj o = 0; static char s[] = { 36, 0 }; - v6071_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; - v6070_tmp = obj_from_bool((car((v41_pat))) == (v6071_tmp)); + v5156_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; + v5155_tmp = obj_from_bool((car((v41_pat))) == (v5156_tmp)); } - 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)); + v5151_tmp = (bool_from_obj(v5155_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(v6066_tmp)) { + if (bool_from_obj(v5151_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))) { @@ -711,9 +694,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 v6069_tmp = (cdr((v58_lst))); + obj v5154_tmp = (cdr((v58_lst))); /* tail call */ - v58_lst = (v6069_tmp); + v58_lst = (v5154_tmp); goto s_f; } } else { @@ -729,11 +712,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 v6068_tmp = (cdr((v40_exp))); - obj v6067_tmp = (cdr((v41_pat))); + obj v5153_tmp = (cdr((v40_exp))); + obj v5152_tmp = (cdr((v41_pat))); /* tail call */ - v41_pat = (v6067_tmp); - v40_exp = (v6068_tmp); + v41_pat = (v5152_tmp); + v40_exp = (v5153_tmp); goto s_syntax_2Dmatch_3F; } } else { @@ -760,11 +743,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) obj v120_l; obj v119_n; { /* let */ - obj v6065_tmp = obj_from_fixnum(+0); - obj v6064_tmp = (v116_l); + obj v5150_tmp = obj_from_fixnum(+0); + obj v5149_tmp = (v116_l); /* tail call */ - v120_l = (v6064_tmp); - v119_n = (v6065_tmp); + v120_l = (v5149_tmp); + v119_n = (v5150_tmp); goto s_loop; } s_loop: @@ -775,11 +758,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) return (v119_n); } else { { /* let */ - obj v6063_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); - obj v6062_tmp = (cdr((v120_l))); + obj v5148_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); + obj v5147_tmp = (cdr((v120_l))); /* tail call */ - v120_l = (v6062_tmp); - v119_n = (v6063_tmp); + v120_l = (v5147_tmp); + v119_n = (v5148_tmp); goto s_loop; } } @@ -860,90 +843,74 @@ static obj *globv[] = { &cx_test5, &cx_transform, &cx_x_2Derror, - &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__231005, + &cx__231055, + &cx__231164, + &cx__231195, + &cx__231211, + &cx__231225, + &cx__231662, + &cx__231722, + &cx__231781, + &cx__231820, + &cx__231900, + &cx__232246, + &cx__232523, + &cx__232688, + &cx__232818, + &cx__232849, + &cx__232854, + &cx__232858, + &cx__232894, + &cx__232920, + &cx__232931, + &cx__232982, + &cx__232986, + &cx__233096, + &cx__233138, + &cx__233146, + &cx__233147, + &cx__233148, + &cx__233149, + &cx__233150, + &cx__233172, + &cx__233174, + &cx__233178, &cx__23334, - &cx__233395, - &cx__233560, - &cx__233690, - &cx__233721, - &cx__233726, - &cx__233730, - &cx__233766, - &cx__233792, - &cx__233803, - &cx__233854, - &cx__233858, - &cx__233968, - &cx__234010, - &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__233448, + &cx__233650, + &cx__234052, + &cx__23416, + &cx__234182, + &cx__23438, + &cx__234590, + &cx__234614, + &cx__234615, + &cx__234669, + &cx__234676, + &cx__234683, + &cx__234685, + &cx__23474, + &cx__234741, + &cx__234761, + &cx__234764, + &cx__234770, + &cx__23484, + &cx__23497, + &cx__23522, + &cx__23528, + &cx__23554, + &cx__23579, + &cx__23597, + &cx__23607, + &cx__23630, + &cx__23868, + &cx__23914, + &cx__23916, + &cx__23955, + &cx__23963, &cx__2398, - &cx__23986, + &cx__23989, }; static cxroot_t root = { @@ -952,13 +919,7 @@ static cxroot_t root = { /* entry points */ static obj host(obj); -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, - (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, +static obj cases[541] = { (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, @@ -1067,6 +1028,7 @@ 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, }; /* host procedure */ @@ -1083,20 +1045,21 @@ jump: case 0: /* load module */ cx__2398 = (hpushstr(0, newstring("#"))); cx__23334 = (hpushstr(0, newstring("transformer: "))); - 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"))); + cx__23416 = (hpushstr(0, newstring("improper use of syntax form"))); + cx__23438 = (hpushstr(0, newstring("improper quote form"))); + cx__23474 = (hpushstr(0, newstring("improper set! form"))); + cx__23484 = (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__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"))); + cx__23497 = (hendblk(3)); } + cx__23522 = (hpushstr(0, newstring("improper set& form"))); + cx__23528 = (hpushstr(0, newstring("set& of a non-variable"))); + cx__23554 = (hpushstr(0, newstring("improper begin form"))); + cx__23579 = (hpushstr(0, newstring("improper if form"))); + cx__23597 = (hpushstr(0, newstring("malformed if form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1108,31 +1071,31 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - 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"))); + cx__23607 = (hendblk(3)); } + cx__23630 = (hpushstr(0, newstring("improper application"))); + cx__23868 = (hpushstr(0, newstring("improper lambda body"))); + cx__23914 = (hpushstr(0, newstring("improper lambda* form"))); + cx__23916 = (hpushstr(0, newstring("improper lambda* clause"))); + cx__23955 = (hpushstr(0, newstring("improper syntax-lambda body"))); + cx__23963 = (hpushstr(0, newstring("invalif syntax-lambda application"))); + cx__23989 = (hpushstr(0, newstring("improper letcc form"))); + cx__231005 = (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__231052 = (hendblk(3)); } + cx__231055 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - 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"))); + cx__231164 = (hendblk(3)); } + cx__231195 = (hpushstr(0, newstring("improper define form"))); + cx__231211 = (hpushstr(0, newstring("improper define-syntax form"))); + cx__231225 = (hpushstr(0, newstring("improper use of ..."))); + cx__231662 = (hpushstr(0, newstring("invalid syntax"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1252,2543 +1215,11 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__231719 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("trans"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("key"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("define-syntax"))); - *--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 = r[0]; - *--hp = (mksymbol(internsym("body"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("trans"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("key"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - cx__231760 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("temp"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("key"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (r[0]); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("letrec-syntax"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("bindings"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("let-syntax"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("trans"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("temp"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--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 = r[0]; - *--hp = (mksymbol(internsym("letrec-syntax"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("trans"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("key"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("bindings"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (mksymbol(internsym("body"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (mknull()); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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); - cx__231792 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("init"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("var"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("define"))); - *--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 = r[0]; - *--hp = (mksymbol(internsym("body"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("init"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("var"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - cx__231850 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("init"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("name"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("var"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (r[2]); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("lambda"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("name"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("letrec"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("init"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("var"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("name"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("init"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("var"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (r[2]); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("lambda"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("init"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = (mksymbol(internsym("var"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[2]; - *--hp = r[3]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (r[2]); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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); - cx__231882 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (mksymbol(internsym("more"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("let*"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("first"))); - *--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 = r[0]; - *--hp = (mksymbol(internsym("let"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("more"))); - *--hp = (mksymbol(internsym("first"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (mksymbol(internsym("body"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("forms"))); - *--hp = (mknull()); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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); - cx__231962 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("tests"))); - *--hp = (mksymbol(internsym("and"))); - *--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 = r[0]; - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("if"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("tests"))); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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 = (mknull()); - *--hp = obj_from_bool(1); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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); - cx__232000 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mksymbol(internsym("tests"))); - *--hp = (mksymbol(internsym("or"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("if"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--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 = r[0]; - *--hp = (mksymbol(internsym("let"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("tests"))); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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 = (mknull()); - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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); - cx__232040 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mksymbol(internsym("rest"))); - *--hp = (mksymbol(internsym("cond"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("exps"))); - *--hp = (mksymbol(internsym("begin"))); - *--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 = r[0]; - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("if"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("exps"))); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("rest"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("tmp"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("proc"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("tmp"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("rest"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("cond"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("tmp"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("let"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("proc"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("=>"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("rest"))); - *--hp = (r[2]); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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("rest"))); - *--hp = (mksymbol(internsym("cond"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("or"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("rest"))); - *--hp = (r[2]); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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("exps"))); - *--hp = (mksymbol(internsym("begin"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("exps"))); - *--hp = (mksymbol(internsym("else"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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 = (mknull()); - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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); - cx__232092 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("=>"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("else"))); - *--hp = obj_from_size(PAIR_BTAG); - cx__232199 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("atoms"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("quote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("k"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("memv"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("atoms"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("k"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = obj_from_bool(1); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("else"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("k"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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); - 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__232240 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("key"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("case-test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("exprs"))); - *--hp = (r[1]); - *--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 = r[0]; - *--hp = (mksymbol(internsym("cond"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("key"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--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 = r[0]; - *--hp = (mksymbol(internsym("let"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("exprs"))); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - cx__232244 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("step"))); - *--hp = (mksymbol(internsym("var"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("begin"))); - *--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 = r[0]; - *--hp = (mksymbol(internsym("loop"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("expr"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("else"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("ending"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("cond"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("init"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("var"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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 = r[0]; - *--hp = (mksymbol(internsym("loop"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("let"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("expr"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("ending"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("step"))); - *--hp = (mksymbol(internsym("init"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = (mksymbol(internsym("var"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[2]; - *--hp = r[3]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - cx__232288 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("quote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("d"))); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("d"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("list->vector"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* vector */ - hreserve(hbsz(2+1), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("..."))); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(VECTOR_BTAG); - r[2] = (hendblk(2+1)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("d"))); - *--hp = (r[2]); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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("d"))); - *--hp = (mksymbol(internsym("y"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("d"))); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("cons"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("y"))); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("d"))); - *--hp = (r[2]); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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 = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("d"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("unquote-splicing"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("quote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("cons"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("d"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = (mksymbol(internsym("unquote-splicing"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[2]; - *--hp = r[3]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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 = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("d"))); - *--hp = (r[1]); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("unquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("quote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("cons"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("d"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = (mksymbol(internsym("unquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[2]; - *--hp = r[3]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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 = (mknull()); - *--hp = (mksymbol(internsym("d"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("quote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("cons"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("d"))); - *--hp = (r[2]); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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 = (mknull()); - *--hp = (mksymbol(internsym("y"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("append"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("unquote-splicing"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("y"))); - *--hp = (r[2]); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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 = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("x"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("unquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("_"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--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); - cx__232354 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("quasiquote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("unquote-splicing"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("unquote"))); - *--hp = obj_from_size(PAIR_BTAG); - cx__232553 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mksymbol(internsym("rest"))); - *--hp = (mksymbol(internsym("begin"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("if"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("rest"))); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - cx__232561 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mksymbol(internsym("rest"))); - *--hp = (mksymbol(internsym("begin"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("not"))); - *--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 = r[0]; - *--hp = (mksymbol(internsym("if"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("rest"))); - *--hp = (mksymbol(internsym("test"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - cx__232581 = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mksymbol(internsym("body"))); - *--hp = (mksymbol(internsym("args"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("lambda"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("args"))); - *--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 = r[0]; - *--hp = (mksymbol(internsym("lambda*"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("..."))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = (mksymbol(internsym("body"))); - *--hp = (mksymbol(internsym("args"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("_"))); - *--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 = (mknull()); - *--hp = r[0]; - *--hp = obj_from_size(PAIR_BTAG); - 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"))); + cx__231722 = (hendblk(3)); } + cx__231781 = (hpushstr(0, newstring("compiler: "))); + cx__231820 = (hpushstr(0, newstring("cannot encode literal: ~s"))); + cx__231900 = (hpushstr(0, newstring("0123456789"))); + cx__232246 = (hpushstr(0, newstring("unsupported integrable type"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3806,13 +1237,13 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("quote"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233395 = (hendblk(3)); } + cx__232523 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233560 = (hendblk(3)); } + cx__232688 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3878,25 +1309,25 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("define-inline"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233690 = (hendblk(3)); } + cx__232818 = (hendblk(3)); } { static char s[] = { 34, 10, 0 }; - cx__233721 = (hpushstr(0, newstring(s))); } + cx__232849 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 0 }; - cx__233726 = (hpushstr(0, newstring(s))); } + cx__232854 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 0 }; - cx__233730 = (hpushstr(0, newstring(s))); } + cx__232858 = (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__233766 = (hendblk(3)); } + cx__232894 = (hendblk(3)); } { static char s[] = { 34, 44, 10, 0 }; - cx__233792 = (hpushstr(0, newstring(s))); } + cx__232920 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 48, 44, 10, 0 }; - cx__233803 = (hpushstr(0, newstring(s))); } - cx__233854 = (hpushstr(0, newstring("r"))); - cx__233858 = (hpushstr(0, newstring("cannot open input file"))); + cx__232931 = (hpushstr(0, newstring(s))); } + cx__232982 = (hpushstr(0, newstring("r"))); + cx__232986 = (hpushstr(0, newstring("cannot open input file"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3914,16 +1345,16 @@ case 0: /* load module */ *--hp = r[0]; *--hp = obj_from_char(92); *--hp = obj_from_size(PAIR_BTAG); - cx__233968 = (hendblk(3)); } + cx__233096 = (hendblk(3)); } { static char s[] = { 10, 32, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 }; - 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"))); + cx__233138 = (hpushstr(0, newstring(s))); } + cx__233146 = (hpushstr(0, newstring("_code[] = {"))); + cx__233147 = (hpushstr(0, newstring("char *"))); + cx__233148 = (hpushstr(0, newstring(" */"))); + cx__233149 = (hpushstr(0, newstring(".c -- generated via skint -c "))); + cx__233150 = (hpushstr(0, newstring("/* "))); + cx__233172 = (hpushstr(0, newstring("k!"))); + cx__233174 = (hpushstr(0, newstring("K5"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -4739,7 +2170,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234050 = (hendblk(3)); } + cx__233178 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5339,7 +2770,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234320 = (hendblk(3)); } + cx__233448 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -6539,7 +3970,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234522 = (hendblk(3)); } + cx__233650 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -6923,7 +4354,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234924 = (hendblk(3)); } + cx__234052 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -8063,29 +5494,30 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - 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 =>"))); + cx__234182 = (hendblk(3)); } + cx__234590 = (hpushstr(0, newstring(" ms."))); + cx__234614 = (hpushstr(0, newstring("Elapsed time: "))); + cx__234615 = (hpushstr(0, newstring("Running tests ..."))); + cx__234669 = (hpushstr(0, newstring("DECODE+EXECUTE =>"))); + cx__234676 = (hpushstr(0, newstring("COMPILE-TO-STRING =>"))); + cx__234683 = (hpushstr(0, newstring("unexpected transformed output"))); + cx__234685 = (hpushstr(0, newstring("TRANSFORM =>"))); { static char s[] = { 10, 115, 107, 105, 110, 116, 62, 32, 0 }; - cx__235610 = (hpushstr(0, newstring(s))); } + cx__234741 = (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__235630 = (hendblk(3)); } + cx__234761 = (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__235633 = (hendblk(3)); } + cx__234764 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -8098,7 +5530,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__235639 = (hendblk(3)); } + cx__234770 = (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; } @@ -8986,16 +6418,16 @@ gs_normalize_2Darity: /* k arity */ r[2+2] = r[1]; r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v15336; + goto s_loop_v13240; } -s_loop_v15336: /* k cnt l */ +s_loop_v13240: /* 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_v15336; + goto s_loop_v13240; } else { if ((isnull((r[2])))) { { /* cons */ @@ -9053,10 +6485,10 @@ gs_flatten_2Didslist: /* k ilist */ r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v15323; + goto s_loop_v13227; } -s_loop_v15323: /* k l r */ +s_loop_v13227: /* k l r */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); r[4] = (car((r[1]))); @@ -9069,7 +6501,7 @@ s_loop_v15323: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v15323; + goto s_loop_v13227; } else { if ((isnull((r[1])))) { { /* reverse! */ @@ -9693,6 +7125,16 @@ case 56: /* clo ek r */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; + } else { + if ((!(ispair((r[5]))))) { + r[0] = (cx_x_2Derror); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[6]; + r[2] = (cx__23416); + r[3] = r[5]; + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; } else { r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; @@ -9703,6 +7145,7 @@ case 56: /* clo ek r */ goto jump; } } + } case 57: /* clo ek r */ assert(rc == 3); @@ -10007,7 +7450,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__23435); + r[4+2] = (cx__23438); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10054,7 +7497,7 @@ s_conv: /* k sexp */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v15036; + goto s_loop_v12940; } else { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -10111,7 +7554,7 @@ case 67: /* clo ek r */ rc = 3; goto jump; -s_loop_v15036: /* k l conv */ +s_loop_v12940: /* k l conv */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -10123,7 +7566,7 @@ s_loop_v15036: /* k l conv */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v15036; + goto s_loop_v12940; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10183,13 +7626,13 @@ case 70: /* clo ek r */ r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ - { fixnum_t v15598_tmp; + { fixnum_t v13502_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15598_tmp = (n); } + v13502_tmp = (n); } { /* list->vector */ - obj l; int i, c = (v15598_tmp); + obj l; int i, c = (v13502_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); @@ -10266,7 +7709,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__23471); + r[4+2] = (cx__23474); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10334,7 +7777,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__23494); + r[4] = (cx__23497); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); @@ -10379,7 +7822,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__23481); + r[2] = (cx__23484); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -10414,7 +7857,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__23519); + r[4+2] = (cx__23522); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10456,7 +7899,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__23525); + r[2] = (cx__23528); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -10490,7 +7933,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__23525); + r[2] = (cx__23528); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -10510,7 +7953,7 @@ gs_xform_2Dbegin: /* k tail env */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v14964; + goto s_loop_v12868; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -10521,7 +7964,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__23551); + r[4+2] = (cx__23554); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10529,7 +7972,7 @@ gs_xform_2Dbegin: /* k tail env */ goto jump; } -s_loop_v14964: /* k l env */ +s_loop_v12868: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -10541,7 +7984,7 @@ s_loop_v14964: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14964; + goto s_loop_v12868; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10639,7 +8082,7 @@ gs_xform_2Dif: /* k tail env */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v14933; + goto s_loop_v12837; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -10650,7 +8093,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__23576); + r[4+2] = (cx__23579); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10658,7 +8101,7 @@ gs_xform_2Dif: /* k tail env */ goto jump; } -s_loop_v14933: /* k l env */ +s_loop_v12837: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -10670,7 +8113,7 @@ s_loop_v14933: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14933; + goto s_loop_v12837; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10736,15 +8179,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 v15597_tmp; + { fixnum_t v13501_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15597_tmp = (n); } + v13501_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15597_tmp); + obj t, l, o, *p, *d; int c = (v13501_tmp); hreserve(hbsz(3)*c, 5); /* 5 live regs */ - l = r[1]; t = (cx__23604); /* gc-safe */ + l = r[1]; t = (cx__23607); /* gc-safe */ o = t; p = &o; for (; l != mknull(); l = cdr(l)) { *--hp = t; d = hp; *--hp = car(l); @@ -10791,7 +8234,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__23594); + r[6+2] = (cx__23597); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10813,7 +8256,7 @@ gs_xform_2Dcall: /* k xexp tail env */ r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; - goto s_loop_v14900; + goto s_loop_v12804; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -10824,7 +8267,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__23627); + r[5+2] = (cx__23630); r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10832,7 +8275,7 @@ gs_xform_2Dcall: /* k xexp tail env */ goto jump; } -s_loop_v14900: /* k l env */ +s_loop_v12804: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -10844,7 +8287,7 @@ s_loop_v14900: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14900; + goto s_loop_v12804; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10950,79 +8393,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 v15596_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15596_tmp)); } + { const flonum_t v13500_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v13500_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 v15595_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15595_tmp)); } + { const flonum_t v13499_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v13499_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 v15594_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15594_tmp)); } + { const flonum_t v13498_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v13498_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 v15593_tmp = ((flonum_t)(+3)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v15593_tmp)); } + { const flonum_t v13497_tmp = ((flonum_t)(+3)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v13497_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 v15592_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15592_tmp)); } + { const flonum_t v13496_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v13496_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 v15591_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15591_tmp)); } + { const flonum_t v13495_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v13495_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 v15590_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15590_tmp)); } + { const flonum_t v13494_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v13494_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 v15589_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15589_tmp)); } + { const flonum_t v13493_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v13493_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 v15588_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool((v15588_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v13492_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool((v13492_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 v15587_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v15587_tmp)); } + { const flonum_t v13491_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v13491_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -11032,15 +8475,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 v15586_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool((v15586_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v13490_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool((v13490_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 v15585_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v15585_tmp)); } + { const flonum_t v13489_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v13489_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -11050,8 +8493,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 v15584_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v15584_tmp)); } + { const flonum_t v13488_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v13488_tmp)); } } } else { r[3] = obj_from_bool(((((r[1]) == obj_from_char('@')) || ((is_flonum_obj(r[1])) && (0))) && (1)) && (0)); @@ -11141,7 +8584,7 @@ case 92: /* clo ek r */ r[0] = r[6]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14851; + goto s_loop_v12755; } else { { /* define integrable-global */ static obj c[] = { obj_from_objptr(vmcases+11) }; @@ -11161,7 +8604,7 @@ case 92: /* clo ek r */ goto jump; } -s_loop_v14851: /* k l env */ +s_loop_v12755: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -11173,7 +8616,7 @@ s_loop_v14851: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14851; + goto s_loop_v12755; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -11304,7 +8747,7 @@ gs_xform_2Dlambda: /* k tail env */ r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v14765; + goto s_l_v12669; } case 98: /* clo ek r */ @@ -11314,7 +8757,7 @@ case 98: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v14765: /* ek r env tail k */ +s_l_v12669: /* ek r env tail k */ if (bool_from_obj(r[1])) { r[5] = (car((r[3]))); r[6+0] = r[4]; @@ -11324,7 +8767,7 @@ s_l_v14765: /* ek r env tail k */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v14766; + goto s_loop_v12670; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -11335,7 +8778,7 @@ s_l_v14765: /* ek r env tail k */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__23865); + r[2] = (cx__23868); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; @@ -11347,7 +8790,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_v14766: /* k vars ienv ipars tail */ +s_loop_v12670: /* k vars ienv ipars tail */ if ((ispair((r[1])))) { r[5] = (car((r[1]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ @@ -11488,13 +8931,13 @@ case 103: /* clo ek r */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } - { fixnum_t v15583_tmp; + { fixnum_t v13487_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15583_tmp = (n); } + v13487_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15583_tmp); + obj l, o = mknull(); int c = (v13487_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); @@ -11608,25 +9051,25 @@ case 107: /* clo ek r */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } - { fixnum_t v15581_tmp; + { fixnum_t v13485_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15581_tmp = (n); } + v13485_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15581_tmp); + obj l, o = mknull(); int c = (v13485_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 v15582_tmp; + { fixnum_t v13486_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15582_tmp = (n); } + v13486_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15582_tmp); + obj t, l, o, *p, *d; int c = (v13486_tmp); hreserve(hbsz(3)*c, 7); /* 7 live regs */ l = r[6]; t = r[3]; /* gc-safe */ o = t; p = &o; @@ -11667,7 +9110,7 @@ gs_xform_2Dlambda_2A: /* k tail env */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v14721; + goto s_loop_v12625; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -11678,7 +9121,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__23911); + r[4+2] = (cx__23914); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -11686,7 +9129,7 @@ gs_xform_2Dlambda_2A: /* k tail env */ goto jump; } -s_loop_v14721: /* k l env */ +s_loop_v12625: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -11698,7 +9141,7 @@ s_loop_v14721: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14721; + goto s_loop_v12625; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -11760,7 +9203,7 @@ case 109: /* clo ek r */ r[9+4] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v14725; + goto s_l_v12629; } else { r[0] = r[6]; r[1] = (car((r[5]))); @@ -11779,7 +9222,7 @@ case 109: /* clo ek r */ r[8+4] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v14725; + goto s_l_v12629; } case 110: /* clo ek r */ @@ -11811,7 +9254,7 @@ case 111: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v14725: /* ek r env aexp k */ +s_l_v12629: /* ek r env aexp k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; @@ -11831,7 +9274,7 @@ s_l_v14725: /* ek r env aexp k */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__23913); + r[2] = (cx__23916); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -11931,7 +9374,7 @@ gs_xform_2Dsyntax_2Dlambda: /* k tail env */ r[4+4] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v14667; + goto s_l_v12571; } case 116: /* clo ek r */ @@ -11941,7 +9384,7 @@ case 116: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v14667: /* ek r k env tail */ +s_l_v12571: /* ek r k env tail */ if (bool_from_obj(r[1])) { r[5] = (car((r[4]))); r[6] = (cdr((r[4]))); @@ -11968,7 +9411,7 @@ s_l_v14667: /* ek r k env tail */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23952); + r[2] = (cx__23955); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; @@ -11984,18 +9427,18 @@ case 117: /* clo k use useenv */ 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; + { fixnum_t v13484_tmp; + { fixnum_t v13483_tmp; { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15580_tmp = (n); } + v13484_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)); } } + v13483_tmp = (n); } + r[6] = obj_from_bool((v13484_tmp) == (v13483_tmp)); } } } else { r[6] = obj_from_bool(0); } @@ -12009,12 +9452,12 @@ case 117: /* clo k use useenv */ r[7+5] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v14670; + goto s_loop_v12574; } 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+2] = (cx__23963); r[6+3] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -12028,7 +9471,7 @@ case 118: /* clo k vars exps env */ r[1+4] = p[1]; r[1+5] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v14670: /* k vars exps env useenv forms */ +s_loop_v12574: /* k vars exps env useenv forms */ if ((isnull((r[1])))) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[0]; @@ -12175,7 +9618,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__23986); + r[4+2] = (cx__23989); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -12309,7 +9752,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__231002); + r[4+2] = (cx__231005); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -12398,13 +9841,13 @@ gs_xform_2Dbody: /* k tail env */ r[3+5] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v14551; + goto s_loop_v12455; } case 132: /* clo k env ids inits nids body */ assert(rc == 7); r += 1; /* shift reg. wnd */ -s_loop_v14551: /* k env ids inits nids body */ +s_loop_v12455: /* k env ids inits nids body */ if ((ispair((r[5])))) { r[6] = (car((r[5]))); r[6] = obj_from_bool(ispair((r[6]))); @@ -12438,37 +9881,37 @@ s_loop_v14551: /* k env ids inits nids body */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { - { fixnum_t v15578_tmp; + { fixnum_t v13482_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15578_tmp = (n); } + v13482_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15578_tmp); + obj l, o = mknull(); int c = (v13482_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 v15577_tmp; + { fixnum_t v13481_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15577_tmp = (n); } + v13481_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15577_tmp); + obj l, o = mknull(); int c = (v13481_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 v15576_tmp; + { fixnum_t v13480_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15576_tmp = (n); } + v13480_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15576_tmp); + obj l, o = mknull(); int c = (v13480_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); @@ -12501,13 +9944,13 @@ case 133: /* 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 v15575_tmp; + { fixnum_t v13479_tmp; { /* length */ int n; obj l = (r[11]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15575_tmp = (n); } + v13479_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15575_tmp); + obj t, l, o, *p, *d; int c = (v13479_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = (r[11]); t = r[4]; /* gc-safe */ o = t; p = &o; @@ -12570,7 +10013,7 @@ case 133: /* clo ek r */ r[13] = (hendblk(8+1)); r[0] = (r[13]); r[1] = (r[11]); - r[2] = (cx__231052); + r[2] = (cx__231055); r[3] = r[9]; goto gs_add_2Dbinding; } else { @@ -12594,37 +10037,37 @@ case 133: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v15574_tmp; + { fixnum_t v13478_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15574_tmp = (n); } + v13478_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15574_tmp); + obj l, o = mknull(); int c = (v13478_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 v15573_tmp; + { fixnum_t v13477_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15573_tmp = (n); } + v13477_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15573_tmp); + obj l, o = mknull(); int c = (v13477_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 v15572_tmp; + { fixnum_t v13476_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15572_tmp = (n); } + v13476_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15572_tmp); + obj l, o = mknull(); int c = (v13476_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); @@ -12847,7 +10290,7 @@ 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_v14466; + goto s_loop_v12370; case 140: /* clo k ids inits nids sets lids */ assert(rc == 7); @@ -12855,7 +10298,7 @@ case 140: /* clo k ids inits nids sets lids */ r[1+6] = p[1]; r[1+7] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v14466: /* k ids inits nids sets lids env body */ +s_loop_v12370: /* k ids inits nids sets lids env body */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; @@ -12871,7 +10314,7 @@ s_loop_v14466: /* k ids inits nids sets lids env body */ r[0] = r[9]; r[1] = r[7]; r[2] = r[6]; - goto s_loop_v14508; + goto s_loop_v12412; } else { r[9] = (car((r[3]))); r[9] = obj_from_bool(issymbol((r[9]))); @@ -12927,7 +10370,7 @@ s_loop_v14466: /* k ids inits nids sets lids env body */ } } -s_loop_v14508: /* k l env */ +s_loop_v12412: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -12939,7 +10382,7 @@ s_loop_v14508: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14508; + goto s_loop_v12412; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13001,25 +10444,25 @@ case 143: /* clo ek r */ r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k lids sets */ - { fixnum_t v15570_tmp; + { fixnum_t v13474_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15570_tmp = (n); } + v13474_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15570_tmp); + obj l, o = mknull(); int c = (v13474_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 v15571_tmp; + { fixnum_t v13475_tmp; { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15571_tmp = (n); } + v13475_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15571_tmp); + obj t, l, o, *p, *d; int c = (v13475_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[5]; t = r[1]; /* gc-safe */ o = t; p = &o; @@ -13061,10 +10504,10 @@ case 143: /* clo ek r */ r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[3]; - goto s_loop_v14493; + goto s_loop_v12397; } -s_loop_v14493: /* k l */ +s_loop_v12397: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(1+1), 3); /* 3 live regs */ @@ -13073,7 +10516,7 @@ s_loop_v14493: /* k l */ r[3] = (hendblk(1+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v14493; + goto s_loop_v12397; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -13094,7 +10537,7 @@ case 144: /* clo ek r */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = (cx__231161); + *--hp = (cx__231164); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; @@ -13120,13 +10563,13 @@ case 145: /* clo ek r */ *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } - { fixnum_t v15569_tmp; + { fixnum_t v13473_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15569_tmp = (n); } + v13473_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15569_tmp); + obj l, o = mknull(); int c = (v13473_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); @@ -13287,7 +10730,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__231192); + r[4+2] = (cx__231195); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -13379,7 +10822,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__231208); + r[4+2] = (cx__231211); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -13443,7 +10886,7 @@ case 155: /* clo 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__231222); + r[3+2] = (cx__231225); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -13858,7 +11301,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_v14295; + goto s_l_v12199; } } else { if ((isvector((r[1])))) { @@ -13913,7 +11356,7 @@ case 172: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v14295: /* ek r k l x */ +s_l_v12199: /* ek r k l x */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -14048,7 +11491,7 @@ case 176: /* clo k use use-env */ r[9+8] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13975; + goto s_loop_v11879; case 177: /* clo k rules */ assert(rc == 3); @@ -14061,7 +11504,7 @@ case 177: /* clo k rules */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_loop_v13975: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */ +s_loop_v11879: /* 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]; @@ -14089,7 +11532,7 @@ s_loop_v13975: /* k rules use-env pat-literals use mac-env not-pat-literal? elli r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; - r[2] = (cx__231659); + r[2] = (cx__231662); r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; @@ -14119,7 +11562,7 @@ s_loop_v13975: /* 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_v13977; + goto s_l_v11881; } case 178: /* clo ek . */ @@ -14137,7 +11580,7 @@ case 178: /* clo ek . */ r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ -s_l_v13977: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */ +s_l_v11881: /* 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]))); @@ -14261,9 +11704,9 @@ case 180: /* clo ek r */ r[0] = (r[12]); /* r[1] */ /* r[2] */ - goto s_loop_v14228; + goto s_loop_v12132; -s_loop_v14228: /* k l mac-env */ +s_loop_v12132: /* k l mac-env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -14275,7 +11718,7 @@ s_loop_v14228: /* k l mac-env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14228; + goto s_loop_v12132; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14557,7 +12000,7 @@ 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_v14122; + goto s_l_v12026; } } } @@ -14568,13 +12011,13 @@ case 188: /* clo ek r */ r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ - { fixnum_t v15568_tmp; + { fixnum_t v13472_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15568_tmp = (n); } + v13472_tmp = (n); } { /* list->vector */ - obj l; int i, c = (v15568_tmp); + obj l; int i, c = (v13472_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); @@ -14600,7 +12043,7 @@ case 189: /* clo ek r */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_l_v14122: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ +s_l_v12026: /* 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]; @@ -14703,7 +12146,7 @@ case 190: /* clo ek r */ r[0] = r[8]; /* r[1] */ /* r[2] */ - goto s_loop_v14161; + goto s_loop_v12065; } case 191: /* clo k vals */ @@ -14792,7 +12235,7 @@ case 194: /* clo ek r */ rc = 3; goto jump; -s_loop_v14161: /* k l bindings */ +s_loop_v12065: /* k l bindings */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -14804,7 +12247,7 @@ s_loop_v14161: /* k l bindings */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14161; + goto s_loop_v12065; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14906,13 +12349,13 @@ case 198: /* clo ek r */ r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ - { fixnum_t v15567_tmp; + { fixnum_t v13471_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15567_tmp = (n); } + v13471_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15567_tmp); + obj t, l, o, *p, *d; int c = (v13471_tmp); hreserve(hbsz(3)*c, 4); /* 4 live regs */ l = r[3]; t = r[1]; /* gc-safe */ o = t; p = &o; @@ -15095,7 +12538,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_v14088; + goto s_l_v11992; } } else { { /* cons */ @@ -15139,7 +12582,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_v14070; + goto s_l_v11974; } else { r[0] = (r[10]); pc = objptr_from_obj(r[0])[0]; @@ -15156,7 +12599,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_v14088; + goto s_l_v11992; } else { hreserve(hbsz(8+1), 13); /* 13 live regs */ *--hp = r[1]; @@ -15187,7 +12630,7 @@ case 205: /* clo k condition */ r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ -s_l_v14088: /* k condition return bindings */ +s_l_v11992: /* k condition return bindings */ if (bool_from_obj(r[1])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15257,7 +12700,7 @@ case 208: /* clo ek . */ r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ -s_l_v14070: /* ek . match bindings sexp pat k */ +s_l_v11974: /* 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 */ @@ -15333,7 +12776,7 @@ case 209: /* clo ek r */ r[13+10] = (r[10]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13990; + goto s_l_v11894; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -15385,7 +12828,7 @@ case 210: /* clo ek r */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -s_l_v13990: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */ +s_l_v11894: /* 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]; @@ -15420,7 +12863,7 @@ s_l_v13990: /* 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_v13992; + goto s_l_v11896; } case 211: /* clo ek . */ @@ -15437,35 +12880,35 @@ case 211: /* clo ek . */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -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]); +s_l_v11896: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */ + { const fixnum_t v13468_tail_2Dlen = fixnum_from_obj(r[10]); { /* list-tail */ - obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v15564_tail_2Dlen))); + obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v13468_tail_2Dlen))); while (c-- > 0) l = cdr(l); r[11] = (l); } - { fixnum_t v15565_tmp; + { fixnum_t v13469_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15565_tmp = (n); } + v13469_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15565_tmp); + obj l, o = mknull(); int c = (v13469_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 = (v15564_tail_2Dlen); + obj l = (r[12]); int c = (v13468_tail_2Dlen); while (c-- > 0) l = cdr(l); r[12] = (l); } - { fixnum_t v15566_tmp; + { fixnum_t v13470_tmp; { /* length */ int n; obj l = (r[12]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15566_tmp = (n); } + v13470_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15566_tmp); + obj l, o = mknull(); int c = (v13470_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); @@ -15515,9 +12958,9 @@ case 212: /* clo ek r */ r[1] = r[2]; r[2] = r[3]; r[3] = r[6]; - goto s_loop_v14013; + goto s_loop_v11917; -s_loop_v14013: /* k l match pat */ +s_loop_v11917: /* k l match pat */ if ((ispair((r[1])))) { r[4] = (cdr((r[1]))); hreserve(hbsz(4+1), 5); /* 5 live regs */ @@ -15531,7 +12974,7 @@ s_loop_v14013: /* k l match pat */ r[1] = r[4]; /* r[2] */ /* r[3] */ - goto s_loop_v14013; + goto s_loop_v11917; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15585,9 +13028,9 @@ case 214: /* clo ek r */ r[0] = r[5]; /* r[1] */ /* r[2] */ - goto s_loop_v14024; + goto s_loop_v11928; -s_loop_v14024: /* k l f */ +s_loop_v11928: /* k l f */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -15599,7 +13042,7 @@ s_loop_v14024: /* k l f */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v14024; + goto s_loop_v11928; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15750,13 +13193,13 @@ case 220: /* clo ek r */ r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ - { fixnum_t v15563_tmp; + { fixnum_t v13467_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15563_tmp = (n); } + v13467_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15563_tmp); + obj t, l, o, *p, *d; int c = (v13467_tmp); hreserve(hbsz(3)*c, 4); /* 4 live regs */ l = r[3]; t = r[1]; /* gc-safe */ o = t; p = &o; @@ -15953,7 +13396,7 @@ case 227: /* clo ek r */ r[3+1] = r[1]; r[3+2] = obj_from_bool(0); r[3+3] = (mknull()); - r[3+4] = (cx__231719); + r[3+4] = (cx__231722); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_syntax_2Drules_2A; @@ -15971,516 +13414,6 @@ case 228: /* clo ek r */ goto gs_top_2Dtransformer_2Denv; case 229: /* 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(230); - 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__231760); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 230: /* 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(231); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("letrec-syntax"))); - goto gs_top_2Dtransformer_2Denv; - -case 231: /* 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(232); - 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__231792); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 232: /* 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(233); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("let-syntax"))); - goto gs_top_2Dtransformer_2Denv; - -case 233: /* 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(234); - 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__231850); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 234: /* 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(235); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("letrec"))); - goto gs_top_2Dtransformer_2Denv; - -case 235: /* 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(236); - 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__231882); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 236: /* 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(237); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("let"))); - goto gs_top_2Dtransformer_2Denv; - -case 237: /* 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(238); - 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__231962); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 238: /* 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(239); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("let*"))); - goto gs_top_2Dtransformer_2Denv; - -case 239: /* 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(240); - 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__232000); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 240: /* 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(241); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("and"))); - goto gs_top_2Dtransformer_2Denv; - -case 241: /* 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(242); - 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__232040); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 242: /* 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(243); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("or"))); - goto gs_top_2Dtransformer_2Denv; - -case 243: /* 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(244); - 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__232199); - r[4+5] = (cx__232092); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 244: /* 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(245); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("cond"))); - goto gs_top_2Dtransformer_2Denv; - -case 245: /* 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(246); - 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__232240); - r[4+5] = (cx__232205); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 246: /* 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(247); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("case-test"))); - goto gs_top_2Dtransformer_2Denv; - -case 247: /* 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(248); - 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__232244); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 248: /* 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(249); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("case"))); - goto gs_top_2Dtransformer_2Denv; - -case 249: /* 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(250); - 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__232288); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 6; - goto jump; - -case 250: /* 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(251); - r[2] = (hendblk(1+1)); - r[0] = r[2]; - r[1] = (mksymbol(internsym("do"))); - goto gs_top_2Dtransformer_2Denv; - -case 251: /* 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(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]; } @@ -16488,9 +13421,9 @@ case 259: /* clo ek r */ /* 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; } + { static obj c[] = { obj_from_case(230) }; cx_global_2Dlocation = (obj)c; } hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(261); + *--hp = obj_from_case(231); r[3] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16498,57 +13431,57 @@ case 259: /* 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(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; } + { static obj c[] = { obj_from_case(232) }; cx_write_2Dserialized_2Dchar = (obj)c; } + { static obj c[] = { obj_from_case(234) }; cx_write_2Dserialized_2Dsize = (obj)c; } + { static obj c[] = { obj_from_case(236) }; cx_write_2Dserialized_2Delement = (obj)c; } + { static obj c[] = { obj_from_case(238) }; cx_write_2Dserialized_2Dsexp = (obj)c; } + { static obj c[] = { obj_from_case(254) }; cx_write_2Dserialized_2Darg = (obj)c; } + { static obj c[] = { obj_from_case(256) }; cx_find_2Dfree_2A = (obj)c; } + { static obj c[] = { obj_from_case(259) }; cx_find_2Dfree = (obj)c; } + { static obj c[] = { obj_from_case(287) }; cx_find_2Dsets_2A = (obj)c; } + { static obj c[] = { obj_from_case(290) }; cx_find_2Dsets = (obj)c; } + { static obj c[] = { obj_from_case(318) }; cx_codegen = (obj)c; } + { static obj c[] = { obj_from_case(426) }; 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(459) }; cx_execute = (obj)c; } + { static obj c[] = { obj_from_case(429) }; 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(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; } + { static obj c[] = { obj_from_case(431) }; cx_evaluate = (obj)c; } + cx__2Ahide_2Drefs_2A = (cx__232818); + { static obj c[] = { obj_from_case(436) }; cx_display_2Dcode = (obj)c; } + { static obj c[] = { obj_from_case(437) }; cx_process_2Ddefine_2Dsyntax = (obj)c; } + { static obj c[] = { obj_from_case(444) }; cx_process_2Dstatement = (obj)c; } + { static obj c[] = { obj_from_case(448) }; cx_process_2Ddefine = (obj)c; } + { static obj c[] = { obj_from_case(452) }; cx_scan_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(465) }; cx_process_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(490) }; cx_path_2Dstrip_2Ddirectory = (obj)c; } + { static obj c[] = { obj_from_case(491) }; cx_path_2Dstrip_2Dextension = (obj)c; } + { static obj c[] = { obj_from_case(492) }; cx_module_2Dname = (obj)c; } + { static obj c[] = { obj_from_case(494) }; 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(533); + *--hp = obj_from_case(503); r[4] = (hendblk(0+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__234044); + r[2] = (cx__233172); rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 260: /* global-location k sym */ +case 230: /* global-location k sym */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k sym */ @@ -16587,34 +13520,34 @@ case 260: /* global-location k sym */ rc = 3; goto jump; -case 261: /* clo k msg args */ +case 231: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ { /* string-append */ - int *d = stringcat(stringdata((cx__232653)), stringdata((r[1]))); + int *d = stringcat(stringdata((cx__231781)), stringdata((r[1]))); r[3] = (hpushstr(3, d)); } /* r[0] */ r[1] = r[3]; /* r[2] */ goto gs_error_2A; -case 262: /* write-serialized-char k x port */ +case 232: /* write-serialized-char k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dchar: /* k x port */ - { const char_t v15562_x = char_from_obj(r[1]); - if ((((v15562_x) == ('%')) || (((v15562_x) == (34)) || (((v15562_x) == (92)) || (((v15562_x) < (' ')) || ((v15562_x) > ('~'))))))) { + { const char_t v13466_x = char_from_obj(r[1]); + if ((((v13466_x) == ('%')) || (((v13466_x) == (34)) || (((v13466_x) == (92)) || (((v13466_x) < (' ')) || ((v13466_x) > ('~'))))))) { (void)(oportputc(('%'), (r[2]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(263); + *--hp = obj_from_case(233); 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)(v15562_x)); + r[4+2] = obj_from_fixnum((fixnum_t)(v13466_x)); r[4+3] = obj_from_fixnum(+16); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -16624,13 +13557,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((v15562_x), (r[2]))); + r[2] = obj_from_void(oportputc((v13466_x), (r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } -case 263: /* clo ek r */ +case 233: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16648,14 +13581,14 @@ case 263: /* clo ek r */ rc = 3; goto jump; -case 264: /* write-serialized-size k n port */ +case 234: /* 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(265); + *--hp = obj_from_case(235); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -16667,7 +13600,7 @@ case 264: /* write-serialized-size k n port */ rc = 4; goto jump; -case 265: /* clo ek r */ +case 235: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16683,21 +13616,21 @@ case 265: /* clo ek r */ rc = 3; goto jump; -case 266: /* write-serialized-element k x port */ +case 236: /* 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(267); + *--hp = obj_from_case(237); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_write_2Dserialized_2Dsexp; -case 267: /* clo ek . */ +case 237: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16713,7 +13646,7 @@ case 267: /* clo ek . */ rc = 3; goto jump; -case 268: /* write-serialized-sexp k x port */ +case 238: /* write-serialized-sexp k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dsexp: /* k x port */ @@ -16756,7 +13689,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(269); + *--hp = obj_from_case(239); r[3] = (hendblk(2+1)); if ((is_fixnum_obj(r[1]))) { r[4+0] = (cx_fixnum_2D_3Estring); @@ -16789,7 +13722,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(240); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -16808,7 +13741,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(273); + *--hp = obj_from_case(243); r[4] = (hendblk(3+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -16826,7 +13759,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(275); + *--hp = obj_from_case(245); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -16844,7 +13777,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(278); + *--hp = obj_from_case(248); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -16863,7 +13796,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[3]; - *--hp = obj_from_case(281); + *--hp = obj_from_case(251); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -16878,7 +13811,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__232692); + r[3+2] = (cx__231820); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -16895,7 +13828,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ } } -case 269: /* clo ek r */ +case 239: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16911,7 +13844,7 @@ case 269: /* clo ek r */ rc = 3; goto jump; -case 270: /* clo ek r */ +case 240: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16924,14 +13857,14 @@ case 270: /* clo ek r */ r[0] = r[3]; r[1] = r[2]; r[2] = r[4]; - goto s_loop_v13726; + goto s_loop_v11750; -case 271: /* clo k x */ +case 241: /* 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_v13726: /* k x port */ +s_loop_v11750: /* k x port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16944,14 +13877,14 @@ s_loop_v13726: /* k x port */ r[3] = (car((r[1]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; - *--hp = obj_from_case(271); + *--hp = obj_from_case(241); 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(272); + *--hp = obj_from_case(242); r[4] = (hendblk(4+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -16964,7 +13897,7 @@ s_loop_v13726: /* k x port */ goto jump; } -case 272: /* clo ek . */ +case 242: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16983,7 +13916,7 @@ case 272: /* clo ek . */ rc = 3; goto jump; -case 273: /* clo ek . */ +case 243: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16997,7 +13930,7 @@ case 273: /* clo ek . */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(274); + *--hp = obj_from_case(244); r[6] = (hendblk(2+1)); r[0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[0])[0]; @@ -17008,7 +13941,7 @@ case 273: /* clo ek . */ rc = 4; goto jump; -case 274: /* clo ek . */ +case 244: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17024,7 +13957,7 @@ case 274: /* clo ek . */ rc = 3; goto jump; -case 275: /* clo ek r */ +case 245: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17040,15 +13973,15 @@ case 275: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13697; + goto s_loop_v11721; -case 276: /* clo k i */ +case 246: /* 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_v13697: /* k i port x */ +s_loop_v11721: /* k i port x */ if ((fixnum_from_obj(r[1]) == (vectorlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -17062,14 +13995,14 @@ s_loop_v13697: /* k i port x */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(276); + *--hp = obj_from_case(246); 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(277); + *--hp = obj_from_case(247); r[5] = (hendblk(4+1)); r[6+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[6+0])[0]; @@ -17082,7 +14015,7 @@ s_loop_v13697: /* k i port x */ goto jump; } -case 277: /* clo ek . */ +case 247: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17101,7 +14034,7 @@ case 277: /* clo ek . */ rc = 3; goto jump; -case 278: /* clo ek r */ +case 248: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17117,15 +14050,15 @@ case 278: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13680; + goto s_loop_v11704; -case 279: /* clo k i */ +case 249: /* 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_v13680: /* k i port x */ +s_loop_v11704: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -17138,13 +14071,13 @@ s_loop_v13680: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(279); + *--hp = obj_from_case(249); 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(280); + *--hp = obj_from_case(250); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); @@ -17152,7 +14085,7 @@ s_loop_v13680: /* k i port x */ goto gs_write_2Dserialized_2Dchar; } -case 280: /* clo ek . */ +case 250: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17169,7 +14102,7 @@ case 280: /* clo ek . */ rc = 3; goto jump; -case 281: /* clo ek r */ +case 251: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17185,15 +14118,15 @@ case 281: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13663; + goto s_loop_v11687; -case 282: /* clo k i */ +case 252: /* 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_v13663: /* k i port x */ +s_loop_v11687: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -17206,13 +14139,13 @@ s_loop_v13663: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(282); + *--hp = obj_from_case(252); 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(283); + *--hp = obj_from_case(253); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); @@ -17220,7 +14153,7 @@ s_loop_v13663: /* k i port x */ goto gs_write_2Dserialized_2Dchar; } -case 283: /* clo ek . */ +case 253: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17237,14 +14170,14 @@ case 283: /* clo ek . */ rc = 3; goto jump; -case 284: /* write-serialized-arg k arg port */ +case 254: /* 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 v15561_arg = fixnum_from_obj(r[1]); - r[3] = obj_from_bool(((+0) <= (v15561_arg)) && ((v15561_arg) <= (+9))); } + { const fixnum_t v13465_arg = fixnum_from_obj(r[1]); + r[3] = obj_from_bool(((+0) <= (v13465_arg)) && ((v13465_arg) <= (+9))); } } else { r[3] = obj_from_bool(0); } @@ -17252,8 +14185,8 @@ gs_write_2Dserialized_2Darg: /* k arg port */ r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { - { 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]))); } + { const char_t v13464_tmp = (*(unsigned char*)stringref((cx__231900), fixnum_from_obj(r[1]))); + r[3] = obj_from_void(oportputc((v13464_tmp), (r[2]))); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); @@ -17267,7 +14200,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(285); + *--hp = obj_from_case(255); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ @@ -17275,7 +14208,7 @@ gs_write_2Dserialized_2Darg: /* k arg port */ goto gs_write_2Dserialized_2Dsexp; } -case 285: /* clo ek . */ +case 255: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17291,7 +14224,7 @@ case 285: /* clo ek . */ rc = 3; goto jump; -case 286: /* find-free* k x* b */ +case 256: /* find-free* k x* b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree_2A: /* k x* b */ @@ -17308,7 +14241,7 @@ gs_find_2Dfree_2A: /* k x* b */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(287); + *--hp = obj_from_case(257); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -17316,7 +14249,7 @@ gs_find_2Dfree_2A: /* k x* b */ goto gs_find_2Dfree; } -case 287: /* clo ek r */ +case 257: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17327,14 +14260,14 @@ case 287: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(288); + *--hp = obj_from_case(258); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dfree_2A; -case 288: /* clo ek r */ +case 258: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17348,7 +14281,7 @@ case 288: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 289: /* find-free k x b */ +case 259: /* find-free k x b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree: /* k x b */ @@ -17356,7 +14289,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(290); + *--hp = obj_from_case(260); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17373,7 +14306,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(291); + *--hp = obj_from_case(261); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17390,7 +14323,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(292); + *--hp = obj_from_case(262); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17407,7 +14340,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(264); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17424,7 +14357,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(295); + *--hp = obj_from_case(265); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17441,7 +14374,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(298); + *--hp = obj_from_case(268); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -17464,7 +14397,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(302); + *--hp = obj_from_case(272); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17481,7 +14414,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(274); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17498,7 +14431,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(307); + *--hp = obj_from_case(277); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -17515,7 +14448,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(312); + *--hp = obj_from_case(282); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -17538,7 +14471,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(313); + *--hp = obj_from_case(283); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -17561,7 +14494,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(314); + *--hp = obj_from_case(284); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -17599,7 +14532,7 @@ gs_find_2Dfree: /* k x b */ } } -case 290: /* clo k obj */ +case 260: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -17612,7 +14545,7 @@ case 290: /* clo k obj */ rc = 3; goto jump; -case 291: /* clo k id */ +case 261: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -17637,7 +14570,7 @@ case 291: /* clo k id */ rc = 3; goto jump; -case 292: /* clo k id exp */ +case 262: /* clo k id exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17647,14 +14580,14 @@ case 292: /* clo k id exp */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(293); + *--hp = obj_from_case(263); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; -case 293: /* clo ek r */ +case 263: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17679,7 +14612,7 @@ case 293: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 294: /* clo k id */ +case 264: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -17704,7 +14637,7 @@ case 294: /* clo k id */ rc = 3; goto jump; -case 295: /* clo k idsi exp */ +case 265: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17714,13 +14647,13 @@ case 295: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(296); + *--hp = obj_from_case(266); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 296: /* clo ek r */ +case 266: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17731,14 +14664,14 @@ case 296: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(297); + *--hp = obj_from_case(267); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ goto gs_set_2Dunion; -case 297: /* clo ek r */ +case 267: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17752,7 +14685,7 @@ case 297: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 298: /* clo k clauses */ +case 268: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -17762,26 +14695,26 @@ case 298: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(301); + *--hp = obj_from_case(271); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v13546; + goto s_loop_v11570; -s_loop_v13546: /* k l f */ +s_loop_v11570: /* 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(299); + *--hp = obj_from_case(269); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13546; + goto s_loop_v11570; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -17792,7 +14725,7 @@ s_loop_v13546: /* k l f */ goto jump; } -case 299: /* clo ek r */ +case 269: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17803,7 +14736,7 @@ case 299: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(300); + *--hp = obj_from_case(270); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -17813,7 +14746,7 @@ case 299: /* clo ek r */ rc = 3; goto jump; -case 300: /* clo ek r */ +case 270: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17835,7 +14768,7 @@ case 300: /* clo ek r */ rc = 3; goto jump; -case 301: /* clo ek r */ +case 271: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17847,7 +14780,7 @@ case 301: /* clo ek r */ /* r[2] */ goto gs_find_2Dfree_2A; -case 302: /* clo k kid exp */ +case 272: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17856,7 +14789,7 @@ case 302: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(303); + *--hp = obj_from_case(273); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -17869,7 +14802,7 @@ case 302: /* clo k kid exp */ r[2] = r[3]; goto gs_set_2Dunion; -case 303: /* clo ek r */ +case 273: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17883,7 +14816,7 @@ case 303: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 304: /* clo k kexp exp */ +case 274: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -17893,14 +14826,14 @@ case 304: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(305); + *--hp = obj_from_case(275); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; -case 305: /* clo ek r */ +case 275: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17911,14 +14844,14 @@ case 305: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(306); + *--hp = obj_from_case(276); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; -case 306: /* clo ek r */ +case 276: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17932,7 +14865,7 @@ case 306: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 307: /* clo k test then else */ +case 277: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -17943,14 +14876,14 @@ case 307: /* clo k test then else */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(308); + *--hp = obj_from_case(278); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dfree; -case 308: /* clo ek r */ +case 278: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17964,14 +14897,14 @@ case 308: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(309); + *--hp = obj_from_case(279); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; -case 309: /* clo ek r */ +case 279: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17984,14 +14917,14 @@ case 309: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(310); + *--hp = obj_from_case(280); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; -case 310: /* clo ek r */ +case 280: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18002,7 +14935,7 @@ case 310: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(311); + *--hp = obj_from_case(281); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -18011,7 +14944,7 @@ case 310: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 311: /* clo ek r */ +case 281: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18025,7 +14958,7 @@ case 311: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 312: /* clo k exps */ +case 282: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -18036,7 +14969,7 @@ case 312: /* clo k exps */ /* r[2] */ goto gs_find_2Dfree_2A; -case 313: /* clo k ig args */ +case 283: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18047,7 +14980,7 @@ case 313: /* clo k ig args */ r[2] = r[3]; goto gs_find_2Dfree_2A; -case 314: /* clo k exp args */ +case 284: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18057,14 +14990,14 @@ case 314: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(315); + *--hp = obj_from_case(285); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; -case 315: /* clo ek r */ +case 285: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18075,14 +15008,14 @@ case 315: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(316); + *--hp = obj_from_case(286); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree_2A; -case 316: /* clo ek r */ +case 286: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18096,7 +15029,7 @@ case 316: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 317: /* find-sets* k x* v */ +case 287: /* find-sets* k x* v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets_2A: /* k x* v */ @@ -18113,7 +15046,7 @@ gs_find_2Dsets_2A: /* k x* v */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(318); + *--hp = obj_from_case(288); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -18121,7 +15054,7 @@ gs_find_2Dsets_2A: /* k x* v */ goto gs_find_2Dsets; } -case 318: /* clo ek r */ +case 288: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18132,14 +15065,14 @@ case 318: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(319); + *--hp = obj_from_case(289); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dsets_2A; -case 319: /* clo ek r */ +case 289: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18153,7 +15086,7 @@ case 319: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 320: /* find-sets k x v */ +case 290: /* find-sets k x v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets: /* k x v */ @@ -18161,7 +15094,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(321); + *--hp = obj_from_case(291); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18177,7 +15110,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(322); + *--hp = obj_from_case(292); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18194,7 +15127,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(323); + *--hp = obj_from_case(293); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18211,7 +15144,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(295); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18228,7 +15161,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(326); + *--hp = obj_from_case(296); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18245,7 +15178,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(329); + *--hp = obj_from_case(299); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -18268,7 +15201,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(333); + *--hp = obj_from_case(303); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18285,7 +15218,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(335); + *--hp = obj_from_case(305); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18302,7 +15235,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(338); + *--hp = obj_from_case(308); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -18325,7 +15258,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(339); + *--hp = obj_from_case(309); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -18342,7 +15275,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(344); + *--hp = obj_from_case(314); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -18365,7 +15298,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(345); + *--hp = obj_from_case(315); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -18403,7 +15336,7 @@ gs_find_2Dsets: /* k x v */ } } -case 321: /* clo k obj */ +case 291: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -18416,7 +15349,7 @@ case 321: /* clo k obj */ rc = 3; goto jump; -case 322: /* clo k id */ +case 292: /* clo k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k id */ @@ -18429,7 +15362,7 @@ case 322: /* clo k id */ rc = 3; goto jump; -case 323: /* clo k id x */ +case 293: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18439,14 +15372,14 @@ case 323: /* clo k id x */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(324); + *--hp = obj_from_case(294); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 324: /* clo ek r */ +case 294: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18471,7 +15404,7 @@ case 324: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 325: /* clo k id */ +case 295: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -18496,7 +15429,7 @@ case 325: /* clo k id */ rc = 3; goto jump; -case 326: /* clo k idsi exp */ +case 296: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18506,13 +15439,13 @@ case 326: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(327); + *--hp = obj_from_case(297); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 327: /* clo ek r */ +case 297: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18523,7 +15456,7 @@ case 327: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(328); + *--hp = obj_from_case(298); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -18532,7 +15465,7 @@ case 327: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 328: /* clo ek r */ +case 298: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18546,7 +15479,7 @@ case 328: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 329: /* clo k clauses */ +case 299: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -18556,26 +15489,26 @@ case 329: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(332); + *--hp = obj_from_case(302); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v13335; + goto s_loop_v11359; -s_loop_v13335: /* k l f */ +s_loop_v11359: /* 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(330); + *--hp = obj_from_case(300); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13335; + goto s_loop_v11359; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18586,7 +15519,7 @@ s_loop_v13335: /* k l f */ goto jump; } -case 330: /* clo ek r */ +case 300: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18597,7 +15530,7 @@ case 330: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(331); + *--hp = obj_from_case(301); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -18607,7 +15540,7 @@ case 330: /* clo ek r */ rc = 3; goto jump; -case 331: /* clo ek r */ +case 301: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18629,7 +15562,7 @@ case 331: /* clo ek r */ rc = 3; goto jump; -case 332: /* clo ek r */ +case 302: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18641,7 +15574,7 @@ case 332: /* clo ek r */ /* r[2] */ goto gs_find_2Dsets_2A; -case 333: /* clo k kid exp */ +case 303: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18650,7 +15583,7 @@ case 333: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(334); + *--hp = obj_from_case(304); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -18665,7 +15598,7 @@ case 333: /* clo k kid exp */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 334: /* clo ek r */ +case 304: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18679,7 +15612,7 @@ case 334: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 335: /* clo k kexp exp */ +case 305: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18689,14 +15622,14 @@ case 335: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(336); + *--hp = obj_from_case(306); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; -case 336: /* clo ek r */ +case 306: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18707,14 +15640,14 @@ case 336: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(337); + *--hp = obj_from_case(307); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 337: /* clo ek r */ +case 307: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18728,7 +15661,7 @@ case 337: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 338: /* clo k exps */ +case 308: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -18739,7 +15672,7 @@ case 338: /* clo k exps */ /* r[2] */ goto gs_find_2Dsets_2A; -case 339: /* clo k test then else */ +case 309: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -18750,14 +15683,14 @@ case 339: /* clo k test then else */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(340); + *--hp = obj_from_case(310); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dsets; -case 340: /* clo ek r */ +case 310: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18771,14 +15704,14 @@ case 340: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(341); + *--hp = obj_from_case(311); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 341: /* clo ek r */ +case 311: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18791,14 +15724,14 @@ case 341: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(342); + *--hp = obj_from_case(312); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 342: /* clo ek r */ +case 312: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18809,7 +15742,7 @@ case 342: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(343); + *--hp = obj_from_case(313); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -18818,7 +15751,7 @@ case 342: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 343: /* clo ek r */ +case 313: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18832,7 +15765,7 @@ case 343: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 344: /* clo k ig args */ +case 314: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18843,7 +15776,7 @@ case 344: /* clo k ig args */ r[2] = r[3]; goto gs_find_2Dsets_2A; -case 345: /* clo k exp args */ +case 315: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -18853,14 +15786,14 @@ case 345: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(346); + *--hp = obj_from_case(316); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; -case 346: /* clo ek r */ +case 316: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18871,14 +15804,14 @@ case 346: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(347); + *--hp = obj_from_case(317); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets_2A; -case 347: /* clo ek r */ +case 317: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18892,7 +15825,7 @@ case 347: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 348: /* codegen k x l f s g k port */ +case 318: /* 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 */ @@ -18902,7 +15835,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(349); + *--hp = obj_from_case(319); r[8] = (hendblk(2+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18923,7 +15856,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(351); + *--hp = obj_from_case(321); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18945,7 +15878,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(355); + *--hp = obj_from_case(325); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18965,7 +15898,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[6]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(358); + *--hp = obj_from_case(328); r[8] = (hendblk(4+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -18987,7 +15920,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(360); + *--hp = obj_from_case(330); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -19015,7 +15948,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(364); + *--hp = obj_from_case(334); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -19037,7 +15970,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(368); + *--hp = obj_from_case(338); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -19059,7 +15992,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(384); + *--hp = obj_from_case(354); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -19087,7 +16020,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(393); + *--hp = obj_from_case(363); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -19108,7 +16041,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(400); + *--hp = obj_from_case(370); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -19130,7 +16063,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(405); + *--hp = obj_from_case(375); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -19158,7 +16091,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[5]; *--hp = r[7]; *--hp = r[4]; - *--hp = obj_from_case(436); + *--hp = obj_from_case(406); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -19196,7 +16129,7 @@ gs_codegen: /* k x l f s g k port */ } } -case 349: /* clo k obj */ +case 319: /* clo k obj */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19207,7 +16140,7 @@ case 349: /* clo k obj */ *--hp = r[3]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(350); + *--hp = obj_from_case(320); 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]))); @@ -19218,7 +16151,7 @@ case 349: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13198; + goto s_l_v11222; } else { if (((((r[1]) == obj_from_bool(0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[5] = obj_from_void(oportputc(('f'), (r[2]))); @@ -19229,7 +16162,7 @@ case 349: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13198; + goto s_l_v11222; } 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]))); @@ -19240,7 +16173,7 @@ case 349: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13198; + goto s_l_v11222; } else { (void)(oportputc((39), (r[2]))); r[0] = r[4]; @@ -19251,7 +16184,7 @@ case 349: /* clo k obj */ } } -case 350: /* clo ek . */ +case 320: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19259,7 +16192,7 @@ case 350: /* clo ek . */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v13198: /* ek . k port k */ +s_l_v11222: /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; @@ -19276,7 +16209,7 @@ s_l_v13198: /* ek . k port k */ goto jump; } -case 351: /* clo k id */ +case 321: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19291,7 +16224,7 @@ case 351: /* clo k id */ *--hp = r[5]; *--hp = r[4]; *--hp = r[0]; - *--hp = obj_from_case(352); + *--hp = obj_from_case(322); r[8] = (hendblk(3+1)); if (bool_from_obj(r[7])) { (void)(oportputc(('.'), (r[4]))); @@ -19300,7 +16233,7 @@ case 351: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(353); + *--hp = obj_from_case(323); r[9] = (hendblk(4+1)); r[0] = r[9]; r[1] = r[7]; @@ -19315,7 +16248,7 @@ case 351: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(354); + *--hp = obj_from_case(324); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; @@ -19330,7 +16263,7 @@ case 351: /* clo k id */ } } -case 352: /* clo ek . */ +case 322: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19355,7 +16288,7 @@ case 352: /* clo ek . */ goto jump; } -case 353: /* clo ek . */ +case 323: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19373,7 +16306,7 @@ case 353: /* clo ek . */ rc = 3; goto jump; -case 354: /* clo ek . */ +case 324: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19391,7 +16324,7 @@ case 354: /* clo ek . */ rc = 3; goto jump; -case 355: /* clo k id x */ +case 325: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -19409,7 +16342,7 @@ case 355: /* clo k id x */ *--hp = r[6]; *--hp = r[0]; *--hp = r[5]; - *--hp = obj_from_case(356); + *--hp = obj_from_case(326); r[9] = (hendblk(6+1)); r[10+0] = r[9]; r[10+1] = r[2]; @@ -19423,7 +16356,7 @@ case 355: /* clo k id x */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 356: /* clo ek . */ +case 326: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19440,7 +16373,7 @@ case 356: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(357); + *--hp = obj_from_case(327); r[9] = (hendblk(3+1)); if (bool_from_obj(r[8])) { (void)(oportputc(('.'), (r[4]))); @@ -19468,7 +16401,7 @@ case 356: /* clo ek . */ } } -case 357: /* clo ek . */ +case 327: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19493,7 +16426,7 @@ case 357: /* clo ek . */ goto jump; } -case 358: /* clo k id */ +case 328: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19507,7 +16440,7 @@ case 358: /* clo k id */ *--hp = r[4]; *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(359); + *--hp = obj_from_case(329); r[7] = (hendblk(3+1)); if (bool_from_obj(r[6])) { (void)(oportputc(('.'), (r[3]))); @@ -19532,7 +16465,7 @@ case 358: /* clo k id */ } } -case 359: /* clo ek . */ +case 329: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19557,7 +16490,7 @@ case 359: /* clo ek . */ goto jump; } -case 360: /* clo k exps */ +case 330: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19573,7 +16506,7 @@ case 360: /* clo k exps */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; - *--hp = obj_from_case(363); + *--hp = obj_from_case(333); r[8] = (hendblk(4+1)); r[9+0] = r[8]; r[9+1] = r[1]; @@ -19585,9 +16518,9 @@ case 360: /* clo k exps */ r[9+7] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13124; + goto s_loop_v11148; -case 361: /* clo k xl */ +case 331: /* clo k xl */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19597,7 +16530,7 @@ case 361: /* clo k xl */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_loop_v13124: /* k xl port g s f l k */ +s_loop_v11148: /* 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]))); @@ -19613,13 +16546,13 @@ s_loop_v13124: /* k xl port g s f l k */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(361); + *--hp = obj_from_case(331); 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(362); + *--hp = obj_from_case(332); r[9] = (hendblk(3+1)); r[10+0] = r[9]; r[10+1] = (car((r[1]))); @@ -19642,7 +16575,7 @@ s_loop_v13124: /* k xl port g s f l k */ goto jump; } -case 362: /* clo ek . */ +case 332: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19659,7 +16592,7 @@ case 362: /* clo ek . */ rc = 3; goto jump; -case 363: /* clo ek . */ +case 333: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19685,7 +16618,7 @@ case 363: /* clo ek . */ goto jump; } -case 364: /* clo k test then else */ +case 334: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -19706,7 +16639,7 @@ case 364: /* clo k test then else */ *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(365); + *--hp = obj_from_case(335); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[1]; @@ -19720,7 +16653,7 @@ case 364: /* clo k test then else */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 365: /* clo ek . */ +case 335: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19746,7 +16679,7 @@ case 365: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(366); + *--hp = obj_from_case(336); r[11] = (hendblk(8+1)); r[12+0] = (r[11]); r[12+1] = r[2]; @@ -19760,7 +16693,7 @@ case 365: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 366: /* clo ek . */ +case 336: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19788,7 +16721,7 @@ case 366: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { - r[10] = obj_from_bool(isequal((r[6]), (cx__233560))); + r[10] = obj_from_bool(isequal((r[6]), (cx__232688))); if (bool_from_obj(r[10])) { r[0] = r[7]; pc = objptr_from_obj(r[0])[0]; @@ -19803,7 +16736,7 @@ case 366: /* clo ek . */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[7]; - *--hp = obj_from_case(367); + *--hp = obj_from_case(337); r[11] = (hendblk(2+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -19828,7 +16761,7 @@ case 366: /* clo ek . */ } } -case 367: /* clo ek . */ +case 337: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19844,7 +16777,7 @@ case 367: /* clo ek . */ rc = 3; goto jump; -case 368: /* clo k idsi exp */ +case 338: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -19865,13 +16798,13 @@ case 368: /* clo k idsi exp */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(369); + *--hp = obj_from_case(339); r[9] = (hendblk(9+1)); r[0] = r[9]; /* r[1] */ goto gs_flatten_2Didslist; -case 369: /* clo ek r */ +case 339: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19896,7 +16829,7 @@ case 369: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(370); + *--hp = obj_from_case(340); r[11] = (hendblk(10+1)); r[12+0] = (r[11]); r[12+1] = r[7]; @@ -19905,7 +16838,7 @@ case 369: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 370: /* clo ek r */ +case 340: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19931,14 +16864,14 @@ case 370: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(371); + *--hp = obj_from_case(341); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ r[2] = r[6]; goto gs_set_2Dminus; -case 371: /* clo ek r */ +case 341: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19965,14 +16898,14 @@ case 371: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(372); + *--hp = obj_from_case(342); r[12] = (hendblk(11+1)); r[0] = (r[12]); r[1] = r[8]; r[2] = r[7]; goto gs_find_2Dsets; -case 372: /* clo ek r */ +case 342: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19988,13 +16921,13 @@ case 372: /* 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 v15559_tmp; + { fixnum_t v13463_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15559_tmp = (n); } + v13463_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15559_tmp); + obj l, o = mknull(); int c = (v13463_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); @@ -20011,7 +16944,7 @@ case 372: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(375); + *--hp = obj_from_case(345); r[14] = (hendblk(10+1)); r[15+0] = (r[14]); r[15+1] = (r[13]); @@ -20021,16 +16954,16 @@ case 372: /* clo ek r */ r[15+5] = (r[12]); r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13053; + goto s_loop_v11077; -case 373: /* clo k free l */ +case 343: /* 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_v13053: /* k free l g f port */ +s_loop_v11077: /* k free l g f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20044,7 +16977,7 @@ s_loop_v13053: /* k free l g f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(373); + *--hp = obj_from_case(343); r[6] = (hendblk(3+1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[5]; @@ -20052,7 +16985,7 @@ s_loop_v13053: /* k free l g f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(374); + *--hp = obj_from_case(344); r[6] = (hendblk(5+1)); r[7] = (car((r[1]))); { /* cons */ @@ -20080,7 +17013,7 @@ s_loop_v13053: /* k free l g f port */ goto gs_codegen; } -case 374: /* clo ek . */ +case 344: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20107,7 +17040,7 @@ case 374: /* clo ek . */ rc = 4; goto jump; -case 375: /* clo ek . */ +case 345: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20135,7 +17068,7 @@ case 375: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(376); + *--hp = obj_from_case(346); r[12] = (hendblk(10+1)); { /* length */ int n; obj l = r[6]; @@ -20146,7 +17079,7 @@ case 375: /* clo ek . */ r[2] = (r[11]); goto gs_write_2Dserialized_2Darg; -case 376: /* clo ek . */ +case 346: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20173,7 +17106,7 @@ case 376: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(377); + *--hp = obj_from_case(347); r[12] = (hendblk(9+1)); if ((islist((r[2])))) { (void)(oportputc(('%'), (r[11]))); @@ -20194,7 +17127,7 @@ case 376: /* clo ek . */ goto gs_write_2Dserialized_2Darg; } -case 377: /* clo ek . */ +case 347: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20219,7 +17152,7 @@ case 377: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(380); + *--hp = obj_from_case(350); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -20228,15 +17161,15 @@ case 377: /* clo ek . */ r[12+4] = r[3]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13028; + goto s_loop_v11052; -case 378: /* clo k ids n */ +case 348: /* 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_v13028: /* k ids n port r */ +s_loop_v11052: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20249,14 +17182,14 @@ s_loop_v13028: /* k ids n port r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(378); + *--hp = obj_from_case(348); 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(379); + *--hp = obj_from_case(349); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); @@ -20270,7 +17203,7 @@ s_loop_v13028: /* k ids n port r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(378); + *--hp = obj_from_case(348); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); @@ -20280,11 +17213,11 @@ s_loop_v13028: /* k ids n port r */ r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13030; + goto s_l_v11054; } } -case 379: /* clo ek . */ +case 349: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20293,7 +17226,7 @@ case 379: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v13030: /* ek . loop n ids k */ +s_l_v11054: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; @@ -20303,7 +17236,7 @@ s_l_v13030: /* ek . loop n ids k */ rc = 4; goto jump; -case 380: /* clo ek . */ +case 350: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20327,14 +17260,14 @@ case 380: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(381); + *--hp = obj_from_case(351); r[11] = (hendblk(8+1)); r[0] = (r[11]); r[1] = r[2]; r[2] = r[5]; goto gs_set_2Dintersect; -case 381: /* clo ek r */ +case 351: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20355,7 +17288,7 @@ case 381: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(382); + *--hp = obj_from_case(352); r[10] = (hendblk(7+1)); r[11+0] = (r[10]); r[11+1] = r[2]; @@ -20364,7 +17297,7 @@ case 381: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 382: /* clo ek r */ +case 352: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20380,7 +17313,7 @@ case 382: /* clo ek r */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; - *--hp = obj_from_case(383); + *--hp = obj_from_case(353); r[9] = (hendblk(3+1)); { /* length */ int n; obj l = r[4]; @@ -20398,7 +17331,7 @@ case 382: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 383: /* clo ek . */ +case 353: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20424,7 +17357,7 @@ case 383: /* clo ek . */ goto jump; } -case 384: /* clo k clauses */ +case 354: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20435,13 +17368,13 @@ case 384: /* clo k clauses */ r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* k clauses g s f l k port */ - { fixnum_t v15558_tmp; + { fixnum_t v13462_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15558_tmp = (n); } + v13462_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15558_tmp); + obj l, o = mknull(); int c = (v13462_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); @@ -20452,7 +17385,7 @@ case 384: /* clo k clauses */ *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(387); + *--hp = obj_from_case(357); r[9] = (hendblk(4+1)); r[10+0] = r[9]; r[10+1] = r[8]; @@ -20463,9 +17396,9 @@ case 384: /* clo k clauses */ r[10+6] = r[7]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12971; + goto s_loop_v10995; -case 385: /* clo k clauses l */ +case 355: /* clo k clauses l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20473,7 +17406,7 @@ case 385: /* clo k clauses l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12971: /* k clauses l g s f port */ +s_loop_v10995: /* k clauses l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20488,7 +17421,7 @@ s_loop_v12971: /* k clauses l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(385); + *--hp = obj_from_case(355); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -20496,7 +17429,7 @@ s_loop_v12971: /* k clauses l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(386); + *--hp = obj_from_case(356); r[7] = (hendblk(5+1)); r[8] = (car((r[1]))); r[9] = (cdr((r[8]))); @@ -20514,7 +17447,7 @@ s_loop_v12971: /* k clauses l g s f port */ goto gs_codegen; } -case 386: /* clo ek . */ +case 356: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20543,7 +17476,7 @@ case 386: /* clo ek . */ rc = 4; goto jump; -case 387: /* clo ek . */ +case 357: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20559,7 +17492,7 @@ case 387: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(388); + *--hp = obj_from_case(358); r[6] = (hendblk(4+1)); { /* length */ int n; obj l = r[2]; @@ -20570,7 +17503,7 @@ case 387: /* clo ek . */ r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 388: /* clo ek . */ +case 358: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20585,20 +17518,20 @@ case 388: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(392); + *--hp = obj_from_case(362); 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_v12944; + goto s_loop_v10968; -case 389: /* clo k clauses i */ +case 359: /* 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_v12944: /* k clauses i port */ +s_loop_v10968: /* k clauses i port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20617,7 +17550,7 @@ s_loop_v12944: /* 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(389); + *--hp = obj_from_case(359); r[7] = (hendblk(1+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; @@ -20625,7 +17558,7 @@ s_loop_v12944: /* k clauses i port */ *--hp = r[2]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(390); + *--hp = obj_from_case(360); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[5]; @@ -20633,7 +17566,7 @@ s_loop_v12944: /* k clauses i port */ goto gs_write_2Dserialized_2Darg; } -case 390: /* clo ek . */ +case 360: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20649,14 +17582,14 @@ case 390: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(391); + *--hp = obj_from_case(361); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[4]; /* r[2] */ goto gs_write_2Dserialized_2Darg; -case 391: /* clo ek . */ +case 361: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20675,7 +17608,7 @@ case 391: /* clo ek . */ rc = 4; goto jump; -case 392: /* clo ek . */ +case 362: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20703,7 +17636,7 @@ case 392: /* clo ek . */ goto jump; } -case 393: /* clo k kid exp */ +case 363: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20731,14 +17664,14 @@ case 393: /* clo k kid exp */ *--hp = r[4]; *--hp = r[3]; *--hp = r[9]; - *--hp = obj_from_case(394); + *--hp = obj_from_case(364); r[10] = (hendblk(10+1)); r[0] = (r[10]); r[1] = r[2]; r[2] = r[9]; goto gs_find_2Dsets; -case 394: /* clo ek r */ +case 364: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20763,14 +17696,14 @@ case 394: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(395); + *--hp = obj_from_case(365); r[12] = (hendblk(9+1)); r[0] = (r[12]); r[1] = r[3]; /* r[2] */ goto gs_set_2Dminus; -case 395: /* clo ek r */ +case 365: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20794,14 +17727,14 @@ case 395: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(396); + *--hp = obj_from_case(366); r[11] = (hendblk(9+1)); r[0] = (r[11]); /* r[1] */ r[2] = r[8]; goto gs_set_2Dunion; -case 396: /* clo ek r */ +case 366: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20828,7 +17761,7 @@ case 396: /* clo ek r */ *--hp = r[1]; *--hp = r[2]; *--hp = (r[10]); - *--hp = obj_from_case(397); + *--hp = obj_from_case(367); r[11] = (hendblk(10+1)); r[0] = (r[11]); r[1] = (r[10]); @@ -20848,7 +17781,7 @@ case 396: /* clo ek r */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[6]; - *--hp = obj_from_case(398); + *--hp = obj_from_case(368); r[11] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ @@ -20881,7 +17814,7 @@ case 396: /* clo ek r */ goto gs_codegen; } -case 397: /* clo ek . */ +case 367: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20921,7 +17854,7 @@ case 397: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 398: /* clo ek . */ +case 368: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20933,14 +17866,14 @@ case 398: /* clo ek . */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(399); + *--hp = obj_from_case(369); 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 399: /* clo ek . */ +case 369: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20956,7 +17889,7 @@ case 399: /* clo ek . */ rc = 3; goto jump; -case 400: /* clo k kexp exp */ +case 370: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20968,7 +17901,7 @@ case 400: /* clo k kexp exp */ /* k kexp exp g s f l port */ r[8] = (car((r[2]))); { /* memq */ - obj x = (r[8]), l = (cx__233395); + obj x = (r[8]), l = (cx__232523); 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])) { @@ -20980,7 +17913,7 @@ case 400: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(401); + *--hp = obj_from_case(371); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = r[2]; @@ -21002,7 +17935,7 @@ case 400: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(403); + *--hp = obj_from_case(373); r[8] = (hendblk(7+1)); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -21035,7 +17968,7 @@ case 400: /* clo k kexp exp */ goto gs_codegen; } -case 401: /* clo ek . */ +case 371: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21052,7 +17985,7 @@ case 401: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(402); + *--hp = obj_from_case(372); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -21072,7 +18005,7 @@ case 401: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 402: /* clo ek . */ +case 372: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21090,7 +18023,7 @@ case 402: /* clo ek . */ rc = 3; goto jump; -case 403: /* clo ek . */ +case 373: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21107,7 +18040,7 @@ case 403: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(404); + *--hp = obj_from_case(374); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -21127,7 +18060,7 @@ case 403: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 404: /* clo ek . */ +case 374: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21143,7 +18076,7 @@ case 404: /* clo ek . */ rc = 3; goto jump; -case 405: /* clo k ig args */ +case 375: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21167,7 +18100,7 @@ case 405: /* clo k ig args */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(406); + *--hp = obj_from_case(376); r[10] = (hendblk(9+1)); r[11+0] = r[9]; pc = objptr_from_obj(r[11+0])[0]; @@ -21179,7 +18112,7 @@ case 405: /* clo k ig args */ rc = 4; goto jump; -case 406: /* clo ek r */ +case 376: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21207,7 +18140,7 @@ case 406: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(407); + *--hp = obj_from_case(377); r[12] = (hendblk(10+1)); r[0] = (r[11]); pc = objptr_from_obj(r[0])[0]; @@ -21217,7 +18150,7 @@ case 406: /* clo ek r */ rc = 3; goto jump; -case 407: /* clo ek r */ +case 377: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21236,16 +18169,16 @@ case 407: /* clo ek r */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; - *--hp = obj_from_case(408); + *--hp = obj_from_case(378); 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 v15557_tmp; + { fixnum_t v13461_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15557_tmp = (n); } + v13461_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15557_tmp); + obj l, o = mknull(); int c = (v13461_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); @@ -21255,7 +18188,7 @@ case 407: /* clo ek r */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); - *--hp = obj_from_case(411); + *--hp = obj_from_case(381); r[14] = (hendblk(3+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -21264,7 +18197,7 @@ case 407: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12823; + goto s_loop_v10847; } else { if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((isnull((r[7])))) { @@ -21274,7 +18207,7 @@ case 407: /* clo ek r */ hreserve(hbsz(2+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = (r[12]); - *--hp = obj_from_case(412); + *--hp = obj_from_case(382); r[14] = (hendblk(2+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; @@ -21285,19 +18218,19 @@ case 407: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v15555_tmp; + { fixnum_t v13459_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15555_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v15555_tmp), (+1))); } - { fixnum_t v15556_tmp; + v13459_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v13459_tmp), (+1))); } + { fixnum_t v13460_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15556_tmp = (n); } + v13460_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15556_tmp); + obj l, o = mknull(); int c = (v13460_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); @@ -21308,7 +18241,7 @@ case 407: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(415); + *--hp = obj_from_case(385); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -21317,7 +18250,7 @@ case 407: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12798; + goto s_loop_v10822; } } else { if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { @@ -21335,7 +18268,7 @@ case 407: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(416); + *--hp = obj_from_case(386); r[14] = (hendblk(7+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; @@ -21346,19 +18279,19 @@ case 407: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v15553_tmp; + { fixnum_t v13457_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15553_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v15553_tmp), (+1))); } - { fixnum_t v15554_tmp; + v13457_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v13457_tmp), (+1))); } + { fixnum_t v13458_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15554_tmp = (n); } + v13458_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15554_tmp); + obj l, o = mknull(); int c = (v13458_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); @@ -21369,7 +18302,7 @@ case 407: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(420); + *--hp = obj_from_case(390); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -21378,23 +18311,23 @@ case 407: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12762; + goto s_loop_v10786; } } else { if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v15551_tmp; + { fixnum_t v13455_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15551_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v15551_tmp), (+1))); } - { fixnum_t v15552_tmp; + v13455_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v13455_tmp), (+1))); } + { fixnum_t v13456_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15552_tmp = (n); } + v13456_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15552_tmp); + obj l, o = mknull(); int c = (v13456_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); @@ -21410,7 +18343,7 @@ case 407: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(421); + *--hp = obj_from_case(391); r[15] = (hendblk(9+1)); r[16+0] = (r[15]); r[16+1] = (car((r[14]))); @@ -21425,19 +18358,19 @@ case 407: /* clo ek r */ goto gs_codegen; } else { if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v15549_tmp; + { fixnum_t v13453_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15549_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v15549_tmp), (+1))); } - { fixnum_t v15550_tmp; + v13453_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v13453_tmp), (+1))); } + { fixnum_t v13454_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15550_tmp = (n); } + v13454_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15550_tmp); + obj l, o = mknull(); int c = (v13454_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); @@ -21448,7 +18381,7 @@ case 407: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(427); + *--hp = obj_from_case(397); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -21457,14 +18390,14 @@ case 407: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12708; + goto s_loop_v10732; } 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(428); + *--hp = obj_from_case(398); r[13] = (hendblk(3+1)); if ((isnull((r[7])))) { { /* define integrable-code */ @@ -21473,7 +18406,7 @@ case 407: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(429); + *--hp = obj_from_case(399); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -21507,7 +18440,7 @@ case 407: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(430); + *--hp = obj_from_case(400); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = obj_from_bool(isnull((r[14]))); @@ -21518,7 +18451,7 @@ case 407: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(432); + *--hp = obj_from_case(402); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -21545,13 +18478,13 @@ case 407: /* clo ek r */ } } else { if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v15548_tmp; + { fixnum_t v13452_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15548_tmp = (n); } + v13452_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15548_tmp); + obj l, o = mknull(); int c = (v13452_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); @@ -21562,7 +18495,7 @@ case 407: /* clo ek r */ *--hp = r[8]; *--hp = (r[12]); *--hp = r[7]; - *--hp = obj_from_case(435); + *--hp = obj_from_case(405); r[14] = (hendblk(4+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -21571,12 +18504,12 @@ case 407: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v12654; + goto s_loop_v10678; } else { r[13+0] = (cx_c_2Derror); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); - r[13+2] = (cx__233118); + r[13+2] = (cx__232246); r[13+3] = r[1]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -21591,7 +18524,7 @@ case 407: /* clo ek r */ } } -case 408: /* clo ek . */ +case 378: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21616,7 +18549,7 @@ case 408: /* clo ek . */ goto jump; } -case 409: /* clo k args l */ +case 379: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21624,7 +18557,7 @@ case 409: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12823: /* k args l g s f port */ +s_loop_v10847: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -21639,7 +18572,7 @@ s_loop_v12823: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(409); + *--hp = obj_from_case(379); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -21647,7 +18580,7 @@ s_loop_v12823: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(410); + *--hp = obj_from_case(380); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -21662,7 +18595,7 @@ s_loop_v12823: /* k args l g s f port */ goto gs_codegen; } -case 410: /* clo ek . */ +case 380: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21695,7 +18628,7 @@ case 410: /* clo ek . */ rc = 4; goto jump; -case 411: /* clo ek . */ +case 381: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21712,7 +18645,7 @@ case 411: /* clo ek . */ rc = 3; goto jump; -case 412: /* clo ek r */ +case 382: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21728,7 +18661,7 @@ case 412: /* clo ek r */ rc = 3; goto jump; -case 413: /* clo k args l */ +case 383: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21736,7 +18669,7 @@ case 413: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12798: /* k args l g s f port */ +s_loop_v10822: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -21751,7 +18684,7 @@ s_loop_v12798: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(413); + *--hp = obj_from_case(383); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -21759,7 +18692,7 @@ s_loop_v12798: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(414); + *--hp = obj_from_case(384); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -21774,7 +18707,7 @@ s_loop_v12798: /* k args l g s f port */ goto gs_codegen; } -case 414: /* clo ek . */ +case 384: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21807,7 +18740,7 @@ case 414: /* clo ek . */ rc = 4; goto jump; -case 415: /* clo ek . */ +case 385: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21822,11 +18755,11 @@ case 415: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12789; + goto s_loop_v10813; -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]))) { +s_loop_v10813: /* k i r port opc */ + { const fixnum_t v13451_i = fixnum_from_obj(r[1]); + if (((v13451_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -21837,14 +18770,14 @@ s_loop_v12789: /* k i r port opc */ } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v15547_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v13451_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12789; + goto s_loop_v10813; } } -case 416: /* clo ek r */ +case 386: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21860,7 +18793,7 @@ case 416: /* clo ek r */ *--hp = r[8]; *--hp = r[1]; *--hp = r[7]; - *--hp = obj_from_case(417); + *--hp = obj_from_case(387); r[9] = (hendblk(3+1)); r[10+0] = r[9]; r[10+1] = (car((r[6]))); @@ -21874,7 +18807,7 @@ case 416: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 417: /* clo ek . */ +case 387: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21891,7 +18824,7 @@ case 417: /* clo ek . */ rc = 3; goto jump; -case 418: /* clo k args l */ +case 388: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21899,7 +18832,7 @@ case 418: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12762: /* k args l g s f port */ +s_loop_v10786: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -21914,7 +18847,7 @@ s_loop_v12762: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(418); + *--hp = obj_from_case(388); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -21922,7 +18855,7 @@ s_loop_v12762: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(419); + *--hp = obj_from_case(389); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -21937,7 +18870,7 @@ s_loop_v12762: /* k args l g s f port */ goto gs_codegen; } -case 419: /* clo ek . */ +case 389: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21970,7 +18903,7 @@ case 419: /* clo ek . */ rc = 4; goto jump; -case 420: /* clo ek . */ +case 390: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21985,11 +18918,11 @@ case 420: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12753; + goto s_loop_v10777; -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]))) { +s_loop_v10777: /* k i r port opc */ + { const fixnum_t v13450_i = fixnum_from_obj(r[1]); + if (((v13450_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -22000,14 +18933,14 @@ s_loop_v12753: /* k i r port opc */ } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v15546_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v13450_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12753; + goto s_loop_v10777; } } -case 421: /* clo ek . */ +case 391: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22035,7 +18968,7 @@ case 421: /* clo ek . */ *--hp = r[8]; *--hp = (r[10]); *--hp = r[7]; - *--hp = obj_from_case(424); + *--hp = obj_from_case(394); r[13] = (hendblk(4+1)); r[14+0] = (r[13]); r[14+1] = (r[11]); @@ -22046,9 +18979,9 @@ case 421: /* clo ek . */ r[14+6] = (r[10]); r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12734; + goto s_loop_v10758; -case 422: /* clo k args l */ +case 392: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22056,7 +18989,7 @@ case 422: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12734: /* k args l g s f port */ +s_loop_v10758: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22071,7 +19004,7 @@ s_loop_v12734: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(422); + *--hp = obj_from_case(392); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -22079,7 +19012,7 @@ s_loop_v12734: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(423); + *--hp = obj_from_case(393); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -22094,7 +19027,7 @@ s_loop_v12734: /* k args l g s f port */ goto gs_codegen; } -case 423: /* clo ek . */ +case 393: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22134,7 +19067,7 @@ case 423: /* clo ek . */ rc = 4; goto jump; -case 424: /* clo ek . */ +case 394: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22149,11 +19082,11 @@ case 424: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12725; + goto s_loop_v10749; -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]))) { +s_loop_v10749: /* k i r port opc */ + { const fixnum_t v13449_i = fixnum_from_obj(r[1]); + if (((v13449_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -22162,17 +19095,17 @@ s_loop_v12725: /* k i r port opc */ rc = 3; goto jump; } else { - (void)(((v15545_i) == 0) ? ((0) ? obj_from_bool(0) : obj_from_void(0)) : obj_from_void(oportputc((';'), (r[3])))); + (void)(((v13449_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((v15545_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v13449_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12725; + goto s_loop_v10749; } } -case 425: /* clo k args l */ +case 395: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22180,7 +19113,7 @@ case 425: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12708: /* k args l g s f port */ +s_loop_v10732: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22195,7 +19128,7 @@ s_loop_v12708: /* 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(395); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -22203,7 +19136,7 @@ s_loop_v12708: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(426); + *--hp = obj_from_case(396); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -22218,7 +19151,7 @@ s_loop_v12708: /* k args l g s f port */ goto gs_codegen; } -case 426: /* clo ek . */ +case 396: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22251,7 +19184,7 @@ case 426: /* clo ek . */ rc = 4; goto jump; -case 427: /* clo ek . */ +case 397: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22266,11 +19199,11 @@ case 427: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12699; + goto s_loop_v10723; -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]))) { +s_loop_v10723: /* k i r port opc */ + { const fixnum_t v13448_i = fixnum_from_obj(r[1]); + if (((v13448_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -22281,14 +19214,14 @@ s_loop_v12699: /* k i r port opc */ } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v15544_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v13448_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12699; + goto s_loop_v10723; } } -case 428: /* clo ek . */ +case 398: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22305,7 +19238,7 @@ case 428: /* clo ek . */ rc = 3; goto jump; -case 429: /* clo ek r */ +case 399: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22321,7 +19254,7 @@ case 429: /* clo ek r */ rc = 3; goto jump; -case 430: /* clo ek . */ +case 400: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22340,7 +19273,7 @@ case 430: /* clo ek . */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(431); + *--hp = obj_from_case(401); r[10] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ @@ -22360,7 +19293,7 @@ case 430: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 431: /* clo ek . */ +case 401: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22377,7 +19310,7 @@ case 431: /* clo ek . */ rc = 3; goto jump; -case 432: /* clo ek r */ +case 402: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22393,7 +19326,7 @@ case 432: /* clo ek r */ rc = 3; goto jump; -case 433: /* clo k args l */ +case 403: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22401,7 +19334,7 @@ case 433: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12654: /* k args l g s f port */ +s_loop_v10678: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22416,7 +19349,7 @@ s_loop_v12654: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(433); + *--hp = obj_from_case(403); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -22424,7 +19357,7 @@ s_loop_v12654: /* k args l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(434); + *--hp = obj_from_case(404); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -22439,7 +19372,7 @@ s_loop_v12654: /* k args l g s f port */ goto gs_codegen; } -case 434: /* clo ek . */ +case 404: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22466,7 +19399,7 @@ case 434: /* clo ek . */ rc = 4; goto jump; -case 435: /* clo ek . */ +case 405: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22486,7 +19419,7 @@ case 435: /* clo ek . */ r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 436: /* clo k exp args */ +case 406: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22504,19 +19437,19 @@ case 436: /* 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 v15543_tmp; - { fixnum_t v15542_tmp; + { fixnum_t v13447_tmp; + { fixnum_t v13446_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15543_tmp = (n); } + v13447_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)) ; - v15542_tmp = (n); } - r[9] = obj_from_bool((v15543_tmp) == (v15542_tmp)); } } + v13446_tmp = (n); } + r[9] = obj_from_bool((v13447_tmp) == (v13446_tmp)); } } } else { r[9] = obj_from_bool(0); } @@ -22524,13 +19457,13 @@ case 436: /* clo k exp args */ r[9] = obj_from_bool(0); } if (bool_from_obj(r[9])) { - { fixnum_t v15541_tmp; + { fixnum_t v13445_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15541_tmp = (n); } + v13445_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15541_tmp); + obj l, o = mknull(); int c = (v13445_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); @@ -22546,7 +19479,7 @@ case 436: /* clo k exp args */ *--hp = r[2]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(439); + *--hp = obj_from_case(409); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[9]; @@ -22557,16 +19490,16 @@ case 436: /* clo k exp args */ r[11+6] = r[4]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12623; + goto s_loop_v10647; } else { if (bool_from_obj(r[7])) { - { fixnum_t v15540_tmp; + { fixnum_t v13444_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15540_tmp = (n); } + v13444_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15540_tmp); + obj l, o = mknull(); int c = (v13444_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); @@ -22577,7 +19510,7 @@ case 436: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(449); + *--hp = obj_from_case(419); r[10] = (hendblk(4+1)); r[11+0] = (r[10]); r[11+1] = r[9]; @@ -22589,17 +19522,17 @@ case 436: /* clo k exp args */ r[11+7] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12561; + goto s_loop_v10585; } else { (void)(oportputc((36), (r[4]))); (void)(oportputc(('{'), (r[4]))); - { fixnum_t v15539_tmp; + { fixnum_t v13443_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15539_tmp = (n); } + v13443_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15539_tmp); + obj l, o = mknull(); int c = (v13443_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); @@ -22621,7 +19554,7 @@ case 436: /* clo k exp args */ *--hp = r[4]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(453); + *--hp = obj_from_case(423); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[9]; @@ -22633,11 +19566,11 @@ case 436: /* clo k exp args */ r[12+7] = r[1]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12536; + goto s_loop_v10560; } } -case 437: /* clo k args l */ +case 407: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -22645,7 +19578,7 @@ case 437: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v12623: /* k args l g s f port */ +s_loop_v10647: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22660,7 +19593,7 @@ s_loop_v12623: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(437); + *--hp = obj_from_case(407); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -22668,7 +19601,7 @@ s_loop_v12623: /* k args l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(438); + *--hp = obj_from_case(408); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -22683,7 +19616,7 @@ s_loop_v12623: /* k args l g s f port */ goto gs_codegen; } -case 438: /* clo ek . */ +case 408: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22710,7 +19643,7 @@ case 438: /* clo ek . */ rc = 4; goto jump; -case 439: /* clo ek . */ +case 409: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22741,14 +19674,14 @@ case 439: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(440); + *--hp = obj_from_case(410); r[13] = (hendblk(10+1)); r[0] = (r[13]); r[1] = (r[12]); r[2] = (r[11]); goto gs_find_2Dsets; -case 440: /* clo ek r */ +case 410: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22774,14 +19707,14 @@ case 440: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(441); + *--hp = obj_from_case(411); r[12] = (hendblk(10+1)); r[0] = (r[12]); r[1] = r[2]; r[2] = (r[11]); goto gs_set_2Dminus; -case 441: /* clo ek r */ +case 411: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22807,14 +19740,14 @@ case 441: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(442); + *--hp = obj_from_case(412); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ /* r[2] */ goto gs_set_2Dunion; -case 442: /* clo ek r */ +case 412: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22829,13 +19762,13 @@ case 442: /* 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 v15538_tmp; + { fixnum_t v13442_tmp; { /* length */ int n; obj l = (r[11]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15538_tmp = (n); } + v13442_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v15538_tmp); + obj t, l, o, *p, *d; int c = (v13442_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = (r[11]); t = (r[10]); /* gc-safe */ o = t; p = &o; @@ -22854,7 +19787,7 @@ case 442: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(445); + *--hp = obj_from_case(415); r[13] = (hendblk(9+1)); r[14+0] = (r[13]); r[14+1] = (r[11]); @@ -22863,15 +19796,15 @@ case 442: /* clo ek r */ r[14+4] = r[2]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12594; + goto s_loop_v10618; -case 443: /* clo k ids n */ +case 413: /* 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_v12594: /* k ids n port r */ +s_loop_v10618: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22884,14 +19817,14 @@ s_loop_v12594: /* k ids n port r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(443); + *--hp = obj_from_case(413); 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(444); + *--hp = obj_from_case(414); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); @@ -22905,7 +19838,7 @@ s_loop_v12594: /* k ids n port r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(443); + *--hp = obj_from_case(413); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); @@ -22915,11 +19848,11 @@ s_loop_v12594: /* k ids n port r */ r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12596; + goto s_l_v10620; } } -case 444: /* clo ek . */ +case 414: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22928,7 +19861,7 @@ case 444: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v12596: /* ek . loop n ids k */ +s_l_v10620: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; @@ -22938,7 +19871,7 @@ s_l_v12596: /* ek . loop n ids k */ rc = 4; goto jump; -case 445: /* clo ek . */ +case 415: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22954,12 +19887,12 @@ case 445: /* 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 v15537_tmp; + { fixnum_t v13441_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15537_tmp = (n); } - r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v15537_tmp))); } + v13441_tmp = (n); } + r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v13441_tmp))); } r[12+0] = r[9]; r[12+1] = r[8]; r[12+2] = r[7]; @@ -22976,7 +19909,7 @@ case 445: /* clo ek . */ *--hp = r[2]; *--hp = r[9]; *--hp = r[3]; - *--hp = obj_from_case(446); + *--hp = obj_from_case(416); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[8]; @@ -22991,7 +19924,7 @@ case 445: /* clo ek . */ goto gs_codegen; } -case 446: /* clo ek . */ +case 416: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23010,7 +19943,7 @@ case 446: /* clo ek . */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 447: /* clo k args l */ +case 417: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -23019,7 +19952,7 @@ case 447: /* clo k args l */ r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ -s_loop_v12561: /* k args l port g s f exp */ +s_loop_v10585: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; @@ -23039,7 +19972,7 @@ s_loop_v12561: /* k args l port g s f exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(447); + *--hp = obj_from_case(417); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; @@ -23047,7 +19980,7 @@ s_loop_v12561: /* k args l port g s f exp */ *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; - *--hp = obj_from_case(448); + *--hp = obj_from_case(418); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); @@ -23062,7 +19995,7 @@ s_loop_v12561: /* k args l port g s f exp */ goto gs_codegen; } -case 448: /* clo ek . */ +case 418: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23089,7 +20022,7 @@ case 448: /* clo ek . */ rc = 4; goto jump; -case 449: /* clo ek . */ +case 419: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23104,14 +20037,14 @@ case 449: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[5]; - *--hp = obj_from_case(450); + *--hp = obj_from_case(420); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 450: /* clo ek . */ +case 420: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23129,7 +20062,7 @@ case 450: /* clo ek . */ /* r[2] */ goto gs_write_2Dserialized_2Darg; -case 451: /* clo k args l */ +case 421: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -23138,7 +20071,7 @@ case 451: /* clo k args l */ r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ -s_loop_v12536: /* k args l port g s f exp */ +s_loop_v10560: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; @@ -23158,7 +20091,7 @@ s_loop_v12536: /* k args l port g s f exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(451); + *--hp = obj_from_case(421); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; @@ -23166,7 +20099,7 @@ s_loop_v12536: /* k args l port g s f exp */ *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; - *--hp = obj_from_case(452); + *--hp = obj_from_case(422); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); @@ -23181,7 +20114,7 @@ s_loop_v12536: /* k args l port g s f exp */ goto gs_codegen; } -case 452: /* clo ek . */ +case 422: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23208,7 +20141,7 @@ case 452: /* clo ek . */ rc = 4; goto jump; -case 453: /* clo ek . */ +case 423: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23222,14 +20155,14 @@ case 453: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(454); + *--hp = obj_from_case(424); 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 454: /* clo ek . */ +case 424: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23241,7 +20174,7 @@ case 454: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(455); + *--hp = obj_from_case(425); r[5] = (hendblk(2+1)); { /* length */ int n; obj l = r[2]; @@ -23252,7 +20185,7 @@ case 454: /* clo ek . */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 455: /* clo ek . */ +case 425: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23268,7 +20201,7 @@ case 455: /* clo ek . */ rc = 3; goto jump; -case 456: /* compile-to-string k x */ +case 426: /* compile-to-string k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -23278,14 +20211,14 @@ case 456: /* compile-to-string k x */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(457); + *--hp = obj_from_case(427); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 457: /* clo ek r */ +case 427: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23296,7 +20229,7 @@ case 457: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(458); + *--hp = obj_from_case(428); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -23310,7 +20243,7 @@ case 457: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 458: /* clo ek . */ +case 428: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23332,7 +20265,7 @@ case 458: /* clo ek . */ rc = 3; goto jump; -case 459: /* execute k code */ +case 429: /* execute k code */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_execute: /* k code */ @@ -23341,7 +20274,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(460); + *--hp = obj_from_case(430); r[3] = (hendblk(1+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -23352,7 +20285,7 @@ gs_execute: /* k code */ rc = 3; goto jump; -case 460: /* clo ek r */ +case 430: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -23370,13 +20303,13 @@ case 460: /* clo ek r */ rc = 3; goto jump; -case 461: /* evaluate k x */ +case 431: /* 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(462); + *--hp = obj_from_case(432); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -23388,7 +20321,7 @@ gs_evaluate: /* k x */ rc = 4; goto jump; -case 462: /* clo ek r */ +case 432: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -23400,14 +20333,14 @@ case 462: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(463); + *--hp = obj_from_case(433); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 463: /* clo ek r */ +case 433: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23418,7 +20351,7 @@ case 463: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(464); + *--hp = obj_from_case(434); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -23432,7 +20365,7 @@ case 463: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 464: /* clo ek . */ +case 434: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23451,7 +20384,7 @@ case 464: /* clo ek . */ r[5] = obj_from_objptr(c); } hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; - *--hp = obj_from_case(465); + *--hp = obj_from_case(435); r[6] = (hendblk(1+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -23461,7 +20394,7 @@ case 464: /* clo ek . */ rc = 3; goto jump; -case 465: /* clo ek r */ +case 435: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -23471,7 +20404,7 @@ case 465: /* clo ek r */ /* r[1] */ goto gs_execute; -case 466: /* display-code k cstr oport */ +case 436: /* display-code k cstr oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_display_2Dcode: /* k cstr oport */ @@ -23482,17 +20415,17 @@ gs_display_2Dcode: /* k cstr oport */ r[3+4] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12441; + goto s_loop_v10465; -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)); +s_loop_v10465: /* k i l cstr oport */ + { const fixnum_t v13440_i = fixnum_from_obj(r[1]); + if (((fxsub(fixnum_from_obj(r[2]), (v13440_i))) <= (+70))) { + (void)(oportputcircular((cx__232854), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v15536_i), fixnum_from_obj(r[2])); + int *d = substring(stringdata((r[3])), (v13440_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__233730), (r[4]), 1)); + r[5] = obj_from_void(oportputcircular((cx__232858), (r[4]), 1)); /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -23501,21 +20434,21 @@ s_loop_v12441: /* k i l cstr oport */ rc = 3; goto jump; } else { - (void)(oportputcircular((cx__233726), (r[4]), 1)); + (void)(oportputcircular((cx__232854), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v15536_i), (fxadd((v15536_i), (+70)))); + int *d = substring(stringdata((r[3])), (v13440_i), (fxadd((v13440_i), (+70)))); r[5] = (hpushstr(5, d)); } (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - (void)(oportputcircular((cx__233721), (r[4]), 1)); + (void)(oportputcircular((cx__232849), (r[4]), 1)); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v15536_i), (+70))); + r[1] = obj_from_fixnum(fxadd((v13440_i), (+70))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v12441; + goto s_loop_v10465; } } -case 467: /* process-define-syntax k id xval oport */ +case 437: /* process-define-syntax k id xval oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_process_2Ddefine_2Dsyntax: /* k id xval oport */ @@ -23523,26 +20456,26 @@ gs_process_2Ddefine_2Dsyntax: /* k id xval oport */ *--hp = r[2]; r[4] = (hendblk(1)); (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233726), (r[3]), 1)); + (void)(oportputcircular((cx__232854), (r[3]), 1)); (void)(oportputcircular((r[1]), (r[3]), 1)); - (void)(oportputcircular((cx__233792), (r[3]), 1)); + (void)(oportputcircular((cx__232920), (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(471); + *--hp = obj_from_case(441); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[5]; goto s_hack; -case 468: /* clo k v */ +case 438: /* 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(468); + *--hp = obj_from_case(438); r[2] = (hendblk(0+1)); if ((isprocedure((r[1])))) { /* r[0] */ @@ -23568,7 +20501,7 @@ s_hack: /* k v */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(469); + *--hp = obj_from_case(439); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; @@ -23586,7 +20519,7 @@ s_hack: /* k v */ } } -case 469: /* clo ek r */ +case 439: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23597,7 +20530,7 @@ case 469: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(470); + *--hp = obj_from_case(440); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -23607,7 +20540,7 @@ case 469: /* clo ek r */ rc = 3; goto jump; -case 470: /* clo ek r */ +case 440: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23629,7 +20562,7 @@ case 470: /* clo ek r */ rc = 3; goto jump; -case 471: /* clo ek r */ +case 441: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23676,7 +20609,7 @@ case 471: /* clo ek r */ { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; - *--hp = (cx__233766); + *--hp = (cx__232894); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ @@ -23706,14 +20639,14 @@ case 471: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[5]; - *--hp = obj_from_case(472); + *--hp = obj_from_case(442); 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 472: /* clo ek . */ +case 442: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23725,7 +20658,7 @@ case 472: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(473); + *--hp = obj_from_case(443); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); @@ -23738,7 +20671,7 @@ case 472: /* clo ek . */ r[2] = r[4]; goto gs_display_2Dcode; -case 473: /* clo ek . */ +case 443: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23754,7 +20687,7 @@ case 473: /* clo ek . */ rc = 3; goto jump; -case 474: /* process-statement k xval oport */ +case 444: /* process-statement k xval oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k xval oport */ @@ -23769,14 +20702,14 @@ case 474: /* process-statement k xval oport */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(475); + *--hp = obj_from_case(445); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 475: /* clo ek r */ +case 445: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23791,7 +20724,7 @@ case 475: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(476); + *--hp = obj_from_case(446); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -23805,7 +20738,7 @@ case 475: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 476: /* clo ek . */ +case 446: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23823,18 +20756,18 @@ case 476: /* 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__233803), (r[3]), 1)); + (void)(oportputcircular((cx__232931), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(477); + *--hp = obj_from_case(447); 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 477: /* clo ek . */ +case 447: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23850,7 +20783,7 @@ case 477: /* clo ek . */ rc = 3; goto jump; -case 478: /* process-define k id xlam oport */ +case 448: /* process-define k id xlam oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k id xlam oport */ @@ -23883,14 +20816,14 @@ case 478: /* process-define k id xlam oport */ *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; - *--hp = obj_from_case(479); + *--hp = obj_from_case(449); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[4]; r[2] = (mknull()); goto gs_find_2Dfree; -case 479: /* clo ek r */ +case 449: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23905,7 +20838,7 @@ case 479: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(480); + *--hp = obj_from_case(450); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -23919,7 +20852,7 @@ case 479: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 480: /* clo ek . */ +case 450: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23937,18 +20870,18 @@ case 480: /* 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__233803), (r[3]), 1)); + (void)(oportputcircular((cx__232931), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(481); + *--hp = obj_from_case(451); 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 481: /* clo ek . */ +case 451: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23964,7 +20897,7 @@ case 481: /* clo ek . */ rc = 3; goto jump; -case 482: /* scan-top-form k x */ +case 452: /* scan-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_scan_2Dtop_2Dform: /* k x */ @@ -23984,10 +20917,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__233854)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__232982)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(483); + *--hp = obj_from_case(453); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -23996,12 +20929,12 @@ gs_scan_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12302; + goto s_l_v10326; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233858); + r[5+2] = (cx__232986); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24013,7 +20946,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(489); + *--hp = obj_from_case(459); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -24036,16 +20969,16 @@ gs_scan_2Dtop_2Dform: /* k x */ } } -case 483: /* clo ek r */ +case 453: /* 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_v12302: /* ek r k */ +s_l_v10326: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(484); + *--hp = obj_from_case(454); r[3] = (hendblk(2+1)); r[4+0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[4+0])[0]; @@ -24056,7 +20989,7 @@ s_l_v12302: /* ek r k */ rc = 3; goto jump; -case 484: /* clo ek r */ +case 454: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24066,19 +20999,19 @@ case 484: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(488); + *--hp = obj_from_case(458); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v12311; + goto s_loop_v10335; -case 485: /* clo k x */ +case 455: /* 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_v12311: /* k x r */ +s_loop_v10335: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -24090,20 +21023,20 @@ s_loop_v12311: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(485); + *--hp = obj_from_case(455); 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(486); + *--hp = obj_from_case(456); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 486: /* clo ek . */ +case 456: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24115,7 +21048,7 @@ case 486: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(487); + *--hp = obj_from_case(457); r[5] = (hendblk(2+1)); r[0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[0])[0]; @@ -24125,7 +21058,7 @@ case 486: /* clo ek . */ rc = 3; goto jump; -case 487: /* clo ek r */ +case 457: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24141,7 +21074,7 @@ case 487: /* clo ek r */ rc = 3; goto jump; -case 488: /* clo ek . */ +case 458: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24157,7 +21090,7 @@ case 488: /* clo ek . */ rc = 3; goto jump; -case 489: /* clo ek r */ +case 459: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24168,13 +21101,13 @@ case 489: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v12286; + goto s_loop_v10310; } 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(492); + *--hp = obj_from_case(462); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -24192,7 +21125,7 @@ case 489: /* clo ek r */ if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(494); + *--hp = obj_from_case(464); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -24214,19 +21147,19 @@ case 489: /* clo ek r */ } } -case 490: /* clo k l */ +case 460: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v12286: /* k l */ +s_loop_v10310: /* k l */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(490); + *--hp = obj_from_case(460); 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(491); + *--hp = obj_from_case(461); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -24242,7 +21175,7 @@ s_loop_v12286: /* k l */ goto jump; } -case 491: /* clo ek . */ +case 461: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24259,7 +21192,7 @@ case 491: /* clo ek . */ rc = 3; goto jump; -case 492: /* clo ek r */ +case 462: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24271,13 +21204,13 @@ case 492: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(493); + *--hp = obj_from_case(463); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 493: /* clo ek r */ +case 463: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24293,7 +21226,7 @@ case 493: /* clo ek r */ rc = 3; goto jump; -case 494: /* clo ek r */ +case 464: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -24303,7 +21236,7 @@ case 494: /* clo ek r */ /* r[1] */ goto gs_scan_2Dtop_2Dform; -case 495: /* process-top-form k x oport */ +case 465: /* process-top-form k x oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_process_2Dtop_2Dform: /* k x oport */ @@ -24323,10 +21256,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__233854)))); + r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__232982)))); hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; - *--hp = obj_from_case(496); + *--hp = obj_from_case(466); r[5] = (hendblk(1+1)); if (bool_from_obj(r[4])) { r[6] = (mkiport_file(6, (void*)((r[4])))); @@ -24335,12 +21268,12 @@ gs_process_2Dtop_2Dform: /* k x oport */ r[7+2] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12224; + goto s_l_v10248; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; - r[2] = (cx__233858); + r[2] = (cx__232986); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -24352,7 +21285,7 @@ gs_process_2Dtop_2Dform: /* k x oport */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(502); + *--hp = obj_from_case(472); r[3] = (hendblk(3+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -24367,7 +21300,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(516); + *--hp = obj_from_case(486); r[3] = (hendblk(2+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -24381,16 +21314,16 @@ gs_process_2Dtop_2Dform: /* k x oport */ } } -case 496: /* clo ek r */ +case 466: /* 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_v12224: /* ek r k */ +s_l_v10248: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(497); + *--hp = obj_from_case(467); r[3] = (hendblk(2+1)); r[4+0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[4+0])[0]; @@ -24401,7 +21334,7 @@ s_l_v12224: /* ek r k */ rc = 3; goto jump; -case 497: /* clo ek r */ +case 467: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24411,19 +21344,19 @@ case 497: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(501); + *--hp = obj_from_case(471); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v12233; + goto s_loop_v10257; -case 498: /* clo k x */ +case 468: /* 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_v12233: /* k x r */ +s_loop_v10257: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -24435,20 +21368,20 @@ s_loop_v12233: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(498); + *--hp = obj_from_case(468); 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(499); + *--hp = obj_from_case(469); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 499: /* clo ek . */ +case 469: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24460,7 +21393,7 @@ case 499: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(500); + *--hp = obj_from_case(470); r[5] = (hendblk(2+1)); r[0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[0])[0]; @@ -24470,7 +21403,7 @@ case 499: /* clo ek . */ rc = 3; goto jump; -case 500: /* clo ek r */ +case 470: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24486,7 +21419,7 @@ case 500: /* clo ek r */ rc = 3; goto jump; -case 501: /* clo ek . */ +case 471: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24502,7 +21435,7 @@ case 501: /* clo ek . */ rc = 3; goto jump; -case 502: /* clo ek r */ +case 472: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24515,14 +21448,14 @@ case 502: /* clo ek r */ r[0] = r[4]; r[1] = r[5]; /* r[2] */ - goto s_loop_v12208; + goto s_loop_v10232; } 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(505); + *--hp = obj_from_case(475); r[5] = (hendblk(3+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -24541,7 +21474,7 @@ case 502: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(507); + *--hp = obj_from_case(477); r[5] = (hendblk(3+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -24559,7 +21492,7 @@ case 502: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(511); + *--hp = obj_from_case(481); r[5] = (hendblk(2+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -24573,7 +21506,7 @@ case 502: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(512); + *--hp = obj_from_case(482); r[5] = (hendblk(2+1)); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; @@ -24588,22 +21521,22 @@ case 502: /* clo ek r */ } } -case 503: /* clo k x* */ +case 473: /* 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_v12208: /* k x* oport */ +s_loop_v10232: /* k x* oport */ if ((ispair((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(503); + *--hp = obj_from_case(473); 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(504); + *--hp = obj_from_case(474); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -24619,7 +21552,7 @@ s_loop_v12208: /* k x* oport */ goto jump; } -case 504: /* clo ek . */ +case 474: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24636,7 +21569,7 @@ case 504: /* clo ek . */ rc = 3; goto jump; -case 505: /* clo ek r */ +case 475: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24651,13 +21584,13 @@ case 505: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(506); + *--hp = obj_from_case(476); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[5]; goto gs_top_2Dtransformer_2Denv; -case 506: /* clo ek r */ +case 476: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24696,7 +21629,7 @@ case 506: /* clo ek r */ goto gs_process_2Ddefine_2Dsyntax; } -case 507: /* clo ek r */ +case 477: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24735,14 +21668,14 @@ case 507: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(508); + *--hp = obj_from_case(478); r[9] = (hendblk(5+1)); r[0] = r[9]; r[1] = r[6]; r[2] = (mknull()); goto gs_find_2Dfree; -case 508: /* clo ek r */ +case 478: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24757,7 +21690,7 @@ case 508: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(509); + *--hp = obj_from_case(479); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -24771,7 +21704,7 @@ case 508: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 509: /* clo ek . */ +case 479: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24789,18 +21722,18 @@ case 509: /* 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__233803), (r[3]), 1)); + (void)(oportputcircular((cx__232931), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(510); + *--hp = obj_from_case(480); 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 510: /* clo ek . */ +case 480: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24816,7 +21749,7 @@ case 510: /* clo ek . */ rc = 3; goto jump; -case 511: /* clo ek r */ +case 481: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24828,7 +21761,7 @@ case 511: /* clo ek r */ /* r[2] */ goto gs_process_2Dtop_2Dform; -case 512: /* clo ek r */ +case 482: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24846,14 +21779,14 @@ case 512: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(513); + *--hp = obj_from_case(483); r[6] = (hendblk(5+1)); r[0] = r[6]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 513: /* clo ek r */ +case 483: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24868,7 +21801,7 @@ case 513: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(514); + *--hp = obj_from_case(484); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -24882,7 +21815,7 @@ case 513: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 514: /* clo ek . */ +case 484: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24900,18 +21833,18 @@ case 514: /* 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__233803), (r[3]), 1)); + (void)(oportputcircular((cx__232931), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(515); + *--hp = obj_from_case(485); 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 515: /* clo ek . */ +case 485: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24927,7 +21860,7 @@ case 515: /* clo ek . */ rc = 3; goto jump; -case 516: /* clo ek r */ +case 486: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24945,14 +21878,14 @@ case 516: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(517); + *--hp = obj_from_case(487); r[6] = (hendblk(5+1)); r[0] = r[6]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 517: /* clo ek r */ +case 487: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24967,7 +21900,7 @@ case 517: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(518); + *--hp = obj_from_case(488); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -24981,7 +21914,7 @@ case 517: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 518: /* clo ek . */ +case 488: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24999,18 +21932,18 @@ case 518: /* 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__233803), (r[3]), 1)); + (void)(oportputcircular((cx__232931), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(519); + *--hp = obj_from_case(489); 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 519: /* clo ek . */ +case 489: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25026,7 +21959,7 @@ case 519: /* clo ek . */ rc = 3; goto jump; -case 520: /* path-strip-directory k filename */ +case 490: /* path-strip-directory k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Ddirectory: /* k filename */ @@ -25038,13 +21971,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 v15535_tmp; + { fixnum_t v13439_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15535_tmp = (n); } + v13439_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15535_tmp); + obj l, o = mknull(); int c = (v13439_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); @@ -25053,17 +21986,17 @@ gs_path_2Dstrip_2Ddirectory: /* k filename */ /* r[0] */ r[1] = r[2]; r[2] = (mknull()); - goto s_loop_v12103; + goto s_loop_v10127; -s_loop_v12103: /* k l r */ +s_loop_v10127: /* k l r */ if ((isnull((r[1])))) { - { fixnum_t v15534_tmp; + { fixnum_t v13438_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15534_tmp = (n); } + v13438_tmp = (n); } { /* list->string */ - int i, c = (v15534_tmp); + int i, c = (v13438_tmp); obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ obj l = r[2]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -25078,15 +22011,15 @@ s_loop_v12103: /* k l r */ goto jump; } else { r[3] = (car((r[1]))); - r[3] = (ismemv((r[3]), (cx__233968))); + r[3] = (ismemv((r[3]), (cx__233096))); if (bool_from_obj(r[3])) { - { fixnum_t v15533_tmp; + { fixnum_t v13437_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15533_tmp = (n); } + v13437_tmp = (n); } { /* list->string */ - int i, c = (v15533_tmp); + int i, c = (v13437_tmp); obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ obj l = r[2]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -25111,11 +22044,11 @@ s_loop_v12103: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v12103; + goto s_loop_v10127; } } -case 521: /* path-strip-extension k filename */ +case 491: /* path-strip-extension k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Dextension: /* k filename */ @@ -25127,13 +22060,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 v15530_tmp; + { fixnum_t v13434_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15530_tmp = (n); } + v13434_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15530_tmp); + obj l, o = mknull(); int c = (v13434_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); @@ -25142,25 +22075,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 v15531_tmp; + { fixnum_t v13435_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15531_tmp = (n); } + v13435_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v15531_tmp); + obj l, o = mknull(); int c = (v13435_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 v15532_tmp; + { fixnum_t v13436_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v15532_tmp = (n); } + v13436_tmp = (n); } { /* list->string */ - int i, c = (v15532_tmp); + int i, c = (v13436_tmp); obj o = hpushstr(5, allocstring(c, ' ')); /* 5 live regs */ obj l = r[4]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -25178,19 +22111,19 @@ gs_path_2Dstrip_2Dextension: /* k filename */ rc = 3; goto jump; -case 522: /* module-name k filename */ +case 492: /* 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(523); + *--hp = obj_from_case(493); r[2] = (hendblk(1+1)); r[0] = r[2]; /* r[1] */ goto gs_path_2Dstrip_2Ddirectory; -case 523: /* clo ek r */ +case 493: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -25200,7 +22133,7 @@ case 523: /* clo ek r */ /* r[1] */ goto gs_path_2Dstrip_2Dextension; -case 524: /* process-file k fname */ +case 494: /* process-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_process_2Dfile: /* k fname */ @@ -25217,13 +22150,13 @@ gs_process_2Dfile: /* k fname */ *--hp = r[4]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(525); + *--hp = obj_from_case(495); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ goto gs_module_2Dname; -case 525: /* clo ek r */ +case 495: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25233,7 +22166,7 @@ case 525: /* 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__233854)))); + r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__232982)))); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[1]; @@ -25241,7 +22174,7 @@ case 525: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(526); + *--hp = obj_from_case(496); r[8] = (hendblk(6+1)); if (bool_from_obj(r[7])) { r[9] = (mkiport_file(9, (void*)((r[7])))); @@ -25255,19 +22188,19 @@ case 525: /* clo ek r */ r[10+7] = r[5]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12035; + goto s_l_v10059; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; - r[2] = (cx__233858); + r[2] = (cx__232986); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 526: /* clo ek r */ +case 496: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25277,25 +22210,25 @@ case 526: /* clo ek r */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_l_v12035: /* ek r fname k oport mname r iport */ +s_l_v10059: /* 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__234022), (r[4]), 1)); + (void)(oportputcircular((cx__233150), (r[4]), 1)); r[8] = (objptr_from_obj(r[5])[0]); (void)(oportputcircular((r[8]), (r[4]), 1)); - (void)(oportputcircular((cx__234021), (r[4]), 1)); + (void)(oportputcircular((cx__233149), (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(527); + *--hp = obj_from_case(497); r[8] = (hendblk(4+1)); r[0] = r[8]; r[1] = r[2]; goto gs_path_2Dstrip_2Ddirectory; -case 527: /* clo ek r */ +case 497: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25305,19 +22238,19 @@ case 527: /* clo ek r */ r += 1; /* shift reg. wnd */ /* ek r iport k mname oport */ (void)(oportputcircular((r[1]), (r[5]), 1)); - (void)(oportputcircular((cx__234020), (r[5]), 1)); + (void)(oportputcircular((cx__233148), (r[5]), 1)); (void)(oportputc('\n', (r[5]))); (void)(oportputc('\n', (r[5]))); - (void)(oportputcircular((cx__234019), (r[5]), 1)); + (void)(oportputcircular((cx__233147), (r[5]), 1)); r[6] = (objptr_from_obj(r[4])[0]); (void)(oportputcircular((r[6]), (r[5]), 1)); - (void)(oportputcircular((cx__234018), (r[5]), 1)); + (void)(oportputcircular((cx__233146), (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(528); + *--hp = obj_from_case(498); r[6] = (hendblk(3+1)); r[0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[0])[0]; @@ -25327,7 +22260,7 @@ case 527: /* clo ek r */ rc = 3; goto jump; -case 528: /* clo ek r */ +case 498: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25339,7 +22272,7 @@ case 528: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(532); + *--hp = obj_from_case(502); r[5] = (hendblk(3+1)); r[6+0] = r[5]; r[6+1] = r[1]; @@ -25347,15 +22280,15 @@ case 528: /* clo ek r */ r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12046; + goto s_loop_v10070; -case 529: /* clo k x */ +case 499: /* 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_v12046: /* k x oport iport */ +s_loop_v10070: /* k x oport iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -25368,13 +22301,13 @@ s_loop_v12046: /* k x oport iport */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(529); + *--hp = obj_from_case(499); 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(530); + *--hp = obj_from_case(500); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ @@ -25382,7 +22315,7 @@ s_loop_v12046: /* k x oport iport */ goto gs_process_2Dtop_2Dform; } -case 530: /* clo ek . */ +case 500: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25394,7 +22327,7 @@ case 530: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(531); + *--hp = obj_from_case(501); r[5] = (hendblk(2+1)); r[0] = (cx_read_2Ddatum); pc = objptr_from_obj(r[0])[0]; @@ -25404,7 +22337,7 @@ case 530: /* clo ek . */ rc = 3; goto jump; -case 531: /* clo ek r */ +case 501: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25420,7 +22353,7 @@ case 531: /* clo ek r */ rc = 3; goto jump; -case 532: /* clo ek . */ +case 502: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25429,7 +22362,7 @@ case 532: /* clo ek . */ r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . iport k oport */ - (void)(oportputcircular((cx__234010), (r[4]), 1)); + (void)(oportputcircular((cx__233138), (r[4]), 1)); r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; @@ -25438,7 +22371,7 @@ case 532: /* clo ek . */ rc = 3; goto jump; -case 533: /* clo ek r */ +case 503: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -25447,18 +22380,18 @@ case 533: /* 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(534); + *--hp = obj_from_case(504); 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__234046); + r[4+2] = (cx__233174); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 534: /* clo ek r */ +case 504: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -25466,7 +22399,7 @@ case 534: /* 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(535); + *--hp = obj_from_case(505); r[3] = (hendblk(0+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -25477,7 +22410,7 @@ case 534: /* clo ek r */ rc = 3; goto jump; -case 535: /* clo ek r */ +case 505: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -25489,7 +22422,7 @@ case 535: /* 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(536); + *--hp = obj_from_case(506); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -25498,7 +22431,7 @@ case 535: /* clo ek r */ rc = 2; goto jump; -case 536: /* clo ek . */ +case 506: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ @@ -25510,7 +22443,7 @@ case 536: /* 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(537); + *--hp = obj_from_case(507); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -25519,26 +22452,26 @@ case 536: /* clo ek . */ rc = 2; goto jump; -case 537: /* clo ek . */ +case 507: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ /* ek . */ - cx_test1 = (cx__234050); - cx_test2 = (cx__234320); - cx_test3 = (cx__234522); - cx_test4 = (cx__234924); - cx_test5 = (cx__235054); + cx_test1 = (cx__233178); + cx_test2 = (cx__233448); + cx_test3 = (cx__233650); + cx_test4 = (cx__234052); + cx_test5 = (cx__234182); cx__2Averbose_2A = obj_from_bool(0); 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; } + { static obj c[] = { obj_from_case(508) }; cx_error_2A = (obj)c; } + { static obj c[] = { obj_from_case(510) }; cx_run_2Dtests = (obj)c; } + { static obj c[] = { obj_from_case(516) }; cx_repl_2Deval = (obj)c; } + { static obj c[] = { obj_from_case(523) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(532) }; cx_repl_2Dread = (obj)c; } + { static obj c[] = { obj_from_case(533) }; cx_repl_2Dfrom_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(538) }; cx_run_2Drepl = (obj)c; } + { static obj c[] = { obj_from_case(539) }; cx_main = (obj)c; } r[2] = obj_from_void(0); r[3+0] = r[0]; pc = 0; /* exit from module init */ @@ -25547,7 +22480,7 @@ case 537: /* clo ek . */ rc = 2; goto jump; -case 538: /* error* k msg args */ +case 508: /* error* k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_error_2A: /* k msg args */ @@ -25557,12 +22490,12 @@ gs_error_2A: /* k msg args */ (void)(oportputc('\n', (r[3]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(539); + *--hp = obj_from_case(509); r[4] = (hendblk(1+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; - goto s_loop_v11999; + goto s_loop_v10023; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -25581,7 +22514,7 @@ gs_error_2A: /* k msg args */ goto jump; } -s_loop_v11999: /* k l p */ +s_loop_v10023: /* k l p */ if ((ispair((r[1])))) { r[3] = (car((r[1]))); (void)(oportputcircular((r[3]), (r[2]), 0)); @@ -25590,7 +22523,7 @@ s_loop_v11999: /* k l p */ /* r[0] */ r[1] = r[3]; /* r[2] */ - goto s_loop_v11999; + goto s_loop_v10023; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -25601,7 +22534,7 @@ s_loop_v11999: /* k l p */ goto jump; } -case 539: /* clo ek . */ +case 509: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25616,7 +22549,7 @@ case 539: /* clo ek . */ rc = 3; goto jump; -case 540: /* run-tests k */ +case 510: /* run-tests k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Dtests: /* k */ @@ -25625,18 +22558,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__235487), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234615), (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(541); + *--hp = obj_from_case(511); r[2] = (hendblk(2+1)); r[0] = r[2]; r[1] = (cx_test1); goto gs_evaluate; -case 541: /* clo ek r */ +case 511: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25648,13 +22581,13 @@ case 541: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(542); + *--hp = obj_from_case(512); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test2); goto gs_evaluate; -case 542: /* clo ek r */ +case 512: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25666,13 +22599,13 @@ case 542: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(543); + *--hp = obj_from_case(513); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test3); goto gs_evaluate; -case 543: /* clo ek r */ +case 513: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25684,13 +22617,13 @@ case 543: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(544); + *--hp = obj_from_case(514); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test4); goto gs_evaluate; -case 544: /* clo ek r */ +case 514: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25702,13 +22635,13 @@ case 544: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(545); + *--hp = obj_from_case(515); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test5); goto gs_evaluate; -case 545: /* clo ek r */ +case 515: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25717,23 +22650,23 @@ case 545: /* 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__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()); + (void)(oportputcircular((cx__234614), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v13432_b; + { flonum_t v13431_a; + { const flonum_t v13430_b = (CLOCKS_PER_SEC); + { const flonum_t v13428_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v15525_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v15527_a = ((v15524_a) - (v15525_tmp)); } + { const flonum_t v13429_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v13431_a = ((v13428_a) - (v13429_tmp)); } } else { - v15527_a = ((v15524_a) - flonum_from_obj(r[4])); + v13431_a = ((v13428_a) - flonum_from_obj(r[4])); } } - v15528_b = ((v15527_a) / (v15526_b)); } } - { const flonum_t v15529_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v15529_tmp) * (v15528_b)); } } + v13432_b = ((v13431_a) / (v13430_b)); } } + { const flonum_t v13433_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v13433_tmp) * (v13432_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__235462), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234590), (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]; @@ -25743,14 +22676,14 @@ case 545: /* clo ek r */ rc = 3; goto jump; -case 546: /* repl-eval k x */ +case 516: /* 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(547); + *--hp = obj_from_case(517); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -25762,44 +22695,77 @@ gs_repl_2Deval: /* k x */ rc = 4; goto jump; -case 547: /* clo ek r */ +case 517: /* 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__235555), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234685), (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))); } else { } - r[3] = (car((r[1]))); - r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define")))); - if (bool_from_obj(r[3])) { - (void)(car((r[1])) = (mksymbol(internsym("set!")))); + hreserve(hbsz(2+1), 3); /* 3 live regs */ + *--hp = r[1]; + *--hp = r[2]; + *--hp = obj_from_case(518); + r[3] = (hendblk(2+1)); + if ((ispair((r[1])))) { + r[4+0] = obj_from_ktrap(); + r[4+1] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + r[4+2] = r[2]; + r[4+3] = r[1]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v9944; + } else { + r[4+0] = (cx_x_2Derror); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[3]; + r[4+2] = (cx__234683); + r[4+3] = r[1]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 518: /* 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+3] = p[2]; } + r += 1; /* shift reg. wnd */ +s_l_v9944: /* ek . k r */ + r[4] = (car((r[3]))); + r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("define")))); + if (bool_from_obj(r[4])) { + (void)(car((r[3])) = (mksymbol(internsym("set!")))); } else { } if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__235548), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234676), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { } { /* open-output-string */ - r[3] = (mkoport_string(3, newcb())); } - hreserve(hbsz(3+1), 4); /* 4 live regs */ - *--hp = r[3]; + r[4] = (mkoport_string(4, newcb())); } + hreserve(hbsz(3+1), 5); /* 5 live regs */ + *--hp = r[4]; *--hp = r[2]; - *--hp = r[1]; - *--hp = obj_from_case(548); - r[4] = (hendblk(3+1)); - r[0] = r[4]; - /* r[1] */ + *--hp = r[3]; + *--hp = obj_from_case(519); + r[5] = (hendblk(3+1)); + r[0] = r[5]; + r[1] = r[3]; r[2] = (mknull()); goto gs_find_2Dfree; -case 548: /* clo ek r */ +case 519: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25810,7 +22776,7 @@ case 548: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(549); + *--hp = obj_from_case(520); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -25824,7 +22790,7 @@ case 548: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 549: /* clo ek . */ +case 520: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -25844,7 +22810,7 @@ case 549: /* 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__235541), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234669), (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])); @@ -25856,7 +22822,7 @@ case 549: /* clo ek . */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(550); + *--hp = obj_from_case(521); r[7] = (hendblk(2+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; @@ -25866,7 +22832,7 @@ case 549: /* clo ek . */ rc = 3; goto jump; -case 550: /* clo ek r */ +case 521: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25876,13 +22842,13 @@ case 550: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(551); + *--hp = obj_from_case(522); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ goto gs_execute; -case 551: /* clo ek r */ +case 522: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -25892,23 +22858,23 @@ case 551: /* 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__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()); + (void)(oportputcircular((cx__234614), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v13426_b; + { flonum_t v13425_a; + { const flonum_t v13424_b = (CLOCKS_PER_SEC); + { const flonum_t v13422_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v15519_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v15521_a = ((v15518_a) - (v15519_tmp)); } + { const flonum_t v13423_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v13425_a = ((v13422_a) - (v13423_tmp)); } } else { - v15521_a = ((v15518_a) - flonum_from_obj(r[4])); + v13425_a = ((v13422_a) - flonum_from_obj(r[4])); } } - v15522_b = ((v15521_a) / (v15520_b)); } } - { const flonum_t v15523_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v15523_tmp) * (v15522_b)); } } + v13426_b = ((v13425_a) / (v13424_b)); } } + { const flonum_t v13427_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v13427_tmp) * (v13426_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__235462), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234590), (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); @@ -25921,7 +22887,7 @@ case 551: /* clo ek r */ rc = 3; goto jump; -case 552: /* repl-eval-top-form k x */ +case 523: /* repl-eval-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval_2Dtop_2Dform: /* k x */ @@ -25941,10 +22907,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__233854)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__232982)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(553); + *--hp = obj_from_case(524); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -25953,12 +22919,12 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11906; + goto s_l_v9924; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233858); + r[5+2] = (cx__232986); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -25970,7 +22936,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(555); + *--hp = obj_from_case(526); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -25988,22 +22954,22 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ } } -case 553: /* clo ek r */ +case 524: /* 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_v11906: /* ek r k */ +s_l_v9924: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(554); + *--hp = obj_from_case(525); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Dfrom_2Dport; -case 554: /* clo ek . */ +case 525: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -26019,7 +22985,7 @@ case 554: /* clo ek . */ rc = 3; goto jump; -case 555: /* clo ek r */ +case 526: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -26030,13 +22996,13 @@ case 555: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v11890; + goto s_loop_v9908; } 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(558); + *--hp = obj_from_case(529); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -26054,7 +23020,7 @@ case 555: /* clo ek r */ if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(560); + *--hp = obj_from_case(531); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -26072,19 +23038,19 @@ case 555: /* clo ek r */ } } -case 556: /* clo k x* */ +case 527: /* clo k x* */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v11890: /* k x* */ +s_loop_v9908: /* k x* */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(556); + *--hp = obj_from_case(527); 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(557); + *--hp = obj_from_case(528); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -26100,7 +23066,7 @@ s_loop_v11890: /* k x* */ goto jump; } -case 557: /* clo ek . */ +case 528: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -26117,7 +23083,7 @@ case 557: /* clo ek . */ rc = 3; goto jump; -case 558: /* clo ek r */ +case 529: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -26129,13 +23095,13 @@ case 558: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(559); + *--hp = obj_from_case(530); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 559: /* clo ek r */ +case 530: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -26151,7 +23117,7 @@ case 559: /* clo ek r */ rc = 3; goto jump; -case 560: /* clo ek r */ +case 531: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -26161,11 +23127,11 @@ case 560: /* clo ek r */ /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; -case 561: /* repl-read k iport */ +case 532: /* 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__235610), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0)); + (void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__234741), (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]; @@ -26175,20 +23141,20 @@ gs_repl_2Dread: /* k iport */ rc = 3; goto jump; -case 562: /* repl-from-port k iport */ +case 533: /* 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(563); + *--hp = obj_from_case(534); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto gs_repl_2Dread; -case 563: /* clo ek r */ +case 534: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -26198,14 +23164,14 @@ case 563: /* clo ek r */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v11837; + goto s_loop_v9855; -case 564: /* clo k x */ +case 535: /* 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_v11837: /* k x iport */ +s_loop_v9855: /* k x iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -26217,20 +23183,20 @@ s_loop_v11837: /* k x iport */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(564); + *--hp = obj_from_case(535); 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(565); + *--hp = obj_from_case(536); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; } -case 565: /* clo ek . */ +case 536: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -26242,13 +23208,13 @@ case 565: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(566); + *--hp = obj_from_case(537); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_repl_2Dread; -case 566: /* clo ek r */ +case 537: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -26264,7 +23230,7 @@ case 566: /* clo ek r */ rc = 3; goto jump; -case 567: /* run-repl k */ +case 538: /* run-repl k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Drepl: /* k */ @@ -26274,13 +23240,13 @@ gs_run_2Drepl: /* k */ rreserve(MAX_HOSTREGS); goto gs_repl_2Dfrom_2Dport; -case 568: /* main k argv */ +case 539: /* 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(569); + *--hp = obj_from_case(540); r[2] = (hendblk(1+1)); r[3+0] = (cx_command_2Dline); pc = objptr_from_obj(r[3+0])[0]; @@ -26290,25 +23256,25 @@ case 568: /* main k argv */ rc = 2; goto jump; -case 569: /* clo ek r */ +case 540: /* 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__235639), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234770), (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__235633), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234764), (r[3])))) { r[0] = r[2]; goto gs_run_2Dtests; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235630), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234761), (r[3])))) { cx__2Averbose_2A = obj_from_bool(1); r[0] = r[2]; goto gs_run_2Drepl; diff --git a/s.c b/s.c index 91f2244..3f3d3b0 100644 --- a/s.c +++ b/s.c @@ -2,6 +2,90 @@ char *s_code[] = { + "let-syntax", + "l4:y12:syntax-rules;n;l2:l2:y1:_;l2:l2:y2:kw;y4:init;;y3:...;;;l1:y5:b" + "egin;;;l2:py1:_;pl2:l2:y2:kw;y4:init;;y3:...;;y5:forms;;;l3:py13:synta" + "x-lambda;pl2:y2:kw;y3:...;;y5:forms;;;y4:init;y3:...;;;", + + "letrec-syntax", + "l3:y12:syntax-rules;n;l2:py1:_;pl2:l2:y3:key;y5:trans;;y3:...;;y5:form" + "s;;;py4:body;pl3:y13:define-syntax;y3:key;y5:trans;;py3:...;y5:forms;;" + ";;;", + + "letrec", + "l3:y12:syntax-rules;n;l2:py1:_;pl2:l2:y3:var;y4:init;;y3:...;;y5:forms" + ";;;py4:body;pl3:y6:define;y3:var;y4:init;;py3:...;y5:forms;;;;;", + + "let", + "l4:y12:syntax-rules;n;l2:py1:_;pl2:l2:y3:var;y4:init;;y3:...;;y5:forms" + ";;;l3:py6:lambda;pl2:y3:var;y3:...;;y5:forms;;;y4:init;y3:...;;;l2:py1" + ":_;py4:name;pl2:l2:y3:var;y4:init;;y3:...;;y5:forms;;;;l3:l3:y6:letrec" + ";l1:l2:y4:name;py6:lambda;pl2:y3:var;y3:...;;y5:forms;;;;;y4:name;;y4:" + "init;y3:...;;;", + + "let*", + "l4:y12:syntax-rules;n;l2:py1:_;pn;y5:forms;;;py4:body;y5:forms;;;l2:py" + "1:_;ppy5:first;y4:more;;y5:forms;;;l3:y3:let;l1:y5:first;;py4:let*;py4" + ":more;y5:forms;;;;;", + + "and", + "l5:y12:syntax-rules;n;l2:l1:y1:_;;t;;l2:l2:y1:_;y4:test;;y4:test;;l2:p" + "y1:_;py4:test;y5:tests;;;l4:y2:if;y4:test;py3:and;y5:tests;;f;;;", + + "or", + "l5:y12:syntax-rules;n;l2:l1:y1:_;;f;;l2:l2:y1:_;y4:test;;y4:test;;l2:p" + "y1:_;py4:test;y5:tests;;;l3:y3:let;l1:l2:y1:x;y4:test;;;l4:y2:if;y1:x;" + "y1:x;py2:or;y5:tests;;;;;", + + "cond", + "l7:y12:syntax-rules;l2:y4:else;y2:=>;;l2:l1:y1:_;;f;;l2:l2:y1:_;py4:el" + "se;y4:exps;;;py5:begin;y4:exps;;;l2:py1:_;pl1:y1:x;;y4:rest;;;l3:y2:or" + ";y1:x;py4:cond;y4:rest;;;;l2:py1:_;pl3:y1:x;y2:=>;y4:proc;;y4:rest;;;l" + "3:y3:let;l1:l2:y3:tmp;y1:x;;;py4:cond;pl2:y3:tmp;l2:y4:proc;y3:tmp;;;y" + "4:rest;;;;;l2:py1:_;ppy1:x;y4:exps;;y4:rest;;;l4:y2:if;y1:x;py5:begin;" + "y4:exps;;py4:cond;y4:rest;;;;", + + "case-test", + "l4:y12:syntax-rules;l1:y4:else;;l2:l3:y1:_;y1:k;y4:else;;t;;l2:l3:y1:_" + ";y1:k;y5:atoms;;l3:y4:memv;y1:k;l2:y5:quote;y5:atoms;;;;", + + "case", + "l3:y12:syntax-rules;n;l2:l4:y1:_;y1:x;py4:test;y5:exprs;;y3:...;;l3:y3" + ":let;l1:l2:y3:key;y1:x;;;l3:y4:cond;pl3:y9:case-test;y3:key;y4:test;;y" + "5:exprs;;y3:...;;;;", + + "do", + "l3:y12:syntax-rules;n;l2:l5:y1:_;l2:py3:var;py4:init;y4:step;;;y3:...;" + ";y6:ending;y4:expr;y3:...;;l4:y3:let;y4:loop;l2:l2:y3:var;y4:init;;y3:" + "...;;l3:y4:cond;y6:ending;l4:y4:else;y4:expr;y3:...;l3:y4:loop;py5:beg" + "in;py3:var;y4:step;;;y3:...;;;;;;", + + "quasiquote", + "l10:y12:syntax-rules;l3:y7:unquote;y16:unquote-splicing;y10:quasiquote" + ";;l2:l2:y1:_;l2:y7:unquote;y1:x;;;y1:x;;l2:l2:y1:_;pl2:y16:unquote-spl" + "icing;y1:x;;y1:y;;;l3:y6:append;y1:x;l2:y10:quasiquote;y1:y;;;;l2:py1:" + "_;pl2:y10:quasiquote;y1:x;;y1:d;;;l3:y4:cons;l2:y5:quote;y10:quasiquot" + "e;;l3:y10:quasiquote;l1:y1:x;;y1:d;;;;l2:l3:y1:_;l2:y7:unquote;y1:x;;y" + "1:d;;l3:y4:cons;l2:y5:quote;y7:unquote;;py10:quasiquote;pl1:y1:x;;y1:d" + ";;;;;l2:l3:y1:_;l2:y16:unquote-splicing;y1:x;;y1:d;;l3:y4:cons;l2:y5:q" + "uote;y16:unquote-splicing;;py10:quasiquote;pl1:y1:x;;y1:d;;;;;l2:py1:_" + ";ppy1:x;y1:y;;y1:d;;;l3:y4:cons;py10:quasiquote;py1:x;y1:d;;;py10:quas" + "iquote;py1:y;y1:d;;;;;l2:py1:_;pv2:y1:x;y3:...;;y1:d;;;l2:y12:list->ve" + "ctor;py10:quasiquote;pl2:y1:x;y3:...;;y1:d;;;;;l2:py1:_;py1:x;y1:d;;;l" + "2:y5:quote;y1:x;;;", + + "when", + "l3:y12:syntax-rules;n;l2:py1:_;py4:test;y4:rest;;;l3:y2:if;y4:test;py5" + ":begin;y4:rest;;;;", + + "unless", + "l3:y12:syntax-rules;n;l2:py1:_;py4:test;y4:rest;;;l3:y2:if;l2:y3:not;y" + "4:test;;py5:begin;y4:rest;;;;", + + "case-lambda", + "l3:y12:syntax-rules;n;l2:l3:y1:_;py4:args;y4:body;;y3:...;;l3:y7:lambd" + "a*;l2:y4:args;py6:lambda;py4:args;y4:body;;;;y3:...;;;", + 0, "&0{%2.1,.1G4,.2,.2G3,@(y6:values)[22}@!(y6:floor/)", @@ -34,13 +118,9 @@ char *s_code[] = { "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y2:al;;l3:y4:asse;y1:v;y2:al;;;l" "2:py1:_;y4:args;;py6:%25assoc;y4:args;;;l2:y1:_;y6:%25assoc;;", - "list-copy", - "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y5:%25lcat;y1:x;l2:y5:quote;" - "n;;;;l2:py1:_;y12:syntax-rules;;py19:%25residual-list-copy;y12:syntax-" - "rules;;;l2:y1:_;y19:%25residual-list-copy;;", - 0, - "&0{%1n,.1,@(y5:%25lcat)[12}@!(y19:%25residual-list-copy)", + "&0{%1.0,,#0.0,&1{%1.0p?{${.2d,:0^[01},.1ac]1}.0]1}.!0.0^_1[11}@!(y9:li" + "st-copy)", 0, "&0{%!1.0,.2,,#0.0,&1{%2.1u?{.0]2}${.3d,.4a,:0^[02},.1c]2}.!0.0^_1[22}@" diff --git a/src/k.sf b/src/k.sf index 797ad6f..8092589 100644 --- a/src/k.sf +++ b/src/k.sf @@ -277,6 +277,8 @@ (list 'ref (integrable-global hval))] [(procedure? hval) ; id-syntax (xform appos? (hval sexp env) env)] + [(not (pair? hval)) + (x-error "improper use of syntax form" hval)] [else hval]))] [(not (pair? sexp)) (xform-quote (list sexp) env)] @@ -677,109 +679,6 @@ [(_ name exp) (define name exp)])))) -; Remaining transformers are made with the help of syntax-rules* -; NB: order of installation is important -- each transformer can -; be self-recursive but can't use transformers defined later! - -(define-syntax install-sr-transformer! - (syntax-rules (quote syntax-rules) - [(_ 'name (syntax-rules (lit ...) . rules)) - (install-transformer-rules! 'name #f '(lit ...) 'rules)] - [(_ 'name (syntax-rules ellipsis (lit ...) . rules)) - (install-transformer-rules! 'name 'ellipsis '(lit ...) 'rules)])) - -(install-sr-transformer! 'letrec-syntax - (syntax-rules () - [(_ ([key trans] ...) . forms) ; non-splicing! - (body (define-syntax key trans) ... . forms)])) - -(install-sr-transformer! 'let-syntax - (syntax-rules () - [(_ () . forms) - (body . forms)] - [(_ ([key trans] . bindings) . forms) - (letrec-syntax ([temp trans]) - (let-syntax bindings - (letrec-syntax ([key temp]) . forms)))])) - -(install-sr-transformer! 'letrec - (syntax-rules () - [(_ ([var init] ...) . forms) - (body (define var init) ... . forms)])) - -(install-sr-transformer! 'let - (syntax-rules () - [(_ ([var init] ...) . forms) - ((lambda (var ...) . forms) init ...)] - [(_ name ([var init] ...) . forms) - ((letrec ((name (lambda (var ...) . forms))) name) init ...)])) - -(install-sr-transformer! 'let* - (syntax-rules () - [(_ () . forms) - (body . forms)] - [(_ (first . more) . forms) - (let (first) (let* more . forms))])) - -(install-sr-transformer! 'and - (syntax-rules () - [(_) #t] - [(_ test) test] - [(_ test . tests) (if test (and . tests) #f)])) - -(install-sr-transformer! 'or - (syntax-rules () - [(_) #f] - [(_ test) test] - [(_ test . tests) (let ([x test]) (if x x (or . tests)))])) - -(install-sr-transformer! '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))])) - -(install-sr-transformer! 'case-test - (syntax-rules (else) - [(_ k else) #t] - [(_ k atoms) (memv k 'atoms)])) - -(install-sr-transformer! 'case - (syntax-rules () - [(_ x (test . exprs) ...) - (let ([key x]) (cond ((case-test key test) . exprs) ...))])) - -(install-sr-transformer! 'do - (syntax-rules () - [(_ ((var init . step) ...) ending expr ...) - (let loop ([var init] ...) - (cond ending [else expr ... (loop (begin var . step) ...)]))])) - -(install-sr-transformer! '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])) - -(install-sr-transformer! 'when - (syntax-rules () - [(_ test . rest) (if test (begin . rest))])) - -(install-sr-transformer! 'unless - (syntax-rules () - [(_ test . rest) (if (not test) (begin . rest))])) - -(install-sr-transformer! 'case-lambda - (syntax-rules () - [(_ [args . body] ...) (lambda* [args (lambda args . body)] ...)])) - ;--------------------------------------------------------------------------------------------- ; Runtime @@ -1582,6 +1481,7 @@ (set! *reset* catch) (let ([xexp (transform #f x)]) (when *verbose* (display "TRANSFORM =>") (newline) (write xexp) (newline)) + (unless (pair? xexp) (x-error "unexpected transformed output" xexp)) (if (eq? (car xexp) 'define) (set-car! xexp 'set!)) (when *verbose* (display "COMPILE-TO-STRING =>") (newline)) (let ([cstr (compile-to-string xexp)] [start #f]) diff --git a/src/s.scm b/src/s.scm index 79c8cb4..6f5c568 100644 --- a/src/s.scm +++ b/src/s.scm @@ -1,6 +1,6 @@ ;--------------------------------------------------------------------------------------------- -; SCHEME LIBRARY FUNCTIONS +; SCHEME LIBRARY ;--------------------------------------------------------------------------------------------- @@ -8,7 +8,6 @@ ; Derived expression types ;--------------------------------------------------------------------------------------------- -#| (define-syntax let-syntax (syntax-rules () [(_ ([kw init] ...)) @@ -17,15 +16,9 @@ ((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! + [(_ ([key trans] ...) . forms) (body (define-syntax key trans) ... . forms)])) (define-syntax letrec @@ -105,7 +98,6 @@ (define-syntax case-lambda (syntax-rules () [(_ [args . body] ...) (lambda* [args (lambda args . body)] ...)])) -|# ;cond ;case diff --git a/src/t.scm b/src/t.scm index 3c13efb..909836b 100644 --- a/src/t.scm +++ b/src/t.scm @@ -134,6 +134,7 @@ ; -> (set& ) ; -> (lambda ) where -> ( ...) | ( ... . ) | ; -> (lambda* ( ) ...) where -> ( ) +; -> (syntax-lambda ( ...) ) ; -> (letcc ) ; -> (withcc ) ; -> (begin ...) @@ -194,8 +195,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 val-core? pair?) @@ -224,9 +226,13 @@ (define (add-var var val env) ; adds renamed var as (extend-xenv env var (make-binding (id->sym var) (list 'ref val)))) +(define (x-error 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 -; a transformer (a procedure) +; a transformer (a procedure). Appos? flag is true when the context can +; allow xform to return a transformer; otherwise, only is accepted. (define (xform appos? sexp env) (cond [(id? sexp) @@ -236,63 +242,70 @@ (list 'ref (integrable-global hval))] [(procedure? hval) ; id-syntax (xform appos? (hval sexp env) env)] + [(not (pair? hval)) + (x-error "improper use of syntax form" hval)] [else hval]))] [(not (pair? sexp)) - (xform-quote sexp env)] + (xform-quote (list sexp) env)] [else (let* ([head (car sexp)] [tail (cdr sexp)] [hval (xform #t head env)]) (case hval [(syntax) (car tail)] ; internal use only - [(quote) (xform-quote (car tail) env)] - [(set!) (xform-set! (car tail) (cadr tail) env)] - [(set&) (xform-set& tail env)] - [(begin) (xform-begin tail env)] - [(if) (xform-if tail env)] - [(lambda) (xform-lambda tail env)] - [(lambda*) (xform-lambda* tail env)] - [(letcc) (xform-letcc tail env)] - [(withcc) (xform-withcc tail env)] - [(body) (xform-body tail env)] - [(define) (xform-define (car tail) (cadr tail) env)] - [(define-syntax) (xform-define-syntax (car tail) (cadr tail) env)] + [(quote) (xform-quote tail env)] + [(set!) (xform-set! tail env)] + [(set&) (xform-set& tail env)] + [(begin) (xform-begin tail env)] + [(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)] + [(define) (xform-define tail env)] + [(define-syntax) (xform-define-syntax tail env)] [else (if (integrable? hval) (xform-integrable hval tail env) (if (procedure? hval) (xform appos? (hval sexp env) env) (xform-call hval tail env)))]))])) -(define (xform-quote sexp env) - (list 'quote - (let conv ([sexp sexp]) - (cond [(id? sexp) (id->sym sexp)] - [(pair? sexp) (cons (conv (car sexp)) (conv (cdr sexp)))] - [(vector? sexp) (list->vector (map conv (vector->list sexp)))] - [else sexp])))) - (define (xform-ref id env) (let ([den (env id)]) (cond [(symbol? den) (list 'ref den)] [else (binding-val den)]))) -(define (xform-set! id exp env) - (let ([den (env id)] [xexp (xform #f exp env)]) - (cond [(symbol? den) (list 'set! den xexp)] - [(binding-special? den) (binding-set-val! den xexp) '(begin)] - [else (let ([val (binding-val den)]) - (if (eq? (car val) 'ref) - (list 'set! (cadr val) xexp) - (error 'transform "set! to non-identifier form")))]))) +(define (xform-quote tail env) + (if (list1? tail) + (list 'quote + (let conv ([sexp (car tail)]) + (cond [(id? sexp) (id->sym sexp)] + [(pair? sexp) (cons (conv (car sexp)) (conv (cdr sexp)))] + [(vector? sexp) (list->vector (map conv (vector->list sexp)))] + [else sexp]))) + (x-error "improper quote form" (cons 'quote tail)))) + +(define (xform-set! tail env) + (if (and (list2? tail) (id? (car tail))) + (let ([den (env (car tail))] [xexp (xform #f (cadr tail) env)]) + (cond [(symbol? den) (list 'set! den xexp)] + [(binding-special? den) (binding-set-val! den xexp) '(begin)] + [else (let ([val (binding-val den)]) + (if (eq? (car val) 'ref) + (list 'set! (cadr val) xexp) + (x-error "set! to non-identifier form")))])) + (x-error "improper set! form" (cons 'set! tail)))) (define (xform-set& tail env) (if (list1? tail) (let ([den (env (car tail))]) (cond [(symbol? den) (list 'set& den)] - [(binding-special? den) (error 'transform "set& of a non-variable")] + [(binding-special? den) (x-error "set& of a non-variable")] [else (let ([val (binding-val den)]) (if (eq? (car val) 'ref) (list 'set& (cadr val)) - (error 'transform "set& of a non-variable")))])) - (error 'transform "improper set& form"))) + (x-error "set& of a non-variable")))])) + (x-error "improper set& form" (cons 'set& tail)))) (define (xform-begin tail env) (if (list? tail) @@ -300,7 +313,7 @@ (if (and (pair? xexps) (null? (cdr xexps))) (car xexps) ; (begin x) => x (cons 'begin xexps))) - (error 'transform "improper begin form"))) + (x-error "improper begin form" (cons 'begin! tail)))) (define (xform-if tail env) (if (list? tail) @@ -308,8 +321,8 @@ (case (length xexps) [(2) (cons 'if (append xexps '((begin))))] [(3) (cons 'if xexps)] - [else (error 'transform "malformed if form")])) - (error 'transform "improper if form"))) + [else (x-error "malformed if form" (cons 'if tail))])) + (x-error "improper if form" (cons 'if tail)))) (define (xform-call xexp tail env) (if (list? tail) @@ -317,7 +330,7 @@ (if (and (null? xexps) (eq? (car xexp) 'lambda) (null? (cadr xexp))) (caddr xexp) ; ((let () x)) => x (pair* 'call xexp xexps))) - (error 'transform "improper application"))) + (x-error "improper application" (cons xexp tail)))) (define (integrable-argc-match? igt n) (case igt @@ -336,42 +349,59 @@ (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)))])) - (error 'transform "improper lambda body" tail))) + (list 'lambda (append (reverse ipars) nvar) + (xform-body (cdr tail) ienv)))])) + (x-error "improper lambda body" (cons 'lambda tail)))) (define (xform-lambda* tail env) (if (list? tail) (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)) - (error 'transform "improper lambda* clause"))) + (x-error "improper lambda* clause" aexp))) tail)) - (error 'transform "improper lambda* form"))) + (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))]) (list 'letcc nvar (xform-body (cdr tail) (add-var var nvar env)))) - (error 'transform "improper letcc form"))) + (x-error "improper letcc form" (cons 'letcc tail)))) (define (xform-withcc tail env) (if (list2+? tail) (list 'withcc (xform #f (car tail) env) (xform-body (cdr tail) env)) - (error 'transform "improper withcc form"))) + (x-error "improper withcc form" (cons 'withcc tail)))) (define (xform-body tail env) (if (null? tail) @@ -411,27 +441,27 @@ (map (lambda (lid) '(begin)) lids))))] [(symbol? (car nids)) ; define (loop (cdr ids) (cdr inits) (cdr nids) - (cons (xform-set! (car ids) (car inits) env) sets) + (cons (xform-set! (list (car ids) (car inits)) env) sets) (cons (car nids) lids))] [else ; define-syntax (binding-set-val! (env (car ids)) (xform #t (car inits) env)) (loop (cdr ids) (cdr inits) (cdr nids) sets lids)]))) -(define (xform-define id exp env) ; top-level only - (if (id? id) - (list 'define (id->sym id) (xform #f exp env)) - (error 'transform "define of non-identifier form"))) +(define (xform-define tail env) ; top-level only + (if (and (list2? tail) (id? (car tail))) + (list 'define (id->sym (car tail)) (xform #f (cadr tail) env)) + (x-error "improper define form" (cons 'define tail)))) -(define (xform-define-syntax id exp env) ; top-level only - (if (id? id) - (list 'define-syntax (id->sym id) (xform #t exp env)) - (error 'transform "define-syntax of non-identifier form"))) +(define (xform-define-syntax tail env) ; top-level only + (if (and (list2? tail) (id? (car tail))) + (list 'define-syntax (id->sym (car tail)) (xform #t (cadr tail) env)) + (x-error "improper define-syntax form" (cons 'define-syntax tail)))) ; ellipsis denotation is used for comparisons only (define denotation-of-default-ellipsis - (make-binding '... (lambda (sexp env) (error '... sexp)))) + (make-binding '... (lambda (sexp env) (x-error "improper use of ..." sexp)))) (define *transformers* (list @@ -443,6 +473,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) @@ -587,7 +618,7 @@ (lambda (use use-env) (let loop ([rules rules]) - (if (null? rules) (error 'transform "invalid syntax" use)) + (if (null? rules) (x-error "invalid syntax" use)) (let* ([rule (car rules)] [pat (car rule)] [tmpl (cadr rule)]) (cond [(match-pattern pat use use-env) => (lambda (bindings) (expand-template pat tmpl bindings))] @@ -633,10 +664,8 @@ (syntax-rules () [(_ () . forms) (body . forms)] - [(_ ([key trans] . bindings) . forms) - (letrec-syntax ([temp trans]) - (let-syntax bindings - (letrec-syntax ([key temp]) . forms)))])) + [(_ ([key trans] ...) . forms) + ((syntax-lambda (key ...) . forms) trans ...)])) (install-sr-transformer! 'letrec (syntax-rules () diff --git a/t.c b/t.c index 188cb23..2f9fa56 100644 --- a/t.c +++ b/t.c @@ -145,63 +145,68 @@ char *t_code[] = { ".1,.4,@(y11:extend-xenv)[33}@!(y7:add-var)", 0, - "&0{%3${.3,@(y3:id?)[01}?{${.4,.4,@(y9:xform-ref)[02},.1?{.0]4}.0U0?{.0" - "U7,'(y3:ref),l2]4}.0K0?{.3,${.6,.6,.5[02},.3,@(y5:xform)[43}.0]4}.1p~?" - "{.2,.2,@(y11:xform-quote)[32}.1a,.2d,${.6,.4,t,@(y5:xform)[03},.0,'(l1" - ":y6:syntax;),.1A1?{.2a]7}'(l1:y5:quote;),.1A1?{.6,.3a,@(y11:xform-quot" - "e)[72}'(l1:y4:set!;),.1A1?{.6,.3da,.4a,@(y10:xform-set!)[73}'(l1:y4:se" - "t&;),.1A1?{.6,.3,@(y10:xform-set&)[72}'(l1:y5:begin;),.1A1?{.6,.3,@(y1" - "1:xform-begin)[72}'(l1:y2:if;),.1A1?{.6,.3,@(y8:xform-if)[72}'(l1:y6:l" - "ambda;),.1A1?{.6,.3,@(y12:xform-lambda)[72}'(l1:y7:lambda*;),.1A1?{.6," - ".3,@(y13:xform-lambda*)[72}'(l1:y5:letcc;),.1A1?{.6,.3,@(y11:xform-let" - "cc)[72}'(l1:y6:withcc;),.1A1?{.6,.3,@(y12:xform-withcc)[72}'(l1:y4:bod" - "y;),.1A1?{.6,.3,@(y10:xform-body)[72}'(l1:y6:define;),.1A1?{.6,.3da,.4" - "a,@(y12:xform-define)[73}'(l1:y13:define-syntax;),.1A1?{.6,.3da,.4a,@(" - "y19:xform-define-syntax)[73}t?{.1U0?{.6,.3,.3,@(y16:xform-integrable)[" - "73}.1K0?{.6,${.9,.9,.6[02},.6,@(y5:xform)[73}.6,.3,.3,@(y10:xform-call" - ")[73}f]7}@!(y5:xform)", + "&0{%!1.0,.2,'(s13:transformer: )S6,@(y6:error*)[22}@!(y7:x-error)", 0, - "&0{%2${.2,,#0.0,&1{%1${.2,@(y3:id?)[01}?{.0,@(y7:id->sym)[11}.0p?{${.2" - "d,:0^[01},${.3a,:0^[01}c]1}.0V0?{${.2X0,:0^,@(y5:%25map1)[02}X1]1}.0]1" - "}.!0.0^_1[01},'(y5:quote),l2]2}@!(y11:xform-quote)", + "&0{%3${.3,@(y3:id?)[01}?{${.4,.4,@(y9:xform-ref)[02},.1?{.0]4}.0U0?{.0" + "U7,'(y3:ref),l2]4}.0K0?{.3,${.6,.6,.5[02},.3,@(y5:xform)[43}.0p~?{.0,'" + "(s27:improper use of syntax form),@(y7:x-error)[42}.0]4}.1p~?{.2,.2,l1" + ",@(y11:xform-quote)[32}.1a,.2d,${.6,.4,t,@(y5:xform)[03},.0,'(l1:y6:sy" + "ntax;),.1A1?{.2a]7}'(l1:y5:quote;),.1A1?{.6,.3,@(y11:xform-quote)[72}'" + "(l1:y4:set!;),.1A1?{.6,.3,@(y10:xform-set!)[72}'(l1:y4:set&;),.1A1?{.6" + ",.3,@(y10:xform-set&)[72}'(l1:y5:begin;),.1A1?{.6,.3,@(y11:xform-begin" + ")[72}'(l1:y2:if;),.1A1?{.6,.3,@(y8:xform-if)[72}'(l1:y6:lambda;),.1A1?" + "{.6,.3,@(y12:xform-lambda)[72}'(l1:y7:lambda*;),.1A1?{.6,.3,@(y13:xfor" + "m-lambda*)[72}'(l1:y13:syntax-lambda;),.1A1?{.6,.3,@(y19:xform-syntax-" + "lambda)[72}'(l1:y5:letcc;),.1A1?{.6,.3,@(y11:xform-letcc)[72}'(l1:y6:w" + "ithcc;),.1A1?{.6,.3,@(y12:xform-withcc)[72}'(l1:y4:body;),.1A1?{.6,.3," + "@(y10:xform-body)[72}'(l1:y6:define;),.1A1?{.6,.3,@(y12:xform-define)[" + "72}'(l1:y13:define-syntax;),.1A1?{.6,.3,@(y19:xform-define-syntax)[72}" + "t?{.1U0?{.6,.3,.3,@(y16:xform-integrable)[73}.1K0?{.6,${.9,.9,.6[02},." + "6,@(y5:xform)[73}.6,.3,.3,@(y10:xform-call)[73}f]7}@!(y5:xform)", 0, "&0{%2${.2,.4[01},.0Y0?{.0,'(y3:ref),l2]3}.0,@(y11:binding-val)[31}@!(y" "9:xform-ref)", 0, - "&0{%3${.4,.4,f,@(y5:xform)[03},${.3,.6[01},.0Y0?{.1,.1,'(y4:set!),l3]5" - "}${.2,@(y16:binding-special?)[01}?{${.3,.3,@(y16:binding-set-val!)[02}" - "'(l1:y5:begin;)]5}${.2,@(y11:binding-val)[01},'(y3:ref),.1aq?{.2,.1da," - "'(y4:set!),l3]6}'(s27:set! to non-identifier form),'(y9:transform),@(y" - "5:error)[62}@!(y10:xform-set!)", + "&0{%2${.2,@(y6:list1?)[01}?{${.2a,,#0.0,&1{%1${.2,@(y3:id?)[01}?{.0,@(" + "y7:id->sym)[11}.0p?{${.2d,:0^[01},${.3a,:0^[01}c]1}.0V0?{${.2X0,:0^,@(" + "y5:%25map1)[02}X1]1}.0]1}.!0.0^_1[01},'(y5:quote),l2]2}.0,'(y5:quote)c" + ",'(s19:improper quote form),@(y7:x-error)[22}@!(y11:xform-quote)", + + 0, + "&0{%2${.2,@(y6:list2?)[01}?{${.2a,@(y3:id?)[01}}{f}?{${.3,.3da,f,@(y5:" + "xform)[03},${.3a,.5[01},.0Y0?{.1,.1,'(y4:set!),l3]4}${.2,@(y16:binding" + "-special?)[01}?{${.3,.3,@(y16:binding-set-val!)[02}'(l1:y5:begin;)]4}$" + "{.2,@(y11:binding-val)[01},'(y3:ref),.1aq?{.2,.1da,'(y4:set!),l3]5}'(s" + "27:set! to non-identifier form),@(y7:x-error)[51}.0,'(y4:set!)c,'(s18:" + "improper set! form),@(y7:x-error)[22}@!(y10:xform-set!)", 0, "&0{%2${.2,@(y6:list1?)[01}?{${.2a,.4[01},.0Y0?{.0,'(y4:set&),l2]3}${.2" - ",@(y16:binding-special?)[01}?{'(s22:set& of a non-variable),'(y9:trans" - "form),@(y5:error)[32}${.2,@(y11:binding-val)[01},'(y3:ref),.1aq?{.0da," - "'(y4:set&),l2]4}'(s22:set& of a non-variable),'(y9:transform),@(y5:err" - "or)[42}'(s18:improper set& form),'(y9:transform),@(y5:error)[22}@!(y10" - ":xform-set&)", + ",@(y16:binding-special?)[01}?{'(s22:set& of a non-variable),@(y7:x-err" + "or)[31}${.2,@(y11:binding-val)[01},'(y3:ref),.1aq?{.0da,'(y4:set&),l2]" + "4}'(s22:set& of a non-variable),@(y7:x-error)[41}.0,'(y4:set&)c,'(s18:" + "improper set& form),@(y7:x-error)[22}@!(y10:xform-set&)", 0, "&0{%2.0L0?{${.2,.4,&1{%1:0,.1,f,@(y5:xform)[13},@(y5:%25map1)[02},.0p?" - "{.0du}{f}?{.0a]3}.0,'(y5:begin)c]3}'(s19:improper begin form),'(y9:tra" - "nsform),@(y5:error)[22}@!(y11:xform-begin)", + "{.0du}{f}?{.0a]3}.0,'(y5:begin)c]3}.0,'(y6:begin!)c,'(s19:improper beg" + "in form),@(y7:x-error)[22}@!(y11:xform-begin)", 0, "&0{%2.0L0?{${.2,.4,&1{%1:0,.1,f,@(y5:xform)[13},@(y5:%25map1)[02},.0g," "'(l1:i2;),.1A1?{'(l1:l1:y5:begin;;),.2L6,'(y2:if)c]4}'(l1:i3;),.1A1?{." - "1,'(y2:if)c]4}t?{'(s17:malformed if form),'(y9:transform),@(y5:error)[" - "42}f]4}'(s16:improper if form),'(y9:transform),@(y5:error)[22}@!(y8:xf" - "orm-if)", + "1,'(y2:if)c]4}t?{.2,'(y2:if)c,'(s17:malformed if form),@(y7:x-error)[4" + "2}f]4}.0,'(y2:if)c,'(s16:improper if form),@(y7:x-error)[22}@!(y8:xfor" + "m-if)", 0, "&0{%3.1L0?{${.3,.5,&1{%1:0,.1,f,@(y5:xform)[13},@(y5:%25map1)[02},.0u?" "{'(y6:lambda),.2aq?{.1dau}{f}}{f}?{.1dda]4}.0,.2,'(y4:call),@(y5:pair*" - ")[43}'(s20:improper application),'(y9:transform),@(y5:error)[32}@!(y10" - ":xform-call)", + ")[43}.1,.1c,'(s20:improper application),@(y7:x-error)[32}@!(y10:xform-" + "call)", 0, "&0{%2.0,'(l1:c0;),.1A1?{'0,.3=]3}'(l1:c1;),.1A1?{'1,.3=]3}'(l1:c2;),.1" @@ -222,27 +227,36 @@ char *t_code[] = { "${.6,.4,.6,@(y7:add-var)[03},.4d,:0^[53}.0u?{${.3,:1d,@(y10:xform-body" ")[02},.3A8,'(y6:lambda),l3]3}.0,${${.4,@(y7:id->sym)[01},@(y6:gensym)[" "01},${.5,.3,.5,@(y7:add-var)[03},${.2,:1d,@(y10:xform-body)[02},.2,.7A" - "8L6,'(y6:lambda),l3]6}.!0.0^_1[23}.0,'(s20:improper lambda body),'(y9:" - "transform),@(y5:error)[23}@!(y12:xform-lambda)", + "8L6,'(y6:lambda),l3]6}.!0.0^_1[23}.0,'(y6:lambda)c,'(s20:improper lamb" + "da body),@(y7:x-error)[22}@!(y12:xform-lambda)", 0, "&0{%2.0L0?{${.2,.4,&1{%1${.2,@(y6:list2?)[01}?{${.2a,@(y6:list2?)[01}?" "{.0aaI0?{.0adaY1}{f}}{f},.0?{.0}{${.3a,@(y8:idslist?)[01}}_1}{f}?{${:0" - ",.3da,f,@(y5:xform)[03},${.3a,@(y15:normalize-arity)[01},l2]1}'(s23:im" - "proper lambda* clause),'(y9:transform),@(y5:error)[12},@(y5:%25map1)[0" - "2},'(y7:lambda*)c]2}'(s21:improper lambda* form),'(y9:transform),@(y5:" - "error)[22}@!(y13:xform-lambda*)", + ",.3da,f,@(y5:xform)[03},${.3a,@(y15:normalize-arity)[01},l2]1}.0,'(s23" + ":improper lambda* clause),@(y7:x-error)[12},@(y5:%25map1)[02},'(y7:lam" + "bda*)c]2}.0,'(y7:lambda*)c,'(s21:improper lambda* form),@(y7:x-error)[" + "22}@!(y13:xform-lambda*)", + + 0, + "&0{%2${.2,@(y7:list2+?)[01}?{${.2a,@(y3:id?),@(y6:andmap)[02}}{f}?{.0d" + ",.2,.2a,.2,.1,.3,&3{%2${.2,@(y7:list1+?)[01}?{.0dg,:1gI=}{f}?{:0,.1d,:" + "1,,#0.5,.1,:2,&3{%3.0u?{${.4,:0,@(y10:xform-body)[02},'(y6:syntax),l2]" + "3}${.4,${:2,.7a,t,@(y5:xform)[03},.4a,@(y11:add-binding)[03},.2d,.2d,:" + "1^[33}.!0.0^_1[23}.0,'(s33:invalif syntax-lambda application),@(y7:x-e" + "rror)[22}]5}.0,'(y13:syntax-lambda)c,'(s27:improper syntax-lambda body" + "),@(y7:x-error)[22}@!(y19:xform-syntax-lambda)", 0, "&0{%2${.2,@(y7:list2+?)[01}?{${.2a,@(y3:id?)[01}}{f}?{.0a,${${.4,@(y7:" "id->sym)[01},@(y6:gensym)[01},${${.7,.5,.7,@(y7:add-var)[03},.5d,@(y10" - ":xform-body)[02},.1,'(y5:letcc),l3]4}'(s19:improper letcc form),'(y9:t" - "ransform),@(y5:error)[22}@!(y11:xform-letcc)", + ":xform-body)[02},.1,'(y5:letcc),l3]4}.0,'(y5:letcc)c,'(s19:improper le" + "tcc form),@(y7:x-error)[22}@!(y11:xform-letcc)", 0, "&0{%2${.2,@(y7:list2+?)[01}?{${.3,.3d,@(y10:xform-body)[02},${.4,.4a,f" - ",@(y5:xform)[03},'(y6:withcc),l3]2}'(s20:improper withcc form),'(y9:tr" - "ansform),@(y5:error)[22}@!(y12:xform-withcc)", + ",@(y5:xform)[03},'(y6:withcc),l3]2}.0,'(y6:withcc)c,'(s20:improper wit" + "hcc form),@(y7:x-error)[22}@!(y12:xform-withcc)", 0, "&0{%2.0u?{'(y5:begin),l1]2}.0,n,n,n,.5,,#0.0,&1{%5.4p?{.4ap}{f}?{.4d,." @@ -261,36 +275,38 @@ char *t_code[] = { "(y5:xform)[13},@(y5:%25map1)[02},.4A8L6,.0p?{.0du}{f}?{.0a}{.0,'(y5:be" "gin)c},.6u?{.0]7}${.8,&0{%1'(l1:y5:begin;)]1},@(y5:%25map1)[02},.1,.8A" "8,'(y6:lambda),l3,'(y4:call),@(y5:pair*)[73}.2aY0?{.4,.3ac,.4,${:1,.6a" - ",.6a,@(y10:xform-set!)[03}c,.4d,.4d,.4d,:2^[55}${${:1,.6a,t,@(y5:xform" - ")[03},${.5a,:1[01},@(y16:binding-set-val!)[02}.4,.4,.4d,.4d,.4d,:2^[55" - "}.!0.0^_1[55}@!(y12:xform-labels)", + ",.6a,l2,@(y10:xform-set!)[02}c,.4d,.4d,.4d,:2^[55}${${:1,.6a,t,@(y5:xf" + "orm)[03},${.5a,:1[01},@(y16:binding-set-val!)[02}.4,.4,.4d,.4d,.4d,:2^" + "[55}.!0.0^_1[55}@!(y12:xform-labels)", 0, - "&0{%3${.2,@(y3:id?)[01}?{${.4,.4,f,@(y5:xform)[03},${.3,@(y7:id->sym)[" - "01},'(y6:define),l3]3}'(s29:define of non-identifier form),'(y9:transf" - "orm),@(y5:error)[32}@!(y12:xform-define)", + "&0{%2${.2,@(y6:list2?)[01}?{${.2a,@(y3:id?)[01}}{f}?{${.3,.3da,f,@(y5:" + "xform)[03},${.3a,@(y7:id->sym)[01},'(y6:define),l3]2}.0,'(y6:define)c," + "'(s20:improper define form),@(y7:x-error)[22}@!(y12:xform-define)", 0, - "&0{%3${.2,@(y3:id?)[01}?{${.4,.4,t,@(y5:xform)[03},${.3,@(y7:id->sym)[" - "01},'(y13:define-syntax),l3]3}'(s36:define-syntax of non-identifier fo" - "rm),'(y9:transform),@(y5:error)[32}@!(y19:xform-define-syntax)", + "&0{%2${.2,@(y6:list2?)[01}?{${.2a,@(y3:id?)[01}}{f}?{${.3,.3da,t,@(y5:" + "xform)[03},${.3a,@(y7:id->sym)[01},'(y13:define-syntax),l3]2}.0,'(y13:" + "define-syntax)c,'(s27:improper define-syntax form),@(y7:x-error)[22}@!" + "(y19:xform-define-syntax)", 0, - "${&0{%2.0,'(y3:...),@(y5:error)[22},'(y3:...),@(y12:make-binding)[02}@" - "!(y30:denotation-of-default-ellipsis)", + "${&0{%2.0,'(s19:improper use of ...),@(y7:x-error)[22},'(y3:...),@(y12" + ":make-binding)[02}@!(y30:denotation-of-default-ellipsis)", 0, "@(y30:denotation-of-default-ellipsis),${'(y4:body),'(y4:body),@(y12:ma" "ke-binding)[02},${'(y2:if),'(y2:if),@(y12:make-binding)[02},${'(y5:beg" "in),'(y5:begin),@(y12:make-binding)[02},${'(y6:withcc),'(y6:withcc),@(" "y12:make-binding)[02},${'(y5:letcc),'(y5:letcc),@(y12:make-binding)[02" - "},${'(y7:lambda*),'(y7:lambda*),@(y12:make-binding)[02},${'(y6:lambda)" - ",'(y6:lambda),@(y12:make-binding)[02},${'(y4:set&),'(y4:set&),@(y12:ma" - "ke-binding)[02},${'(y4:set!),'(y4:set!),@(y12:make-binding)[02},${'(y5" - ":quote),'(y5:quote),@(y12:make-binding)[02},${'(y13:define-syntax),'(y" - "13:define-syntax),@(y12:make-binding)[02},${'(y6:define),'(y6:define)," - "@(y12:make-binding)[02},${'(y6:syntax),'(y6:syntax),@(y12:make-binding" - ")[02},l(i14)@!(y14:*transformers*)", + "},${'(y13:syntax-lambda),'(y13:syntax-lambda),@(y12:make-binding)[02}," + "${'(y7:lambda*),'(y7:lambda*),@(y12:make-binding)[02},${'(y6:lambda),'" + "(y6:lambda),@(y12:make-binding)[02},${'(y4:set&),'(y4:set&),@(y12:make" + "-binding)[02},${'(y4:set!),'(y4:set!),@(y12:make-binding)[02},${'(y5:q" + "uote),'(y5:quote),@(y12:make-binding)[02},${'(y13:define-syntax),'(y13" + ":define-syntax),@(y12:make-binding)[02},${'(y6:define),'(y6:define),@(" + "y12:make-binding)[02},${'(y6:syntax),'(y6:syntax),@(y12:make-binding)[" + "02},l(i15)@!(y14:*transformers*)", 0, "&0{%1${@(y14:*transformers*),.3,@(y16:find-top-binding)[02},${.2,@(y8:" @@ -339,9 +355,9 @@ char *t_code[] = { "c]4}${.4,.3^,@(y5:%25map1)[02},${.6dd,:6^[01},${.3,.6^c,@(y4:%25map),@" "(y13:apply-to-list)[02}L6]5}.0p?{${.2d,:6^[01},${.3a,:6^[01}c]1}.0]1}." "!0.0^_1[21}.!0.0^_1[62}.!6.(i10),.7,.7,&3{%2:2,,#0:0,.3,.5,:1,.4,&5{%1" - ".0u?{${:3,'(s14:invalid syntax),'(y9:transform),@(y5:error)[03}}.0a,.0" - "a,.1da,${:2,:3,.5,:4^[03},.0?{.0,.0,.3,.5,:1^[63}.4d,:0^[51}.!0.0^_1[2" - "1}](i11)}@!(y13:syntax-rules*)", + ".0u?{${:3,'(s14:invalid syntax),@(y7:x-error)[02}}.0a,.0a,.1da,${:2,:3" + ",.5,:4^[03},.0?{.0,.0,.3,.5,:1^[63}.4d,:0^[51}.!0.0^_1[21}](i11)}@!(y1" + "3:syntax-rules*)", 0, "${&0{%2,#0${${'(y6:syntax),'(y6:syntax),@(y12:make-binding)[02},@(y6:n" @@ -371,11 +387,10 @@ char *t_code[] = { "letrec-syntax),@(y26:install-transformer-rules!)[04}", 0, - "${'(l2:l2:py1:_;pn;y5:forms;;;py4:body;y5:forms;;;l2:py1:_;ppl2:y3:key" - ";y5:trans;;y8:bindings;;y5:forms;;;l3:y13:letrec-syntax;l1:l2:y4:temp;" - "y5:trans;;;l3:y10:let-syntax;y8:bindings;py13:letrec-syntax;pl1:l2:y3:" - "key;y4:temp;;;y5:forms;;;;;;),n,f,'(y10:let-syntax),@(y26:install-tran" - "sformer-rules!)[04}", + "${'(l2:l2:py1:_;pn;y5:forms;;;py4:body;y5:forms;;;l2:py1:_;pl2:l2:y3:k" + "ey;y5:trans;;y3:...;;y5:forms;;;l3:py13:syntax-lambda;pl2:y3:key;y3:.." + ".;;y5:forms;;;y5:trans;y3:...;;;),n,f,'(y10:let-syntax),@(y26:install-" + "transformer-rules!)[04}", 0, "${'(l1:l2:py1:_;pl2:l2:y3:var;y4:init;;y3:...;;y5:forms;;;py4:body;pl3"