diff --git a/.gitignore b/.gitignore index eae0fed..eaf93d9 100644 --- a/.gitignore +++ b/.gitignore @@ -53,3 +53,6 @@ dkms.conf save/ .vs/ + +tests/r5rstest.ss +tests/r7rstest.ss diff --git a/i.c b/i.c index f089f53..4021dca 100644 --- a/i.c +++ b/i.c @@ -888,7 +888,7 @@ define_instruction(rck) { obj *ks = &vmcloref(rd, 2), *ke = ks + n; if (ke-ks > 3 && *--ke == fixnum_obj(0) && *--ke == cx_callmv_2Dadapter_2Dclosure) { obj *sb = r + VM_REGC; - rd = *--ke; rx = fixnum_obj(0); n = ke - ks; /* cns */ + rd = *--ke; rx = fixnum_obj(0); n = (int)(ke - ks); /* cns */ /* arrange stack as follows: [ks..ke] [arg ...] */ assert((cxg_rend - cxg_regs - VM_REGC) > n + c); if (c) objmove(sb+n, sp-c, c); @@ -3387,6 +3387,11 @@ define_instruction(wriw) { gonexti(); } +define_instruction(itrs) { + ac = cx__2Atransformers_2A; + gonexti(); +} + define_instruction(igp) { ac = bool_obj(isintegrable(ac)); gonexti(); diff --git a/i.h b/i.h index 46924e2..4ff8f0a 100644 --- a/i.h +++ b/i.h @@ -525,6 +525,7 @@ declare_instruction(exit, "Z9\0t", 0, "%exit", /* serialization and deserialization instructions */ declare_instruction(igp, "U0", 0, "integrable?", '1', AUTOGL) +declare_instruction(itrs, "U1", 0, "initial-transformers", '0', AUTOGL) declare_instruction(rdsx, "U3", 0, "deserialize-sexp", '1', AUTOGL) declare_instruction(rdsc, "U4", 0, "deserialize-code", '1', AUTOGL) declare_instruction(iglk, "U5", 0, "lookup-integrable", '1', AUTOGL) diff --git a/k.c b/k.c index 7a0c44c..497bb1c 100644 --- a/k.c +++ b/k.c @@ -655,62 +655,61 @@ static obj cx__231063; /* constant #1063 */ static obj cx__231106; /* constant #1106 */ static obj cx__231113; /* constant #1113 */ static obj cx__231126; /* constant #1126 */ -static obj cx__231167; /* constant #1167 */ -static obj cx__231239; /* constant #1239 */ -static obj cx__231303; /* constant #1303 */ -static obj cx__231735; /* constant #1735 */ -static obj cx__231795; /* constant #1795 */ -static obj cx__231878; /* constant #1878 */ -static obj cx__231913; /* constant #1913 */ -static obj cx__232006; /* constant #2006 */ -static obj cx__232027; /* constant #2027 */ -static obj cx__232371; /* constant #2371 */ -static obj cx__232678; /* constant #2678 */ -static obj cx__232843; /* constant #2843 */ -static obj cx__232981; /* constant #2981 */ -static obj cx__232986; /* constant #2986 */ -static obj cx__232990; /* constant #2990 */ -static obj cx__233014; /* constant #3014 */ -static obj cx__233015; /* constant #3015 */ -static obj cx__233024; /* constant #3024 */ -static obj cx__233025; /* constant #3025 */ -static obj cx__233036; /* constant #3036 */ -static obj cx__233059; /* constant #3059 */ -static obj cx__233120; /* constant #3120 */ -static obj cx__233124; /* constant #3124 */ -static obj cx__233244; /* constant #3244 */ -static obj cx__233280; /* constant #3280 */ +static obj cx__231201; /* constant #1201 */ +static obj cx__231273; /* constant #1273 */ +static obj cx__231360; /* constant #1360 */ +static obj cx__231792; /* constant #1792 */ +static obj cx__231875; /* constant #1875 */ +static obj cx__231910; /* constant #1910 */ +static obj cx__232003; /* constant #2003 */ +static obj cx__232024; /* constant #2024 */ +static obj cx__232368; /* constant #2368 */ +static obj cx__232675; /* constant #2675 */ +static obj cx__232840; /* constant #2840 */ +static obj cx__232978; /* constant #2978 */ +static obj cx__232983; /* constant #2983 */ +static obj cx__232987; /* constant #2987 */ +static obj cx__233011; /* constant #3011 */ +static obj cx__233012; /* constant #3012 */ +static obj cx__233021; /* constant #3021 */ +static obj cx__233022; /* constant #3022 */ +static obj cx__233033; /* constant #3033 */ +static obj cx__233056; /* constant #3056 */ +static obj cx__233117; /* constant #3117 */ +static obj cx__233121; /* constant #3121 */ +static obj cx__233242; /* constant #3242 */ +static obj cx__233278; /* constant #3278 */ +static obj cx__233286; /* constant #3286 */ +static obj cx__233287; /* constant #3287 */ static obj cx__233288; /* constant #3288 */ static obj cx__233289; /* constant #3289 */ static obj cx__233290; /* constant #3290 */ -static obj cx__233291; /* constant #3291 */ -static obj cx__233292; /* constant #3292 */ -static obj cx__233315; /* constant #3315 */ -static obj cx__233319; /* constant #3319 */ +static obj cx__233313; /* constant #3313 */ +static obj cx__233317; /* constant #3317 */ static obj cx__23334; /* constant #334 */ -static obj cx__233589; /* constant #3589 */ -static obj cx__233791; /* constant #3791 */ -static obj cx__234193; /* constant #4193 */ +static obj cx__233587; /* constant #3587 */ +static obj cx__233789; /* constant #3789 */ +static obj cx__234191; /* constant #4191 */ static obj cx__23424; /* constant #424 */ -static obj cx__234323; /* constant #4323 */ +static obj cx__234321; /* constant #4321 */ static obj cx__23472; /* constant #472 */ -static obj cx__234731; /* constant #4731 */ -static obj cx__234755; /* constant #4755 */ -static obj cx__234756; /* constant #4756 */ -static obj cx__234812; /* constant #4812 */ -static obj cx__234819; /* constant #4819 */ +static obj cx__234729; /* constant #4729 */ +static obj cx__234753; /* constant #4753 */ +static obj cx__234754; /* constant #4754 */ +static obj cx__234810; /* constant #4810 */ +static obj cx__234817; /* constant #4817 */ static obj cx__23482; /* constant #482 */ +static obj cx__234824; /* constant #4824 */ static obj cx__234826; /* constant #4826 */ -static obj cx__234828; /* constant #4828 */ -static obj cx__234884; /* constant #4884 */ -static obj cx__234915; /* constant #4915 */ -static obj cx__234920; /* constant #4920 */ -static obj cx__234921; /* constant #4921 */ -static obj cx__234939; /* constant #4939 */ -static obj cx__234942; /* constant #4942 */ -static obj cx__234948; /* constant #4948 */ -static obj cx__234956; /* constant #4956 */ -static obj cx__234964; /* constant #4964 */ +static obj cx__234882; /* constant #4882 */ +static obj cx__234913; /* constant #4913 */ +static obj cx__234918; /* constant #4918 */ +static obj cx__234919; /* constant #4919 */ +static obj cx__234937; /* constant #4937 */ +static obj cx__234940; /* constant #4940 */ +static obj cx__234946; /* constant #4946 */ +static obj cx__234954; /* constant #4954 */ +static obj cx__234962; /* constant #4962 */ static obj cx__23507; /* constant #507 */ static obj cx__23515; /* constant #515 */ static obj cx__23525; /* constant #525 */ @@ -739,11 +738,11 @@ static obj cxs_set_2Dmember_3F(obj v2_x, obj v1_s) return obj_from_bool(1); } else { { /* let */ - obj v5394_tmp = (cdr((v1_s))); - obj v5393_tmp = (v2_x); + obj v5390_tmp = (cdr((v1_s))); + obj v5389_tmp = (v2_x); /* tail call */ - v2_x = (v5393_tmp); - v1_s = (v5394_tmp); + v2_x = (v5389_tmp); + v1_s = (v5390_tmp); goto s_set_2Dmember_3F; } } @@ -763,19 +762,19 @@ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) return (v48_x); } else { if ((ispair((v41_pat)))) { + { /* let */ + obj v5383_tmp; { /* let */ obj v5387_tmp; { /* let */ - obj v5391_tmp; - { /* let */ - obj v5392_tmp; + obj v5388_tmp; { static obj o = 0; static char s[] = { 36, 0 }; - v5392_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; - v5391_tmp = obj_from_bool((car((v41_pat))) == (v5392_tmp)); + v5388_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; + v5387_tmp = obj_from_bool((car((v41_pat))) == (v5388_tmp)); } - v5387_tmp = (bool_from_obj(v5391_tmp) ? ((ispair((cdr((v41_pat))))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0)); + v5383_tmp = (bool_from_obj(v5387_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(v5387_tmp)) { + if (bool_from_obj(v5383_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))) { @@ -793,9 +792,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 v5390_tmp = (cdr((v58_lst))); + obj v5386_tmp = (cdr((v58_lst))); /* tail call */ - v58_lst = (v5390_tmp); + v58_lst = (v5386_tmp); goto s_f; } } else { @@ -811,11 +810,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 v5389_tmp = (cdr((v40_exp))); - obj v5388_tmp = (cdr((v41_pat))); + obj v5385_tmp = (cdr((v40_exp))); + obj v5384_tmp = (cdr((v41_pat))); /* tail call */ - v41_pat = (v5388_tmp); - v40_exp = (v5389_tmp); + v41_pat = (v5384_tmp); + v40_exp = (v5385_tmp); goto s_syntax_2Dmatch_3F; } } else { @@ -842,11 +841,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) obj v120_l; obj v119_n; { /* let */ - obj v5386_tmp = obj_from_fixnum(+0); - obj v5385_tmp = (v116_l); + obj v5382_tmp = obj_from_fixnum(+0); + obj v5381_tmp = (v116_l); /* tail call */ - v120_l = (v5385_tmp); - v119_n = (v5386_tmp); + v120_l = (v5381_tmp); + v119_n = (v5382_tmp); goto s_loop; } s_loop: @@ -857,11 +856,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) return (v119_n); } else { { /* let */ - obj v5384_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); - obj v5383_tmp = (cdr((v120_l))); + obj v5380_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); + obj v5379_tmp = (cdr((v120_l))); /* tail call */ - v120_l = (v5383_tmp); - v119_n = (v5384_tmp); + v120_l = (v5379_tmp); + v119_n = (v5380_tmp); goto s_loop; } } @@ -953,62 +952,61 @@ static obj *globv[] = { &cx__231106, &cx__231113, &cx__231126, - &cx__231167, - &cx__231239, - &cx__231303, - &cx__231735, - &cx__231795, - &cx__231878, - &cx__231913, - &cx__232006, - &cx__232027, - &cx__232371, - &cx__232678, - &cx__232843, - &cx__232981, - &cx__232986, - &cx__232990, - &cx__233014, - &cx__233015, - &cx__233024, - &cx__233025, - &cx__233036, - &cx__233059, - &cx__233120, - &cx__233124, - &cx__233244, - &cx__233280, + &cx__231201, + &cx__231273, + &cx__231360, + &cx__231792, + &cx__231875, + &cx__231910, + &cx__232003, + &cx__232024, + &cx__232368, + &cx__232675, + &cx__232840, + &cx__232978, + &cx__232983, + &cx__232987, + &cx__233011, + &cx__233012, + &cx__233021, + &cx__233022, + &cx__233033, + &cx__233056, + &cx__233117, + &cx__233121, + &cx__233242, + &cx__233278, + &cx__233286, + &cx__233287, &cx__233288, &cx__233289, &cx__233290, - &cx__233291, - &cx__233292, - &cx__233315, - &cx__233319, + &cx__233313, + &cx__233317, &cx__23334, - &cx__233589, - &cx__233791, - &cx__234193, + &cx__233587, + &cx__233789, + &cx__234191, &cx__23424, - &cx__234323, + &cx__234321, &cx__23472, - &cx__234731, - &cx__234755, - &cx__234756, - &cx__234812, - &cx__234819, + &cx__234729, + &cx__234753, + &cx__234754, + &cx__234810, + &cx__234817, &cx__23482, + &cx__234824, &cx__234826, - &cx__234828, - &cx__234884, - &cx__234915, - &cx__234920, - &cx__234921, - &cx__234939, - &cx__234942, - &cx__234948, - &cx__234956, - &cx__234964, + &cx__234882, + &cx__234913, + &cx__234918, + &cx__234919, + &cx__234937, + &cx__234940, + &cx__234946, + &cx__234954, + &cx__234962, &cx__23507, &cx__23515, &cx__23525, @@ -1032,7 +1030,8 @@ static cxroot_t root = { /* entry points */ static obj host(obj); -static obj cases[579] = { +static obj cases[584] = { + (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, @@ -1210,194 +1209,20 @@ case 0: /* load module */ *--hp = obj_from_size(PAIR_BTAG); cx__231113 = (hendblk(3)); } cx__231126 = (hpushstr(0, newstring("improper define form"))); - cx__231167 = (hpushstr(0, newstring("improper body form"))); + cx__231201 = (hpushstr(0, newstring("improper body form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__231239 = (hendblk(3)); } - cx__231303 = (hpushstr(0, newstring("improper use of ..."))); - cx__231735 = (hpushstr(0, newstring("invalid syntax"))); - { /* cons */ - hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("exp"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("name"))); - *--hp = obj_from_size(PAIR_BTAG); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = r[0]; - *--hp = (mksymbol(internsym("define"))); - *--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("exp"))); - *--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 = (mksymbol(internsym("forms"))); - *--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("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("define"))); - *--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("args"))); - *--hp = (mksymbol(internsym("name"))); - *--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); - r[0] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 1); /* 1 live regs */ - *--hp = (mknull()); - *--hp = (mksymbol(internsym("exp"))); - *--hp = obj_from_size(PAIR_BTAG); - r[1] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 2); /* 2 live regs */ - *--hp = r[1]; - *--hp = (mknull()); - *--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 = (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("exp"))); - *--hp = obj_from_size(PAIR_BTAG); - r[2] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--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__231795 = (hendblk(3)); } - cx__231878 = (hpushstr(0, newstring("compiler: "))); - cx__231913 = (hpushstr(0, newstring("cannot encode literal"))); - cx__232006 = (hpushstr(0, newstring("0123456789"))); - cx__232027 = (hpushstr(0, newstring("misplaced define form"))); - cx__232371 = (hpushstr(0, newstring("unsupported integrable type"))); + cx__231273 = (hendblk(3)); } + cx__231360 = (hpushstr(0, newstring("improper use of ..."))); + cx__231792 = (hpushstr(0, newstring("invalid syntax"))); + cx__231875 = (hpushstr(0, newstring("compiler: "))); + cx__231910 = (hpushstr(0, newstring("cannot encode literal"))); + cx__232003 = (hpushstr(0, newstring("0123456789"))); + cx__232024 = (hpushstr(0, newstring("misplaced define form"))); + cx__232368 = (hpushstr(0, newstring("unsupported integrable type"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1415,33 +1240,33 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("quote"))); *--hp = obj_from_size(PAIR_BTAG); - cx__232678 = (hendblk(3)); } + cx__232675 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__232843 = (hendblk(3)); } + cx__232840 = (hendblk(3)); } { static char s[] = { 34, 10, 0 }; - cx__232981 = (hpushstr(0, newstring(s))); } + cx__232978 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 0 }; - cx__232986 = (hpushstr(0, newstring(s))); } + cx__232983 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 0 }; - cx__232990 = (hpushstr(0, newstring(s))); } + cx__232987 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 10, 0 }; - cx__233014 = (hpushstr(0, newstring(s))); } + cx__233011 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 83, 34, 44, 32, 34, 0 }; - cx__233015 = (hpushstr(0, newstring(s))); } + cx__233012 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 34, 0 }; - cx__233024 = (hpushstr(0, newstring(s))); } + cx__233021 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 65, 34, 44, 32, 34, 0 }; - cx__233025 = (hpushstr(0, newstring(s))); } + cx__233022 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 67, 34, 44, 32, 48, 44, 10, 0 }; - cx__233036 = (hpushstr(0, newstring(s))); } + cx__233033 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 80, 34, 44, 32, 34, 0 }; - cx__233059 = (hpushstr(0, newstring(s))); } - cx__233120 = (hpushstr(0, newstring("r"))); - cx__233124 = (hpushstr(0, newstring("cannot open input file"))); + cx__233056 = (hpushstr(0, newstring(s))); } + cx__233117 = (hpushstr(0, newstring("r"))); + cx__233121 = (hpushstr(0, newstring("cannot open input file"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1459,15 +1284,15 @@ case 0: /* load module */ *--hp = r[0]; *--hp = obj_from_char(92); *--hp = obj_from_size(PAIR_BTAG); - cx__233244 = (hendblk(3)); } + cx__233242 = (hendblk(3)); } { static char s[] = { 10, 32, 32, 48, 44, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 }; - cx__233280 = (hpushstr(0, newstring(s))); } - cx__233288 = (hpushstr(0, newstring("_code[] = {"))); - cx__233289 = (hpushstr(0, newstring("char *"))); - cx__233290 = (hpushstr(0, newstring(" */"))); - cx__233291 = (hpushstr(0, newstring(".c -- generated via skint -c "))); - cx__233292 = (hpushstr(0, newstring("/* "))); - cx__233315 = (hpushstr(0, newstring("K5"))); + cx__233278 = (hpushstr(0, newstring(s))); } + cx__233286 = (hpushstr(0, newstring("_code[] = {"))); + cx__233287 = (hpushstr(0, newstring("char *"))); + cx__233288 = (hpushstr(0, newstring(" */"))); + cx__233289 = (hpushstr(0, newstring(".c -- generated via skint -c "))); + cx__233290 = (hpushstr(0, newstring("/* "))); + cx__233313 = (hpushstr(0, newstring("K5"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2283,7 +2108,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233319 = (hendblk(3)); } + cx__233317 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2883,7 +2708,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233589 = (hendblk(3)); } + cx__233587 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -4083,7 +3908,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233791 = (hendblk(3)); } + cx__233789 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -4467,7 +4292,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234193 = (hendblk(3)); } + cx__234191 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5607,16 +5432,16 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234323 = (hendblk(3)); } - cx__234731 = (hpushstr(0, newstring(" ms."))); - cx__234755 = (hpushstr(0, newstring("Elapsed time: "))); - cx__234756 = (hpushstr(0, newstring("Running tests ..."))); - cx__234812 = (hpushstr(0, newstring("DECODE+EXECUTE =>"))); - cx__234819 = (hpushstr(0, newstring("COMPILE-TO-STRING =>"))); - cx__234826 = (hpushstr(0, newstring("unexpected transformed output"))); - cx__234828 = (hpushstr(0, newstring("TRANSFORM =>"))); + cx__234321 = (hendblk(3)); } + cx__234729 = (hpushstr(0, newstring(" ms."))); + cx__234753 = (hpushstr(0, newstring("Elapsed time: "))); + cx__234754 = (hpushstr(0, newstring("Running tests ..."))); + cx__234810 = (hpushstr(0, newstring("DECODE+EXECUTE =>"))); + cx__234817 = (hpushstr(0, newstring("COMPILE-TO-STRING =>"))); + cx__234824 = (hpushstr(0, newstring("unexpected transformed output"))); + cx__234826 = (hpushstr(0, newstring("TRANSFORM =>"))); { static char s[] = { 10, 115, 107, 105, 110, 116, 62, 32, 0 }; - cx__234884 = (hpushstr(0, newstring(s))); } + cx__234882 = (hpushstr(0, newstring(s))); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5628,8 +5453,8 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("main"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234915 = (hendblk(3)); } - cx__234920 = (hpushstr(0, newstring("unexpected benchmark file format"))); + cx__234913 = (hendblk(3)); } + cx__234918 = (hpushstr(0, newstring("unexpected benchmark file format"))); r[0] = (hpushstr(0, newstring("libl.sf"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -5642,21 +5467,21 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("load"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234921 = (hendblk(3)); } + cx__234919 = (hendblk(3)); } 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__234939 = (hendblk(3)); } + cx__234937 = (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__234942 = (hendblk(3)); } + cx__234940 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5669,7 +5494,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__234948 = (hendblk(3)); } + cx__234946 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5682,7 +5507,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__234956 = (hendblk(3)); } + cx__234954 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5695,7 +5520,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__234964 = (hendblk(3)); } + cx__234962 = (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; } @@ -5796,11 +5621,11 @@ case 0: /* load module */ { static obj c[] = { obj_from_case(132) }; cx_xform_2Dletcc = (obj)c; } { static obj c[] = { obj_from_case(137) }; cx_xform_2Dwithcc = (obj)c; } { static obj c[] = { obj_from_case(140) }; cx_xform_2Dbody = (obj)c; } - { static obj c[] = { obj_from_case(149) }; cx_xform_2Dlabels = (obj)c; } - { static obj c[] = { obj_from_case(161) }; cx_xform_2Ddefine = (obj)c; } - { static obj c[] = { obj_from_case(164) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; } + { static obj c[] = { obj_from_case(154) }; cx_xform_2Dlabels = (obj)c; } + { static obj c[] = { obj_from_case(166) }; cx_xform_2Ddefine = (obj)c; } + { static obj c[] = { obj_from_case(172) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(167); + *--hp = obj_from_case(175); r[0] = (hendblk(0+1)); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -6006,11 +5831,11 @@ case 0: /* load module */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__2Atransformers_2A = (hendblk(3)); } - { static obj c[] = { obj_from_case(168) }; cx_top_2Dtransformer_2Denv = (obj)c; } - { static obj c[] = { obj_from_case(172) }; cx_install_2Dtransformer_21 = (obj)c; } - { static obj c[] = { obj_from_case(174) }; cx_install_2Dtransformer_2Drules_21 = (obj)c; } + { static obj c[] = { obj_from_case(176) }; cx_top_2Dtransformer_2Denv = (obj)c; } + { static obj c[] = { obj_from_case(180) }; cx_install_2Dtransformer_21 = (obj)c; } + { static obj c[] = { obj_from_case(182) }; cx_install_2Dtransformer_2Drules_21 = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(177); + *--hp = obj_from_case(185); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -6018,9 +5843,9 @@ case 0: /* load module */ *--hp = obj_from_fixnum(+2); *--hp = obj_from_objptr(appcases+1); cx_transform = (hendblk(3)); } - { static obj c[] = { obj_from_case(178) }; cx_syntax_2Drules_2A = (obj)c; } + { static obj c[] = { obj_from_case(186) }; cx_syntax_2Drules_2A = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(238); + *--hp = obj_from_case(246); r[0] = (hendblk(0+1)); r[1+0] = r[0]; r[1+1] = (mksymbol(internsym("syntax-rules"))); @@ -6610,16 +6435,16 @@ gs_normalize_2Darity: /* k arity */ r[2+2] = r[1]; r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v14006; + goto s_loop_v14003; } -s_loop_v14006: /* k cnt l */ +s_loop_v14003: /* 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_v14006; + goto s_loop_v14003; } else { if ((isnull((r[2])))) { { /* cons */ @@ -6677,10 +6502,10 @@ gs_flatten_2Didslist: /* k ilist */ r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13993; + goto s_loop_v13990; } -s_loop_v13993: /* k l r */ +s_loop_v13990: /* k l r */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); r[4] = (car((r[1]))); @@ -6693,7 +6518,7 @@ s_loop_v13993: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v13993; + goto s_loop_v13990; } else { if ((isnull((r[1])))) { { /* reverse! */ @@ -7701,9 +7526,9 @@ case 66: /* clo ek r */ r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v13718; + goto s_loop_v13715; -s_loop_v13718: /* k l conv */ +s_loop_v13715: /* k l conv */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -7715,7 +7540,7 @@ s_loop_v13718: /* k l conv */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13718; + goto s_loop_v13715; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -7953,9 +7778,9 @@ gs_xform_2Dsyntax_2Derror: /* k tail env */ r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ - goto s_loop_v13648; + goto s_loop_v13645; -s_loop_v13648: /* k l */ +s_loop_v13645: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ @@ -7965,7 +7790,7 @@ s_loop_v13648: /* k l */ r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v13648; + goto s_loop_v13645; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -8336,7 +8161,7 @@ gs_xform_2Dbegin: /* k tail env */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v13583; + goto s_loop_v13580; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -8355,7 +8180,7 @@ gs_xform_2Dbegin: /* k tail env */ goto jump; } -s_loop_v13583: /* k l env */ +s_loop_v13580: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -8367,7 +8192,7 @@ s_loop_v13583: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13583; + goto s_loop_v13580; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8465,7 +8290,7 @@ gs_xform_2Dif: /* k tail env */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v13552; + goto s_loop_v13549; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -8484,7 +8309,7 @@ gs_xform_2Dif: /* k tail env */ goto jump; } -s_loop_v13552: /* k l env */ +s_loop_v13549: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -8496,7 +8321,7 @@ s_loop_v13552: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13552; + goto s_loop_v13549; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8644,7 +8469,7 @@ gs_xform_2Dcall: /* k xexp tail env */ r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; - goto s_loop_v13513; + goto s_loop_v13510; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -8663,7 +8488,7 @@ gs_xform_2Dcall: /* k xexp tail env */ goto jump; } -s_loop_v13513: /* k l env */ +s_loop_v13510: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -8675,7 +8500,7 @@ s_loop_v13513: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13513; + goto s_loop_v13510; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8781,79 +8606,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 v14264_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14264_tmp)); } + { const flonum_t v14261_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14261_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 v14263_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14263_tmp)); } + { const flonum_t v14260_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14260_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 v14262_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14262_tmp)); } + { const flonum_t v14259_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14259_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 v14261_tmp = ((flonum_t)(+3)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14261_tmp)); } + { const flonum_t v14258_tmp = ((flonum_t)(+3)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14258_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 v14260_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14260_tmp)); } + { const flonum_t v14257_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14257_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 v14259_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14259_tmp)); } + { const flonum_t v14256_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14256_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 v14258_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14258_tmp)); } + { const flonum_t v14255_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14255_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 v14257_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14257_tmp)); } + { const flonum_t v14254_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14254_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 v14256_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool((v14256_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v14253_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool((v14253_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 v14255_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14255_tmp)); } + { const flonum_t v14252_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14252_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -8863,15 +8688,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 v14254_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool((v14254_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v14251_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool((v14251_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 v14253_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14253_tmp)); } + { const flonum_t v14250_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14250_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -8881,15 +8706,15 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool((+2) <= fixnum_from_obj(r[2])); } else { - { const flonum_t v14252_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool((v14252_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v14249_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool((v14249_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]) <= (+3)); } else { - { const flonum_t v14251_tmp = ((flonum_t)(+3)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14251_tmp)); } + { const flonum_t v14248_tmp = ((flonum_t)(+3)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14248_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -8899,8 +8724,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 v14250_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14250_tmp)); } + { const flonum_t v14247_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14247_tmp)); } } } else { r[3] = obj_from_bool(((((r[1]) == obj_from_char('@')) || ((is_flonum_obj(r[1])) && (0))) && (1)) && (0)); @@ -8991,7 +8816,7 @@ case 100: /* clo ek r */ r[0] = r[6]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13464; + goto s_loop_v13461; } else { { /* define integrable-global */ static obj c[] = { obj_from_objptr(vmcases+11) }; @@ -9011,7 +8836,7 @@ case 100: /* clo ek r */ goto jump; } -s_loop_v13464: /* k l env */ +s_loop_v13461: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -9023,7 +8848,7 @@ s_loop_v13464: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13464; + goto s_loop_v13461; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -9154,7 +8979,7 @@ gs_xform_2Dlambda: /* k tail env */ r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13372; + goto s_l_v13369; } case 106: /* clo ek r */ @@ -9164,7 +8989,7 @@ case 106: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v13372: /* ek r env tail k */ +s_l_v13369: /* ek r env tail k */ if (bool_from_obj(r[1])) { r[5] = (car((r[3]))); r[6+0] = r[4]; @@ -9174,7 +8999,7 @@ s_l_v13372: /* ek r env tail k */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13373; + goto s_loop_v13370; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -9197,7 +9022,7 @@ case 107: /* clo k vars ienv ipars */ { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v13373: /* k vars ienv ipars tail */ +s_loop_v13370: /* k vars ienv ipars tail */ if ((ispair((r[1])))) { r[5] = (car((r[1]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ @@ -9338,13 +9163,13 @@ case 111: /* clo ek r */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } - { fixnum_t v14249_tmp; + { fixnum_t v14246_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14249_tmp = (n); } + v14246_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14249_tmp); + obj l, o = mknull(); int c = (v14246_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); @@ -9463,13 +9288,13 @@ case 115: /* clo ek r */ *--hp = r[4]; *--hp = obj_from_case(116); r[6] = (hendblk(2+1)); - { fixnum_t v14248_tmp; + { fixnum_t v14245_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14248_tmp = (n); } + v14245_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14248_tmp); + obj l, o = mknull(); int c = (v14245_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); @@ -9524,7 +9349,7 @@ gs_xform_2Dlambda_2A: /* k tail env */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v13328; + goto s_loop_v13325; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -9543,7 +9368,7 @@ gs_xform_2Dlambda_2A: /* k tail env */ goto jump; } -s_loop_v13328: /* k l env */ +s_loop_v13325: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -9555,7 +9380,7 @@ s_loop_v13328: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13328; + goto s_loop_v13325; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -9617,7 +9442,7 @@ case 118: /* clo ek r */ r[9+4] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13332; + goto s_l_v13329; } else { r[0] = r[6]; r[1] = (car((r[5]))); @@ -9636,7 +9461,7 @@ case 118: /* clo ek r */ r[8+4] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13332; + goto s_l_v13329; } case 119: /* clo ek r */ @@ -9668,7 +9493,7 @@ case 120: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v13332: /* ek r env aexp k */ +s_l_v13329: /* ek r env aexp k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; @@ -9788,7 +9613,7 @@ gs_xform_2Dsyntax_2Dlambda: /* k tail env */ r[4+4] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13274; + goto s_l_v13271; } case 125: /* clo ek r */ @@ -9798,7 +9623,7 @@ case 125: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v13274: /* ek r k env tail */ +s_l_v13271: /* ek r k env tail */ if (bool_from_obj(r[1])) { r[5] = (car((r[4]))); r[6] = (cdr((r[4]))); @@ -9841,18 +9666,18 @@ case 126: /* 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 v14247_tmp; - { fixnum_t v14246_tmp; + { fixnum_t v14244_tmp; + { fixnum_t v14243_tmp; { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14247_tmp = (n); } + v14244_tmp = (n); } r[6] = (cdr((r[1]))); { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14246_tmp = (n); } - r[6] = obj_from_bool((v14247_tmp) == (v14246_tmp)); } } + v14243_tmp = (n); } + r[6] = obj_from_bool((v14244_tmp) == (v14243_tmp)); } } } else { r[6] = obj_from_bool(0); } @@ -9866,7 +9691,7 @@ case 126: /* clo k use useenv */ r[7+5] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13277; + goto s_loop_v13274; } else { r[6+0] = (cx_x_2Derror); pc = objptr_from_obj(r[6+0])[0]; @@ -9885,7 +9710,7 @@ case 127: /* clo k vars exps env */ r[1+4] = p[1]; r[1+5] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v13277: /* k vars exps env useenv forms */ +s_loop_v13274: /* k vars exps env useenv forms */ if ((isnull((r[1])))) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[0]; @@ -10256,8 +10081,8 @@ gs_xform_2Dbody: /* k tail env */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { - { const bool_t v14245_tmp = (islist((r[1]))); - r[3] = obj_from_bool(!(v14245_tmp)); } + { const bool_t v14242_tmp = (islist((r[1]))); + r[3] = obj_from_bool(!(v14242_tmp)); } if (bool_from_obj(r[3])) { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -10268,7 +10093,7 @@ gs_xform_2Dbody: /* 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__231167); + r[4+2] = (cx__231201); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10283,7 +10108,7 @@ gs_xform_2Dbody: /* k tail env */ r[3+5] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13152; + goto s_loop_v13119; } } } @@ -10291,7 +10116,7 @@ gs_xform_2Dbody: /* k tail env */ case 141: /* clo k env ids inits nids body */ assert(rc == 7); r += 1; /* shift reg. wnd */ -s_loop_v13152: /* k env ids inits nids body */ +s_loop_v13119: /* k env ids inits nids body */ if ((ispair((r[5])))) { r[6] = (car((r[5]))); r[6] = obj_from_bool(ispair((r[6]))); @@ -10327,37 +10152,37 @@ s_loop_v13152: /* k env ids inits nids body */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { - { fixnum_t v14244_tmp; + { fixnum_t v14241_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14244_tmp = (n); } + v14241_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14244_tmp); + obj l, o = mknull(); int c = (v14241_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 v14243_tmp; + { fixnum_t v14240_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14243_tmp = (n); } + v14240_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14243_tmp); + obj l, o = mknull(); int c = (v14240_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 v14242_tmp; + { fixnum_t v14239_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14242_tmp = (n); } + v14239_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14242_tmp); + obj l, o = mknull(); int c = (v14239_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); @@ -10486,14 +10311,79 @@ case 142: /* clo ek r */ r[1] = (r[12]); goto gs_id_2D_3Esym; } else { - r[0] = (cx_x_2Derror); - pc = objptr_from_obj(r[0])[0]; - r[1] = (r[10]); - r[2] = (cx__231126); - /* r[3] */ + hreserve(hbsz(9+1), 12); /* 12 live regs */ + *--hp = (r[11]); + *--hp = (r[10]); + *--hp = r[8]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[4]; + *--hp = r[5]; + *--hp = r[9]; + *--hp = r[3]; + *--hp = obj_from_case(147); + r[12] = (hendblk(9+1)); + if (bool_from_obj(cxs_list2_2B_3F((r[11])))) { + r[13] = (car((r[11]))); + r[13] = obj_from_bool(ispair((r[13]))); + if (bool_from_obj(r[13])) { + r[13] = (car((r[11]))); + r[13] = (car((r[13]))); + r[13] = (cxs_id_3F((r[13]))); + if (bool_from_obj(r[13])) { + r[13] = (car((r[11]))); + r[13] = (cdr((r[13]))); + r[0] = (r[12]); + r[1] = (r[13]); + goto gs_idslist_3F; + } else { + r[13+0] = obj_from_ktrap(); + r[13+1] = obj_from_bool(0); + r[13+2] = r[3]; + r[13+3] = r[9]; + r[13+4] = r[5]; + r[13+5] = r[4]; + r[13+6] = r[6]; + r[13+7] = r[7]; + r[13+8] = r[8]; + r[13+9] = (r[10]); + r[13+10] = (r[11]); + r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; + goto s_l_v13135; + } + } else { + r[13+0] = obj_from_ktrap(); + r[13+1] = obj_from_bool(0); + r[13+2] = r[3]; + r[13+3] = r[9]; + r[13+4] = r[5]; + r[13+5] = r[4]; + r[13+6] = r[6]; + r[13+7] = r[7]; + r[13+8] = r[8]; + r[13+9] = (r[10]); + r[13+10] = (r[11]); + r += 13; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v13135; + } + } else { + r[13+0] = obj_from_ktrap(); + r[13+1] = obj_from_bool(0); + r[13+2] = r[3]; + r[13+3] = r[9]; + r[13+4] = r[5]; + r[13+5] = r[4]; + r[13+6] = r[6]; + r[13+7] = r[7]; + r[13+8] = r[8]; + r[13+9] = (r[10]); + r[13+10] = (r[11]); + r += 13; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v13135; + } } } } else { @@ -10517,7 +10407,7 @@ case 142: /* clo ek r */ *--hp = r[6]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(147); + *--hp = obj_from_case(152); r[14] = (hendblk(8+1)); r[0] = (r[14]); r[1] = (r[12]); @@ -10544,7 +10434,7 @@ case 142: /* clo ek r */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; - *--hp = obj_from_case(148); + *--hp = obj_from_case(153); r[12] = (hendblk(7+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -10555,37 +10445,37 @@ case 142: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v14241_tmp; + { fixnum_t v14238_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14241_tmp = (n); } + v14238_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14241_tmp); + obj l, o = mknull(); int c = (v14238_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); } } - { fixnum_t v14240_tmp; + { fixnum_t v14237_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14240_tmp = (n); } + v14237_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14240_tmp); + obj l, o = mknull(); int c = (v14237_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); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[13] = (o); } } - { fixnum_t v14239_tmp; + { fixnum_t v14236_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14239_tmp = (n); } + v14236_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14239_tmp); + obj l, o = mknull(); int c = (v14236_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[6]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -10744,6 +10634,215 @@ case 146: /* clo ek r */ goto jump; case 147: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; + r[1+7] = p[6]; + r[1+8] = p[7]; + r[1+9] = p[8]; + r[1+10] = p[9]; } + r += 1; /* shift reg. wnd */ +s_l_v13135: /* ek r first env loop rest nids inits ids k tail */ + if (bool_from_obj(r[1])) { + r[11] = (car((r[10]))); + r[11] = (car((r[11]))); + hreserve(hbsz(9+1), 12); /* 12 live regs */ + *--hp = (r[10]); + *--hp = r[9]; + *--hp = (r[11]); + *--hp = r[8]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(148); + r[12] = (hendblk(9+1)); + { /* cons */ + hreserve(hbsz(3), 13); /* 13 live regs */ + *--hp = (mksymbol(internsym("lambda"))); + *--hp = (mksymbol(internsym("lambda"))); + *--hp = obj_from_size(PAIR_BTAG); + r[13] = (hendblk(3)); } + r[0] = (r[12]); + r[1] = (r[13]); + goto gs_new_2Did; + } else { + r[11+0] = (cx_x_2Derror); + pc = objptr_from_obj(r[11+0])[0]; + r[11+1] = r[9]; + r[11+2] = (cx__231126); + r[11+3] = r[2]; + r += 11; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 148: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; + r[1+7] = p[6]; + r[1+8] = p[7]; + r[1+9] = p[8]; + r[1+10] = p[9]; } + r += 1; /* shift reg. wnd */ + /* ek r env loop rest nids inits ids id k tail */ + r[11] = (cdr((r[10]))); + r[12] = (car((r[10]))); + r[12] = (cdr((r[12]))); + { /* cons */ + hreserve(hbsz(3), 13); /* 13 live regs */ + *--hp = (r[11]); + *--hp = (r[12]); + *--hp = obj_from_size(PAIR_BTAG); + r[11] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 12); /* 12 live regs */ + *--hp = (r[11]); + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[11] = (hendblk(3)); } + hreserve(hbsz(9+1), 12); /* 12 live regs */ + *--hp = r[9]; + *--hp = r[8]; + *--hp = r[7]; + *--hp = (r[11]); + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(149); + r[12] = (hendblk(9+1)); + r[0] = (r[12]); + r[1] = r[8]; + goto gs_id_2D_3Esym; + +case 149: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; + r[1+7] = p[6]; + r[1+8] = p[7]; + r[1+9] = p[8]; + r[1+10] = p[9]; } + r += 1; /* shift reg. wnd */ + /* ek r env loop rest nids inits init ids id k */ + hreserve(hbsz(9+1), 11); /* 11 live regs */ + *--hp = (r[10]); + *--hp = r[9]; + *--hp = r[8]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(150); + r[11] = (hendblk(9+1)); + r[12+0] = (cx_gensym); + pc = objptr_from_obj(r[12+0])[0]; + r[12+1] = (r[11]); + r[12+2] = r[1]; + r += 12; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 150: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; + r[1+7] = p[6]; + r[1+8] = p[7]; + r[1+9] = p[8]; + r[1+10] = p[9]; } + r += 1; /* shift reg. wnd */ + /* ek r env loop rest nids inits init ids id k */ + hreserve(hbsz(9+1), 11); /* 11 live regs */ + *--hp = (r[10]); + *--hp = r[9]; + *--hp = r[8]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[1]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(151); + r[11] = (hendblk(9+1)); + r[12+0] = (r[11]); + r[12+1] = r[9]; + r[12+2] = r[1]; + r[12+3] = r[2]; + r += 12; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_add_2Dvar; + +case 151: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; + r[1+7] = p[6]; + r[1+8] = p[7]; + r[1+9] = p[8]; + r[1+10] = p[9]; } + r += 1; /* shift reg. wnd */ + /* ek r loop rest nids r inits init ids id k */ + { /* cons */ + hreserve(hbsz(3), 11); /* 11 live regs */ + *--hp = r[8]; + *--hp = r[9]; + *--hp = obj_from_size(PAIR_BTAG); + r[11] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 12); /* 12 live regs */ + *--hp = r[6]; + *--hp = r[7]; + *--hp = obj_from_size(PAIR_BTAG); + r[12] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 13); /* 13 live regs */ + *--hp = r[4]; + *--hp = r[5]; + *--hp = obj_from_size(PAIR_BTAG); + r[13] = (hendblk(3)); } + r[14+0] = r[2]; + pc = objptr_from_obj(r[14+0])[0]; + r[14+1] = (r[10]); + r[14+2] = r[1]; + r[14+3] = (r[11]); + r[14+4] = (r[12]); + r[14+5] = (r[13]); + r[14+6] = r[3]; + r += 14; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 7; + goto jump; + +case 152: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10787,7 +10886,7 @@ case 147: /* clo ek r */ rc = 7; goto jump; -case 148: /* clo ek r */ +case 153: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10818,7 +10917,7 @@ case 148: /* clo ek r */ rc = 7; goto jump; -case 149: /* xform-labels k ids inits nids body env */ +case 154: /* xform-labels k ids inits nids body env */ assert(rc == 7); r += 1; /* shift reg. wnd */ gs_xform_2Dlabels: /* k ids inits nids body env */ @@ -10832,31 +10931,31 @@ gs_xform_2Dlabels: /* k ids inits nids body env */ r[6+7] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13055; + goto s_loop_v13022; -case 150: /* clo k ids inits nids sets lids */ +case 155: /* clo k ids inits nids sets lids */ assert(rc == 7); { obj* p = objptr_from_obj(r[0]); r[1+6] = p[1]; r[1+7] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v13055: /* k ids inits nids sets lids env body */ +s_loop_v13022: /* k ids inits nids sets lids env body */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; - *--hp = obj_from_case(150); + *--hp = obj_from_case(155); r[8] = (hendblk(2+1)); if ((isnull((r[1])))) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[5]; *--hp = r[0]; *--hp = r[4]; - *--hp = obj_from_case(153); + *--hp = obj_from_case(158); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[7]; r[2] = r[6]; - goto s_loop_v13109; + goto s_loop_v13076; } else { r[9] = (car((r[1]))); r[9] = obj_from_bool(!bool_from_obj(r[9])); @@ -10869,7 +10968,7 @@ s_loop_v13055: /* k ids inits nids sets lids env body */ *--hp = r[3]; *--hp = r[5]; *--hp = r[8]; - *--hp = obj_from_case(157); + *--hp = obj_from_case(162); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = obj_from_bool(0); @@ -10888,7 +10987,7 @@ s_loop_v13055: /* k ids inits nids sets lids env body */ *--hp = r[3]; *--hp = r[5]; *--hp = r[8]; - *--hp = obj_from_case(158); + *--hp = obj_from_case(163); r[9] = (hendblk(7+1)); r[10] = (car((r[2]))); { /* cons */ @@ -10918,7 +11017,7 @@ s_loop_v13055: /* k ids inits nids sets lids env body */ *--hp = r[5]; *--hp = r[8]; *--hp = r[6]; - *--hp = obj_from_case(159); + *--hp = obj_from_case(164); r[9] = (hendblk(8+1)); r[10+0] = r[6]; pc = objptr_from_obj(r[10+0])[0]; @@ -10932,19 +11031,19 @@ s_loop_v13055: /* k ids inits nids sets lids env body */ } } -s_loop_v13109: /* k l env */ +s_loop_v13076: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(151); + *--hp = obj_from_case(156); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13109; + goto s_loop_v13076; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10955,7 +11054,7 @@ s_loop_v13109: /* k l env */ goto jump; } -case 151: /* clo ek r */ +case 156: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10966,7 +11065,7 @@ case 151: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(152); + *--hp = obj_from_case(157); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -10976,7 +11075,7 @@ case 151: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 152: /* clo ek r */ +case 157: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10998,7 +11097,7 @@ case 152: /* clo ek r */ rc = 3; goto jump; -case 153: /* clo ek r */ +case 158: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11009,15 +11108,15 @@ case 153: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(154); + *--hp = obj_from_case(159); r[5] = (hendblk(2+1)); - { fixnum_t v14238_tmp; + { fixnum_t v14235_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14238_tmp = (n); } + v14235_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14238_tmp); + obj l, o = mknull(); int c = (v14235_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); @@ -11033,7 +11132,7 @@ case 153: /* clo ek r */ rc = 4; goto jump; -case 154: /* clo ek r */ +case 159: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11063,23 +11162,23 @@ case 154: /* clo ek r */ *--hp = r[2]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(156); + *--hp = obj_from_case(161); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; - goto s_loop_v13090; + goto s_loop_v13057; } -s_loop_v13090: /* k l */ +s_loop_v13057: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(155); + *--hp = obj_from_case(160); r[3] = (hendblk(1+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v13090; + goto s_loop_v13057; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -11091,7 +11190,7 @@ s_loop_v13090: /* k l */ goto jump; } -case 155: /* clo ek r */ +case 160: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11100,7 +11199,7 @@ case 155: /* clo ek r */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = (cx__231239); + *--hp = (cx__231273); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; @@ -11112,7 +11211,7 @@ case 155: /* clo ek r */ rc = 3; goto jump; -case 156: /* clo ek r */ +case 161: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11126,13 +11225,13 @@ case 156: /* clo ek r */ *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } - { fixnum_t v14237_tmp; + { fixnum_t v14234_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14237_tmp = (n); } + v14234_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14237_tmp); + obj l, o = mknull(); int c = (v14234_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); @@ -11161,7 +11260,7 @@ case 156: /* clo ek r */ rc = 5; goto jump; -case 157: /* clo ek r */ +case 162: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11192,7 +11291,7 @@ case 157: /* clo ek r */ rc = 7; goto jump; -case 158: /* clo ek r */ +case 163: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11230,7 +11329,7 @@ case 158: /* clo ek r */ rc = 7; goto jump; -case 159: /* clo ek r */ +case 164: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11252,7 +11351,7 @@ case 159: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(160); + *--hp = obj_from_case(165); r[10] = (hendblk(8+1)); r[11+0] = (r[10]); r[11+1] = obj_from_bool(1); @@ -11262,7 +11361,7 @@ case 159: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 160: /* clo ek r */ +case 165: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11289,7 +11388,7 @@ case 160: /* clo ek r */ rc = 7; goto jump; -case 161: /* xform-define k tail env */ +case 166: /* xform-define k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine: /* k tail env */ @@ -11320,7 +11419,7 @@ gs_xform_2Ddefine: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(162); + *--hp = obj_from_case(167); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -11332,25 +11431,59 @@ gs_xform_2Ddefine: /* k tail env */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ + hreserve(hbsz(3+1), 3); /* 3 live regs */ + *--hp = r[0]; *--hp = r[1]; - *--hp = (mksymbol(internsym("define"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - r[4+0] = (cx_x_2Derror); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[0]; - r[4+2] = (cx__231126); - r[4+3] = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(169); + r[3] = (hendblk(3+1)); + if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { + r[4] = (car((r[1]))); + r[4] = obj_from_bool(ispair((r[4]))); + if (bool_from_obj(r[4])) { + r[4] = (car((r[1]))); + r[4] = (car((r[4]))); + r[4] = (cxs_id_3F((r[4]))); + if (bool_from_obj(r[4])) { + r[4] = (car((r[1]))); + r[4] = (cdr((r[4]))); + r[0] = r[3]; + r[1] = r[4]; + goto gs_idslist_3F; + } else { + r[4+0] = obj_from_ktrap(); + r[4+1] = obj_from_bool(0); + r[4+2] = r[2]; + r[4+3] = r[1]; + r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; + goto s_l_v12985; + } + } else { + r[4+0] = obj_from_ktrap(); + r[4+1] = obj_from_bool(0); + r[4+2] = r[2]; + r[4+3] = r[1]; + r[4+4] = r[0]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v12985; + } + } else { + r[4+0] = obj_from_ktrap(); + r[4+1] = obj_from_bool(0); + r[4+2] = r[2]; + r[4+3] = r[1]; + r[4+4] = r[0]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v12985; + } } } -case 162: /* clo ek r */ +case 167: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11366,13 +11499,13 @@ case 162: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(163); + *--hp = obj_from_case(168); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; -case 163: /* clo ek r */ +case 168: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11399,7 +11532,102 @@ case 163: /* clo ek r */ rc = 3; goto jump; -case 164: /* xform-define-syntax k tail env */ +case 169: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ +s_l_v12985: /* ek r env tail k */ + if (bool_from_obj(r[1])) { + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(170); + r[5] = (hendblk(2+1)); + r[6] = (cdr((r[3]))); + r[7] = (car((r[3]))); + r[7] = (cdr((r[7]))); + { /* cons */ + hreserve(hbsz(3), 8); /* 8 live regs */ + *--hp = r[6]; + *--hp = r[7]; + *--hp = obj_from_size(PAIR_BTAG); + r[6] = (hendblk(3)); } + r[0] = r[5]; + r[1] = r[6]; + /* r[2] */ + goto gs_xform_2Dlambda; + } else { + { /* cons */ + hreserve(hbsz(3), 5); /* 5 live regs */ + *--hp = r[3]; + *--hp = (mksymbol(internsym("define"))); + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + r[0] = (cx_x_2Derror); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = (cx__231126); + r[3] = r[5]; + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 170: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r tail k */ + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = (mknull()); + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(171); + r[5] = (hendblk(2+1)); + r[6] = (car((r[2]))); + r[6] = (car((r[6]))); + r[0] = r[5]; + r[1] = r[6]; + goto gs_id_2D_3Esym; + +case 171: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r k r */ + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = (mksymbol(internsym("define"))); + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = r[5]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 172: /* xform-define-syntax k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ @@ -11413,7 +11641,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(165); + *--hp = obj_from_case(173); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -11442,7 +11670,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ goto jump; } -case 165: /* clo ek r */ +case 173: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11458,13 +11686,13 @@ case 165: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(166); + *--hp = obj_from_case(174); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; -case 166: /* clo ek r */ +case 174: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11491,21 +11719,21 @@ case 166: /* clo ek r */ rc = 3; goto jump; -case 167: /* clo k sexp env */ +case 175: /* clo k sexp env */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k sexp env */ r[3+0] = (cx_x_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__231303); + r[3+2] = (cx__231360); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 168: /* top-transformer-env k id */ +case 176: /* top-transformer-env k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_top_2Dtransformer_2Denv: /* k id */ @@ -11525,7 +11753,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(169); + *--hp = obj_from_case(177); r[4] = (hendblk(2+1)); r[5+0] = (cx_transform); pc = objptr_from_obj(r[5+0])[0]; @@ -11553,7 +11781,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(170); + *--hp = obj_from_case(178); r[4] = (hendblk(2+1)); r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; @@ -11566,7 +11794,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(171); + *--hp = obj_from_case(179); r[3] = (hendblk(1+1)); r[4+0] = r[1]; pc = objptr_from_obj(r[4+0])[0]; @@ -11578,7 +11806,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ } } -case 169: /* clo ek r */ +case 177: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11594,7 +11822,7 @@ case 169: /* clo ek r */ rc = 3; goto jump; -case 170: /* clo ek r */ +case 178: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11638,7 +11866,7 @@ case 170: /* clo ek r */ rc = 3; goto jump; -case 171: /* clo ek r */ +case 179: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11653,20 +11881,20 @@ case 171: /* clo ek r */ rc = 3; goto jump; -case 172: /* install-transformer! k s t */ +case 180: /* install-transformer! k s t */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s t */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(173); + *--hp = obj_from_case(181); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_top_2Dtransformer_2Denv; -case 173: /* clo ek r */ +case 181: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11682,14 +11910,14 @@ case 173: /* clo ek r */ rc = 3; goto jump; -case 174: /* install-transformer-rules! k s ell lits rules */ +case 182: /* install-transformer-rules! k s ell lits rules */ assert(rc == 6); r += 1; /* shift reg. wnd */ /* k s ell lits rules */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(175); + *--hp = obj_from_case(183); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cx_top_2Dtransformer_2Denv); @@ -11698,7 +11926,7 @@ case 174: /* install-transformer-rules! k s ell lits rules */ /* r[4] */ goto gs_syntax_2Drules_2A; -case 175: /* clo ek r */ +case 183: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11708,13 +11936,13 @@ case 175: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(176); + *--hp = obj_from_case(184); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; goto gs_top_2Dtransformer_2Denv; -case 176: /* clo ek r */ +case 184: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11730,7 +11958,7 @@ case 176: /* clo ek r */ rc = 3; goto jump; -case 177: /* clo k appos? sexp optenv */ +case 185: /* clo k appos? sexp optenv */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k appos? sexp optenv */ @@ -11740,22 +11968,22 @@ case 177: /* clo k appos? sexp optenv */ r[3] = ((isnull((r[3]))) ? (cx_top_2Dtransformer_2Denv) : (car((r[3])))); goto gs_xform; -case 178: /* syntax-rules* k mac-env ellipsis pat-literals rules */ +case 186: /* syntax-rules* k mac-env ellipsis pat-literals rules */ assert(rc == 6); r += 1; /* shift reg. wnd */ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(180); + *--hp = obj_from_case(188); r[5] = (hendblk(2+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[5]; - *--hp = obj_from_case(182); + *--hp = obj_from_case(190); r[6] = (hendblk(1+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[3]; - *--hp = obj_from_case(179); + *--hp = obj_from_case(187); r[7] = (hendblk(1+1)); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[4]; @@ -11764,7 +11992,7 @@ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ *--hp = r[7]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(189); + *--hp = obj_from_case(197); r[5] = (hendblk(6+1)); r[6+0] = r[0]; pc = objptr_from_obj(r[6+0])[0]; @@ -11775,7 +12003,7 @@ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ rc = 3; goto jump; -case 179: /* clo k id */ +case 187: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11795,7 +12023,7 @@ case 179: /* clo k id */ rc = 3; goto jump; -case 180: /* clo k x */ +case 188: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11816,7 +12044,7 @@ case 180: /* clo k x */ if (bool_from_obj(cxs_id_3F((r[4])))) { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; - *--hp = obj_from_case(181); + *--hp = obj_from_case(189); r[5] = (hendblk(1+1)); r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; @@ -11846,7 +12074,7 @@ case 180: /* clo k x */ goto jump; } -case 181: /* clo ek r */ +case 189: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11861,7 +12089,7 @@ case 181: /* clo ek r */ rc = 3; goto jump; -case 182: /* clo k x include-scalars pred? */ +case 190: /* clo k x include-scalars pred? */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -11877,7 +12105,7 @@ case 182: /* clo k x include-scalars pred? */ rreserve(MAX_HOSTREGS); goto s_collect; -case 183: /* clo k x inc l */ +case 191: /* clo k x inc l */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -11887,14 +12115,14 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(183); + *--hp = obj_from_case(191); r[6] = (hendblk(2+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(184); + *--hp = obj_from_case(192); r[7] = (hendblk(3+1)); if (bool_from_obj(r[2])) { r[8+0] = r[5]; @@ -11913,7 +12141,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_v12884; + goto s_l_v12833; } } else { if ((isvector((r[1])))) { @@ -11922,7 +12150,7 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ *--hp = r[2]; *--hp = r[3]; *--hp = r[6]; - *--hp = obj_from_case(185); + *--hp = obj_from_case(193); r[7] = (hendblk(4+1)); r[8+0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[8+0])[0]; @@ -11940,7 +12168,7 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ *--hp = r[6]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(186); + *--hp = obj_from_case(194); r[7] = (hendblk(5+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; @@ -11962,14 +12190,14 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ } } -case 184: /* clo ek r */ +case 192: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v12884: /* ek r k l x */ +s_l_v12833: /* ek r k l x */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -11994,7 +12222,7 @@ s_l_v12884: /* ek r k l x */ goto jump; } -case 185: /* clo ek r */ +case 193: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12014,7 +12242,7 @@ case 185: /* clo ek r */ rc = 5; goto jump; -case 186: /* clo ek r */ +case 194: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12029,7 +12257,7 @@ case 186: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(187); + *--hp = obj_from_case(195); r[7] = (hendblk(3+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); @@ -12049,7 +12277,7 @@ case 186: /* clo ek r */ *--hp = r[5]; *--hp = r[3]; *--hp = r[4]; - *--hp = obj_from_case(188); + *--hp = obj_from_case(196); r[7] = (hendblk(4+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; @@ -12063,7 +12291,7 @@ case 186: /* clo ek r */ goto jump; } -case 187: /* clo ek r */ +case 195: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12082,7 +12310,7 @@ case 187: /* clo ek r */ rc = 5; goto jump; -case 188: /* clo ek r */ +case 196: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12102,7 +12330,7 @@ case 188: /* clo ek r */ rc = 5; goto jump; -case 189: /* clo k use use-env */ +case 197: /* clo k use use-env */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -12124,9 +12352,9 @@ case 189: /* clo k use use-env */ r[9+8] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12540; + goto s_loop_v12489; -case 190: /* clo k rules */ +case 198: /* clo k rules */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12137,7 +12365,7 @@ case 190: /* clo k rules */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_loop_v12540: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */ +s_loop_v12489: /* 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]; @@ -12146,7 +12374,7 @@ s_loop_v12540: /* k rules use-env pat-literals use mac-env not-pat-literal? elli *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(190); + *--hp = obj_from_case(198); r[9] = (hendblk(7+1)); hreserve(hbsz(10+1), 10); /* 10 live regs */ *--hp = r[1]; @@ -12159,13 +12387,13 @@ s_loop_v12540: /* k rules use-env pat-literals use mac-env not-pat-literal? elli *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(191); + *--hp = obj_from_case(199); r[9] = (hendblk(10+1)); if ((isnull((r[1])))) { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; - r[2] = (cx__231735); + r[2] = (cx__231792); r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; @@ -12179,7 +12407,7 @@ s_loop_v12540: /* k rules use-env pat-literals use mac-env not-pat-literal? elli *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(190); + *--hp = obj_from_case(198); r[10] = (hendblk(7+1)); r[11+0] = obj_from_ktrap(); r[11+1] = obj_from_void(0); @@ -12195,10 +12423,10 @@ s_loop_v12540: /* 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_v12542; + goto s_l_v12491; } -case 191: /* clo ek . */ +case 199: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -12213,7 +12441,7 @@ case 191: /* clo ek . */ r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ -s_l_v12542: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */ +s_l_v12491: /* 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]))); @@ -12228,7 +12456,7 @@ s_l_v12542: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip *--hp = r[6]; *--hp = (r[11]); *--hp = r[5]; - *--hp = obj_from_case(192); + *--hp = obj_from_case(200); r[15] = (hendblk(9+1)); hreserve(hbsz(8+1), 16); /* 16 live regs */ *--hp = (r[13]); @@ -12239,7 +12467,7 @@ s_l_v12542: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip *--hp = r[7]; *--hp = r[9]; *--hp = r[8]; - *--hp = obj_from_case(217); + *--hp = obj_from_case(225); r[16] = (hendblk(8+1)); r[0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation); pc = objptr_from_obj(r[0])[0]; @@ -12249,7 +12477,7 @@ s_l_v12542: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip rc = 3; goto jump; -case 192: /* clo ek r */ +case 200: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12281,11 +12509,11 @@ case 192: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(193); + *--hp = obj_from_case(201); r[13] = (hendblk(10+1)); hreserve(hbsz(1+1), 14); /* 14 live regs */ *--hp = r[1]; - *--hp = obj_from_case(216); + *--hp = obj_from_case(224); r[14] = (hendblk(1+1)); r[15+0] = r[8]; pc = objptr_from_obj(r[15+0])[0]; @@ -12307,7 +12535,7 @@ case 192: /* clo ek r */ goto jump; } -case 193: /* clo ek r */ +case 201: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12332,26 +12560,26 @@ case 193: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(197); + *--hp = obj_from_case(205); r[12] = (hendblk(9+1)); r[0] = (r[12]); /* r[1] */ /* r[2] */ - goto s_loop_v12811; + goto s_loop_v12760; -s_loop_v12811: /* k l mac-env */ +s_loop_v12760: /* k l mac-env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(194); + *--hp = obj_from_case(202); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12811; + goto s_loop_v12760; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -12362,7 +12590,7 @@ s_loop_v12811: /* k l mac-env */ goto jump; } -case 194: /* clo ek r */ +case 202: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12375,7 +12603,7 @@ case 194: /* clo ek r */ *--hp = r[5]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(195); + *--hp = obj_from_case(203); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -12385,7 +12613,7 @@ case 194: /* clo ek r */ rc = 3; goto jump; -case 195: /* clo ek r */ +case 203: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12397,13 +12625,13 @@ case 195: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(196); + *--hp = obj_from_case(204); r[5] = (hendblk(3+1)); r[0] = r[5]; /* r[1] */ goto gs_new_2Did; -case 196: /* clo ek r */ +case 204: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12431,7 +12659,7 @@ case 196: /* clo ek r */ rc = 3; goto jump; -case 197: /* clo ek r */ +case 205: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12454,7 +12682,7 @@ case 197: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(198); + *--hp = obj_from_case(206); r[11] = (hendblk(8+1)); r[12+0] = r[5]; pc = objptr_from_obj(r[12+0])[0]; @@ -12467,7 +12695,7 @@ case 197: /* clo ek r */ rc = 5; goto jump; -case 198: /* clo ek r */ +case 206: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12494,7 +12722,7 @@ case 198: /* clo ek r */ rreserve(MAX_HOSTREGS); goto s_expand; -case 199: /* clo k tmpl bindings */ +case 207: /* clo k tmpl bindings */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -12510,7 +12738,7 @@ s_expand: /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars new-literals *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(199); + *--hp = obj_from_case(207); r[8] = (hendblk(5+1)); r[9+0] = r[0]; r[9+1] = r[1]; @@ -12525,7 +12753,7 @@ s_expand: /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars new-literals rreserve(MAX_HOSTREGS); goto s_expand_2Dpart; -case 200: /* clo k tmpl */ +case 208: /* clo k tmpl */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12545,7 +12773,7 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(200); + *--hp = obj_from_case(208); r[9] = (hendblk(7+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* assq */ @@ -12583,7 +12811,7 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite hreserve(hbsz(2+1), 10); /* 10 live regs */ *--hp = r[0]; *--hp = r[9]; - *--hp = obj_from_case(201); + *--hp = obj_from_case(209); r[10] = (hendblk(2+1)); r[11+0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[11+0])[0]; @@ -12602,7 +12830,7 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite *--hp = r[8]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(203); + *--hp = obj_from_case(211); r[10] = (hendblk(7+1)); if ((ispair((r[1])))) { r[11+0] = r[2]; @@ -12625,12 +12853,12 @@ 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_v12699; + goto s_l_v12648; } } } -case 201: /* clo ek r */ +case 209: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12639,7 +12867,7 @@ case 201: /* clo ek r */ /* ek r expand-part k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(202); + *--hp = obj_from_case(210); r[4] = (hendblk(1+1)); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; @@ -12650,7 +12878,7 @@ case 201: /* clo ek r */ rc = 3; goto jump; -case 202: /* clo ek r */ +case 210: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -12665,7 +12893,7 @@ case 202: /* clo ek r */ rc = 3; goto jump; -case 203: /* clo ek r */ +case 211: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12676,7 +12904,7 @@ case 203: /* clo ek r */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_l_v12699: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ +s_l_v12648: /* 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]; @@ -12684,11 +12912,11 @@ s_l_v12699: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(204); + *--hp = obj_from_case(212); r[9] = (hendblk(5+1)); hreserve(hbsz(1+1), 10); /* 10 live regs */ *--hp = r[3]; - *--hp = obj_from_case(213); + *--hp = obj_from_case(221); r[10] = (hendblk(1+1)); r[11+0] = r[2]; pc = objptr_from_obj(r[11+0])[0]; @@ -12706,7 +12934,7 @@ s_l_v12699: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ *--hp = r[6]; *--hp = r[8]; *--hp = r[5]; - *--hp = obj_from_case(214); + *--hp = obj_from_case(222); r[9] = (hendblk(3+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -12726,7 +12954,7 @@ s_l_v12699: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ } } -case 204: /* clo ek r */ +case 212: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12743,7 +12971,7 @@ case 204: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; - *--hp = obj_from_case(205); + *--hp = obj_from_case(213); r[8] = (hendblk(3+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -12757,7 +12985,7 @@ case 204: /* clo ek r */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; - *--hp = obj_from_case(207); + *--hp = obj_from_case(215); r[8] = (hendblk(3+1)); r[9] = (cdr((r[6]))); r[9] = (cdr((r[9]))); @@ -12774,15 +13002,15 @@ case 204: /* clo ek r */ *--hp = r[6]; *--hp = r[3]; *--hp = r[7]; - *--hp = obj_from_case(210); + *--hp = obj_from_case(218); r[8] = (hendblk(4+1)); r[0] = r[8]; /* r[1] */ /* r[2] */ - goto s_loop_v12738; + goto s_loop_v12687; } -case 205: /* clo k vals */ +case 213: /* clo k vals */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12794,7 +13022,7 @@ case 205: /* clo k vals */ *--hp = r[0]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(206); + *--hp = obj_from_case(214); r[5] = (hendblk(3+1)); r[6+0] = (cx__25residual_2Dmap); pc = objptr_from_obj(r[6+0])[0]; @@ -12807,7 +13035,7 @@ case 205: /* clo k vals */ rc = 5; goto jump; -case 206: /* clo ek r */ +case 214: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12825,7 +13053,7 @@ case 206: /* clo ek r */ rc = 4; goto jump; -case 207: /* clo ek r */ +case 215: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12836,7 +13064,7 @@ case 207: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(208); + *--hp = obj_from_case(216); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -12846,7 +13074,7 @@ case 207: /* clo ek r */ rc = 3; goto jump; -case 208: /* clo ek r */ +case 216: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12868,19 +13096,19 @@ case 208: /* clo ek r */ rc = 3; goto jump; -s_loop_v12738: /* k l bindings */ +s_loop_v12687: /* k l bindings */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(209); + *--hp = obj_from_case(217); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12738; + goto s_loop_v12687; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -12891,7 +13119,7 @@ s_loop_v12738: /* k l bindings */ goto jump; } -case 209: /* clo ek r */ +case 217: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12920,7 +13148,7 @@ case 209: /* clo ek r */ rc = 3; goto jump; -case 210: /* clo ek r */ +case 218: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12933,7 +13161,7 @@ case 210: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(211); + *--hp = obj_from_case(219); r[6] = (hendblk(3+1)); r[7] = (objptr_from_obj(r[2])[0]); { /* cons */ @@ -12952,7 +13180,7 @@ case 210: /* clo ek r */ rc = 4; goto jump; -case 211: /* clo ek r */ +case 219: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12963,7 +13191,7 @@ case 211: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(212); + *--hp = obj_from_case(220); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -12975,7 +13203,7 @@ case 211: /* clo ek r */ rc = 3; goto jump; -case 212: /* clo ek r */ +case 220: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12992,7 +13220,7 @@ case 212: /* clo ek r */ rc = 4; goto jump; -case 213: /* clo k id */ +case 221: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13012,7 +13240,7 @@ case 213: /* clo k id */ rc = 3; goto jump; -case 214: /* clo ek r */ +case 222: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13023,7 +13251,7 @@ case 214: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(215); + *--hp = obj_from_case(223); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13033,7 +13261,7 @@ case 214: /* clo ek r */ rc = 3; goto jump; -case 215: /* clo ek r */ +case 223: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13055,7 +13283,7 @@ case 215: /* clo ek r */ rc = 3; goto jump; -case 216: /* clo k id */ +case 224: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13075,7 +13303,7 @@ case 216: /* clo k id */ rc = 3; goto jump; -case 217: /* clo k return */ +case 225: /* clo k return */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13103,7 +13331,7 @@ case 217: /* clo k return */ rreserve(MAX_HOSTREGS); goto s_match; -case 218: /* clo k pat sexp bindings */ +case 226: /* clo k pat sexp bindings */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -13123,12 +13351,12 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(218); + *--hp = obj_from_case(226); r[11] = (hendblk(7+1)); hreserve(hbsz(2+1), 12); /* 12 live regs */ *--hp = r[3]; *--hp = (r[10]); - *--hp = obj_from_case(219); + *--hp = obj_from_case(227); r[12] = (hendblk(2+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* memq */ @@ -13142,7 +13370,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = (r[12]); *--hp = r[1]; *--hp = r[8]; - *--hp = obj_from_case(220); + *--hp = obj_from_case(228); r[13] = (hendblk(4+1)); r[14+0] = r[7]; pc = objptr_from_obj(r[14+0])[0]; @@ -13157,7 +13385,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_v12665; + goto s_l_v12614; } } else { { /* cons */ @@ -13189,7 +13417,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = (r[11]); *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(222); + *--hp = obj_from_case(230); r[13] = (hendblk(5+1)); if ((isvector((r[2])))) { r[14+0] = obj_from_ktrap(); @@ -13201,7 +13429,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_v12635; + goto s_l_v12584; } else { r[0] = (r[10]); pc = objptr_from_obj(r[0])[0]; @@ -13218,7 +13446,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_v12665; + goto s_l_v12614; } else { hreserve(hbsz(8+1), 13); /* 13 live regs */ *--hp = r[1]; @@ -13229,7 +13457,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = r[6]; *--hp = r[5]; *--hp = (r[10]); - *--hp = obj_from_case(225); + *--hp = obj_from_case(233); r[13] = (hendblk(8+1)); r[14+0] = r[4]; pc = objptr_from_obj(r[14+0])[0]; @@ -13243,13 +13471,13 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env } } -case 219: /* clo k condition */ +case 227: /* clo k condition */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ -s_l_v12665: /* k condition return bindings */ +s_l_v12614: /* k condition return bindings */ if (bool_from_obj(r[1])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13269,7 +13497,7 @@ s_l_v12665: /* k condition return bindings */ goto jump; } -case 220: /* clo ek r */ +case 228: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13282,7 +13510,7 @@ case 220: /* clo ek r */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(221); + *--hp = obj_from_case(229); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13292,7 +13520,7 @@ case 220: /* clo ek r */ rc = 3; goto jump; -case 221: /* clo ek r */ +case 229: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13309,7 +13537,7 @@ case 221: /* clo ek r */ rc = 3; goto jump; -case 222: /* clo ek . */ +case 230: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -13319,13 +13547,13 @@ case 222: /* clo ek . */ r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ -s_l_v12635: /* ek . pat sexp match bindings k */ +s_l_v12584: /* ek . pat sexp match bindings k */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(223); + *--hp = obj_from_case(231); r[7] = (hendblk(4+1)); r[0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[0])[0]; @@ -13335,7 +13563,7 @@ s_l_v12635: /* ek . pat sexp match bindings k */ rc = 3; goto jump; -case 223: /* clo ek r */ +case 231: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13349,7 +13577,7 @@ case 223: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(224); + *--hp = obj_from_case(232); r[6] = (hendblk(4+1)); r[0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[0])[0]; @@ -13359,7 +13587,7 @@ case 223: /* clo ek r */ rc = 3; goto jump; -case 224: /* clo ek r */ +case 232: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13379,7 +13607,7 @@ case 224: /* clo ek r */ rc = 5; goto jump; -case 225: /* clo ek r */ +case 233: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13409,7 +13637,7 @@ case 225: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(226); + *--hp = obj_from_case(234); r[11] = (hendblk(9+1)); if ((islist((r[8])))) { { /* length */ @@ -13429,7 +13657,7 @@ case 225: /* clo ek r */ r[13+10] = (r[10]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12555; + goto s_l_v12504; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13446,7 +13674,7 @@ case 225: /* clo ek r */ *--hp = r[9]; *--hp = r[8]; *--hp = r[5]; - *--hp = obj_from_case(237); + *--hp = obj_from_case(245); r[10] = (hendblk(4+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -13468,7 +13696,7 @@ case 225: /* clo ek r */ } } -case 226: /* clo ek r */ +case 234: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13481,7 +13709,7 @@ case 226: /* clo ek r */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -s_l_v12555: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */ +s_l_v12504: /* 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]; @@ -13492,7 +13720,7 @@ s_l_v12555: /* ek r return list-ids not-pat-literal? match bindings pat k sexp t *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(227); + *--hp = obj_from_case(235); r[11] = (hendblk(9+1)); if (((fxsub(fixnum_from_obj(r[1]), fixnum_from_obj(r[10]))) < 0)) { r[0] = r[2]; @@ -13516,10 +13744,10 @@ s_l_v12555: /* 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_v12557; + goto s_l_v12506; } -case 227: /* clo ek . */ +case 235: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -13533,35 +13761,35 @@ case 227: /* clo ek . */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -s_l_v12557: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */ - { const fixnum_t v14234_tail_2Dlen = fixnum_from_obj(r[10]); +s_l_v12506: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */ + { const fixnum_t v14231_tail_2Dlen = fixnum_from_obj(r[10]); { /* list-tail */ - obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v14234_tail_2Dlen))); + obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v14231_tail_2Dlen))); while (c-- > 0) l = cdr(l); r[11] = (l); } - { fixnum_t v14235_tmp; + { fixnum_t v14232_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14235_tmp = (n); } + v14232_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14235_tmp); + obj l, o = mknull(); int c = (v14232_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 = (v14234_tail_2Dlen); + obj l = (r[12]); int c = (v14231_tail_2Dlen); while (c-- > 0) l = cdr(l); r[12] = (l); } - { fixnum_t v14236_tmp; + { fixnum_t v14233_tmp; { /* length */ int n; obj l = (r[12]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14236_tmp = (n); } + v14233_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14236_tmp); + obj l, o = mknull(); int c = (v14233_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); @@ -13574,7 +13802,7 @@ s_l_v12557: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-l *--hp = r[5]; *--hp = r[4]; *--hp = (r[12]); - *--hp = obj_from_case(228); + *--hp = obj_from_case(236); r[13] = (hendblk(6+1)); r[14+0] = r[2]; pc = objptr_from_obj(r[14+0])[0]; @@ -13587,7 +13815,7 @@ s_l_v12557: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-l rc = 5; goto jump; } -case 228: /* clo ek r */ +case 236: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13605,15 +13833,15 @@ case 228: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(234); + *--hp = obj_from_case(242); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = r[2]; r[2] = r[3]; r[3] = r[6]; - goto s_loop_v12578; + goto s_loop_v12527; -s_loop_v12578: /* k l match pat */ +s_loop_v12527: /* k l match pat */ if ((ispair((r[1])))) { r[4] = (cdr((r[1]))); hreserve(hbsz(4+1), 5); /* 5 live regs */ @@ -13621,13 +13849,13 @@ s_loop_v12578: /* k l match pat */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(229); + *--hp = obj_from_case(237); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = r[4]; /* r[2] */ /* r[3] */ - goto s_loop_v12578; + goto s_loop_v12527; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13638,7 +13866,7 @@ s_loop_v12578: /* k l match pat */ goto jump; } -case 229: /* clo ek r */ +case 237: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13653,7 +13881,7 @@ case 229: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[7]; - *--hp = obj_from_case(230); + *--hp = obj_from_case(238); r[8] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13665,7 +13893,7 @@ case 229: /* clo ek r */ rc = 5; goto jump; -case 230: /* clo ek r */ +case 238: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13676,26 +13904,26 @@ case 230: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(233); + *--hp = obj_from_case(241); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ - goto s_loop_v12589; + goto s_loop_v12538; -s_loop_v12589: /* k l f */ +s_loop_v12538: /* 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(231); + *--hp = obj_from_case(239); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12589; + goto s_loop_v12538; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13706,7 +13934,7 @@ s_loop_v12589: /* k l f */ goto jump; } -case 231: /* clo ek r */ +case 239: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13717,7 +13945,7 @@ case 231: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(232); + *--hp = obj_from_case(240); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13727,7 +13955,7 @@ case 231: /* clo ek r */ rc = 3; goto jump; -case 232: /* clo ek r */ +case 240: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13749,7 +13977,7 @@ case 232: /* clo ek r */ rc = 3; goto jump; -case 233: /* clo ek r */ +case 241: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13771,7 +13999,7 @@ case 233: /* clo ek r */ rc = 3; goto jump; -case 234: /* clo ek r */ +case 242: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13800,7 +14028,7 @@ case 234: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(235); + *--hp = obj_from_case(243); r[10] = (hendblk(5+1)); r[0] = (cx_apply); pc = objptr_from_obj(r[0])[0]; @@ -13811,7 +14039,7 @@ case 234: /* clo ek r */ rc = 4; goto jump; -case 235: /* clo ek r */ +case 243: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13824,7 +14052,7 @@ case 235: /* clo ek r */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[1]; - *--hp = obj_from_case(236); + *--hp = obj_from_case(244); r[7] = (hendblk(2+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); @@ -13839,7 +14067,7 @@ case 235: /* clo ek r */ rc = 5; goto jump; -case 236: /* clo ek r */ +case 244: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13856,7 +14084,7 @@ case 236: /* clo ek r */ rc = 4; goto jump; -case 237: /* clo ek r */ +case 245: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13876,26 +14104,89 @@ case 237: /* clo ek r */ rc = 5; goto jump; -case 238: /* clo ek r */ +case 246: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(239); + *--hp = obj_from_case(247); r[2] = (hendblk(0+1)); (void)(cdr((r[1])) = (r[2])); + cx__2Aglobals_2A = (mknull()); + { static obj c[] = { obj_from_case(251) }; cx_global_2Dlocation = (obj)c; } + { /* cons */ + hreserve(hbsz(3), 2); /* 2 live regs */ + *--hp = (mknull()); + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + cx__2Adynamic_2Dstate_2A = (hendblk(3)); } + cx__2Acurrent_2Dinput_2A = obj_from_bool(0); + cx__2Acurrent_2Doutput_2A = obj_from_bool(0); + cx__2Acurrent_2Derror_2A = obj_from_bool(0); hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(243); + *--hp = obj_from_case(252); r[2] = (hendblk(0+1)); - r[3+0] = r[2]; - r[3+1] = (mksymbol(internsym("define"))); - r[3+2] = (mksymbol(internsym("define"))); - r[3+3] = (cx_top_2Dtransformer_2Denv); - r += 3; /* shift reg wnd */ + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx_c_2Derror = (hendblk(3)); } + { static obj c[] = { obj_from_case(253) }; cx_write_2Dserialized_2Dchar = (obj)c; } + { static obj c[] = { obj_from_case(255) }; cx_write_2Dserialized_2Dbyte = (obj)c; } + { static obj c[] = { obj_from_case(257) }; cx_write_2Dserialized_2Dsize = (obj)c; } + { static obj c[] = { obj_from_case(259) }; cx_write_2Dserialized_2Delement = (obj)c; } + { static obj c[] = { obj_from_case(261) }; cx_write_2Dserialized_2Dsexp = (obj)c; } + { static obj c[] = { obj_from_case(280) }; cx_write_2Dserialized_2Darg = (obj)c; } + { static obj c[] = { obj_from_case(282) }; cx_find_2Dfree_2A = (obj)c; } + { static obj c[] = { obj_from_case(285) }; cx_find_2Dfree = (obj)c; } + { static obj c[] = { obj_from_case(314) }; cx_find_2Dsets_2A = (obj)c; } + { static obj c[] = { obj_from_case(317) }; cx_find_2Dsets = (obj)c; } + { static obj c[] = { obj_from_case(346) }; cx_codegen = (obj)c; } + { static obj c[] = { obj_from_case(460) }; 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(463) }; 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(465) }; cx_evaluate = (obj)c; } + cx__2Ahide_2Drefs_2A = (mknull()); + { static obj c[] = { obj_from_case(470) }; cx_display_2Dcode = (obj)c; } + { static obj c[] = { obj_from_case(471) }; cx_process_2Dsyntax = (obj)c; } + { static obj c[] = { obj_from_case(474) }; cx_process_2Dalias = (obj)c; } + { static obj c[] = { obj_from_case(475) }; cx_process_2Dcommand = (obj)c; } + { static obj c[] = { obj_from_case(479) }; cx_process_2Ddefine = (obj)c; } + { static obj c[] = { obj_from_case(486) }; cx_scan_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(499) }; cx_process_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(523) }; cx_path_2Dstrip_2Ddirectory = (obj)c; } + { static obj c[] = { obj_from_case(525) }; cx_path_2Dstrip_2Dextension = (obj)c; } + { static obj c[] = { obj_from_case(527) }; cx_module_2Dname = (obj)c; } + { static obj c[] = { obj_from_case(529) }; cx_process_2Dfile = (obj)c; } + cx_continuation_2Dadapter_2Dcode = obj_from_bool(0); + { /* define decode */ + 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(538); + 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__233313); + r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto gs_add_2Dbinding; + rc = 3; + goto jump; -case 239: /* clo k sexp env */ +case 247: /* clo k sexp env */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k sexp env */ @@ -13907,7 +14198,7 @@ case 239: /* clo k sexp env */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(240); + *--hp = obj_from_case(248); r[4] = (hendblk(4+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -13919,7 +14210,7 @@ case 239: /* clo k sexp env */ r[1] = r[5]; goto gs_new_2Did; -case 240: /* clo ek r */ +case 248: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13936,7 +14227,7 @@ case 240: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; - *--hp = obj_from_case(241); + *--hp = obj_from_case(249); r[6] = (hendblk(2+1)); r[7] = (cdr((r[4]))); r[7] = (car((r[7]))); @@ -13956,7 +14247,7 @@ case 240: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; - *--hp = obj_from_case(242); + *--hp = obj_from_case(250); r[6] = (hendblk(2+1)); r[7] = (cdr((r[4]))); r[7] = (car((r[7]))); @@ -13970,7 +14261,7 @@ case 240: /* clo ek r */ goto gs_syntax_2Drules_2A; } -case 241: /* clo ek r */ +case 249: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13997,7 +14288,7 @@ case 241: /* clo ek r */ rc = 3; goto jump; -case 242: /* clo ek r */ +case 250: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14024,115 +14315,7 @@ case 242: /* clo ek r */ rc = 3; goto jump; -case 243: /* clo ek r */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ - /* ek r */ - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(244); - r[2] = (hendblk(0+1)); - r[3+0] = r[2]; - r[3+1] = r[1]; - r[3+2] = obj_from_bool(0); - r[3+3] = (mknull()); - r[3+4] = (cx__231795); - r += 3; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_syntax_2Drules_2A; - -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("define"))); - 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])); - cx__2Aglobals_2A = (mknull()); - { static obj c[] = { obj_from_case(246) }; cx_global_2Dlocation = (obj)c; } - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - cx__2Adynamic_2Dstate_2A = (hendblk(3)); } - cx__2Acurrent_2Dinput_2A = obj_from_bool(0); - cx__2Acurrent_2Doutput_2A = obj_from_bool(0); - cx__2Acurrent_2Derror_2A = obj_from_bool(0); - hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(247); - r[3] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx_c_2Derror = (hendblk(3)); } - { static obj c[] = { obj_from_case(248) }; cx_write_2Dserialized_2Dchar = (obj)c; } - { static obj c[] = { obj_from_case(250) }; cx_write_2Dserialized_2Dbyte = (obj)c; } - { static obj c[] = { obj_from_case(252) }; cx_write_2Dserialized_2Dsize = (obj)c; } - { static obj c[] = { obj_from_case(254) }; cx_write_2Dserialized_2Delement = (obj)c; } - { static obj c[] = { obj_from_case(256) }; cx_write_2Dserialized_2Dsexp = (obj)c; } - { static obj c[] = { obj_from_case(275) }; cx_write_2Dserialized_2Darg = (obj)c; } - { static obj c[] = { obj_from_case(277) }; cx_find_2Dfree_2A = (obj)c; } - { static obj c[] = { obj_from_case(280) }; cx_find_2Dfree = (obj)c; } - { static obj c[] = { obj_from_case(309) }; cx_find_2Dsets_2A = (obj)c; } - { static obj c[] = { obj_from_case(312) }; cx_find_2Dsets = (obj)c; } - { static obj c[] = { obj_from_case(341) }; cx_codegen = (obj)c; } - { static obj c[] = { obj_from_case(455) }; 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(458) }; 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(460) }; cx_evaluate = (obj)c; } - cx__2Ahide_2Drefs_2A = (mknull()); - { static obj c[] = { obj_from_case(465) }; cx_display_2Dcode = (obj)c; } - { static obj c[] = { obj_from_case(466) }; cx_process_2Dsyntax = (obj)c; } - { static obj c[] = { obj_from_case(469) }; cx_process_2Dalias = (obj)c; } - { static obj c[] = { obj_from_case(470) }; cx_process_2Dcommand = (obj)c; } - { static obj c[] = { obj_from_case(474) }; cx_process_2Ddefine = (obj)c; } - { static obj c[] = { obj_from_case(481) }; cx_scan_2Dtop_2Dform = (obj)c; } - { static obj c[] = { obj_from_case(494) }; cx_process_2Dtop_2Dform = (obj)c; } - { static obj c[] = { obj_from_case(518) }; cx_path_2Dstrip_2Ddirectory = (obj)c; } - { static obj c[] = { obj_from_case(520) }; 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; } - cx_continuation_2Dadapter_2Dcode = obj_from_bool(0); - { /* 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); - r[4] = (hendblk(0+1)); - r[0] = r[3]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[4]; - r[2] = (cx__233315); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 246: /* global-location k sym */ +case 251: /* global-location k sym */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k sym */ @@ -14171,34 +14354,34 @@ case 246: /* global-location k sym */ rc = 3; goto jump; -case 247: /* clo k msg args */ +case 252: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ { /* string-append */ - int *d = stringcat(stringdata((cx__231878)), stringdata((r[1]))); + int *d = stringcat(stringdata((cx__231875)), stringdata((r[1]))); r[3] = (hpushstr(3, d)); } /* r[0] */ r[1] = r[3]; /* r[2] */ goto gs_error_2A; -case 248: /* write-serialized-char k x port */ +case 253: /* write-serialized-char k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dchar: /* k x port */ - { const char_t v14233_x = char_from_obj(r[1]); - if ((((v14233_x) == ('%')) || (((v14233_x) == (34)) || (((v14233_x) == (92)) || (((v14233_x) < (' ')) || ((v14233_x) > ('~'))))))) { + { const char_t v14230_x = char_from_obj(r[1]); + if ((((v14230_x) == ('%')) || (((v14230_x) == (34)) || (((v14230_x) == (92)) || (((v14230_x) < (' ')) || ((v14230_x) > ('~'))))))) { (void)(oportputc(('%'), (r[2]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(249); + *--hp = obj_from_case(254); 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)(v14233_x)); + r[4+2] = obj_from_fixnum((fixnum_t)(v14230_x)); r[4+3] = obj_from_fixnum(+16); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -14208,13 +14391,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((v14233_x), (r[2]))); + r[2] = obj_from_void(oportputc((v14230_x), (r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } -case 249: /* clo ek r */ +case 254: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14232,14 +14415,14 @@ case 249: /* clo ek r */ rc = 3; goto jump; -case 250: /* write-serialized-byte k x port */ +case 255: /* write-serialized-byte k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dbyte: /* k x port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(251); + *--hp = obj_from_case(256); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14251,7 +14434,7 @@ gs_write_2Dserialized_2Dbyte: /* k x port */ rc = 4; goto jump; -case 251: /* clo ek r */ +case 256: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14269,14 +14452,14 @@ case 251: /* clo ek r */ rc = 3; goto jump; -case 252: /* write-serialized-size k n port */ +case 257: /* 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(253); + *--hp = obj_from_case(258); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14288,7 +14471,7 @@ case 252: /* write-serialized-size k n port */ rc = 4; goto jump; -case 253: /* clo ek r */ +case 258: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14304,21 +14487,21 @@ case 253: /* clo ek r */ rc = 3; goto jump; -case 254: /* write-serialized-element k x port */ +case 259: /* 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(255); + *--hp = obj_from_case(260); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_write_2Dserialized_2Dsexp; -case 255: /* clo ek . */ +case 260: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14334,7 +14517,7 @@ case 255: /* clo ek . */ rc = 3; goto jump; -case 256: /* write-serialized-sexp k x port */ +case 261: /* write-serialized-sexp k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dsexp: /* k x port */ @@ -14377,7 +14560,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(257); + *--hp = obj_from_case(262); r[3] = (hendblk(2+1)); if ((is_fixnum_obj(r[1]))) { r[4+0] = (cx_fixnum_2D_3Estring); @@ -14410,7 +14593,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(258); + *--hp = obj_from_case(263); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -14429,7 +14612,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(261); + *--hp = obj_from_case(266); r[4] = (hendblk(3+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -14447,7 +14630,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(263); + *--hp = obj_from_case(268); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14465,7 +14648,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(266); + *--hp = obj_from_case(271); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14483,7 +14666,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(269); + *--hp = obj_from_case(274); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14502,7 +14685,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[3]; - *--hp = obj_from_case(272); + *--hp = obj_from_case(277); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -14517,7 +14700,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__231913); + r[3+2] = (cx__231910); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -14535,7 +14718,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ } } -case 257: /* clo ek r */ +case 262: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14551,7 +14734,7 @@ case 257: /* clo ek r */ rc = 3; goto jump; -case 258: /* clo ek r */ +case 263: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14564,14 +14747,14 @@ case 258: /* clo ek r */ r[0] = r[3]; r[1] = r[2]; r[2] = r[4]; - goto s_loop_v12397; + goto s_loop_v12358; -case 259: /* clo k x */ +case 264: /* 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_v12397: /* k x port */ +s_loop_v12358: /* k x port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14584,14 +14767,14 @@ s_loop_v12397: /* k x port */ r[3] = (car((r[1]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; - *--hp = obj_from_case(259); + *--hp = obj_from_case(264); 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(260); + *--hp = obj_from_case(265); r[4] = (hendblk(4+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -14604,7 +14787,7 @@ s_loop_v12397: /* k x port */ goto jump; } -case 260: /* clo ek . */ +case 265: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14623,7 +14806,7 @@ case 260: /* clo ek . */ rc = 3; goto jump; -case 261: /* clo ek . */ +case 266: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14637,7 +14820,7 @@ case 261: /* clo ek . */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(262); + *--hp = obj_from_case(267); r[6] = (hendblk(2+1)); r[0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[0])[0]; @@ -14648,7 +14831,7 @@ case 261: /* clo ek . */ rc = 4; goto jump; -case 262: /* clo ek . */ +case 267: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14664,7 +14847,7 @@ case 262: /* clo ek . */ rc = 3; goto jump; -case 263: /* clo ek r */ +case 268: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14680,15 +14863,15 @@ case 263: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12368; + goto s_loop_v12329; -case 264: /* clo k i */ +case 269: /* 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_v12368: /* k i port x */ +s_loop_v12329: /* k i port x */ if ((fixnum_from_obj(r[1]) == (vectorlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14702,14 +14885,14 @@ s_loop_v12368: /* k i port x */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(264); + *--hp = obj_from_case(269); 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(265); + *--hp = obj_from_case(270); r[5] = (hendblk(4+1)); r[6+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[6+0])[0]; @@ -14722,7 +14905,7 @@ s_loop_v12368: /* k i port x */ goto jump; } -case 265: /* clo ek . */ +case 270: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14741,7 +14924,7 @@ case 265: /* clo ek . */ rc = 3; goto jump; -case 266: /* clo ek r */ +case 271: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14757,15 +14940,15 @@ case 266: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12351; + goto s_loop_v12312; -case 267: /* clo k i */ +case 272: /* 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_v12351: /* k i port x */ +s_loop_v12312: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14778,13 +14961,13 @@ s_loop_v12351: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(267); + *--hp = obj_from_case(272); 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(268); + *--hp = obj_from_case(273); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); @@ -14792,7 +14975,7 @@ s_loop_v12351: /* k i port x */ goto gs_write_2Dserialized_2Dchar; } -case 268: /* clo ek . */ +case 273: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14809,7 +14992,7 @@ case 268: /* clo ek . */ rc = 3; goto jump; -case 269: /* clo ek r */ +case 274: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14825,15 +15008,15 @@ case 269: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12334; + goto s_loop_v12295; -case 270: /* clo k i */ +case 275: /* 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_v12334: /* k i port x */ +s_loop_v12295: /* k i port x */ if ((fixnum_from_obj(r[1]) == (bytevectorlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14846,13 +15029,13 @@ s_loop_v12334: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(270); + *--hp = obj_from_case(275); 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(271); + *--hp = obj_from_case(276); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_fixnum(*bytevectorref((r[3]), fixnum_from_obj(r[1]))); @@ -14860,7 +15043,7 @@ s_loop_v12334: /* k i port x */ goto gs_write_2Dserialized_2Dbyte; } -case 271: /* clo ek . */ +case 276: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14877,7 +15060,7 @@ case 271: /* clo ek . */ rc = 3; goto jump; -case 272: /* clo ek r */ +case 277: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14893,15 +15076,15 @@ case 272: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12317; + goto s_loop_v12278; -case 273: /* clo k i */ +case 278: /* 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_v12317: /* k i port x */ +s_loop_v12278: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14914,13 +15097,13 @@ s_loop_v12317: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(273); + *--hp = obj_from_case(278); 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(274); + *--hp = obj_from_case(279); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); @@ -14928,7 +15111,7 @@ s_loop_v12317: /* k i port x */ goto gs_write_2Dserialized_2Dchar; } -case 274: /* clo ek . */ +case 279: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14945,14 +15128,14 @@ case 274: /* clo ek . */ rc = 3; goto jump; -case 275: /* write-serialized-arg k arg port */ +case 280: /* 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 v14232_arg = fixnum_from_obj(r[1]); - r[3] = obj_from_bool(((+0) <= (v14232_arg)) && ((v14232_arg) <= (+9))); } + { const fixnum_t v14229_arg = fixnum_from_obj(r[1]); + r[3] = obj_from_bool(((+0) <= (v14229_arg)) && ((v14229_arg) <= (+9))); } } else { r[3] = obj_from_bool(0); } @@ -14960,8 +15143,8 @@ gs_write_2Dserialized_2Darg: /* k arg port */ r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { - { const char_t v14231_tmp = (*(unsigned char*)stringref((cx__232006), fixnum_from_obj(r[1]))); - r[3] = obj_from_void(oportputc((v14231_tmp), (r[2]))); } + { const char_t v14228_tmp = (*(unsigned char*)stringref((cx__232003), fixnum_from_obj(r[1]))); + r[3] = obj_from_void(oportputc((v14228_tmp), (r[2]))); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); @@ -14975,7 +15158,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(276); + *--hp = obj_from_case(281); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ @@ -14983,7 +15166,7 @@ gs_write_2Dserialized_2Darg: /* k arg port */ goto gs_write_2Dserialized_2Dsexp; } -case 276: /* clo ek . */ +case 281: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14999,7 +15182,7 @@ case 276: /* clo ek . */ rc = 3; goto jump; -case 277: /* find-free* k x* b */ +case 282: /* find-free* k x* b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree_2A: /* k x* b */ @@ -15016,7 +15199,7 @@ gs_find_2Dfree_2A: /* k x* b */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(278); + *--hp = obj_from_case(283); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -15024,7 +15207,7 @@ gs_find_2Dfree_2A: /* k x* b */ goto gs_find_2Dfree; } -case 278: /* clo ek r */ +case 283: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15035,14 +15218,14 @@ case 278: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(279); + *--hp = obj_from_case(284); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dfree_2A; -case 279: /* clo ek r */ +case 284: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15056,7 +15239,7 @@ case 279: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 280: /* find-free k x b */ +case 285: /* find-free k x b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree: /* k x b */ @@ -15064,7 +15247,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(281); + *--hp = obj_from_case(286); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15081,7 +15264,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(282); + *--hp = obj_from_case(287); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15098,7 +15281,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(283); + *--hp = obj_from_case(288); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15115,7 +15298,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(285); + *--hp = obj_from_case(290); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15132,7 +15315,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(286); + *--hp = obj_from_case(291); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15149,7 +15332,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(289); + *--hp = obj_from_case(294); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15172,7 +15355,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(293); + *--hp = obj_from_case(298); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15189,7 +15372,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(300); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15206,7 +15389,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(303); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15223,7 +15406,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(303); + *--hp = obj_from_case(308); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15246,7 +15429,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(309); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15269,7 +15452,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(305); + *--hp = obj_from_case(310); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15292,7 +15475,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = obj_from_case(308); + *--hp = obj_from_case(313); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15331,7 +15514,7 @@ gs_find_2Dfree: /* k x b */ } } -case 281: /* clo k obj */ +case 286: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -15344,7 +15527,7 @@ case 281: /* clo k obj */ rc = 3; goto jump; -case 282: /* clo k id */ +case 287: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15369,7 +15552,7 @@ case 282: /* clo k id */ rc = 3; goto jump; -case 283: /* clo k id exp */ +case 288: /* clo k id exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15379,14 +15562,14 @@ case 283: /* clo k id exp */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(284); + *--hp = obj_from_case(289); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; -case 284: /* clo ek r */ +case 289: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15411,7 +15594,7 @@ case 284: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 285: /* clo k id */ +case 290: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15436,7 +15619,7 @@ case 285: /* clo k id */ rc = 3; goto jump; -case 286: /* clo k idsi exp */ +case 291: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15446,13 +15629,13 @@ case 286: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(287); + *--hp = obj_from_case(292); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 287: /* clo ek r */ +case 292: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15463,14 +15646,14 @@ case 287: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(288); + *--hp = obj_from_case(293); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ goto gs_set_2Dunion; -case 288: /* clo ek r */ +case 293: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15484,7 +15667,7 @@ case 288: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 289: /* clo k clauses */ +case 294: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15494,26 +15677,26 @@ case 289: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(292); + *--hp = obj_from_case(297); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v12200; + goto s_loop_v12161; -s_loop_v12200: /* k l f */ +s_loop_v12161: /* 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(290); + *--hp = obj_from_case(295); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12200; + goto s_loop_v12161; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15524,7 +15707,7 @@ s_loop_v12200: /* k l f */ goto jump; } -case 290: /* clo ek r */ +case 295: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15535,7 +15718,7 @@ case 290: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(291); + *--hp = obj_from_case(296); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -15545,7 +15728,7 @@ case 290: /* clo ek r */ rc = 3; goto jump; -case 291: /* clo ek r */ +case 296: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15567,7 +15750,7 @@ case 291: /* clo ek r */ rc = 3; goto jump; -case 292: /* clo ek r */ +case 297: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15579,7 +15762,7 @@ case 292: /* clo ek r */ /* r[2] */ goto gs_find_2Dfree_2A; -case 293: /* clo k kid exp */ +case 298: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15588,7 +15771,7 @@ case 293: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(294); + *--hp = obj_from_case(299); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -15601,7 +15784,7 @@ case 293: /* clo k kid exp */ r[2] = r[3]; goto gs_set_2Dunion; -case 294: /* clo ek r */ +case 299: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15615,7 +15798,7 @@ case 294: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 295: /* clo k kexp exp */ +case 300: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15625,14 +15808,14 @@ case 295: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(296); + *--hp = obj_from_case(301); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; -case 296: /* clo ek r */ +case 301: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15643,105 +15826,12 @@ case 296: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(297); - r[5] = (hendblk(2+1)); - r[0] = r[5]; - r[1] = r[3]; - /* r[2] */ - goto gs_find_2Dfree; - -case 297: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ - /* ek r r k */ - r[4+0] = r[3]; - r[4+1] = r[2]; - r[4+2] = r[1]; - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_set_2Dunion; - -case 298: /* clo k test then else */ - assert(rc == 5); - { obj* p = objptr_from_obj(r[0]); - r[1+4] = p[1]; } - r += 1; /* shift reg. wnd */ - /* k test then else b */ - hreserve(hbsz(4+1), 5); /* 5 live regs */ - *--hp = r[0]; - *--hp = r[3]; - *--hp = r[4]; - *--hp = r[2]; - *--hp = obj_from_case(299); - r[5] = (hendblk(4+1)); - r[0] = r[5]; - /* r[1] */ - r[2] = r[4]; - goto gs_find_2Dfree; - -case 299: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; - r[1+5] = p[4]; } - r += 1; /* shift reg. wnd */ - /* ek r then b else k */ - hreserve(hbsz(4+1), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = r[1]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(300); - r[6] = (hendblk(4+1)); - r[0] = r[6]; - r[1] = r[2]; - r[2] = r[3]; - goto gs_find_2Dfree; - -case 300: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; - r[1+5] = p[4]; } - r += 1; /* shift reg. wnd */ - /* ek r b else r k */ - hreserve(hbsz(3+1), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[1]; - *--hp = obj_from_case(301); - r[6] = (hendblk(3+1)); - r[0] = r[6]; - r[1] = r[3]; - /* r[2] */ - goto gs_find_2Dfree; - -case 301: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek r r r k */ - hreserve(hbsz(2+1), 5); /* 5 live regs */ - *--hp = r[4]; - *--hp = r[3]; *--hp = obj_from_case(302); r[5] = (hendblk(2+1)); - r[6+0] = r[5]; - r[6+1] = r[2]; - r[6+2] = r[1]; - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_set_2Dunion; + r[0] = r[5]; + r[1] = r[3]; + /* r[2] */ + goto gs_find_2Dfree; case 302: /* clo ek r */ assert(rc == 3); @@ -15757,43 +15847,63 @@ case 302: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 303: /* clo k exps */ +case 303: /* clo k test then else */ + assert(rc == 5); + { obj* p = objptr_from_obj(r[0]); + r[1+4] = p[1]; } + r += 1; /* shift reg. wnd */ + /* k test then else b */ + hreserve(hbsz(4+1), 5); /* 5 live regs */ + *--hp = r[0]; + *--hp = r[3]; + *--hp = r[4]; + *--hp = r[2]; + *--hp = obj_from_case(304); + r[5] = (hendblk(4+1)); + r[0] = r[5]; + /* r[1] */ + r[2] = r[4]; + goto gs_find_2Dfree; + +case 304: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; } + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ - /* k exps b */ - /* r[0] */ - /* r[1] */ - /* r[2] */ - goto gs_find_2Dfree_2A; - -case 304: /* clo k ig args */ - assert(rc == 4); - { obj* p = objptr_from_obj(r[0]); - r[1+3] = p[1]; } - r += 1; /* shift reg. wnd */ - /* k ig args b */ - /* r[0] */ + /* ek r then b else k */ + hreserve(hbsz(4+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[1]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(305); + r[6] = (hendblk(4+1)); + r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; - goto gs_find_2Dfree_2A; + goto gs_find_2Dfree; -case 305: /* clo k exp args */ - assert(rc == 4); +case 305: /* clo ek r */ + assert(rc == 3); { obj* p = objptr_from_obj(r[0]); - r[1+3] = p[1]; } + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ - /* k exp args b */ - hreserve(hbsz(3+1), 4); /* 4 live regs */ - *--hp = r[0]; - *--hp = r[2]; - *--hp = r[3]; + /* ek r b else r k */ + hreserve(hbsz(3+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[1]; *--hp = obj_from_case(306); - r[4] = (hendblk(3+1)); - r[0] = r[4]; - /* r[1] */ - r[2] = r[3]; + r[6] = (hendblk(3+1)); + r[0] = r[6]; + r[1] = r[3]; + /* r[2] */ goto gs_find_2Dfree; case 306: /* clo ek r */ @@ -15803,16 +15913,18 @@ case 306: /* clo ek r */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ - /* ek r b args k */ + /* ek r r r k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; - *--hp = r[1]; + *--hp = r[3]; *--hp = obj_from_case(307); r[5] = (hendblk(2+1)); - r[0] = r[5]; - r[1] = r[3]; - /* r[2] */ - goto gs_find_2Dfree_2A; + r[6+0] = r[5]; + r[6+1] = r[2]; + r[6+2] = r[1]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_set_2Dunion; case 307: /* clo ek r */ assert(rc == 3); @@ -15828,7 +15940,78 @@ case 307: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 308: /* clo k tail */ +case 308: /* clo k exps */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* k exps b */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + goto gs_find_2Dfree_2A; + +case 309: /* clo k ig args */ + assert(rc == 4); + { obj* p = objptr_from_obj(r[0]); + r[1+3] = p[1]; } + r += 1; /* shift reg. wnd */ + /* k ig args b */ + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto gs_find_2Dfree_2A; + +case 310: /* clo k exp args */ + assert(rc == 4); + { obj* p = objptr_from_obj(r[0]); + r[1+3] = p[1]; } + r += 1; /* shift reg. wnd */ + /* k exp args b */ + hreserve(hbsz(3+1), 4); /* 4 live regs */ + *--hp = r[0]; + *--hp = r[2]; + *--hp = r[3]; + *--hp = obj_from_case(311); + r[4] = (hendblk(3+1)); + r[0] = r[4]; + /* r[1] */ + r[2] = r[3]; + goto gs_find_2Dfree; + +case 311: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ + /* ek r b args k */ + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[1]; + *--hp = obj_from_case(312); + r[5] = (hendblk(2+1)); + r[0] = r[5]; + r[1] = r[3]; + /* r[2] */ + goto gs_find_2Dfree_2A; + +case 312: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r r k */ + r[4+0] = r[3]; + r[4+1] = r[2]; + r[4+2] = r[1]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_set_2Dunion; + +case 313: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15837,14 +16020,14 @@ case 308: /* clo k tail */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__232027); + r[3+2] = (cx__232024); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 309: /* find-sets* k x* v */ +case 314: /* find-sets* k x* v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets_2A: /* k x* v */ @@ -15861,7 +16044,7 @@ gs_find_2Dsets_2A: /* k x* v */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(310); + *--hp = obj_from_case(315); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -15869,7 +16052,7 @@ gs_find_2Dsets_2A: /* k x* v */ goto gs_find_2Dsets; } -case 310: /* clo ek r */ +case 315: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15880,14 +16063,14 @@ case 310: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(311); + *--hp = obj_from_case(316); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dsets_2A; -case 311: /* clo ek r */ +case 316: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15901,7 +16084,7 @@ case 311: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 312: /* find-sets k x v */ +case 317: /* find-sets k x v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets: /* k x v */ @@ -15909,7 +16092,7 @@ gs_find_2Dsets: /* k x v */ r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(313); + *--hp = obj_from_case(318); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15925,7 +16108,7 @@ gs_find_2Dsets: /* k x v */ r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("ref")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(314); + *--hp = obj_from_case(319); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15942,7 +16125,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(315); + *--hp = obj_from_case(320); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15959,7 +16142,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(317); + *--hp = obj_from_case(322); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15976,7 +16159,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(318); + *--hp = obj_from_case(323); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15993,7 +16176,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(321); + *--hp = obj_from_case(326); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16016,7 +16199,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(330); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16033,7 +16216,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(327); + *--hp = obj_from_case(332); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16050,7 +16233,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(330); + *--hp = obj_from_case(335); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16073,7 +16256,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(331); + *--hp = obj_from_case(336); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16090,7 +16273,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(336); + *--hp = obj_from_case(341); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16113,7 +16296,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(337); + *--hp = obj_from_case(342); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16136,7 +16319,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = obj_from_case(340); + *--hp = obj_from_case(345); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16175,7 +16358,7 @@ gs_find_2Dsets: /* k x v */ } } -case 313: /* clo k obj */ +case 318: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -16188,7 +16371,7 @@ case 313: /* clo k obj */ rc = 3; goto jump; -case 314: /* clo k id */ +case 319: /* clo k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k id */ @@ -16201,7 +16384,7 @@ case 314: /* clo k id */ rc = 3; goto jump; -case 315: /* clo k id x */ +case 320: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16211,14 +16394,14 @@ case 315: /* clo k id x */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(316); + *--hp = obj_from_case(321); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 316: /* clo ek r */ +case 321: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16243,7 +16426,7 @@ case 316: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 317: /* clo k id */ +case 322: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16268,7 +16451,7 @@ case 317: /* clo k id */ rc = 3; goto jump; -case 318: /* clo k idsi exp */ +case 323: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16278,13 +16461,13 @@ case 318: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(319); + *--hp = obj_from_case(324); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 319: /* clo ek r */ +case 324: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16295,7 +16478,7 @@ case 319: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(320); + *--hp = obj_from_case(325); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -16304,7 +16487,7 @@ case 319: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 320: /* clo ek r */ +case 325: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16318,7 +16501,7 @@ case 320: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 321: /* clo k clauses */ +case 326: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16328,26 +16511,26 @@ case 321: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(324); + *--hp = obj_from_case(329); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v11983; + goto s_loop_v11944; -s_loop_v11983: /* k l f */ +s_loop_v11944: /* k l f */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(322); + *--hp = obj_from_case(327); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v11983; + goto s_loop_v11944; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16358,7 +16541,7 @@ s_loop_v11983: /* k l f */ goto jump; } -case 322: /* clo ek r */ +case 327: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16369,7 +16552,7 @@ case 322: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(323); + *--hp = obj_from_case(328); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -16379,7 +16562,7 @@ case 322: /* clo ek r */ rc = 3; goto jump; -case 323: /* clo ek r */ +case 328: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16401,7 +16584,7 @@ case 323: /* clo ek r */ rc = 3; goto jump; -case 324: /* clo ek r */ +case 329: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16413,7 +16596,7 @@ case 324: /* clo ek r */ /* r[2] */ goto gs_find_2Dsets_2A; -case 325: /* clo k kid exp */ +case 330: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16422,7 +16605,7 @@ case 325: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(326); + *--hp = obj_from_case(331); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -16437,7 +16620,7 @@ case 325: /* clo k kid exp */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 326: /* clo ek r */ +case 331: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16451,7 +16634,7 @@ case 326: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 327: /* clo k kexp exp */ +case 332: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16461,14 +16644,14 @@ case 327: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(328); + *--hp = obj_from_case(333); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; -case 328: /* clo ek r */ +case 333: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16479,14 +16662,14 @@ case 328: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(329); + *--hp = obj_from_case(334); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 329: /* clo ek r */ +case 334: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16500,7 +16683,7 @@ case 329: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 330: /* clo k exps */ +case 335: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16511,7 +16694,7 @@ case 330: /* clo k exps */ /* r[2] */ goto gs_find_2Dsets_2A; -case 331: /* clo k test then else */ +case 336: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -16522,14 +16705,14 @@ case 331: /* clo k test then else */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(332); + *--hp = obj_from_case(337); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dsets; -case 332: /* clo ek r */ +case 337: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16543,14 +16726,14 @@ case 332: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(333); + *--hp = obj_from_case(338); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 333: /* clo ek r */ +case 338: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16563,14 +16746,14 @@ case 333: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(334); + *--hp = obj_from_case(339); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 334: /* clo ek r */ +case 339: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16581,7 +16764,7 @@ case 334: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(335); + *--hp = obj_from_case(340); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -16590,7 +16773,7 @@ case 334: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 335: /* clo ek r */ +case 340: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16604,7 +16787,7 @@ case 335: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 336: /* clo k ig args */ +case 341: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16615,7 +16798,7 @@ case 336: /* clo k ig args */ r[2] = r[3]; goto gs_find_2Dsets_2A; -case 337: /* clo k exp args */ +case 342: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16625,14 +16808,14 @@ case 337: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(338); + *--hp = obj_from_case(343); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; -case 338: /* clo ek r */ +case 343: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16643,14 +16826,14 @@ case 338: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(339); + *--hp = obj_from_case(344); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets_2A; -case 339: /* clo ek r */ +case 344: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16664,7 +16847,7 @@ case 339: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 340: /* clo k tail */ +case 345: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16673,14 +16856,14 @@ case 340: /* clo k tail */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__232027); + r[3+2] = (cx__232024); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 341: /* codegen k x l f s g k port */ +case 346: /* 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 */ @@ -16690,7 +16873,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(342); + *--hp = obj_from_case(347); r[8] = (hendblk(2+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16711,7 +16894,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(344); + *--hp = obj_from_case(349); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16733,7 +16916,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(348); + *--hp = obj_from_case(353); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16753,7 +16936,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[6]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(351); + *--hp = obj_from_case(356); r[8] = (hendblk(4+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16775,7 +16958,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(353); + *--hp = obj_from_case(358); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16803,7 +16986,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(357); + *--hp = obj_from_case(362); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16825,7 +17008,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(361); + *--hp = obj_from_case(366); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16847,7 +17030,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(377); + *--hp = obj_from_case(382); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16875,7 +17058,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(386); + *--hp = obj_from_case(391); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16896,7 +17079,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(393); + *--hp = obj_from_case(398); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16918,7 +17101,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(398); + *--hp = obj_from_case(403); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16946,7 +17129,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[7]; *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(433); + *--hp = obj_from_case(438); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16969,7 +17152,7 @@ gs_codegen: /* k x l f s g k port */ if (bool_from_obj(r[8])) { hreserve(hbsz(1+1), 8); /* 8 live regs */ *--hp = r[1]; - *--hp = obj_from_case(454); + *--hp = obj_from_case(459); r[8] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -17008,7 +17191,7 @@ gs_codegen: /* k x l f s g k port */ } } -case 342: /* clo k obj */ +case 347: /* clo k obj */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17019,7 +17202,7 @@ case 342: /* clo k obj */ *--hp = r[3]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(343); + *--hp = obj_from_case(348); 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]))); @@ -17030,7 +17213,7 @@ case 342: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11840; + goto s_l_v11801; } else { if (((((r[1]) == obj_from_bool(0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[5] = obj_from_void(oportputc(('f'), (r[2]))); @@ -17041,7 +17224,7 @@ case 342: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11840; + goto s_l_v11801; } 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]))); @@ -17052,7 +17235,7 @@ case 342: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11840; + goto s_l_v11801; } else { (void)(oportputc((39), (r[2]))); r[0] = r[4]; @@ -17063,7 +17246,7 @@ case 342: /* clo k obj */ } } -case 343: /* clo ek . */ +case 348: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17071,7 +17254,7 @@ case 343: /* clo ek . */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v11840: /* ek . k port k */ +s_l_v11801: /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; @@ -17088,7 +17271,7 @@ s_l_v11840: /* ek . k port k */ goto jump; } -case 344: /* clo k id */ +case 349: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17103,7 +17286,7 @@ case 344: /* clo k id */ *--hp = r[5]; *--hp = r[4]; *--hp = r[0]; - *--hp = obj_from_case(345); + *--hp = obj_from_case(350); r[8] = (hendblk(3+1)); if (bool_from_obj(r[7])) { (void)(oportputc(('.'), (r[4]))); @@ -17112,7 +17295,7 @@ case 344: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(346); + *--hp = obj_from_case(351); r[9] = (hendblk(4+1)); r[0] = r[9]; r[1] = r[7]; @@ -17127,7 +17310,7 @@ case 344: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(347); + *--hp = obj_from_case(352); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; @@ -17142,144 +17325,6 @@ case 344: /* clo k id */ } } -case 345: /* 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+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek . k port k */ - if (bool_from_obj(r[4])) { - (void)(oportputc((']'), (r[3]))); - r[0] = r[2]; - r[1] = r[4]; - r[2] = r[3]; - goto gs_write_2Dserialized_2Darg; - } else { - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(0); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } - -case 346: /* 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+4] = p[3]; - r[1+5] = p[4]; } - r += 1; /* shift reg. wnd */ - /* ek . k port id s */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(bool_from_obj(cxs_set_2Dmember_3F((r[4]), (r[5]))) ? (void)(oportputc(('^'), (r[3]))) : (void)(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 347: /* 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+4] = p[3]; - r[1+5] = p[4]; } - r += 1; /* shift reg. wnd */ - /* ek . k port id s */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(bool_from_obj(cxs_set_2Dmember_3F((r[4]), (r[5]))) ? (void)(oportputc(('^'), (r[3]))) : (void)(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 348: /* clo k id x */ - 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+6] = p[4]; - r[1+7] = p[5]; - r[1+8] = p[6]; } - r += 1; /* shift reg. wnd */ - /* k id x g s f port k l */ - hreserve(hbsz(6+1), 9); /* 9 live regs */ - *--hp = r[8]; - *--hp = r[1]; - *--hp = r[7]; - *--hp = r[6]; - *--hp = r[0]; - *--hp = r[5]; - *--hp = obj_from_case(349); - r[9] = (hendblk(6+1)); - r[10+0] = r[9]; - r[10+1] = r[2]; - r[10+2] = r[8]; - r[10+3] = r[5]; - r[10+4] = r[4]; - r[10+5] = r[3]; - r[10+6] = obj_from_bool(0); - r[10+7] = r[6]; - r += 10; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - -case 349: /* 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+4] = p[3]; - r[1+5] = p[4]; - r[1+6] = p[5]; - r[1+7] = p[6]; } - r += 1; /* shift reg. wnd */ - /* ek . f k port k id l */ - r[8] = (cxs_posq((r[6]), (r[7]))); - hreserve(hbsz(3+1), 9); /* 9 live regs */ - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(350); - r[9] = (hendblk(3+1)); - if (bool_from_obj(r[8])) { - (void)(oportputc(('.'), (r[4]))); - (void)(oportputc(('!'), (r[4]))); - r[0] = r[9]; - r[1] = r[8]; - r[2] = r[4]; - goto gs_write_2Dserialized_2Darg; - } else { - r[10] = (cxs_posq((r[6]), (r[2]))); - if (bool_from_obj(r[10])) { - (void)(oportputc((':'), (r[4]))); - (void)(oportputc(('!'), (r[4]))); - r[0] = r[9]; - r[1] = (r[10]); - r[2] = r[4]; - goto gs_write_2Dserialized_2Darg; - } else { - (void)(oportputc(('@'), (r[4]))); - (void)(oportputc(('!'), (r[4]))); - r[0] = r[9]; - r[1] = r[6]; - r[2] = r[4]; - goto gs_write_2Dserialized_2Darg; - } - } - case 350: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ @@ -17305,46 +17350,120 @@ case 350: /* clo ek . */ goto jump; } -case 351: /* clo k id */ - assert(rc == 3); +case 351: /* 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+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ - /* k id f port k l */ - r[6] = (cxs_posq((r[1]), (r[5]))); - hreserve(hbsz(3+1), 7); /* 7 live regs */ + /* ek . k port id s */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(bool_from_obj(cxs_set_2Dmember_3F((r[4]), (r[5]))) ? (void)(oportputc(('^'), (r[3]))) : (void)(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 352: /* 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+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek . k port id s */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(bool_from_obj(cxs_set_2Dmember_3F((r[4]), (r[5]))) ? (void)(oportputc(('^'), (r[3]))) : (void)(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 353: /* clo k id x */ + 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+6] = p[4]; + r[1+7] = p[5]; + r[1+8] = p[6]; } + r += 1; /* shift reg. wnd */ + /* k id x g s f port k l */ + hreserve(hbsz(6+1), 9); /* 9 live regs */ + *--hp = r[8]; + *--hp = r[1]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[0]; + *--hp = r[5]; + *--hp = obj_from_case(354); + r[9] = (hendblk(6+1)); + r[10+0] = r[9]; + r[10+1] = r[2]; + r[10+2] = r[8]; + r[10+3] = r[5]; + r[10+4] = r[4]; + r[10+5] = r[3]; + r[10+6] = obj_from_bool(0); + r[10+7] = r[6]; + r += 10; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + +case 354: /* 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+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; + r[1+7] = p[6]; } + r += 1; /* shift reg. wnd */ + /* ek . f k port k id l */ + r[8] = (cxs_posq((r[6]), (r[7]))); + hreserve(hbsz(3+1), 9); /* 9 live regs */ + *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = r[0]; - *--hp = obj_from_case(352); - r[7] = (hendblk(3+1)); - if (bool_from_obj(r[6])) { - (void)(oportputc(('.'), (r[3]))); - r[0] = r[7]; - r[1] = r[6]; - r[2] = r[3]; - goto gs_write_2Dserialized_2Darg; - } else { - r[8] = (cxs_posq((r[1]), (r[2]))); + *--hp = obj_from_case(355); + r[9] = (hendblk(3+1)); if (bool_from_obj(r[8])) { - (void)(oportputc((':'), (r[3]))); - r[0] = r[7]; + (void)(oportputc(('.'), (r[4]))); + (void)(oportputc(('!'), (r[4]))); + r[0] = r[9]; r[1] = r[8]; - r[2] = r[3]; + r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } else { - (void)(oportputc(('`'), (r[3]))); - r[0] = r[7]; - /* r[1] */ - r[2] = r[3]; + r[10] = (cxs_posq((r[6]), (r[2]))); + if (bool_from_obj(r[10])) { + (void)(oportputc((':'), (r[4]))); + (void)(oportputc(('!'), (r[4]))); + r[0] = r[9]; + r[1] = (r[10]); + r[2] = r[4]; + goto gs_write_2Dserialized_2Darg; + } else { + (void)(oportputc(('@'), (r[4]))); + (void)(oportputc(('!'), (r[4]))); + r[0] = r[9]; + r[1] = r[6]; + r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } } -case 352: /* clo ek . */ +case 355: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17369,7 +17488,71 @@ case 352: /* clo ek . */ goto jump; } -case 353: /* clo k exps */ +case 356: /* clo k id */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* k id f port k l */ + r[6] = (cxs_posq((r[1]), (r[5]))); + hreserve(hbsz(3+1), 7); /* 7 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = r[0]; + *--hp = obj_from_case(357); + r[7] = (hendblk(3+1)); + if (bool_from_obj(r[6])) { + (void)(oportputc(('.'), (r[3]))); + r[0] = r[7]; + r[1] = r[6]; + r[2] = r[3]; + goto gs_write_2Dserialized_2Darg; + } else { + r[8] = (cxs_posq((r[1]), (r[2]))); + if (bool_from_obj(r[8])) { + (void)(oportputc((':'), (r[3]))); + r[0] = r[7]; + r[1] = r[8]; + r[2] = r[3]; + goto gs_write_2Dserialized_2Darg; + } else { + (void)(oportputc(('`'), (r[3]))); + r[0] = r[7]; + /* r[1] */ + r[2] = r[3]; + goto gs_write_2Dserialized_2Darg; + } + } + +case 357: /* 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+4] = p[3]; } + r += 1; /* shift reg. wnd */ + /* ek . k port k */ + if (bool_from_obj(r[4])) { + (void)(oportputc((']'), (r[3]))); + r[0] = r[2]; + r[1] = r[4]; + r[2] = r[3]; + goto gs_write_2Dserialized_2Darg; + } else { + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 358: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17385,7 +17568,7 @@ case 353: /* clo k exps */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; - *--hp = obj_from_case(356); + *--hp = obj_from_case(361); r[8] = (hendblk(4+1)); r[9+0] = r[8]; r[9+1] = r[1]; @@ -17397,9 +17580,9 @@ case 353: /* clo k exps */ r[9+7] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11766; + goto s_loop_v11727; -case 354: /* clo k xl */ +case 359: /* clo k xl */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17409,7 +17592,7 @@ case 354: /* clo k xl */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_loop_v11766: /* k xl port g s f l k */ +s_loop_v11727: /* 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]))); @@ -17425,13 +17608,13 @@ s_loop_v11766: /* k xl port g s f l k */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(354); + *--hp = obj_from_case(359); 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(355); + *--hp = obj_from_case(360); r[9] = (hendblk(3+1)); r[10+0] = r[9]; r[10+1] = (car((r[1]))); @@ -17454,7 +17637,7 @@ s_loop_v11766: /* k xl port g s f l k */ goto jump; } -case 355: /* clo ek . */ +case 360: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17471,7 +17654,7 @@ case 355: /* clo ek . */ rc = 3; goto jump; -case 356: /* clo ek . */ +case 361: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17497,7 +17680,7 @@ case 356: /* clo ek . */ goto jump; } -case 357: /* clo k test then else */ +case 362: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -17518,7 +17701,7 @@ case 357: /* clo k test then else */ *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(358); + *--hp = obj_from_case(363); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[1]; @@ -17532,7 +17715,7 @@ case 357: /* clo k test then else */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 358: /* clo ek . */ +case 363: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17558,7 +17741,7 @@ case 358: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(359); + *--hp = obj_from_case(364); r[11] = (hendblk(8+1)); r[12+0] = (r[11]); r[12+1] = r[2]; @@ -17572,7 +17755,7 @@ case 358: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 359: /* clo ek . */ +case 364: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17600,7 +17783,7 @@ case 359: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { - r[10] = obj_from_bool(isequal((r[6]), (cx__232843))); + r[10] = obj_from_bool(isequal((r[6]), (cx__232840))); if (bool_from_obj(r[10])) { r[0] = r[7]; pc = objptr_from_obj(r[0])[0]; @@ -17615,7 +17798,7 @@ case 359: /* clo ek . */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[7]; - *--hp = obj_from_case(360); + *--hp = obj_from_case(365); r[11] = (hendblk(2+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -17640,7 +17823,7 @@ case 359: /* clo ek . */ } } -case 360: /* clo ek . */ +case 365: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17656,7 +17839,7 @@ case 360: /* clo ek . */ rc = 3; goto jump; -case 361: /* clo k idsi exp */ +case 366: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -17677,13 +17860,13 @@ case 361: /* clo k idsi exp */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(362); + *--hp = obj_from_case(367); r[9] = (hendblk(9+1)); r[0] = r[9]; /* r[1] */ goto gs_flatten_2Didslist; -case 362: /* clo ek r */ +case 367: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17708,7 +17891,7 @@ case 362: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(363); + *--hp = obj_from_case(368); r[11] = (hendblk(10+1)); r[12+0] = (r[11]); r[12+1] = r[7]; @@ -17717,7 +17900,7 @@ case 362: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 363: /* clo ek r */ +case 368: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17743,14 +17926,14 @@ case 363: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(364); + *--hp = obj_from_case(369); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ r[2] = r[6]; goto gs_set_2Dminus; -case 364: /* clo ek r */ +case 369: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17777,14 +17960,14 @@ case 364: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(365); + *--hp = obj_from_case(370); r[12] = (hendblk(11+1)); r[0] = (r[12]); r[1] = r[8]; r[2] = r[7]; goto gs_find_2Dsets; -case 365: /* clo ek r */ +case 370: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17800,13 +17983,13 @@ case 365: /* 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 v14230_tmp; + { fixnum_t v14227_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14230_tmp = (n); } + v14227_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14230_tmp); + obj l, o = mknull(); int c = (v14227_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); @@ -17823,7 +18006,7 @@ case 365: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(368); + *--hp = obj_from_case(373); r[14] = (hendblk(10+1)); r[15+0] = (r[14]); r[15+1] = (r[13]); @@ -17833,16 +18016,16 @@ case 365: /* clo ek r */ r[15+5] = (r[12]); r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11695; + goto s_loop_v11656; -case 366: /* clo k free l */ +case 371: /* 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_v11695: /* k free l g f port */ +s_loop_v11656: /* k free l g f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -17856,7 +18039,7 @@ s_loop_v11695: /* k free l g f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(366); + *--hp = obj_from_case(371); r[6] = (hendblk(3+1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[5]; @@ -17864,7 +18047,7 @@ s_loop_v11695: /* k free l g f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(367); + *--hp = obj_from_case(372); r[6] = (hendblk(5+1)); r[7] = (car((r[1]))); { /* cons */ @@ -17892,7 +18075,7 @@ s_loop_v11695: /* k free l g f port */ goto gs_codegen; } -case 367: /* clo ek . */ +case 372: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17919,7 +18102,7 @@ case 367: /* clo ek . */ rc = 4; goto jump; -case 368: /* clo ek . */ +case 373: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17947,7 +18130,7 @@ case 368: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(369); + *--hp = obj_from_case(374); r[12] = (hendblk(10+1)); { /* length */ int n; obj l = r[6]; @@ -17958,7 +18141,7 @@ case 368: /* clo ek . */ r[2] = (r[11]); goto gs_write_2Dserialized_2Darg; -case 369: /* clo ek . */ +case 374: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17985,7 +18168,7 @@ case 369: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(370); + *--hp = obj_from_case(375); r[12] = (hendblk(9+1)); if ((islist((r[2])))) { (void)(oportputc(('%'), (r[11]))); @@ -18006,7 +18189,7 @@ case 369: /* clo ek . */ goto gs_write_2Dserialized_2Darg; } -case 370: /* clo ek . */ +case 375: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18031,7 +18214,7 @@ case 370: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(373); + *--hp = obj_from_case(378); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -18040,15 +18223,15 @@ case 370: /* clo ek . */ r[12+4] = r[3]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11670; + goto s_loop_v11631; -case 371: /* clo k ids n */ +case 376: /* 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_v11670: /* k ids n port r */ +s_loop_v11631: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18061,14 +18244,14 @@ s_loop_v11670: /* k ids n port r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(371); + *--hp = obj_from_case(376); 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(372); + *--hp = obj_from_case(377); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); @@ -18082,7 +18265,7 @@ s_loop_v11670: /* k ids n port r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(371); + *--hp = obj_from_case(376); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); @@ -18092,11 +18275,11 @@ s_loop_v11670: /* k ids n port r */ r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11672; + goto s_l_v11633; } } -case 372: /* clo ek . */ +case 377: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18105,7 +18288,7 @@ case 372: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v11672: /* ek . loop n ids k */ +s_l_v11633: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; @@ -18115,7 +18298,7 @@ s_l_v11672: /* ek . loop n ids k */ rc = 4; goto jump; -case 373: /* clo ek . */ +case 378: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18139,14 +18322,14 @@ case 373: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(374); + *--hp = obj_from_case(379); r[11] = (hendblk(8+1)); r[0] = (r[11]); r[1] = r[2]; r[2] = r[5]; goto gs_set_2Dintersect; -case 374: /* clo ek r */ +case 379: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18167,7 +18350,7 @@ case 374: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(375); + *--hp = obj_from_case(380); r[10] = (hendblk(7+1)); r[11+0] = (r[10]); r[11+1] = r[2]; @@ -18176,7 +18359,7 @@ case 374: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 375: /* clo ek r */ +case 380: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18192,7 +18375,7 @@ case 375: /* clo ek r */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; - *--hp = obj_from_case(376); + *--hp = obj_from_case(381); r[9] = (hendblk(3+1)); { /* length */ int n; obj l = r[4]; @@ -18210,7 +18393,7 @@ case 375: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 376: /* clo ek . */ +case 381: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18236,7 +18419,7 @@ case 376: /* clo ek . */ goto jump; } -case 377: /* clo k clauses */ +case 382: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18247,13 +18430,13 @@ case 377: /* clo k clauses */ r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* k clauses g s f l k port */ - { fixnum_t v14229_tmp; + { fixnum_t v14226_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14229_tmp = (n); } + v14226_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14229_tmp); + obj l, o = mknull(); int c = (v14226_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); @@ -18264,7 +18447,7 @@ case 377: /* clo k clauses */ *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(380); + *--hp = obj_from_case(385); r[9] = (hendblk(4+1)); r[10+0] = r[9]; r[10+1] = r[8]; @@ -18275,9 +18458,9 @@ case 377: /* clo k clauses */ r[10+6] = r[7]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11613; + goto s_loop_v11574; -case 378: /* clo k clauses l */ +case 383: /* clo k clauses l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18285,7 +18468,7 @@ case 378: /* clo k clauses l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11613: /* k clauses l g s f port */ +s_loop_v11574: /* k clauses l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18300,7 +18483,7 @@ s_loop_v11613: /* k clauses l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(378); + *--hp = obj_from_case(383); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -18308,7 +18491,7 @@ s_loop_v11613: /* k clauses l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(379); + *--hp = obj_from_case(384); r[7] = (hendblk(5+1)); r[8] = (car((r[1]))); r[9] = (cdr((r[8]))); @@ -18326,7 +18509,7 @@ s_loop_v11613: /* k clauses l g s f port */ goto gs_codegen; } -case 379: /* clo ek . */ +case 384: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18355,7 +18538,7 @@ case 379: /* clo ek . */ rc = 4; goto jump; -case 380: /* clo ek . */ +case 385: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18371,7 +18554,7 @@ case 380: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(381); + *--hp = obj_from_case(386); r[6] = (hendblk(4+1)); { /* length */ int n; obj l = r[2]; @@ -18382,7 +18565,7 @@ case 380: /* clo ek . */ r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 381: /* clo ek . */ +case 386: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18397,20 +18580,20 @@ case 381: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(385); + *--hp = obj_from_case(390); 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_v11586; + goto s_loop_v11547; -case 382: /* clo k clauses i */ +case 387: /* 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_v11586: /* k clauses i port */ +s_loop_v11547: /* k clauses i port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18429,7 +18612,7 @@ s_loop_v11586: /* 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(382); + *--hp = obj_from_case(387); r[7] = (hendblk(1+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; @@ -18437,7 +18620,7 @@ s_loop_v11586: /* k clauses i port */ *--hp = r[2]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(383); + *--hp = obj_from_case(388); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[5]; @@ -18445,7 +18628,7 @@ s_loop_v11586: /* k clauses i port */ goto gs_write_2Dserialized_2Darg; } -case 383: /* clo ek . */ +case 388: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18461,14 +18644,14 @@ case 383: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(384); + *--hp = obj_from_case(389); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[4]; /* r[2] */ goto gs_write_2Dserialized_2Darg; -case 384: /* clo ek . */ +case 389: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18487,7 +18670,7 @@ case 384: /* clo ek . */ rc = 4; goto jump; -case 385: /* clo ek . */ +case 390: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18515,7 +18698,7 @@ case 385: /* clo ek . */ goto jump; } -case 386: /* clo k kid exp */ +case 391: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18543,14 +18726,14 @@ case 386: /* clo k kid exp */ *--hp = r[4]; *--hp = r[3]; *--hp = r[9]; - *--hp = obj_from_case(387); + *--hp = obj_from_case(392); r[10] = (hendblk(10+1)); r[0] = (r[10]); r[1] = r[2]; r[2] = r[9]; goto gs_find_2Dsets; -case 387: /* clo ek r */ +case 392: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18575,14 +18758,14 @@ case 387: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(388); + *--hp = obj_from_case(393); r[12] = (hendblk(9+1)); r[0] = (r[12]); r[1] = r[3]; /* r[2] */ goto gs_set_2Dminus; -case 388: /* clo ek r */ +case 393: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18606,14 +18789,14 @@ case 388: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(389); + *--hp = obj_from_case(394); r[11] = (hendblk(9+1)); r[0] = (r[11]); /* r[1] */ r[2] = r[8]; goto gs_set_2Dunion; -case 389: /* clo ek r */ +case 394: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18640,7 +18823,7 @@ case 389: /* clo ek r */ *--hp = r[1]; *--hp = r[2]; *--hp = (r[10]); - *--hp = obj_from_case(390); + *--hp = obj_from_case(395); r[11] = (hendblk(10+1)); r[0] = (r[11]); r[1] = (r[10]); @@ -18660,7 +18843,7 @@ case 389: /* clo ek r */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[6]; - *--hp = obj_from_case(391); + *--hp = obj_from_case(396); r[11] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ @@ -18693,7 +18876,7 @@ case 389: /* clo ek r */ goto gs_codegen; } -case 390: /* clo ek . */ +case 395: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18733,7 +18916,7 @@ case 390: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 391: /* clo ek . */ +case 396: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18745,14 +18928,14 @@ case 391: /* clo ek . */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(392); + *--hp = obj_from_case(397); 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 392: /* clo ek . */ +case 397: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18768,7 +18951,7 @@ case 392: /* clo ek . */ rc = 3; goto jump; -case 393: /* clo k kexp exp */ +case 398: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18780,7 +18963,7 @@ case 393: /* clo k kexp exp */ /* k kexp exp g s f l port */ r[8] = (car((r[2]))); { /* memq */ - obj x = (r[8]), l = (cx__232678); + obj x = (r[8]), l = (cx__232675); 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])) { @@ -18792,7 +18975,7 @@ case 393: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(394); + *--hp = obj_from_case(399); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = r[2]; @@ -18814,7 +18997,7 @@ case 393: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(396); + *--hp = obj_from_case(401); r[8] = (hendblk(7+1)); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -18847,7 +19030,7 @@ case 393: /* clo k kexp exp */ goto gs_codegen; } -case 394: /* clo ek . */ +case 399: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18864,7 +19047,7 @@ case 394: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(395); + *--hp = obj_from_case(400); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -18884,7 +19067,7 @@ case 394: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 395: /* clo ek . */ +case 400: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18902,7 +19085,7 @@ case 395: /* clo ek . */ rc = 3; goto jump; -case 396: /* clo ek . */ +case 401: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18919,7 +19102,7 @@ case 396: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(397); + *--hp = obj_from_case(402); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -18939,7 +19122,7 @@ case 396: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 397: /* clo ek . */ +case 402: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18955,7 +19138,7 @@ case 397: /* clo ek . */ rc = 3; goto jump; -case 398: /* clo k ig args */ +case 403: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18979,7 +19162,7 @@ case 398: /* clo k ig args */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(399); + *--hp = obj_from_case(404); r[10] = (hendblk(9+1)); r[11+0] = r[9]; pc = objptr_from_obj(r[11+0])[0]; @@ -18991,7 +19174,7 @@ case 398: /* clo k ig args */ rc = 4; goto jump; -case 399: /* clo ek r */ +case 404: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19019,7 +19202,7 @@ case 399: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(400); + *--hp = obj_from_case(405); r[12] = (hendblk(10+1)); r[0] = (r[11]); pc = objptr_from_obj(r[0])[0]; @@ -19029,7 +19212,7 @@ case 399: /* clo ek r */ rc = 3; goto jump; -case 400: /* clo ek r */ +case 405: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19048,16 +19231,16 @@ case 400: /* clo ek r */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; - *--hp = obj_from_case(401); + *--hp = obj_from_case(406); 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 v14228_tmp; + { fixnum_t v14225_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14228_tmp = (n); } + v14225_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14228_tmp); + obj l, o = mknull(); int c = (v14225_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); @@ -19067,7 +19250,7 @@ case 400: /* clo ek r */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); - *--hp = obj_from_case(404); + *--hp = obj_from_case(409); r[14] = (hendblk(3+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -19076,7 +19259,7 @@ case 400: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11465; + goto s_loop_v11426; } else { if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((isnull((r[7])))) { @@ -19086,7 +19269,7 @@ case 400: /* clo ek r */ hreserve(hbsz(2+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = (r[12]); - *--hp = obj_from_case(405); + *--hp = obj_from_case(410); r[14] = (hendblk(2+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; @@ -19097,80 +19280,19 @@ case 400: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v14226_tmp; + { fixnum_t v14223_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14226_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14226_tmp), (+1))); } - { fixnum_t v14227_tmp; - { /* length */ - int n; obj l = r[7]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14227_tmp = (n); } - { /* reverse */ - obj l, o = mknull(); int c = (v14227_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); - *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } - r[14] = (o); } } - hreserve(hbsz(4+1), 15); /* 15 live regs */ - *--hp = (r[12]); - *--hp = (r[13]); - *--hp = (r[10]); - *--hp = r[8]; - *--hp = obj_from_case(408); - r[15] = (hendblk(4+1)); - r[0] = (r[15]); - r[1] = (r[14]); - r[2] = r[6]; - /* r[3] */ - /* r[4] */ - /* r[5] */ - r[6] = (r[10]); - goto s_loop_v11440; - } - } else { - if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - r[13] = (cdr((r[7]))); - r[13] = obj_from_bool(isnull((r[13]))); - if (bool_from_obj(r[13])) { - { /* define integrable-code */ - static obj c[] = { obj_from_objptr(vmcases+12) }; - r[13] = obj_from_objptr(c); } - hreserve(hbsz(7+1), 14); /* 14 live regs */ - *--hp = (r[10]); - *--hp = (r[12]); - *--hp = r[7]; - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(409); - r[14] = (hendblk(7+1)); - r[0] = (r[13]); - pc = objptr_from_obj(r[0])[0]; - r[1] = (r[14]); - /* r[2] */ - r[3] = obj_from_fixnum(+1); - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } else { + v14223_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14223_tmp), (+1))); } { fixnum_t v14224_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14224_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14224_tmp), (+1))); } - { fixnum_t v14225_tmp; - { /* length */ - int n; obj l = r[7]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14225_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14225_tmp); + obj l, o = mknull(); int c = (v14224_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); @@ -19190,23 +19312,84 @@ case 400: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11404; + goto s_loop_v11401; } } else { - if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { + if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { + r[13] = (cdr((r[7]))); + r[13] = obj_from_bool(isnull((r[13]))); + if (bool_from_obj(r[13])) { + { /* define integrable-code */ + static obj c[] = { obj_from_objptr(vmcases+12) }; + r[13] = obj_from_objptr(c); } + hreserve(hbsz(7+1), 14); /* 14 live regs */ + *--hp = (r[10]); + *--hp = (r[12]); + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(414); + r[14] = (hendblk(7+1)); + r[0] = (r[13]); + pc = objptr_from_obj(r[0])[0]; + r[1] = (r[14]); + /* r[2] */ + r[3] = obj_from_fixnum(+1); + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } else { + { fixnum_t v14221_tmp; + { /* length */ + int n; obj l = r[7]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14221_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14221_tmp), (+1))); } { fixnum_t v14222_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14222_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14222_tmp), (+1))); } - { fixnum_t v14223_tmp; + { /* reverse */ + obj l, o = mknull(); int c = (v14222_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); + *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } + r[14] = (o); } } + hreserve(hbsz(4+1), 15); /* 15 live regs */ + *--hp = (r[12]); + *--hp = (r[13]); + *--hp = (r[10]); + *--hp = r[8]; + *--hp = obj_from_case(418); + r[15] = (hendblk(4+1)); + r[0] = (r[15]); + r[1] = (r[14]); + r[2] = r[6]; + /* r[3] */ + /* r[4] */ + /* r[5] */ + r[6] = (r[10]); + goto s_loop_v11365; + } + } else { + if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { + { fixnum_t v14219_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14223_tmp = (n); } + v14219_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14219_tmp), (+1))); } + { fixnum_t v14220_tmp; + { /* length */ + int n; obj l = r[7]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14220_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14223_tmp); + obj l, o = mknull(); int c = (v14220_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); @@ -19222,7 +19405,7 @@ case 400: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(414); + *--hp = obj_from_case(419); r[15] = (hendblk(9+1)); r[16+0] = (r[15]); r[16+1] = (car((r[14]))); @@ -19237,19 +19420,19 @@ case 400: /* clo ek r */ goto gs_codegen; } else { if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v14220_tmp; + { fixnum_t v14217_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14220_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14220_tmp), (+1))); } - { fixnum_t v14221_tmp; + v14217_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14217_tmp), (+1))); } + { fixnum_t v14218_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14221_tmp = (n); } + v14218_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14221_tmp); + obj l, o = mknull(); int c = (v14218_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); @@ -19260,7 +19443,7 @@ case 400: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(420); + *--hp = obj_from_case(425); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -19269,14 +19452,14 @@ case 400: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11350; + goto s_loop_v11311; } 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(421); + *--hp = obj_from_case(426); r[13] = (hendblk(3+1)); if ((isnull((r[7])))) { { /* define integrable-code */ @@ -19285,7 +19468,7 @@ case 400: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(422); + *--hp = obj_from_case(427); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -19319,7 +19502,7 @@ case 400: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(423); + *--hp = obj_from_case(428); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = obj_from_bool(isnull((r[14]))); @@ -19330,7 +19513,7 @@ case 400: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(425); + *--hp = obj_from_case(430); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -19366,7 +19549,7 @@ case 400: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(426); + *--hp = obj_from_case(431); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = (cdr((r[14]))); @@ -19378,7 +19561,7 @@ case 400: /* 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(434); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -19406,13 +19589,13 @@ case 400: /* clo ek r */ } } else { if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v14219_tmp; + { fixnum_t v14216_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14219_tmp = (n); } + v14216_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14219_tmp); + obj l, o = mknull(); int c = (v14216_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); @@ -19423,7 +19606,7 @@ case 400: /* clo ek r */ *--hp = r[8]; *--hp = (r[12]); *--hp = r[7]; - *--hp = obj_from_case(432); + *--hp = obj_from_case(437); r[14] = (hendblk(4+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -19432,12 +19615,12 @@ case 400: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11272; + goto s_loop_v11233; } else { r[13+0] = (cx_c_2Derror); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); - r[13+2] = (cx__232371); + r[13+2] = (cx__232368); r[13+3] = r[1]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -19453,7 +19636,7 @@ case 400: /* clo ek r */ } } -case 401: /* clo ek . */ +case 406: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19478,7 +19661,7 @@ case 401: /* clo ek . */ goto jump; } -case 402: /* 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]; @@ -19486,7 +19669,7 @@ case 402: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11465: /* k args l g s f port */ +s_loop_v11426: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19501,7 +19684,7 @@ s_loop_v11465: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(402); + *--hp = obj_from_case(407); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -19509,7 +19692,7 @@ s_loop_v11465: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(403); + *--hp = obj_from_case(408); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -19524,7 +19707,7 @@ s_loop_v11465: /* k args l g s f port */ goto gs_codegen; } -case 403: /* clo ek . */ +case 408: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19557,7 +19740,7 @@ case 403: /* clo ek . */ rc = 4; goto jump; -case 404: /* clo ek . */ +case 409: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19574,7 +19757,7 @@ case 404: /* clo ek . */ rc = 3; goto jump; -case 405: /* clo ek r */ +case 410: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19590,169 +19773,6 @@ case 405: /* clo ek r */ rc = 3; goto jump; -case 406: /* clo k args 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+6] = p[4]; } - r += 1; /* shift reg. wnd */ -s_loop_v11440: /* k args l g s f port */ - if ((isnull((r[1])))) { - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - hreserve(hbsz(4+1), 7); /* 7 live regs */ - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(406); - r[7] = (hendblk(4+1)); - hreserve(hbsz(5+1), 8); /* 8 live regs */ - *--hp = r[1]; - *--hp = r[6]; - *--hp = r[0]; - *--hp = r[2]; - *--hp = r[7]; - *--hp = obj_from_case(407); - r[7] = (hendblk(5+1)); - r[8+0] = r[7]; - r[8+1] = (car((r[1]))); - r[8+2] = r[2]; - r[8+3] = r[5]; - r[8+4] = r[4]; - r[8+5] = r[3]; - r[8+6] = obj_from_bool(0); - r[8+7] = r[6]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - } - -case 407: /* 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+4] = p[3]; - r[1+5] = p[4]; - r[1+6] = p[5]; } - r += 1; /* shift reg. wnd */ - /* ek . loop l k port args */ - r[7] = (cdr((r[6]))); - r[7] = obj_from_bool(isnull((r[7]))); - if (bool_from_obj(r[7])) { - (void)((0) ? obj_from_bool(0) : obj_from_void(0)); - } else { - (void)(oportputc((','), (r[5]))); - } - { /* cons */ - hreserve(hbsz(3), 7); /* 7 live regs */ - *--hp = r[3]; - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[7] = (hendblk(3)); } - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[4]; - r[2] = (cdr((r[6]))); - r[3] = r[7]; - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - -case 408: /* 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+4] = p[3]; - r[1+5] = p[4]; } - r += 1; /* shift reg. wnd */ - /* ek . r port opc k */ - r[0] = r[5]; - r[1] = obj_from_fixnum(+0); - /* r[2] */ - /* r[3] */ - /* r[4] */ - goto s_loop_v11431; - -s_loop_v11431: /* k i r port opc */ - { const fixnum_t v14218_i = fixnum_from_obj(r[1]); - if (((v14218_i) >= fixnum_from_obj(r[4]))) { - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - (void)(oportputs(stringchars((r[2])), (r[3]))); - /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14218_i), (+1))); - /* r[2] */ - /* r[3] */ - /* r[4] */ - goto s_loop_v11431; - } } - -case 409: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; - r[1+5] = p[4]; - r[1+6] = p[5]; - r[1+7] = p[6]; - r[1+8] = p[7]; } - r += 1; /* shift reg. wnd */ - /* ek r g s f l args k port */ - hreserve(hbsz(3+1), 9); /* 9 live regs */ - *--hp = r[8]; - *--hp = r[1]; - *--hp = r[7]; - *--hp = obj_from_case(410); - r[9] = (hendblk(3+1)); - r[10+0] = r[9]; - r[10+1] = (car((r[6]))); - r[10+2] = r[5]; - r[10+3] = r[4]; - r[10+4] = r[3]; - r[10+5] = r[2]; - r[10+6] = obj_from_bool(0); - r[10+7] = r[8]; - r += 10; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - -case 410: /* 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+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek . k r port */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - case 411: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); @@ -19761,7 +19781,7 @@ case 411: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11404: /* k args l g s f port */ +s_loop_v11401: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19847,11 +19867,11 @@ case 413: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11395; + goto s_loop_v11392; -s_loop_v11395: /* k i r port opc */ - { const fixnum_t v14217_i = fixnum_from_obj(r[1]); - if (((v14217_i) >= fixnum_from_obj(r[4]))) { +s_loop_v11392: /* k i r port opc */ + { const fixnum_t v14215_i = fixnum_from_obj(r[1]); + if (((v14215_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -19862,14 +19882,177 @@ s_loop_v11395: /* k i r port opc */ } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14217_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v14215_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11395; + goto s_loop_v11392; } } -case 414: /* clo ek . */ +case 414: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; + r[1+7] = p[6]; + r[1+8] = p[7]; } + r += 1; /* shift reg. wnd */ + /* ek r g s f l args k port */ + hreserve(hbsz(3+1), 9); /* 9 live regs */ + *--hp = r[8]; + *--hp = r[1]; + *--hp = r[7]; + *--hp = obj_from_case(415); + r[9] = (hendblk(3+1)); + r[10+0] = r[9]; + r[10+1] = (car((r[6]))); + r[10+2] = r[5]; + r[10+3] = r[4]; + r[10+4] = r[3]; + r[10+5] = r[2]; + r[10+6] = obj_from_bool(0); + r[10+7] = r[8]; + r += 10; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + +case 415: /* 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+4] = p[3]; } + r += 1; /* shift reg. wnd */ + /* ek . k r port */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 416: /* clo k args 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+6] = p[4]; } + r += 1; /* shift reg. wnd */ +s_loop_v11365: /* k args l g s f port */ + if ((isnull((r[1])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(416); + r[7] = (hendblk(4+1)); + hreserve(hbsz(5+1), 8); /* 8 live regs */ + *--hp = r[1]; + *--hp = r[6]; + *--hp = r[0]; + *--hp = r[2]; + *--hp = r[7]; + *--hp = obj_from_case(417); + r[7] = (hendblk(5+1)); + r[8+0] = r[7]; + r[8+1] = (car((r[1]))); + r[8+2] = r[2]; + r[8+3] = r[5]; + r[8+4] = r[4]; + r[8+5] = r[3]; + r[8+6] = obj_from_bool(0); + r[8+7] = r[6]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + } + +case 417: /* 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+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; } + r += 1; /* shift reg. wnd */ + /* ek . loop l k port args */ + r[7] = (cdr((r[6]))); + r[7] = obj_from_bool(isnull((r[7]))); + if (bool_from_obj(r[7])) { + (void)((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void)(oportputc((','), (r[5]))); + } + { /* cons */ + hreserve(hbsz(3), 7); /* 7 live regs */ + *--hp = r[3]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[7] = (hendblk(3)); } + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = (cdr((r[6]))); + r[3] = r[7]; + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + +case 418: /* 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+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek . r port opc k */ + r[0] = r[5]; + r[1] = obj_from_fixnum(+0); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_loop_v11356; + +s_loop_v11356: /* k i r port opc */ + { const fixnum_t v14214_i = fixnum_from_obj(r[1]); + if (((v14214_i) >= fixnum_from_obj(r[4]))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + (void)(oportputs(stringchars((r[2])), (r[3]))); + /* r[0] */ + r[1] = obj_from_fixnum(fxadd((v14214_i), (+1))); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_loop_v11356; + } } + +case 419: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19897,7 +20080,7 @@ case 414: /* clo ek . */ *--hp = r[8]; *--hp = (r[10]); *--hp = r[7]; - *--hp = obj_from_case(417); + *--hp = obj_from_case(422); r[13] = (hendblk(4+1)); r[14+0] = (r[13]); r[14+1] = (r[11]); @@ -19908,9 +20091,9 @@ case 414: /* clo ek . */ r[14+6] = (r[10]); r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11376; + goto s_loop_v11337; -case 415: /* clo k args l */ +case 420: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -19918,7 +20101,7 @@ case 415: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11376: /* k args l g s f port */ +s_loop_v11337: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19933,7 +20116,7 @@ s_loop_v11376: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(415); + *--hp = obj_from_case(420); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -19941,7 +20124,7 @@ s_loop_v11376: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(416); + *--hp = obj_from_case(421); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -19956,7 +20139,7 @@ s_loop_v11376: /* k args l g s f port */ goto gs_codegen; } -case 416: /* clo ek . */ +case 421: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19996,7 +20179,7 @@ case 416: /* clo ek . */ rc = 4; goto jump; -case 417: /* clo ek . */ +case 422: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20011,11 +20194,11 @@ case 417: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11367; + goto s_loop_v11328; -s_loop_v11367: /* k i r port opc */ - { const fixnum_t v14216_i = fixnum_from_obj(r[1]); - if (((v14216_i) >= fixnum_from_obj(r[4]))) { +s_loop_v11328: /* k i r port opc */ + { const fixnum_t v14213_i = fixnum_from_obj(r[1]); + if (((v14213_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -20024,17 +20207,17 @@ s_loop_v11367: /* k i r port opc */ rc = 3; goto jump; } else { - (void)(((v14216_i) == 0) ? ((0) ? obj_from_bool(0) : obj_from_void(0)) : obj_from_void(oportputc((';'), (r[3])))); + (void)(((v14213_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((v14216_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v14213_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11367; + goto s_loop_v11328; } } -case 418: /* clo k args l */ +case 423: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20042,7 +20225,7 @@ case 418: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11350: /* k args l g s f port */ +s_loop_v11311: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20057,7 +20240,7 @@ s_loop_v11350: /* 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(423); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -20065,7 +20248,7 @@ s_loop_v11350: /* 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(424); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -20080,7 +20263,7 @@ s_loop_v11350: /* k args l g s f port */ goto gs_codegen; } -case 419: /* clo ek . */ +case 424: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20113,7 +20296,7 @@ case 419: /* clo ek . */ rc = 4; goto jump; -case 420: /* clo ek . */ +case 425: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20128,11 +20311,11 @@ case 420: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11341; + goto s_loop_v11302; -s_loop_v11341: /* k i r port opc */ - { const fixnum_t v14215_i = fixnum_from_obj(r[1]); - if (((v14215_i) >= fixnum_from_obj(r[4]))) { +s_loop_v11302: /* k i r port opc */ + { const fixnum_t v14212_i = fixnum_from_obj(r[1]); + if (((v14212_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -20143,14 +20326,14 @@ s_loop_v11341: /* k i r port opc */ } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14215_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v14212_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11341; + goto s_loop_v11302; } } -case 421: /* clo ek . */ +case 426: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20167,7 +20350,7 @@ case 421: /* clo ek . */ rc = 3; goto jump; -case 422: /* clo ek r */ +case 427: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20183,7 +20366,7 @@ case 422: /* clo ek r */ rc = 3; goto jump; -case 423: /* clo ek . */ +case 428: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20202,7 +20385,7 @@ case 423: /* clo ek . */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(424); + *--hp = obj_from_case(429); r[10] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ @@ -20222,7 +20405,7 @@ case 423: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 424: /* clo ek . */ +case 429: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20239,7 +20422,7 @@ case 424: /* clo ek . */ rc = 3; goto jump; -case 425: /* clo ek r */ +case 430: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20255,7 +20438,7 @@ case 425: /* clo ek r */ rc = 3; goto jump; -case 426: /* clo ek . */ +case 431: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20279,7 +20462,7 @@ case 426: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(427); + *--hp = obj_from_case(432); r[10] = (hendblk(8+1)); r[11] = (cdr((r[6]))); r[11] = (car((r[11]))); @@ -20301,7 +20484,7 @@ case 426: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 427: /* clo ek . */ +case 432: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20320,7 +20503,7 @@ case 427: /* clo ek . */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(428); + *--hp = obj_from_case(433); r[10] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ @@ -20346,7 +20529,7 @@ case 427: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 428: /* clo ek . */ +case 433: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20363,7 +20546,7 @@ case 428: /* clo ek . */ rc = 3; goto jump; -case 429: /* clo ek r */ +case 434: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20379,7 +20562,7 @@ case 429: /* clo ek r */ rc = 3; goto jump; -case 430: /* clo k args l */ +case 435: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20387,7 +20570,7 @@ case 430: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11272: /* k args l g s f port */ +s_loop_v11233: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20402,7 +20585,7 @@ s_loop_v11272: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(430); + *--hp = obj_from_case(435); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -20410,7 +20593,7 @@ s_loop_v11272: /* k args l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(431); + *--hp = obj_from_case(436); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -20425,7 +20608,7 @@ s_loop_v11272: /* k args l g s f port */ goto gs_codegen; } -case 431: /* clo ek . */ +case 436: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20452,7 +20635,7 @@ case 431: /* clo ek . */ rc = 4; goto jump; -case 432: /* clo ek . */ +case 437: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20472,7 +20655,7 @@ case 432: /* clo ek . */ r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 433: /* clo k exp args */ +case 438: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20490,19 +20673,19 @@ case 433: /* 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 v14214_tmp; - { fixnum_t v14213_tmp; + { fixnum_t v14211_tmp; + { fixnum_t v14210_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14214_tmp = (n); } + v14211_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)) ; - v14213_tmp = (n); } - r[9] = obj_from_bool((v14214_tmp) == (v14213_tmp)); } } + v14210_tmp = (n); } + r[9] = obj_from_bool((v14211_tmp) == (v14210_tmp)); } } } else { r[9] = obj_from_bool(0); } @@ -20510,13 +20693,13 @@ case 433: /* clo k exp args */ r[9] = obj_from_bool(0); } if (bool_from_obj(r[9])) { - { fixnum_t v14212_tmp; + { fixnum_t v14209_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14212_tmp = (n); } + v14209_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14212_tmp); + obj l, o = mknull(); int c = (v14209_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); @@ -20532,7 +20715,7 @@ case 433: /* clo k exp args */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(436); + *--hp = obj_from_case(441); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[9]; @@ -20543,16 +20726,16 @@ case 433: /* clo k exp args */ r[11+6] = r[5]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11241; + goto s_loop_v11202; } else { if (bool_from_obj(r[8])) { - { fixnum_t v14211_tmp; + { fixnum_t v14208_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14211_tmp = (n); } + v14208_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14211_tmp); + obj l, o = mknull(); int c = (v14208_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); @@ -20563,7 +20746,7 @@ case 433: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[8]; - *--hp = obj_from_case(447); + *--hp = obj_from_case(452); r[10] = (hendblk(4+1)); r[11+0] = (r[10]); r[11+1] = r[9]; @@ -20575,17 +20758,17 @@ case 433: /* clo k exp args */ r[11+7] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11173; + goto s_loop_v11134; } else { (void)(oportputc((36), (r[5]))); (void)(oportputc(('{'), (r[5]))); - { fixnum_t v14210_tmp; + { fixnum_t v14207_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14210_tmp = (n); } + v14207_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14210_tmp); + obj l, o = mknull(); int c = (v14207_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); @@ -20607,7 +20790,7 @@ case 433: /* clo k exp args */ *--hp = r[5]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(451); + *--hp = obj_from_case(456); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[9]; @@ -20619,11 +20802,11 @@ case 433: /* clo k exp args */ r[12+7] = r[1]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11148; + goto s_loop_v11109; } } -case 434: /* clo k args l */ +case 439: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20631,7 +20814,7 @@ case 434: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11241: /* k args l g s f port */ +s_loop_v11202: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20646,7 +20829,7 @@ s_loop_v11241: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(434); + *--hp = obj_from_case(439); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -20654,7 +20837,7 @@ s_loop_v11241: /* k args l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(435); + *--hp = obj_from_case(440); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -20669,7 +20852,7 @@ s_loop_v11241: /* k args l g s f port */ goto gs_codegen; } -case 435: /* clo ek . */ +case 440: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20696,7 +20879,7 @@ case 435: /* clo ek . */ rc = 4; goto jump; -case 436: /* clo ek . */ +case 441: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20727,14 +20910,14 @@ case 436: /* clo ek . */ *--hp = (r[11]); *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(437); + *--hp = obj_from_case(442); r[13] = (hendblk(10+1)); r[0] = (r[13]); r[1] = (r[12]); r[2] = (r[11]); goto gs_find_2Dsets; -case 437: /* clo ek r */ +case 442: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20760,14 +20943,14 @@ case 437: /* clo ek r */ *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(438); + *--hp = obj_from_case(443); r[12] = (hendblk(10+1)); r[0] = (r[12]); r[1] = r[2]; r[2] = r[4]; goto gs_set_2Dminus; -case 438: /* clo ek r */ +case 443: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20793,14 +20976,14 @@ case 438: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(439); + *--hp = obj_from_case(444); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ r[2] = r[3]; goto gs_set_2Dunion; -case 439: /* clo ek r */ +case 444: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20826,7 +21009,7 @@ case 439: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(440); + *--hp = obj_from_case(445); r[12] = (hendblk(10+1)); r[13+0] = (cx__25append); pc = objptr_from_obj(r[13+0])[0]; @@ -20838,7 +21021,7 @@ case 439: /* clo ek r */ rc = 4; goto jump; -case 440: /* clo ek r */ +case 445: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20863,7 +21046,7 @@ case 440: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(443); + *--hp = obj_from_case(448); r[12] = (hendblk(9+1)); r[13+0] = (r[12]); r[13+1] = r[3]; @@ -20872,15 +21055,15 @@ case 440: /* clo ek r */ r[13+4] = r[2]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11208; + goto s_loop_v11169; -case 441: /* clo k ids n */ +case 446: /* 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_v11208: /* k ids n port r */ +s_loop_v11169: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20893,14 +21076,14 @@ s_loop_v11208: /* k ids n port r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(441); + *--hp = obj_from_case(446); 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(442); + *--hp = obj_from_case(447); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); @@ -20914,7 +21097,7 @@ s_loop_v11208: /* k ids n port r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(441); + *--hp = obj_from_case(446); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); @@ -20924,11 +21107,11 @@ s_loop_v11208: /* k ids n port r */ r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11210; + goto s_l_v11171; } } -case 442: /* clo ek . */ +case 447: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20937,7 +21120,7 @@ case 442: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v11210: /* ek . loop n ids k */ +s_l_v11171: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; @@ -20947,7 +21130,7 @@ s_l_v11210: /* ek . loop n ids k */ rc = 4; goto jump; -case 443: /* clo ek . */ +case 448: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20963,12 +21146,12 @@ case 443: /* clo ek . */ r += 1; /* shift reg. wnd */ /* ek . port args g r f r exp k k */ if (bool_from_obj(r[10])) { - { fixnum_t v14209_tmp; + { fixnum_t v14206_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14209_tmp = (n); } - r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14209_tmp))); } + v14206_tmp = (n); } + r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14206_tmp))); } r[12+0] = r[9]; r[12+1] = r[8]; r[12+2] = r[7]; @@ -20985,7 +21168,7 @@ case 443: /* clo ek . */ *--hp = r[2]; *--hp = r[9]; *--hp = r[3]; - *--hp = obj_from_case(444); + *--hp = obj_from_case(449); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[8]; @@ -21000,7 +21183,7 @@ case 443: /* clo ek . */ goto gs_codegen; } -case 444: /* clo ek . */ +case 449: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21019,7 +21202,7 @@ case 444: /* clo ek . */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 445: /* clo k args l */ +case 450: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21028,7 +21211,7 @@ case 445: /* clo k args l */ r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ -s_loop_v11173: /* k args l port g s f exp */ +s_loop_v11134: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; @@ -21048,7 +21231,7 @@ s_loop_v11173: /* k args l port g s f exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(445); + *--hp = obj_from_case(450); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; @@ -21056,7 +21239,7 @@ s_loop_v11173: /* k args l port g s f exp */ *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; - *--hp = obj_from_case(446); + *--hp = obj_from_case(451); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); @@ -21071,7 +21254,7 @@ s_loop_v11173: /* k args l port g s f exp */ goto gs_codegen; } -case 446: /* clo ek . */ +case 451: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21098,7 +21281,7 @@ case 446: /* clo ek . */ rc = 4; goto jump; -case 447: /* clo ek . */ +case 452: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21113,14 +21296,14 @@ case 447: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[5]; - *--hp = obj_from_case(448); + *--hp = obj_from_case(453); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 448: /* clo ek . */ +case 453: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21138,7 +21321,7 @@ case 448: /* clo ek . */ /* r[2] */ goto gs_write_2Dserialized_2Darg; -case 449: /* clo k args l */ +case 454: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -21147,7 +21330,7 @@ case 449: /* clo k args l */ r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ -s_loop_v11148: /* k args l port g s f exp */ +s_loop_v11109: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; @@ -21167,7 +21350,7 @@ s_loop_v11148: /* k args l port g s f exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(449); + *--hp = obj_from_case(454); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; @@ -21175,7 +21358,7 @@ s_loop_v11148: /* k args l port g s f exp */ *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; - *--hp = obj_from_case(450); + *--hp = obj_from_case(455); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); @@ -21190,7 +21373,7 @@ s_loop_v11148: /* k args l port g s f exp */ goto gs_codegen; } -case 450: /* clo ek . */ +case 455: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21217,7 +21400,7 @@ case 450: /* clo ek . */ rc = 4; goto jump; -case 451: /* clo ek . */ +case 456: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21231,14 +21414,14 @@ case 451: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(452); + *--hp = obj_from_case(457); 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 452: /* clo ek . */ +case 457: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21250,7 +21433,7 @@ case 452: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(453); + *--hp = obj_from_case(458); r[5] = (hendblk(2+1)); { /* length */ int n; obj l = r[2]; @@ -21261,7 +21444,7 @@ case 452: /* clo ek . */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 453: /* clo ek . */ +case 458: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21277,7 +21460,7 @@ case 453: /* clo ek . */ rc = 3; goto jump; -case 454: /* clo k tail */ +case 459: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21286,14 +21469,14 @@ case 454: /* clo k tail */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__232027); + r[3+2] = (cx__232024); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 455: /* compile-to-string k x */ +case 460: /* compile-to-string k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -21303,14 +21486,14 @@ case 455: /* compile-to-string k x */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(456); + *--hp = obj_from_case(461); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 456: /* clo ek r */ +case 461: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21321,7 +21504,7 @@ case 456: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(457); + *--hp = obj_from_case(462); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -21335,7 +21518,7 @@ case 456: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 457: /* clo ek . */ +case 462: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21357,7 +21540,7 @@ case 457: /* clo ek . */ rc = 3; goto jump; -case 458: /* execute k code */ +case 463: /* execute k code */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_execute: /* k code */ @@ -21366,7 +21549,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(459); + *--hp = obj_from_case(464); r[3] = (hendblk(1+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -21377,7 +21560,7 @@ gs_execute: /* k code */ rc = 3; goto jump; -case 459: /* clo ek r */ +case 464: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21395,13 +21578,13 @@ case 459: /* clo ek r */ rc = 3; goto jump; -case 460: /* evaluate k x */ +case 465: /* 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(461); + *--hp = obj_from_case(466); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -21413,7 +21596,7 @@ gs_evaluate: /* k x */ rc = 4; goto jump; -case 461: /* clo ek r */ +case 466: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21425,14 +21608,14 @@ case 461: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(462); + *--hp = obj_from_case(467); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 462: /* clo ek r */ +case 467: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21443,7 +21626,7 @@ case 462: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(463); + *--hp = obj_from_case(468); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -21457,7 +21640,7 @@ case 462: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 463: /* clo ek . */ +case 468: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21476,7 +21659,7 @@ case 463: /* clo ek . */ r[5] = obj_from_objptr(c); } hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; - *--hp = obj_from_case(464); + *--hp = obj_from_case(469); r[6] = (hendblk(1+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -21486,7 +21669,7 @@ case 463: /* clo ek . */ rc = 3; goto jump; -case 464: /* clo ek r */ +case 469: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21496,7 +21679,7 @@ case 464: /* clo ek r */ /* r[1] */ goto gs_execute; -case 465: /* display-code k cstr oport */ +case 470: /* display-code k cstr oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_display_2Dcode: /* k cstr oport */ @@ -21507,17 +21690,17 @@ gs_display_2Dcode: /* k cstr oport */ r[3+4] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11047; + goto s_loop_v11008; -s_loop_v11047: /* k i l cstr oport */ - { const fixnum_t v14208_i = fixnum_from_obj(r[1]); - if (((fxsub(fixnum_from_obj(r[2]), (v14208_i))) <= (+70))) { - (void)(oportputcircular((cx__232986), (r[4]), 1)); +s_loop_v11008: /* k i l cstr oport */ + { const fixnum_t v14205_i = fixnum_from_obj(r[1]); + if (((fxsub(fixnum_from_obj(r[2]), (v14205_i))) <= (+70))) { + (void)(oportputcircular((cx__232983), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v14208_i), fixnum_from_obj(r[2])); + int *d = substring(stringdata((r[3])), (v14205_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__232990), (r[4]), 1)); + r[5] = obj_from_void(oportputcircular((cx__232987), (r[4]), 1)); /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -21526,42 +21709,42 @@ s_loop_v11047: /* k i l cstr oport */ rc = 3; goto jump; } else { - (void)(oportputcircular((cx__232986), (r[4]), 1)); + (void)(oportputcircular((cx__232983), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v14208_i), (fxadd((v14208_i), (+70)))); + int *d = substring(stringdata((r[3])), (v14205_i), (fxadd((v14205_i), (+70)))); r[5] = (hpushstr(5, d)); } (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - (void)(oportputcircular((cx__232981), (r[4]), 1)); + (void)(oportputcircular((cx__232978), (r[4]), 1)); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14208_i), (+70))); + r[1] = obj_from_fixnum(fxadd((v14205_i), (+70))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11047; + goto s_loop_v11008; } } -case 466: /* process-syntax k id xval oport */ +case 471: /* process-syntax k id xval oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k id xval oport */ (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233015), (r[3]), 1)); + (void)(oportputcircular((cx__233012), (r[3]), 1)); (void)(oportputcircular((r[1]), (r[3]), 1)); - (void)(oportputcircular((cx__233014), (r[3]), 1)); + (void)(oportputcircular((cx__233011), (r[3]), 1)); { /* open-output-string */ r[4] = (mkoport_string(4, newcb())); } hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; - *--hp = obj_from_case(467); + *--hp = obj_from_case(472); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; r[2] = r[4]; goto gs_write_2Dserialized_2Dsexp; -case 467: /* clo ek . */ +case 472: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21573,7 +21756,7 @@ case 467: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(468); + *--hp = obj_from_case(473); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); @@ -21586,122 +21769,6 @@ case 467: /* clo ek . */ r[2] = r[4]; goto gs_display_2Dcode; -case 468: /* 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 */ - /* ek . k oport */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(oportputc('\n', (r[3]))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 469: /* process-alias k id oldid oport */ - assert(rc == 5); - r += 1; /* shift reg. wnd */ - /* k id oldid oport */ - (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233025), (r[3]), 1)); - (void)(oportputcircular((r[1]), (r[3]), 1)); - (void)(oportputcircular((cx__232990), (r[3]), 1)); - (void)(oportputcircular((cx__233024), (r[3]), 1)); - (void)(oportputcircular((r[2]), (r[3]), 1)); - r[4] = obj_from_void(oportputcircular((cx__233014), (r[3]), 1)); - r[5+0] = r[0]; - pc = objptr_from_obj(r[5+0])[0]; - r[5+1] = obj_from_ktrap(); - r[5+2] = r[4]; - r += 5; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 470: /* process-command k xval oport */ - assert(rc == 4); - r += 1; /* shift reg. wnd */ - /* k xval oport */ - hreserve(hbsz(1), 3); /* 3 live regs */ - *--hp = obj_from_void(0); - r[3] = (hendblk(1)); - { /* open-output-string */ - r[4] = (mkoport_string(4, newcb())); } - hreserve(hbsz(5+1), 5); /* 5 live regs */ - *--hp = r[4]; - *--hp = r[3]; - *--hp = r[2]; - *--hp = r[0]; - *--hp = r[1]; - *--hp = obj_from_case(471); - r[5] = (hendblk(5+1)); - r[0] = r[5]; - /* r[1] */ - r[2] = (mknull()); - goto gs_find_2Dfree; - -case 471: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; - r[1+5] = p[4]; - r[1+6] = p[5]; } - r += 1; /* shift reg. wnd */ - /* ek r xval k oport cstr p */ - hreserve(hbsz(4+1), 7); /* 7 live regs */ - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(472); - r[7] = (hendblk(4+1)); - r[8+0] = r[7]; - r[8+1] = r[2]; - r[8+2] = (mknull()); - r[8+3] = (mknull()); - r[8+4] = (mknull()); - r[8+5] = r[1]; - r[8+6] = obj_from_bool(0); - r[8+7] = r[6]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - -case 472: /* 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+4] = p[3]; - r[1+5] = p[4]; } - r += 1; /* shift reg. wnd */ - /* ek . k oport cstr p */ - { /* get-output-string */ - obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); - if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && - vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); - r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } - (void)(objptr_from_obj(r[4])[0] = (r[6])); - (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233036), (r[3]), 1)); - hreserve(hbsz(2+1), 7); /* 7 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(473); - r[7] = (hendblk(2+1)); - r[0] = r[7]; - r[1] = (objptr_from_obj(r[4])[0]); - r[2] = r[3]; - goto gs_display_2Dcode; - case 473: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ @@ -21718,7 +21785,123 @@ case 473: /* clo ek . */ rc = 3; goto jump; -case 474: /* process-define k id xlam oport */ +case 474: /* process-alias k id oldid oport */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k id oldid oport */ + (void)(oportputc('\n', (r[3]))); + (void)(oportputcircular((cx__233022), (r[3]), 1)); + (void)(oportputcircular((r[1]), (r[3]), 1)); + (void)(oportputcircular((cx__232987), (r[3]), 1)); + (void)(oportputcircular((cx__233021), (r[3]), 1)); + (void)(oportputcircular((r[2]), (r[3]), 1)); + r[4] = obj_from_void(oportputcircular((cx__233011), (r[3]), 1)); + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 475: /* process-command k xval oport */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k xval oport */ + hreserve(hbsz(1), 3); /* 3 live regs */ + *--hp = obj_from_void(0); + r[3] = (hendblk(1)); + { /* open-output-string */ + r[4] = (mkoport_string(4, newcb())); } + hreserve(hbsz(5+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = r[2]; + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(476); + r[5] = (hendblk(5+1)); + r[0] = r[5]; + /* r[1] */ + r[2] = (mknull()); + goto gs_find_2Dfree; + +case 476: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; } + r += 1; /* shift reg. wnd */ + /* ek r xval k oport cstr p */ + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(477); + r[7] = (hendblk(4+1)); + r[8+0] = r[7]; + r[8+1] = r[2]; + r[8+2] = (mknull()); + r[8+3] = (mknull()); + r[8+4] = (mknull()); + r[8+5] = r[1]; + r[8+6] = obj_from_bool(0); + r[8+7] = r[6]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + +case 477: /* 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+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek . k oport cstr p */ + { /* get-output-string */ + obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); + if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && + vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); + else { cbuf_t *pcb = oportdata(o); + r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } + (void)(objptr_from_obj(r[4])[0] = (r[6])); + (void)(oportputc('\n', (r[3]))); + (void)(oportputcircular((cx__233033), (r[3]), 1)); + hreserve(hbsz(2+1), 7); /* 7 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(478); + 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 478: /* 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 */ + /* ek . k oport */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(oportputc('\n', (r[3]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 479: /* process-define k id xlam oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_process_2Ddefine: /* k id xlam oport */ @@ -21734,14 +21917,14 @@ gs_process_2Ddefine: /* k id xlam oport */ *--hp = r[3]; *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(475); + *--hp = obj_from_case(480); r[6] = (hendblk(6+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (mknull()); goto gs_find_2Dfree; -case 475: /* clo ek r */ +case 480: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21759,7 +21942,7 @@ case 475: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(476); + *--hp = obj_from_case(481); r[8] = (hendblk(6+1)); r[9+0] = r[8]; r[9+1] = r[5]; @@ -21773,7 +21956,7 @@ case 475: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 476: /* clo ek . */ +case 481: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21792,32 +21975,32 @@ case 476: /* clo ek . */ else { cbuf_t *pcb = oportdata(o); r[8] = (hpushstr(8, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[6])[0] = (r[8])); - { fixnum_t v14203_len; + { fixnum_t v14200_len; r[9] = (objptr_from_obj(r[6])[0]); - v14203_len = (stringlen((r[9]))); + v14200_len = (stringlen((r[9]))); r[9] = (car((r[5]))); r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda")))); if (bool_from_obj(r[9])) { - if (((v14203_len) > (+4))) { - { char_t v14207_tmp; - r[9] = (objptr_from_obj(r[6])[0]); - v14207_tmp = (*(unsigned char*)stringref((r[9]), (+0))); - r[9] = obj_from_bool((v14207_tmp) == ('&')); } - if (bool_from_obj(r[9])) { - { char_t v14206_tmp; - r[9] = (objptr_from_obj(r[6])[0]); - v14206_tmp = (*(unsigned char*)stringref((r[9]), (+1))); - r[9] = obj_from_bool((v14206_tmp) == ('0')); } - if (bool_from_obj(r[9])) { - { char_t v14205_tmp; - r[9] = (objptr_from_obj(r[6])[0]); - v14205_tmp = (*(unsigned char*)stringref((r[9]), (+2))); - r[9] = obj_from_bool((v14205_tmp) == ('{')); } - if (bool_from_obj(r[9])) { + if (((v14200_len) > (+4))) { { char_t v14204_tmp; r[9] = (objptr_from_obj(r[6])[0]); - v14204_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14203_len), (+1))))); - r[9] = obj_from_bool((v14204_tmp) == ('}')); } + v14204_tmp = (*(unsigned char*)stringref((r[9]), (+0))); + r[9] = obj_from_bool((v14204_tmp) == ('&')); } + if (bool_from_obj(r[9])) { + { char_t v14203_tmp; + r[9] = (objptr_from_obj(r[6])[0]); + v14203_tmp = (*(unsigned char*)stringref((r[9]), (+1))); + r[9] = obj_from_bool((v14203_tmp) == ('0')); } + if (bool_from_obj(r[9])) { + { char_t v14202_tmp; + r[9] = (objptr_from_obj(r[6])[0]); + v14202_tmp = (*(unsigned char*)stringref((r[9]), (+2))); + r[9] = obj_from_bool((v14202_tmp) == ('{')); } + if (bool_from_obj(r[9])) { + { char_t v14201_tmp; + r[9] = (objptr_from_obj(r[6])[0]); + v14201_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14200_len), (+1))))); + r[9] = obj_from_bool((v14201_tmp) == ('}')); } } else { r[9] = obj_from_bool(0); } @@ -21835,17 +22018,17 @@ case 476: /* clo ek . */ } if (bool_from_obj(r[9])) { (void)(oportputc('\n', (r[4]))); - (void)(oportputcircular((cx__233059), (r[4]), 1)); + (void)(oportputcircular((cx__233056), (r[4]), 1)); (void)(oportputcircular((r[3]), (r[4]), 1)); - (void)(oportputcircular((cx__233014), (r[4]), 1)); + (void)(oportputcircular((cx__233011), (r[4]), 1)); hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(477); + *--hp = obj_from_case(482); r[9] = (hendblk(2+1)); r[10] = (objptr_from_obj(r[6])[0]); { /* substring */ - int *d = substring(stringdata((r[10])), (+3), (fxsub((v14203_len), (+1)))); + int *d = substring(stringdata((r[10])), (+3), (fxsub((v14200_len), (+1)))); r[10] = (hpushstr(11, d)); } r[0] = r[9]; r[1] = (r[10]); @@ -21881,7 +22064,7 @@ case 476: /* clo ek . */ *--hp = r[4]; *--hp = r[2]; *--hp = r[9]; - *--hp = obj_from_case(478); + *--hp = obj_from_case(483); r[12] = (hendblk(5+1)); r[0] = (r[12]); r[1] = r[9]; @@ -21889,7 +22072,7 @@ case 476: /* clo ek . */ goto gs_find_2Dfree; } } -case 477: /* clo ek . */ +case 482: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21905,7 +22088,7 @@ case 477: /* clo ek . */ rc = 3; goto jump; -case 478: /* clo ek r */ +case 483: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21920,7 +22103,7 @@ case 478: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(479); + *--hp = obj_from_case(484); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -21934,7 +22117,7 @@ case 478: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 479: /* clo ek . */ +case 484: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21952,18 +22135,18 @@ case 479: /* 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__233036), (r[3]), 1)); + (void)(oportputcircular((cx__233033), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(480); + *--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 480: /* clo ek . */ +case 485: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21979,7 +22162,7 @@ case 480: /* clo ek . */ rc = 3; goto jump; -case 481: /* scan-top-form k x */ +case 486: /* scan-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_scan_2Dtop_2Dform: /* k x */ @@ -21999,10 +22182,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__233120)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233117)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(482); + *--hp = obj_from_case(487); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -22011,12 +22194,12 @@ gs_scan_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10903; + goto s_l_v10864; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233124); + r[5+2] = (cx__233121); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -22028,7 +22211,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(488); + *--hp = obj_from_case(493); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -22051,16 +22234,16 @@ gs_scan_2Dtop_2Dform: /* k x */ } } -case 482: /* clo ek r */ +case 487: /* 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_v10903: /* ek r k */ +s_l_v10864: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(483); + *--hp = obj_from_case(488); r[3] = (hendblk(2+1)); r[4+0] = (cx__25read); pc = objptr_from_obj(r[4+0])[0]; @@ -22072,7 +22255,7 @@ s_l_v10903: /* ek r k */ rc = 4; goto jump; -case 483: /* clo ek r */ +case 488: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22082,19 +22265,19 @@ case 483: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(487); + *--hp = obj_from_case(492); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v10912; + goto s_loop_v10873; -case 484: /* clo k x */ +case 489: /* 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_v10912: /* k x r */ +s_loop_v10873: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22106,20 +22289,20 @@ s_loop_v10912: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(484); + *--hp = obj_from_case(489); 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(485); + *--hp = obj_from_case(490); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 485: /* clo ek . */ +case 490: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22131,7 +22314,7 @@ case 485: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(486); + *--hp = obj_from_case(491); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -22142,7 +22325,7 @@ case 485: /* clo ek . */ rc = 4; goto jump; -case 486: /* clo ek r */ +case 491: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22158,7 +22341,7 @@ case 486: /* clo ek r */ rc = 3; goto jump; -case 487: /* clo ek . */ +case 492: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22174,7 +22357,7 @@ case 487: /* clo ek . */ rc = 3; goto jump; -case 488: /* clo ek r */ +case 493: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22185,13 +22368,13 @@ case 488: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v10887; + goto s_loop_v10848; } 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(491); + *--hp = obj_from_case(496); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -22209,7 +22392,7 @@ case 488: /* clo ek r */ if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(493); + *--hp = obj_from_case(498); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -22231,19 +22414,19 @@ case 488: /* clo ek r */ } } -case 489: /* clo k l */ +case 494: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v10887: /* k l */ +s_loop_v10848: /* k l */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(489); + *--hp = obj_from_case(494); 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(490); + *--hp = obj_from_case(495); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -22259,7 +22442,7 @@ s_loop_v10887: /* k l */ goto jump; } -case 490: /* clo ek . */ +case 495: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22276,7 +22459,7 @@ case 490: /* clo ek . */ rc = 3; goto jump; -case 491: /* clo ek r */ +case 496: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22288,13 +22471,13 @@ case 491: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(492); + *--hp = obj_from_case(497); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 492: /* clo ek r */ +case 497: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22310,7 +22493,7 @@ case 492: /* clo ek r */ rc = 3; goto jump; -case 493: /* clo ek r */ +case 498: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -22320,7 +22503,7 @@ case 493: /* clo ek r */ /* r[1] */ goto gs_scan_2Dtop_2Dform; -case 494: /* process-top-form k x oport */ +case 499: /* process-top-form k x oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_process_2Dtop_2Dform: /* k x oport */ @@ -22340,10 +22523,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__233120)))); + r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233117)))); hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; - *--hp = obj_from_case(495); + *--hp = obj_from_case(500); r[5] = (hendblk(1+1)); if (bool_from_obj(r[4])) { r[6] = (mkiport_file(6, (void*)((r[4])))); @@ -22352,12 +22535,12 @@ gs_process_2Dtop_2Dform: /* k x oport */ r[7+2] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10825; + goto s_l_v10786; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; - r[2] = (cx__233124); + r[2] = (cx__233121); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -22369,7 +22552,7 @@ gs_process_2Dtop_2Dform: /* k x oport */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(501); + *--hp = obj_from_case(506); r[3] = (hendblk(3+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -22384,7 +22567,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(514); + *--hp = obj_from_case(519); r[3] = (hendblk(2+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -22398,16 +22581,16 @@ gs_process_2Dtop_2Dform: /* k x oport */ } } -case 495: /* clo ek r */ +case 500: /* 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_v10825: /* ek r k */ +s_l_v10786: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(496); + *--hp = obj_from_case(501); r[3] = (hendblk(2+1)); r[4+0] = (cx__25read); pc = objptr_from_obj(r[4+0])[0]; @@ -22419,7 +22602,7 @@ s_l_v10825: /* ek r k */ rc = 4; goto jump; -case 496: /* clo ek r */ +case 501: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22429,19 +22612,19 @@ case 496: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(500); + *--hp = obj_from_case(505); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v10834; + goto s_loop_v10795; -case 497: /* clo k x */ +case 502: /* 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_v10834: /* k x r */ +s_loop_v10795: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22453,20 +22636,20 @@ s_loop_v10834: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(497); + *--hp = obj_from_case(502); 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(498); + *--hp = obj_from_case(503); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 498: /* clo ek . */ +case 503: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22478,7 +22661,7 @@ case 498: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(499); + *--hp = obj_from_case(504); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -22489,7 +22672,7 @@ case 498: /* clo ek . */ rc = 4; goto jump; -case 499: /* clo ek r */ +case 504: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22505,7 +22688,7 @@ case 499: /* clo ek r */ rc = 3; goto jump; -case 500: /* clo ek . */ +case 505: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22521,7 +22704,7 @@ case 500: /* clo ek . */ rc = 3; goto jump; -case 501: /* clo ek r */ +case 506: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22534,14 +22717,14 @@ case 501: /* clo ek r */ r[0] = r[4]; r[1] = r[5]; /* r[2] */ - goto s_loop_v10809; + goto s_loop_v10770; } 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(504); + *--hp = obj_from_case(509); r[5] = (hendblk(3+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -22556,20 +22739,16 @@ case 501: /* clo ek r */ goto jump; } else { if (((r[1]) == (mksymbol(internsym("define"))))) { - hreserve(hbsz(3+1), 5); /* 5 live regs */ + hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; - *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(508); - r[5] = (hendblk(3+1)); - r[6] = (cdr((r[3]))); - r[6] = (cdr((r[6]))); - r[6] = (car((r[6]))); + *--hp = obj_from_case(513); + r[5] = (hendblk(2+1)); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = obj_from_bool(0); - r[3] = r[6]; + /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; @@ -22578,7 +22757,7 @@ case 501: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(509); + *--hp = obj_from_case(514); r[5] = (hendblk(2+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -22592,7 +22771,7 @@ case 501: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(510); + *--hp = obj_from_case(515); r[5] = (hendblk(2+1)); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; @@ -22607,22 +22786,22 @@ case 501: /* clo ek r */ } } -case 502: /* clo k x* */ +case 507: /* 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_v10809: /* k x* oport */ +s_loop_v10770: /* k x* oport */ if ((ispair((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(502); + *--hp = obj_from_case(507); 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(503); + *--hp = obj_from_case(508); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -22638,7 +22817,7 @@ s_loop_v10809: /* k x* oport */ goto jump; } -case 503: /* clo ek . */ +case 508: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22655,7 +22834,7 @@ case 503: /* clo ek . */ rc = 3; goto jump; -case 504: /* clo ek r */ +case 509: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22670,13 +22849,13 @@ case 504: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(505); + *--hp = obj_from_case(510); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[5]; goto gs_top_2Dtransformer_2Denv; -case 505: /* clo ek r */ +case 510: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22712,12 +22891,12 @@ case 505: /* clo ek r */ r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); (void)(oportputc('\n', (r[2]))); - (void)(oportputcircular((cx__233025), (r[2]), 1)); + (void)(oportputcircular((cx__233022), (r[2]), 1)); (void)(oportputcircular((r[6]), (r[2]), 1)); - (void)(oportputcircular((cx__232990), (r[2]), 1)); - (void)(oportputcircular((cx__233024), (r[2]), 1)); + (void)(oportputcircular((cx__232987), (r[2]), 1)); + (void)(oportputcircular((cx__233021), (r[2]), 1)); (void)(oportputcircular((r[7]), (r[2]), 1)); - r[6] = obj_from_void(oportputcircular((cx__233014), (r[2]), 1)); + r[6] = obj_from_void(oportputcircular((cx__233011), (r[2]), 1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -22732,16 +22911,16 @@ case 505: /* clo ek r */ r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); (void)(oportputc('\n', (r[2]))); - (void)(oportputcircular((cx__233015), (r[2]), 1)); + (void)(oportputcircular((cx__233012), (r[2]), 1)); (void)(oportputcircular((r[6]), (r[2]), 1)); - (void)(oportputcircular((cx__233014), (r[2]), 1)); + (void)(oportputcircular((cx__233011), (r[2]), 1)); { /* open-output-string */ r[8] = (mkoport_string(8, newcb())); } hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[8]; - *--hp = obj_from_case(506); + *--hp = obj_from_case(511); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[7]; @@ -22750,7 +22929,7 @@ case 505: /* clo ek r */ } } -case 506: /* clo ek . */ +case 511: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22762,7 +22941,7 @@ case 506: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(507); + *--hp = obj_from_case(512); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); @@ -22775,7 +22954,7 @@ case 506: /* clo ek . */ r[2] = r[4]; goto gs_display_2Dcode; -case 507: /* clo ek . */ +case 512: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22791,25 +22970,27 @@ case 507: /* clo ek . */ rc = 3; goto jump; -case 508: /* clo ek r */ +case 513: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } + r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ - /* ek r oport x k */ - r[5] = (cdr((r[3]))); + /* ek r oport k */ + r[4] = (cdr((r[1]))); + r[4] = (cdr((r[4]))); + r[4] = (car((r[4]))); + r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); - r[6+0] = r[4]; + r[6+0] = r[3]; r[6+1] = r[5]; - r[6+2] = r[1]; + r[6+2] = r[4]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_process_2Ddefine; -case 509: /* clo ek r */ +case 514: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22821,131 +23002,32 @@ case 509: /* clo ek r */ /* r[2] */ goto gs_process_2Dtop_2Dform; -case 510: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ - /* ek r k oport */ - hreserve(hbsz(1), 4); /* 4 live regs */ - *--hp = obj_from_void(0); - r[4] = (hendblk(1)); - { /* open-output-string */ - r[5] = (mkoport_string(5, newcb())); } - hreserve(hbsz(5+1), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = r[2]; - *--hp = r[1]; - *--hp = obj_from_case(511); - r[6] = (hendblk(5+1)); - r[0] = r[6]; - /* r[1] */ - r[2] = (mknull()); - goto gs_find_2Dfree; - -case 511: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; - r[1+5] = p[4]; - r[1+6] = p[5]; } - r += 1; /* shift reg. wnd */ - /* ek r r k oport cstr p */ - hreserve(hbsz(4+1), 7); /* 7 live regs */ - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(512); - r[7] = (hendblk(4+1)); - r[8+0] = r[7]; - r[8+1] = r[2]; - r[8+2] = (mknull()); - r[8+3] = (mknull()); - r[8+4] = (mknull()); - r[8+5] = r[1]; - r[8+6] = obj_from_bool(0); - r[8+7] = r[6]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - -case 512: /* 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+4] = p[3]; - r[1+5] = p[4]; } - r += 1; /* shift reg. wnd */ - /* ek . k oport cstr p */ - { /* get-output-string */ - obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); - if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && - vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); - r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } - (void)(objptr_from_obj(r[4])[0] = (r[6])); - (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233036), (r[3]), 1)); - hreserve(hbsz(2+1), 7); /* 7 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(513); - 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 513: /* 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 */ - /* ek . k oport */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(oportputc('\n', (r[3]))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 514: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ - /* ek r k oport */ - hreserve(hbsz(1), 4); /* 4 live regs */ - *--hp = obj_from_void(0); - r[4] = (hendblk(1)); - { /* open-output-string */ - r[5] = (mkoport_string(5, newcb())); } - hreserve(hbsz(5+1), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = r[2]; - *--hp = r[1]; - *--hp = obj_from_case(515); - r[6] = (hendblk(5+1)); - r[0] = r[6]; - /* r[1] */ - r[2] = (mknull()); - goto gs_find_2Dfree; - case 515: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r k oport */ + hreserve(hbsz(1), 4); /* 4 live regs */ + *--hp = obj_from_void(0); + r[4] = (hendblk(1)); + { /* open-output-string */ + r[5] = (mkoport_string(5, newcb())); } + hreserve(hbsz(5+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = r[2]; + *--hp = r[1]; + *--hp = obj_from_case(516); + r[6] = (hendblk(5+1)); + r[0] = r[6]; + /* r[1] */ + r[2] = (mknull()); + goto gs_find_2Dfree; + +case 516: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22960,7 +23042,7 @@ case 515: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(516); + *--hp = obj_from_case(517); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -22974,36 +23056,36 @@ case 515: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 516: /* 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+4] = p[3]; - r[1+5] = p[4]; } - r += 1; /* shift reg. wnd */ - /* ek . k oport cstr p */ - { /* get-output-string */ - obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); - if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && - vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); - r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } - (void)(objptr_from_obj(r[4])[0] = (r[6])); - (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233036), (r[3]), 1)); - hreserve(hbsz(2+1), 7); /* 7 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(517); - 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 517: /* 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+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek . k oport cstr p */ + { /* get-output-string */ + obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); + if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && + vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); + else { cbuf_t *pcb = oportdata(o); + r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } + (void)(objptr_from_obj(r[4])[0] = (r[6])); + (void)(oportputc('\n', (r[3]))); + (void)(oportputcircular((cx__233033), (r[3]), 1)); + hreserve(hbsz(2+1), 7); /* 7 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(518); + 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 518: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23019,13 +23101,112 @@ case 517: /* clo ek . */ rc = 3; goto jump; -case 518: /* path-strip-directory k filename */ +case 519: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r k oport */ + hreserve(hbsz(1), 4); /* 4 live regs */ + *--hp = obj_from_void(0); + r[4] = (hendblk(1)); + { /* open-output-string */ + r[5] = (mkoport_string(5, newcb())); } + hreserve(hbsz(5+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = r[2]; + *--hp = r[1]; + *--hp = obj_from_case(520); + r[6] = (hendblk(5+1)); + r[0] = r[6]; + /* r[1] */ + r[2] = (mknull()); + goto gs_find_2Dfree; + +case 520: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; } + r += 1; /* shift reg. wnd */ + /* ek r r k oport cstr p */ + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(521); + r[7] = (hendblk(4+1)); + r[8+0] = r[7]; + r[8+1] = r[2]; + r[8+2] = (mknull()); + r[8+3] = (mknull()); + r[8+4] = (mknull()); + r[8+5] = r[1]; + r[8+6] = obj_from_bool(0); + r[8+7] = r[6]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + +case 521: /* 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+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek . k oport cstr p */ + { /* get-output-string */ + obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); + if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && + vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); + else { cbuf_t *pcb = oportdata(o); + r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } + (void)(objptr_from_obj(r[4])[0] = (r[6])); + (void)(oportputc('\n', (r[3]))); + (void)(oportputcircular((cx__233033), (r[3]), 1)); + hreserve(hbsz(2+1), 7); /* 7 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(522); + 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 522: /* 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 */ + /* ek . k oport */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(oportputc('\n', (r[3]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 523: /* path-strip-directory k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Ddirectory: /* k filename */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(519); + *--hp = obj_from_case(524); r[2] = (hendblk(1+1)); r[3+0] = (cx_string_2D_3Elist); pc = objptr_from_obj(r[3+0])[0]; @@ -23036,19 +23217,19 @@ gs_path_2Dstrip_2Ddirectory: /* k filename */ rc = 3; goto jump; -case 519: /* 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 */ /* ek r k */ - { fixnum_t v14202_tmp; + { fixnum_t v14199_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14202_tmp = (n); } + v14199_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14202_tmp); + obj l, o = mknull(); int c = (v14199_tmp); hreserve(hbsz(3)*c, 3); /* 3 live regs */ l = r[1]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -23057,9 +23238,9 @@ case 519: /* clo ek r */ r[0] = r[2]; r[1] = r[3]; r[2] = (mknull()); - goto s_loop_v10706; + goto s_loop_v10667; -s_loop_v10706: /* k l r */ +s_loop_v10667: /* k l r */ if ((isnull((r[1])))) { r[3+0] = (cx_list_2D_3Estring); pc = objptr_from_obj(r[3+0])[0]; @@ -23071,7 +23252,7 @@ s_loop_v10706: /* k l r */ goto jump; } else { r[3] = (car((r[1]))); - r[3] = (ismemv((r[3]), (cx__233244))); + r[3] = (ismemv((r[3]), (cx__233242))); if (bool_from_obj(r[3])) { r[3+0] = (cx_list_2D_3Estring); pc = objptr_from_obj(r[3+0])[0]; @@ -23093,18 +23274,18 @@ s_loop_v10706: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v10706; + goto s_loop_v10667; } } -case 520: /* path-strip-extension k filename */ +case 525: /* path-strip-extension k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Dextension: /* k filename */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(521); + *--hp = obj_from_case(526); r[2] = (hendblk(2+1)); r[3+0] = (cx_string_2D_3Elist); pc = objptr_from_obj(r[3+0])[0]; @@ -23115,20 +23296,20 @@ gs_path_2Dstrip_2Dextension: /* k filename */ rc = 3; goto jump; -case 521: /* clo ek r */ +case 526: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r filename k */ - { fixnum_t v14200_tmp; + { fixnum_t v14197_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14200_tmp = (n); } + v14197_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14200_tmp); + obj l, o = mknull(); int c = (v14197_tmp); hreserve(hbsz(3)*c, 4); /* 4 live regs */ l = r[1]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -23137,13 +23318,13 @@ case 521: /* clo ek r */ r[5] = (ismemv(obj_from_char('.'), (r[4]))); if (bool_from_obj(r[5])) { r[6] = (cdr((r[5]))); - { fixnum_t v14201_tmp; + { fixnum_t v14198_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14201_tmp = (n); } + v14198_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14201_tmp); + obj l, o = mknull(); int c = (v14198_tmp); hreserve(hbsz(3)*c, 7); /* 7 live regs */ l = r[6]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -23166,19 +23347,19 @@ case 521: /* clo ek r */ goto jump; } -case 522: /* module-name k filename */ +case 527: /* 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(528); r[2] = (hendblk(1+1)); r[0] = r[2]; /* r[1] */ goto gs_path_2Dstrip_2Ddirectory; -case 523: /* clo ek r */ +case 528: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -23188,7 +23369,7 @@ case 523: /* clo ek r */ /* r[1] */ goto gs_path_2Dstrip_2Dextension; -case 524: /* process-file k fname */ +case 529: /* process-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_process_2Dfile: /* k fname */ @@ -23205,13 +23386,13 @@ gs_process_2Dfile: /* k fname */ *--hp = r[4]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(525); + *--hp = obj_from_case(530); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ goto gs_module_2Dname; -case 525: /* clo ek r */ +case 530: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23221,7 +23402,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__233120)))); + r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233117)))); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[1]; @@ -23229,7 +23410,7 @@ case 525: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(526); + *--hp = obj_from_case(531); r[8] = (hendblk(6+1)); if (bool_from_obj(r[7])) { r[9] = (mkiport_file(9, (void*)((r[7])))); @@ -23243,19 +23424,19 @@ case 525: /* clo ek r */ r[10+7] = r[5]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10630; + goto s_l_v10591; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; - r[2] = (cx__233124); + r[2] = (cx__233121); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 526: /* clo ek r */ +case 531: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23265,25 +23446,25 @@ case 526: /* clo ek r */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_l_v10630: /* ek r fname k oport mname r iport */ +s_l_v10591: /* 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__233292), (r[4]), 1)); + (void)(oportputcircular((cx__233290), (r[4]), 1)); r[8] = (objptr_from_obj(r[5])[0]); (void)(oportputcircular((r[8]), (r[4]), 1)); - (void)(oportputcircular((cx__233291), (r[4]), 1)); + (void)(oportputcircular((cx__233289), (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(532); r[8] = (hendblk(4+1)); r[0] = r[8]; r[1] = r[2]; goto gs_path_2Dstrip_2Ddirectory; -case 527: /* clo ek r */ +case 532: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23293,19 +23474,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__233290), (r[5]), 1)); + (void)(oportputcircular((cx__233288), (r[5]), 1)); (void)(oportputc('\n', (r[5]))); (void)(oportputc('\n', (r[5]))); - (void)(oportputcircular((cx__233289), (r[5]), 1)); + (void)(oportputcircular((cx__233287), (r[5]), 1)); r[6] = (objptr_from_obj(r[4])[0]); (void)(oportputcircular((r[6]), (r[5]), 1)); - (void)(oportputcircular((cx__233288), (r[5]), 1)); + (void)(oportputcircular((cx__233286), (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(533); r[6] = (hendblk(3+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -23316,7 +23497,7 @@ case 527: /* clo ek r */ rc = 4; goto jump; -case 528: /* clo ek r */ +case 533: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23328,7 +23509,7 @@ case 528: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(532); + *--hp = obj_from_case(537); r[5] = (hendblk(3+1)); r[6+0] = r[5]; r[6+1] = r[1]; @@ -23336,15 +23517,15 @@ case 528: /* clo ek r */ r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v10641; + goto s_loop_v10602; -case 529: /* clo k x */ +case 534: /* 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_v10641: /* k x oport iport */ +s_loop_v10602: /* k x oport iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -23357,13 +23538,13 @@ s_loop_v10641: /* 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(534); 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(535); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ @@ -23371,7 +23552,7 @@ s_loop_v10641: /* k x oport iport */ goto gs_process_2Dtop_2Dform; } -case 530: /* clo ek . */ +case 535: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23383,7 +23564,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(536); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -23394,7 +23575,7 @@ case 530: /* clo ek . */ rc = 4; goto jump; -case 531: /* clo ek r */ +case 536: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23410,7 +23591,7 @@ case 531: /* clo ek r */ rc = 3; goto jump; -case 532: /* clo ek . */ +case 537: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23419,7 +23600,7 @@ case 532: /* clo ek . */ r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . iport k oport */ - (void)(oportputcircular((cx__233280), (r[4]), 1)); + (void)(oportputcircular((cx__233278), (r[4]), 1)); r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; @@ -23428,7 +23609,7 @@ case 532: /* clo ek . */ rc = 3; goto jump; -case 533: /* clo ek r */ +case 538: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -23436,7 +23617,7 @@ case 533: /* 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(534); + *--hp = obj_from_case(539); r[3] = (hendblk(0+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -23447,7 +23628,7 @@ case 533: /* clo ek r */ rc = 3; goto jump; -case 534: /* clo ek r */ +case 539: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -23459,7 +23640,7 @@ case 534: /* 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(535); + *--hp = obj_from_case(540); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -23468,7 +23649,7 @@ case 534: /* clo ek r */ rc = 2; goto jump; -case 535: /* clo ek . */ +case 540: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ @@ -23480,7 +23661,7 @@ case 535: /* 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(536); + *--hp = obj_from_case(541); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -23489,28 +23670,28 @@ case 535: /* clo ek . */ rc = 2; goto jump; -case 536: /* clo ek . */ +case 541: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ /* ek . */ - cx_test1 = (cx__233319); - cx_test2 = (cx__233589); - cx_test3 = (cx__233791); - cx_test4 = (cx__234193); - cx_test5 = (cx__234323); + cx_test1 = (cx__233317); + cx_test2 = (cx__233587); + cx_test3 = (cx__233789); + cx_test4 = (cx__234191); + cx_test5 = (cx__234321); cx__2Averbose_2A = obj_from_bool(0); cx__2Areset_2A = obj_from_bool(0); - { static obj c[] = { obj_from_case(537) }; cx_error_2A = (obj)c; } - { static obj c[] = { obj_from_case(539) }; cx_run_2Dtests = (obj)c; } - { static obj c[] = { obj_from_case(545) }; 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_repl_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(570) }; cx_benchmark_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(576) }; cx_run_2Drepl = (obj)c; } - { static obj c[] = { obj_from_case(577) }; cx_main = (obj)c; } + { static obj c[] = { obj_from_case(542) }; cx_error_2A = (obj)c; } + { static obj c[] = { obj_from_case(544) }; cx_run_2Dtests = (obj)c; } + { static obj c[] = { obj_from_case(550) }; cx_repl_2Deval = (obj)c; } + { static obj c[] = { obj_from_case(557) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(566) }; cx_repl_2Dread = (obj)c; } + { static obj c[] = { obj_from_case(567) }; cx_repl_2Dfrom_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(572) }; cx_repl_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(575) }; cx_benchmark_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(581) }; cx_run_2Drepl = (obj)c; } + { static obj c[] = { obj_from_case(582) }; cx_main = (obj)c; } r[2] = obj_from_void(0); r[3+0] = r[0]; pc = 0; /* exit from module init */ @@ -23519,7 +23700,7 @@ case 536: /* clo ek . */ rc = 2; goto jump; -case 537: /* error* k msg args */ +case 542: /* error* k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_error_2A: /* k msg args */ @@ -23529,12 +23710,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(538); + *--hp = obj_from_case(543); r[4] = (hendblk(1+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; - goto s_loop_v10598; + goto s_loop_v10559; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -23553,7 +23734,7 @@ gs_error_2A: /* k msg args */ goto jump; } -s_loop_v10598: /* k l p */ +s_loop_v10559: /* k l p */ if ((ispair((r[1])))) { r[3] = (car((r[1]))); (void)(oportputcircular((r[3]), (r[2]), 0)); @@ -23562,7 +23743,7 @@ s_loop_v10598: /* k l p */ /* r[0] */ r[1] = r[3]; /* r[2] */ - goto s_loop_v10598; + goto s_loop_v10559; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -23573,7 +23754,7 @@ s_loop_v10598: /* k l p */ goto jump; } -case 538: /* clo ek . */ +case 543: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23588,7 +23769,7 @@ case 538: /* clo ek . */ rc = 3; goto jump; -case 539: /* run-tests k */ +case 544: /* run-tests k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Dtests: /* k */ @@ -23597,18 +23778,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__234756), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234754), (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(540); + *--hp = obj_from_case(545); r[2] = (hendblk(2+1)); r[0] = r[2]; r[1] = (cx_test1); goto gs_evaluate; -case 540: /* clo ek r */ +case 545: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23620,13 +23801,13 @@ case 540: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(541); + *--hp = obj_from_case(546); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test2); goto gs_evaluate; -case 541: /* clo ek r */ +case 546: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23638,13 +23819,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(547); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test3); goto gs_evaluate; -case 542: /* clo ek r */ +case 547: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23656,13 +23837,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(548); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test4); goto gs_evaluate; -case 543: /* clo ek r */ +case 548: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23674,13 +23855,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(549); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test5); goto gs_evaluate; -case 544: /* clo ek r */ +case 549: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23689,23 +23870,23 @@ case 544: /* 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__234755), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - { flonum_t v14198_b; - { flonum_t v14197_a; - { const flonum_t v14196_b = (CLOCKS_PER_SEC); - { const flonum_t v14194_a = (clock()); + (void)(oportputcircular((cx__234753), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v14195_b; + { flonum_t v14194_a; + { const flonum_t v14193_b = (CLOCKS_PER_SEC); + { const flonum_t v14191_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v14195_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v14197_a = ((v14194_a) - (v14195_tmp)); } + { const flonum_t v14192_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v14194_a = ((v14191_a) - (v14192_tmp)); } } else { - v14197_a = ((v14194_a) - flonum_from_obj(r[4])); + v14194_a = ((v14191_a) - flonum_from_obj(r[4])); } } - v14198_b = ((v14197_a) / (v14196_b)); } } - { const flonum_t v14199_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v14199_tmp) * (v14198_b)); } } + v14195_b = ((v14194_a) / (v14193_b)); } } + { const flonum_t v14196_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v14196_tmp) * (v14195_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__234731), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234729), (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]; @@ -23715,14 +23896,14 @@ case 544: /* clo ek r */ rc = 3; goto jump; -case 545: /* repl-eval k x */ +case 550: /* 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(546); + *--hp = obj_from_case(551); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -23734,14 +23915,14 @@ gs_repl_2Deval: /* k x */ rc = 4; goto jump; -case 546: /* clo ek r */ +case 551: /* 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__234828), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234826), (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))); @@ -23750,7 +23931,7 @@ case 546: /* clo ek r */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(547); + *--hp = obj_from_case(552); r[3] = (hendblk(2+1)); if ((ispair((r[1])))) { r[4+0] = obj_from_ktrap(); @@ -23759,12 +23940,12 @@ case 546: /* clo ek r */ r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10519; + goto s_l_v10480; } else { r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; - r[4+2] = (cx__234826); + r[4+2] = (cx__234824); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -23772,14 +23953,14 @@ case 546: /* clo ek r */ goto jump; } -case 547: /* clo ek . */ +case 552: /* 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_v10519: /* ek . k r */ +s_l_v10480: /* ek . k r */ r[4] = (car((r[3]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("define")))); if (bool_from_obj(r[4])) { @@ -23787,7 +23968,7 @@ s_l_v10519: /* ek . k r */ } else { } if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__234819), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234817), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { } @@ -23797,14 +23978,14 @@ s_l_v10519: /* ek . k r */ *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(548); + *--hp = obj_from_case(553); 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 553: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23815,7 +23996,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(554); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -23829,7 +24010,7 @@ case 548: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 549: /* clo ek . */ +case 554: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23849,7 +24030,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__234812), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234810), (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])); @@ -23861,7 +24042,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(555); r[7] = (hendblk(2+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; @@ -23871,7 +24052,7 @@ case 549: /* clo ek . */ rc = 3; goto jump; -case 550: /* clo ek r */ +case 555: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23881,13 +24062,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(556); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ goto gs_execute; -case 551: /* clo ek r */ +case 556: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23901,23 +24082,23 @@ case 551: /* clo ek r */ (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__234755), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - { flonum_t v14192_b; - { flonum_t v14191_a; - { const flonum_t v14190_b = (CLOCKS_PER_SEC); - { const flonum_t v14188_a = (clock()); + (void)(oportputcircular((cx__234753), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v14189_b; + { flonum_t v14188_a; + { const flonum_t v14187_b = (CLOCKS_PER_SEC); + { const flonum_t v14185_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v14189_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v14191_a = ((v14188_a) - (v14189_tmp)); } + { const flonum_t v14186_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v14188_a = ((v14185_a) - (v14186_tmp)); } } else { - v14191_a = ((v14188_a) - flonum_from_obj(r[4])); + v14188_a = ((v14185_a) - flonum_from_obj(r[4])); } } - v14192_b = ((v14191_a) / (v14190_b)); } } - { const flonum_t v14193_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v14193_tmp) * (v14192_b)); } } + v14189_b = ((v14188_a) / (v14187_b)); } } + { const flonum_t v14190_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v14190_tmp) * (v14189_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__234731), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234729), (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); @@ -23930,7 +24111,7 @@ case 551: /* clo ek r */ rc = 3; goto jump; -case 552: /* repl-eval-top-form k x */ +case 557: /* repl-eval-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval_2Dtop_2Dform: /* k x */ @@ -23950,10 +24131,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__233120)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233117)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(553); + *--hp = obj_from_case(558); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -23962,12 +24143,12 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10499; + goto s_l_v10460; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233124); + r[5+2] = (cx__233121); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -23979,7 +24160,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(560); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -23997,22 +24178,22 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ } } -case 553: /* clo ek r */ +case 558: /* 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_v10499: /* ek r k */ +s_l_v10460: /* 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(559); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Dfrom_2Dport; -case 554: /* clo ek . */ +case 559: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24028,7 +24209,7 @@ case 554: /* clo ek . */ rc = 3; goto jump; -case 555: /* clo ek r */ +case 560: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24039,13 +24220,13 @@ case 555: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v10483; + goto s_loop_v10444; } 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(563); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -24063,7 +24244,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(565); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -24081,19 +24262,19 @@ case 555: /* clo ek r */ } } -case 556: /* clo k x* */ +case 561: /* clo k x* */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v10483: /* k x* */ +s_loop_v10444: /* k x* */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(556); + *--hp = obj_from_case(561); 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(562); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -24109,7 +24290,7 @@ s_loop_v10483: /* k x* */ goto jump; } -case 557: /* clo ek . */ +case 562: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24126,7 +24307,7 @@ case 557: /* clo ek . */ rc = 3; goto jump; -case 558: /* clo ek r */ +case 563: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24138,13 +24319,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(564); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 559: /* clo ek r */ +case 564: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24160,7 +24341,7 @@ case 559: /* clo ek r */ rc = 3; goto jump; -case 560: /* clo ek r */ +case 565: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -24170,11 +24351,11 @@ case 560: /* clo ek r */ /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; -case 561: /* repl-read k iport */ +case 566: /* 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__234884), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0)); + (void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__234882), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0)); r[2+0] = (cx__25read); pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[0]; @@ -24185,20 +24366,20 @@ gs_repl_2Dread: /* k iport */ rc = 4; goto jump; -case 562: /* repl-from-port k iport */ +case 567: /* 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(568); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto gs_repl_2Dread; -case 563: /* clo ek r */ +case 568: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24208,14 +24389,14 @@ case 563: /* clo ek r */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v10430; + goto s_loop_v10391; -case 564: /* clo k x */ +case 569: /* 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_v10430: /* k x iport */ +s_loop_v10391: /* k x iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -24227,20 +24408,20 @@ s_loop_v10430: /* k x iport */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(564); + *--hp = obj_from_case(569); 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(570); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; } -case 565: /* clo ek . */ +case 570: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24252,13 +24433,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(571); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_repl_2Dread; -case 566: /* clo ek r */ +case 571: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24274,18 +24455,18 @@ case 566: /* clo ek r */ rc = 3; goto jump; -case 567: /* repl-file k fname */ +case 572: /* repl-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Dfile: /* k fname */ hreserve(hbsz(1), 2); /* 2 live regs */ *--hp = obj_from_void(0); r[2] = (hendblk(1)); - r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233120)))); + r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233117)))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(568); + *--hp = obj_from_case(573); r[4] = (hendblk(2+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -24295,12 +24476,12 @@ gs_repl_2Dfile: /* k fname */ r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10411; + goto s_l_v10372; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233124); + r[5+2] = (cx__233121); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24308,137 +24489,23 @@ gs_repl_2Dfile: /* k fname */ goto jump; } -case 568: /* clo ek r */ +case 573: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ -s_l_v10411: /* ek r k iport */ +s_l_v10372: /* ek r k iport */ (void)(objptr_from_obj(r[3])[0] = (r[1])); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(569); + *--hp = obj_from_case(574); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (objptr_from_obj(r[3])[0]); goto gs_repl_2Dfrom_2Dport; -case 569: /* 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 */ - /* ek . iport k */ - r[0] = (cx_close_2Dinput_2Dport); - pc = objptr_from_obj(r[0])[0]; - r[1] = r[3]; - r[2] = (objptr_from_obj(r[2])[0]); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 570: /* benchmark-file k fname */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ -gs_benchmark_2Dfile: /* k fname */ - hreserve(hbsz(1), 2); /* 2 live regs */ - *--hp = obj_from_void(0); - r[2] = (hendblk(1)); - r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233120)))); - hreserve(hbsz(3+1), 4); /* 4 live regs */ - *--hp = r[2]; - *--hp = r[0]; - *--hp = r[1]; - *--hp = obj_from_case(571); - r[4] = (hendblk(3+1)); - if (bool_from_obj(r[3])) { - r[5] = (mkiport_file(5, (void*)((r[3])))); - r[6+0] = obj_from_ktrap(); - r[6+1] = r[5]; - r[6+2] = r[1]; - r[6+3] = r[0]; - r[6+4] = r[2]; - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_l_v10375; - } else { - r[5+0] = (cx_file_2Derror); - pc = objptr_from_obj(r[5+0])[0]; - r[5+1] = r[4]; - r[5+2] = (cx__233124); - r[5+3] = r[1]; - r += 5; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } - -case 571: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } - r += 1; /* shift reg. wnd */ -s_l_v10375: /* ek r fname k iport */ - (void)(objptr_from_obj(r[4])[0] = (r[1])); - hreserve(hbsz(2+1), 5); /* 5 live regs */ - *--hp = r[3]; - *--hp = r[4]; - *--hp = obj_from_case(572); - r[5] = (hendblk(2+1)); - hreserve(hbsz(2+1), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = r[2]; - *--hp = obj_from_case(575); - r[5] = (hendblk(2+1)); - r[0] = (cx__25read); - pc = objptr_from_obj(r[0])[0]; - r[1] = r[5]; - r[2] = (objptr_from_obj(r[4])[0]); - r[3] = obj_from_bool(0); - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - -case 572: /* 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 */ - /* ek . iport k */ - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(573); - r[4] = (hendblk(2+1)); - r[0] = r[4]; - r[1] = (objptr_from_obj(r[2])[0]); - goto gs_repl_2Dfrom_2Dport; - -case 573: /* 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 */ - /* ek . iport k */ - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(574); - r[4] = (hendblk(2+1)); - r[0] = r[4]; - r[1] = (cx__234915); - goto gs_repl_2Deval_2Dtop_2Dform; - case 574: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ @@ -24455,14 +24522,128 @@ case 574: /* clo ek . */ rc = 3; goto jump; -case 575: /* clo ek r */ +case 575: /* benchmark-file k fname */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ +gs_benchmark_2Dfile: /* k fname */ + hreserve(hbsz(1), 2); /* 2 live regs */ + *--hp = obj_from_void(0); + r[2] = (hendblk(1)); + r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233117)))); + hreserve(hbsz(3+1), 4); /* 4 live regs */ + *--hp = r[2]; + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(576); + r[4] = (hendblk(3+1)); + if (bool_from_obj(r[3])) { + r[5] = (mkiport_file(5, (void*)((r[3])))); + r[6+0] = obj_from_ktrap(); + r[6+1] = r[5]; + r[6+2] = r[1]; + r[6+3] = r[0]; + r[6+4] = r[2]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v10336; + } else { + r[5+0] = (cx_file_2Derror); + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = r[4]; + r[5+2] = (cx__233121); + r[5+3] = r[1]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 576: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ +s_l_v10336: /* ek r fname k iport */ + (void)(objptr_from_obj(r[4])[0] = (r[1])); + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[3]; + *--hp = r[4]; + *--hp = obj_from_case(577); + r[5] = (hendblk(2+1)); + hreserve(hbsz(2+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[2]; + *--hp = obj_from_case(580); + r[5] = (hendblk(2+1)); + r[0] = (cx__25read); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[5]; + r[2] = (objptr_from_obj(r[4])[0]); + r[3] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + +case 577: /* 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 */ + /* ek . iport k */ + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(578); + r[4] = (hendblk(2+1)); + r[0] = r[4]; + r[1] = (objptr_from_obj(r[2])[0]); + goto gs_repl_2Dfrom_2Dport; + +case 578: /* 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 */ + /* ek . iport k */ + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(579); + r[4] = (hendblk(2+1)); + r[0] = r[4]; + r[1] = (cx__234913); + goto gs_repl_2Deval_2Dtop_2Dform; + +case 579: /* 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 */ + /* ek . iport k */ + r[0] = (cx_close_2Dinput_2Dport); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[3]; + r[2] = (objptr_from_obj(r[2])[0]); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 580: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r fname k */ - r[4] = (cxs_syntax_2Dmatch_3F((cx__234921), (r[1]))); + r[4] = (cxs_syntax_2Dmatch_3F((cx__234919), (r[1]))); if (bool_from_obj(r[4])) { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; @@ -24475,7 +24656,7 @@ case 575: /* clo ek r */ r[5+0] = (cx_error); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[3]; - r[5+2] = (cx__234920); + r[5+2] = (cx__234918); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24483,7 +24664,7 @@ case 575: /* clo ek r */ goto jump; } -case 576: /* run-repl k */ +case 581: /* run-repl k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Drepl: /* k */ @@ -24493,13 +24674,13 @@ gs_run_2Drepl: /* k */ rreserve(MAX_HOSTREGS); goto gs_repl_2Dfrom_2Dport; -case 577: /* main k argv */ +case 582: /* 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(578); + *--hp = obj_from_case(583); r[2] = (hendblk(1+1)); r[3+0] = (cx_command_2Dline); pc = objptr_from_obj(r[3+0])[0]; @@ -24509,39 +24690,39 @@ case 577: /* main k argv */ rc = 2; goto jump; -case 578: /* clo ek r */ +case 583: /* 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__234964), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234962), (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__234956), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234954), (r[3])))) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); r[0] = r[2]; r[1] = r[4]; goto gs_repl_2Dfile; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234948), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234946), (r[3])))) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); r[0] = r[2]; r[1] = r[4]; goto gs_benchmark_2Dfile; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234942), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234940), (r[3])))) { r[0] = r[2]; goto gs_run_2Dtests; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234939), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234937), (r[3])))) { cx__2Averbose_2A = obj_from_bool(1); r[0] = r[2]; goto gs_run_2Drepl; diff --git a/n.c b/n.c index 386965a..aa12d6b 100644 --- a/n.c +++ b/n.c @@ -1059,6 +1059,7 @@ static stab_t *stabfree(stab_t *p) { } static int stabnew(obj o, stab_t *p, int circ) { if (!o || notaptr(o) || notobjptr(o) || (circ && isaptr(objptr_from_obj(o)[-1]))) return 0; + else if (circ && isaptr(objptr_from_obj(o)[0])) return 0; /* opaque */ else { /* v[i] is 0 or heap obj, possibly with lower bit set if it's not new */ unsigned long h = (unsigned long)o; size_t sz = p->sz, i, j; for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1)) @@ -1387,7 +1388,10 @@ static void wrdatum(obj o, wenv_t *e) { } wrc('>', e); } else if (isprocedure(o)) { - char buf[60]; sprintf(buf, "#", objptr_from_obj(o)); wrs(buf, e); + char buf[60]; + if (isobjptr(hblkref(o, 0))) sprintf(buf, "#", objptr_from_obj(o)); + else sprintf(buf, "#", objptr_from_obj(o)); + wrs(buf, e); } else if (isrecord(o)) { int i, n = recordlen(o); wrs("#sym id))] [env (add-var id nid env)]) - (loop env (cons id ids) (cons init inits) (cons nid nids) rest)) - (x-error "improper define form" first)))] - [(define-syntax) + [(define) ; internal + (cond [(and (list2? tail) (null? (car tail))) ; idless + (let ([init (cadr tail)]) + (loop env (cons #f ids) (cons init inits) (cons #f nids) rest))] + [(and (list2? tail) (id? (car tail))) + (let* ([id (car tail)] [init (cadr tail)] + [nid (gensym (id->sym id))] [env (add-var id nid env)]) + (loop env (cons id ids) (cons init inits) (cons nid nids) rest))] + [(and (list2+? tail) (pair? (car tail)) (id? (caar tail)) (idslist? (cdar tail))) + (let* ([id (caar tail)] [lambda-id (new-id (make-binding 'lambda 'lambda))] + [init (cons lambda-id (cons (cdar tail) (cdr tail)))] + [nid (gensym (id->sym id))] [env (add-var id nid env)]) + (loop env (cons id ids) (cons init inits) (cons nid nids) rest))] + [else (x-error "improper define form" first)])] + [(define-syntax) ; internal (if (and (list2? tail) (id? (car tail))) (let* ([id (car tail)] [init (cadr tail)] [env (add-binding id '(undefined) env)]) @@ -511,14 +516,19 @@ (binding-set-val! (env (car ids)) (xform #t (car inits) env)) (loop (cdr ids) (cdr inits) (cdr nids) sets lids)]))) -(define (xform-define tail env) ; top-level only - (if (and (list2? tail) (null? (car tail))) ; idless - (xform #f (cadr tail) env) - (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 tail env) ; top-level + (cond [(and (list2? tail) (null? (car tail))) ; idless + (xform #f (cadr tail) env)] + [(and (list2? tail) (id? (car tail))) + (list 'define (id->sym (car tail)) + (xform #f (cadr tail) env))] + [(and (list2+? tail) (pair? (car tail)) (id? (caar tail)) (idslist? (cdar tail))) + (list 'define (id->sym (caar tail)) + (xform-lambda (cons (cdar tail) (cdr tail)) env))] + [else + (x-error "improper define form" (cons 'define tail))])) -(define (xform-define-syntax tail env) ; top-level only +(define (xform-define-syntax tail env) ; top-level (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)))) @@ -702,18 +712,6 @@ ; or (_ (litname ...) . rules) (list syntax-id (syntax-rules* env #f (cadr sexp) (cddr sexp)))))) -; non-recursive transformer for define relies on old definition - -(install-transformer! 'define - (let ([env (add-binding 'define 'define top-transformer-env)]) - (syntax-rules* env #f '() '( - [(_ () exp) ; idless - (define () exp)] - [(_ (name . args) . forms) - (define name (lambda args . forms))] - [(_ name exp) - (define name exp)])))) - ;--------------------------------------------------------------------------------------------- ; Runtime @@ -1326,8 +1324,8 @@ (process-alias (cadr x) (caddr x) oport) (process-syntax (cadr x) (caddr x) oport))))] [(eq? hval 'define) - (let ([xval (transform #f (caddr x))]) - (process-define (cadr x) xval oport))] + (let* ([dval (transform #f x)] [xval (caddr dval)]) + (process-define (cadr dval) xval oport))] [(procedure? hval) (process-top-form (hval x top-transformer-env) oport)] [else diff --git a/src/n.sf b/src/n.sf index 3a2f191..7df9239 100644 --- a/src/n.sf +++ b/src/n.sf @@ -3391,6 +3391,7 @@ static stab_t *stabfree(stab_t *p) { } static int stabnew(obj o, stab_t *p, int circ) { if (!o || notaptr(o) || notobjptr(o) || (circ && isaptr(objptr_from_obj(o)[-1]))) return 0; + else if (circ && isaptr(objptr_from_obj(o)[0])) return 0; /* opaque */ else { /* v[i] is 0 or heap obj, possibly with lower bit set if it's not new */ unsigned long h = (unsigned long)o; size_t sz = p->sz, i, j; for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1)) @@ -3841,7 +3842,10 @@ static void wrdatum(obj o, wenv_t *e) { } wrc('>', e); } else if (isprocedure(o)) { - char buf[60]; sprintf(buf, \"#\", objptr_from_obj(o)); wrs(buf, e); + char buf[60]; + if (isobjptr(hblkref(o, 0))) sprintf(buf, \"#\", objptr_from_obj(o)); + else sprintf(buf, \"#\", objptr_from_obj(o)); + wrs(buf, e); } else if (isrecord(o)) { int i, n = recordlen(o); wrs(\"#sym id))] [env (add-var id nid env)]) - (loop env (cons id ids) (cons init inits) (cons nid nids) rest)) - (x-error "improper define form" first)))] - [(define-syntax) + [(define) ; internal + (cond [(and (list2? tail) (null? (car tail))) ; idless + (let ([init (cadr tail)]) + (loop env (cons #f ids) (cons init inits) (cons #f nids) rest))] + [(and (list2? tail) (id? (car tail))) + (let* ([id (car tail)] [init (cadr tail)] + [nid (gensym (id->sym id))] [env (add-var id nid env)]) + (loop env (cons id ids) (cons init inits) (cons nid nids) rest))] + [(and (list2+? tail) (pair? (car tail)) (id? (caar tail)) (idslist? (cdar tail))) + (let* ([id (caar tail)] [lambda-id (new-id (make-binding 'lambda 'lambda))] + [init (cons lambda-id (cons (cdar tail) (cdr tail)))] + [nid (gensym (id->sym id))] [env (add-var id nid env)]) + (loop env (cons id ids) (cons init inits) (cons nid nids) rest))] + [else (x-error "improper define form" first)])] + [(define-syntax) ; internal (if (and (list2? tail) (id? (car tail))) (let* ([id (car tail)] [init (cadr tail)] [env (add-binding id '(undefined) env)]) @@ -475,14 +480,19 @@ (binding-set-val! (env (car ids)) (xform #t (car inits) env)) (loop (cdr ids) (cdr inits) (cdr nids) sets lids)]))) -(define (xform-define tail env) ; top-level only - (if (and (list2? tail) (null? (car tail))) ; idless - (xform #f (cadr tail) env) - (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 tail env) ; top-level + (cond [(and (list2? tail) (null? (car tail))) ; idless + (xform #f (cadr tail) env)] + [(and (list2? tail) (id? (car tail))) + (list 'define (id->sym (car tail)) + (xform #f (cadr tail) env))] + [(and (list2+? tail) (pair? (car tail)) (id? (caar tail)) (idslist? (cdar tail))) + (list 'define (id->sym (caar tail)) + (xform-lambda (cons (cdar tail) (cdr tail)) env))] + [else + (x-error "improper define form" (cons 'define tail))])) -(define (xform-define-syntax tail env) ; top-level only +(define (xform-define-syntax tail env) ; top-level (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)))) @@ -666,15 +676,6 @@ ; or (_ (litname ...) . rules) (list syntax-id (syntax-rules* env #f (cadr sexp) (cddr sexp)))))) -; non-recursive transformer for define relies on old definition - -(install-transformer! 'define - (let ([env (add-binding 'define 'define top-transformer-env)]) - (syntax-rules* env #f '() '( - [(_ (name . args) . forms) - (define name (lambda args . forms))] - [(_ name exp) - (define name exp)])))) ; Remaining transformers are made with the help of syntax-rules* ; NB: order of installation is important -- each transformer can diff --git a/t.c b/t.c index 26434f1..dbe2994 100644 --- a/t.c +++ b/t.c @@ -259,13 +259,17 @@ char *t_code[] = { ".(i11),fc,.(i11),:0^[(i12)5}${.4,@(y6:list2?)[01}?{${.4a,@(y3:id?)[01}" "}{f}?{.2a,.3da,${${.5,@(y7:id->sym)[01},@(y6:gensym)[01},${.(i11),.3,." "6,@(y7:add-var)[03},.9,.(i14),.3c,.(i14),.5c,.(i14),.7c,.4,:0^[(i15)5}" - ".4,'(s20:improper define form),@(y7:x-error)[(i11)2}'(y13:define-synta" - "x),.1v?{${.4,@(y6:list2?)[01}?{${.4a,@(y3:id?)[01}}{f}?{.2a,.3da,${.(i" - "10),'(l1:y9:undefined;),.5,@(y11:add-binding)[03},.8,.(i13),tc,.(i13)," - ".4c,.(i13),.6c,.4,:0^[(i14)5}.4,'(s27:improper define-syntax form),@(y" - "7:x-error)[(i11)2}.1K0?{.5,${.9,.8,.6[02}c,.(i10),.(i10),.(i10),.(i10)" - ",:0^[(i11)5}.6,.(i11),.(i11)A8,.(i11)A8,.(i11)A8,@(y12:xform-labels)[(" - "i11)5}.0,.5,.5A8,.5A8,.5A8,@(y12:xform-labels)[55}.!0.0^_1[25", + "${.4,@(y7:list2+?)[01}?{.2ap?{${.4aa,@(y3:id?)[01}?{${.4ad,@(y8:idslis" + "t?)[01}}{f}}{f}}{f}?{.2aa,${'(y6:lambda),'(y6:lambda)c,@(y6:new-id)[01" + "},.4d,.5adc,.1c,${${.6,@(y7:id->sym)[01},@(y6:gensym)[01},${.(i12),.3," + ".7,@(y7:add-var)[03},.(i10),.(i15),.3c,.(i15),.5c,.(i15),.8c,.4,:0^[(i" + "16)5}.4,'(s20:improper define form),@(y7:x-error)[(i11)2}'(y13:define-" + "syntax),.1v?{${.4,@(y6:list2?)[01}?{${.4a,@(y3:id?)[01}}{f}?{.2a,.3da," + "${.(i10),'(l1:y9:undefined;),.5,@(y11:add-binding)[03},.8,.(i13),tc,.(" + "i13),.4c,.(i13),.6c,.4,:0^[(i14)5}.4,'(s27:improper define-syntax form" + "),@(y7:x-error)[(i11)2}.1K0?{.5,${.9,.8,.6[02}c,.(i10),.(i10),.(i10),." + "(i10),:0^[(i11)5}.6,.(i11),.(i11)A8,.(i11)A8,.(i11)A8,@(y12:xform-labe" + "ls)[(i11)5}.0,.5,.5A8,.5A8,.5A8,@(y12:xform-labels)[55}.!0.0^_1[25", "P", "xform-labels", "%5n,n,.4,.4,.4,,#0.0,.(i11),.(i11),&3{%5.0u?{${:0,:1,&1{%1:0,.1,f,@(y5" @@ -279,8 +283,10 @@ char *t_code[] = { "P", "xform-define", "%2${.2,@(y6:list2?)[01}?{.0au}{f}?{.1,.1da,f,@(y5:xform)[23}${.2,@(y6:" "list2?)[01}?{${.2a,@(y3:id?)[01}}{f}?{${.3,.3da,f,@(y5:xform)[03},${.3" - "a,@(y7:id->sym)[01},'(y6:define),l3]2}.0,'(y6:define)c,'(s20:improper " - "define form),@(y7:x-error)[22", + "a,@(y7:id->sym)[01},'(y6:define),l3]2}${.2,@(y7:list2+?)[01}?{.0ap?{${" + ".2aa,@(y3:id?)[01}?{${.2ad,@(y8:idslist?)[01}}{f}}{f}}{f}?{${.3,.3d,.4" + "adc,@(y12:xform-lambda)[02},${.3aa,@(y7:id->sym)[01},'(y6:define),l3]2" + "}.0,'(y6:define)c,'(s20:improper define form),@(y7:x-error)[22", "P", "xform-define-syntax", "%2${.2,@(y6:list2?)[01}?{${.2a,@(y3:id?)[01}}{f}?{${.3,.3da,t,@(y5:xfo" @@ -353,13 +359,6 @@ char *t_code[] = { "dd,.4da,f,.7,@(y13:syntax-rules*)[04},.1^,l2]3},'(y12:syntax-rules),@(" "y20:install-transformer!)[02}", - "C", 0, - "${${@(y19:top-transformer-env),'(y6:define),'(y6:define),@(y11:add-bin" - "ding)[03},${'(l2:l2:py1:_;ppy4:name;y4:args;;y5:forms;;;l3:y6:define;y" - "4:name;py6:lambda;py4:args;y5:forms;;;;;l2:l3:y1:_;y4:name;y3:exp;;l3:" - "y6:define;y4:name;y3:exp;;;),n,f,.5,@(y13:syntax-rules*)[04}_1,'(y6:de" - "fine),@(y20:install-transformer!)[02}", - "S", "install-sr-transformer!", "l4:y12:syntax-rules;l2:y5:quote;y12:syntax-rules;;l2:l3:y1:_;l2:y5:quo" "te;y4:name;;py12:syntax-rules;pl2:y3:lit;y3:...;;y5:rules;;;;l5:y26:in"