diff --git a/k.c b/k.c index 497bb1c..503efd8 100644 --- a/k.c +++ b/k.c @@ -562,7 +562,6 @@ obj cx_find_2Dsets; /* find-sets */ obj cx_find_2Dsets_2A; /* find-sets* */ obj cx_flatten_2Didslist; /* flatten-idslist */ obj cx_gensym; /* gensym */ -obj cx_global_2Dlocation; /* global-location */ obj cx_id_2D_3Esym; /* id->sym */ obj cx_id_3F; /* id? */ obj cx_idslist_2Dreq_2Dcount; /* idslist-req-count */ @@ -570,7 +569,6 @@ obj cx_idslist_3F; /* idslist? */ obj cx_initialize_2Dmodules; /* initialize-modules */ obj cx_install_2Dglobal_2Dlambdas; /* install-global-lambdas */ obj cx_install_2Dtransformer_21; /* install-transformer! */ -obj cx_install_2Dtransformer_2Drules_21; /* install-transformer-rules! */ obj cx_integrable_2Dargc_2Dmatch_3F; /* integrable-argc-match? */ obj cx_integrable_2Dcode; /* integrable-code */ obj cx_integrable_2Dglobal; /* integrable-global */ @@ -647,84 +645,86 @@ obj cx_xform_2Dsexp_2D_3Edatum; /* xform-sexp->datum */ obj cx_xform_2Dsyntax_2Derror; /* xform-syntax-error */ obj cx_xform_2Dsyntax_2Dlambda; /* xform-syntax-lambda */ obj cx_xform_2Dsyntax_2Dlength; /* xform-syntax-length */ +obj cx_xform_2Dsyntax_2Drules; /* xform-syntax-rules */ obj cx_xform_2Dwithcc; /* xform-withcc */ -static obj cx__231013; /* constant #1013 */ -static obj cx__231021; /* constant #1021 */ -static obj cx__231047; /* constant #1047 */ +static obj cx__231000; /* constant #1000 */ +static obj cx__231043; /* constant #1043 */ +static obj cx__231050; /* constant #1050 */ 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__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__231138; /* constant #1138 */ +static obj cx__231210; /* constant #1210 */ +static obj cx__231299; /* constant #1299 */ +static obj cx__231307; /* constant #1307 */ +static obj cx__231333; /* constant #1333 */ +static obj cx__231353; /* constant #1353 */ +static obj cx__231378; /* constant #1378 */ +static obj cx__231384; /* constant #1384 */ +static obj cx__231815; /* constant #1815 */ +static obj cx__231845; /* constant #1845 */ +static obj cx__231880; /* constant #1880 */ +static obj cx__231973; /* constant #1973 */ +static obj cx__231994; /* constant #1994 */ +static obj cx__232338; /* constant #2338 */ +static obj cx__232645; /* constant #2645 */ +static obj cx__232810; /* constant #2810 */ +static obj cx__232948; /* constant #2948 */ +static obj cx__232953; /* constant #2953 */ +static obj cx__232957; /* constant #2957 */ +static obj cx__232981; /* constant #2981 */ +static obj cx__232982; /* constant #2982 */ +static obj cx__232991; /* constant #2991 */ +static obj cx__232992; /* constant #2992 */ +static obj cx__233003; /* constant #3003 */ +static obj cx__233026; /* constant #3026 */ +static obj cx__233087; /* constant #3087 */ +static obj cx__233091; /* constant #3091 */ +static obj cx__233212; /* constant #3212 */ +static obj cx__233248; /* constant #3248 */ +static obj cx__233256; /* constant #3256 */ +static obj cx__233257; /* constant #3257 */ +static obj cx__233258; /* constant #3258 */ +static obj cx__233259; /* constant #3259 */ +static obj cx__233260; /* constant #3260 */ +static obj cx__233283; /* constant #3283 */ 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__233313; /* constant #3313 */ -static obj cx__233317; /* constant #3317 */ static obj cx__23334; /* constant #334 */ -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__234321; /* constant #4321 */ -static obj cx__23472; /* constant #472 */ -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__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 */ -static obj cx__23538; /* constant #538 */ -static obj cx__23563; /* constant #563 */ -static obj cx__23569; /* constant #569 */ -static obj cx__23595; /* constant #595 */ -static obj cx__23620; /* constant #620 */ -static obj cx__23638; /* constant #638 */ -static obj cx__23648; /* constant #648 */ -static obj cx__23669; /* constant #669 */ -static obj cx__23929; /* constant #929 */ -static obj cx__23972; /* constant #972 */ -static obj cx__23974; /* constant #974 */ +static obj cx__233557; /* constant #3557 */ +static obj cx__233759; /* constant #3759 */ +static obj cx__234161; /* constant #4161 */ +static obj cx__23428; /* constant #428 */ +static obj cx__234291; /* constant #4291 */ +static obj cx__234699; /* constant #4699 */ +static obj cx__234723; /* constant #4723 */ +static obj cx__234724; /* constant #4724 */ +static obj cx__23476; /* constant #476 */ +static obj cx__234780; /* constant #4780 */ +static obj cx__234787; /* constant #4787 */ +static obj cx__234794; /* constant #4794 */ +static obj cx__234796; /* constant #4796 */ +static obj cx__234852; /* constant #4852 */ +static obj cx__23486; /* constant #486 */ +static obj cx__234883; /* constant #4883 */ +static obj cx__234888; /* constant #4888 */ +static obj cx__234889; /* constant #4889 */ +static obj cx__234907; /* constant #4907 */ +static obj cx__234910; /* constant #4910 */ +static obj cx__234916; /* constant #4916 */ +static obj cx__234924; /* constant #4924 */ +static obj cx__234932; /* constant #4932 */ +static obj cx__23496; /* constant #496 */ +static obj cx__23509; /* constant #509 */ +static obj cx__23534; /* constant #534 */ +static obj cx__23540; /* constant #540 */ +static obj cx__23566; /* constant #566 */ +static obj cx__23591; /* constant #591 */ +static obj cx__23609; /* constant #609 */ +static obj cx__23619; /* constant #619 */ +static obj cx__23640; /* constant #640 */ +static obj cx__23900; /* constant #900 */ +static obj cx__23943; /* constant #943 */ +static obj cx__23945; /* constant #945 */ static obj cx__2398; /* constant #98 */ +static obj cx__23984; /* constant #984 */ /* helper functions */ /* set-member? */ @@ -738,11 +738,11 @@ static obj cxs_set_2Dmember_3F(obj v2_x, obj v1_s) return obj_from_bool(1); } else { { /* let */ - obj v5390_tmp = (cdr((v1_s))); - obj v5389_tmp = (v2_x); + obj v5354_tmp = (cdr((v1_s))); + obj v5353_tmp = (v2_x); /* tail call */ - v2_x = (v5389_tmp); - v1_s = (v5390_tmp); + v2_x = (v5353_tmp); + v1_s = (v5354_tmp); goto s_set_2Dmember_3F; } } @@ -763,18 +763,18 @@ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) } else { if ((ispair((v41_pat)))) { { /* let */ - obj v5383_tmp; + obj v5347_tmp; { /* let */ - obj v5387_tmp; + obj v5351_tmp; { /* let */ - obj v5388_tmp; + obj v5352_tmp; { static obj o = 0; static char s[] = { 36, 0 }; - v5388_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; - v5387_tmp = obj_from_bool((car((v41_pat))) == (v5388_tmp)); + v5352_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; + v5351_tmp = obj_from_bool((car((v41_pat))) == (v5352_tmp)); } - 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)); + v5347_tmp = (bool_from_obj(v5351_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(v5383_tmp)) { + if (bool_from_obj(v5347_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))) { @@ -792,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 v5386_tmp = (cdr((v58_lst))); + obj v5350_tmp = (cdr((v58_lst))); /* tail call */ - v58_lst = (v5386_tmp); + v58_lst = (v5350_tmp); goto s_f; } } else { @@ -810,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 v5385_tmp = (cdr((v40_exp))); - obj v5384_tmp = (cdr((v41_pat))); + obj v5349_tmp = (cdr((v40_exp))); + obj v5348_tmp = (cdr((v41_pat))); /* tail call */ - v41_pat = (v5384_tmp); - v40_exp = (v5385_tmp); + v41_pat = (v5348_tmp); + v40_exp = (v5349_tmp); goto s_syntax_2Dmatch_3F; } } else { @@ -841,11 +841,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) obj v120_l; obj v119_n; { /* let */ - obj v5382_tmp = obj_from_fixnum(+0); - obj v5381_tmp = (v116_l); + obj v5346_tmp = obj_from_fixnum(+0); + obj v5345_tmp = (v116_l); /* tail call */ - v120_l = (v5381_tmp); - v119_n = (v5382_tmp); + v120_l = (v5345_tmp); + v119_n = (v5346_tmp); goto s_loop; } s_loop: @@ -856,11 +856,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) return (v119_n); } else { { /* let */ - obj v5380_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); - obj v5379_tmp = (cdr((v120_l))); + obj v5344_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); + obj v5343_tmp = (cdr((v120_l))); /* tail call */ - v120_l = (v5379_tmp); - v119_n = (v5380_tmp); + v120_l = (v5343_tmp); + v119_n = (v5344_tmp); goto s_loop; } } @@ -945,83 +945,84 @@ static obj *globv[] = { &cx_test5, &cx_transform, &cx_x_2Derror, - &cx__231013, - &cx__231021, - &cx__231047, + &cx__231000, + &cx__231043, + &cx__231050, &cx__231063, - &cx__231106, - &cx__231113, - &cx__231126, - &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__231138, + &cx__231210, + &cx__231299, + &cx__231307, + &cx__231333, + &cx__231353, + &cx__231378, + &cx__231384, + &cx__231815, + &cx__231845, + &cx__231880, + &cx__231973, + &cx__231994, + &cx__232338, + &cx__232645, + &cx__232810, + &cx__232948, + &cx__232953, + &cx__232957, + &cx__232981, + &cx__232982, + &cx__232991, + &cx__232992, + &cx__233003, + &cx__233026, + &cx__233087, + &cx__233091, + &cx__233212, + &cx__233248, + &cx__233256, + &cx__233257, + &cx__233258, + &cx__233259, + &cx__233260, + &cx__233283, &cx__233287, - &cx__233288, - &cx__233289, - &cx__233290, - &cx__233313, - &cx__233317, &cx__23334, - &cx__233587, - &cx__233789, - &cx__234191, - &cx__23424, - &cx__234321, - &cx__23472, - &cx__234729, - &cx__234753, - &cx__234754, - &cx__234810, - &cx__234817, - &cx__23482, - &cx__234824, - &cx__234826, - &cx__234882, - &cx__234913, - &cx__234918, - &cx__234919, - &cx__234937, - &cx__234940, - &cx__234946, - &cx__234954, - &cx__234962, - &cx__23507, - &cx__23515, - &cx__23525, - &cx__23538, - &cx__23563, - &cx__23569, - &cx__23595, - &cx__23620, - &cx__23638, - &cx__23648, - &cx__23669, - &cx__23929, - &cx__23972, - &cx__23974, + &cx__233557, + &cx__233759, + &cx__234161, + &cx__23428, + &cx__234291, + &cx__234699, + &cx__234723, + &cx__234724, + &cx__23476, + &cx__234780, + &cx__234787, + &cx__234794, + &cx__234796, + &cx__234852, + &cx__23486, + &cx__234883, + &cx__234888, + &cx__234889, + &cx__234907, + &cx__234910, + &cx__234916, + &cx__234924, + &cx__234932, + &cx__23496, + &cx__23509, + &cx__23534, + &cx__23540, + &cx__23566, + &cx__23591, + &cx__23609, + &cx__23619, + &cx__23640, + &cx__23900, + &cx__23943, + &cx__23945, &cx__2398, + &cx__23984, }; static cxroot_t root = { @@ -1030,7 +1031,7 @@ static cxroot_t root = { /* entry points */ static obj host(obj); -static obj cases[584] = { +static obj cases[580] = { (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, @@ -1147,7 +1148,6 @@ 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, }; /* host procedure */ @@ -1164,23 +1164,21 @@ jump: case 0: /* load module */ cx__2398 = (hpushstr(0, newstring("#"))); cx__23334 = (hpushstr(0, newstring("transformer: "))); - cx__23424 = (hpushstr(0, newstring("improper use of syntax form"))); - cx__23472 = (hpushstr(0, newstring("improper quote form"))); - cx__23482 = (hpushstr(0, newstring("improper syntax-length form"))); - cx__23507 = (hpushstr(0, newstring("improper syntax-error form"))); - cx__23515 = (hpushstr(0, newstring("improper set! form"))); - cx__23525 = (hpushstr(0, newstring("set! to non-identifier form"))); + cx__23428 = (hpushstr(0, newstring("improper use of syntax form"))); + cx__23476 = (hpushstr(0, newstring("improper quote form"))); + cx__23486 = (hpushstr(0, newstring("improper set! form"))); + cx__23496 = (hpushstr(0, newstring("set! to non-identifier form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__23538 = (hendblk(3)); } - cx__23563 = (hpushstr(0, newstring("improper set& form"))); - cx__23569 = (hpushstr(0, newstring("set& of a non-variable"))); - cx__23595 = (hpushstr(0, newstring("improper begin form"))); - cx__23620 = (hpushstr(0, newstring("improper if form"))); - cx__23638 = (hpushstr(0, newstring("malformed if form"))); + cx__23509 = (hendblk(3)); } + cx__23534 = (hpushstr(0, newstring("improper set& form"))); + cx__23540 = (hpushstr(0, newstring("set& of a non-variable"))); + cx__23566 = (hpushstr(0, newstring("improper begin form"))); + cx__23591 = (hpushstr(0, newstring("improper if form"))); + cx__23609 = (hpushstr(0, newstring("malformed if form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1192,37 +1190,40 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__23648 = (hendblk(3)); } - cx__23669 = (hpushstr(0, newstring("improper application"))); - cx__23929 = (hpushstr(0, newstring("improper lambda body"))); - cx__23972 = (hpushstr(0, newstring("improper lambda* form"))); - cx__23974 = (hpushstr(0, newstring("improper lambda* clause"))); - cx__231013 = (hpushstr(0, newstring("improper syntax-lambda body"))); - cx__231021 = (hpushstr(0, newstring("invalif syntax-lambda application"))); - cx__231047 = (hpushstr(0, newstring("improper letcc form"))); - cx__231063 = (hpushstr(0, newstring("improper withcc form"))); - cx__231106 = (hpushstr(0, newstring("improper define-syntax form"))); + cx__23619 = (hendblk(3)); } + cx__23640 = (hpushstr(0, newstring("improper application"))); + cx__23900 = (hpushstr(0, newstring("improper lambda body"))); + cx__23943 = (hpushstr(0, newstring("improper lambda* form"))); + cx__23945 = (hpushstr(0, newstring("improper lambda* clause"))); + cx__23984 = (hpushstr(0, newstring("improper letcc form"))); + cx__231000 = (hpushstr(0, newstring("improper withcc form"))); + cx__231043 = (hpushstr(0, newstring("improper define-syntax form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("undefined"))); *--hp = obj_from_size(PAIR_BTAG); - cx__231113 = (hendblk(3)); } - cx__231126 = (hpushstr(0, newstring("improper define form"))); - cx__231201 = (hpushstr(0, newstring("improper body form"))); + cx__231050 = (hendblk(3)); } + cx__231063 = (hpushstr(0, newstring("improper define form"))); + cx__231138 = (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__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"))); + cx__231210 = (hendblk(3)); } + cx__231299 = (hpushstr(0, newstring("improper syntax-lambda body"))); + cx__231307 = (hpushstr(0, newstring("invalif syntax-lambda application"))); + cx__231333 = (hpushstr(0, newstring("improper syntax-rules form"))); + cx__231353 = (hpushstr(0, newstring("improper syntax-length form"))); + cx__231378 = (hpushstr(0, newstring("improper syntax-error form"))); + cx__231384 = (hpushstr(0, newstring("improper use of ..."))); + cx__231815 = (hpushstr(0, newstring("invalid syntax"))); + cx__231845 = (hpushstr(0, newstring("compiler: "))); + cx__231880 = (hpushstr(0, newstring("cannot encode literal"))); + cx__231973 = (hpushstr(0, newstring("0123456789"))); + cx__231994 = (hpushstr(0, newstring("misplaced define form"))); + cx__232338 = (hpushstr(0, newstring("unsupported integrable type"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1240,33 +1241,33 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("quote"))); *--hp = obj_from_size(PAIR_BTAG); - cx__232675 = (hendblk(3)); } + cx__232645 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__232840 = (hendblk(3)); } + cx__232810 = (hendblk(3)); } { static char s[] = { 34, 10, 0 }; - cx__232978 = (hpushstr(0, newstring(s))); } + cx__232948 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 0 }; - cx__232983 = (hpushstr(0, newstring(s))); } + cx__232953 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 0 }; - cx__232987 = (hpushstr(0, newstring(s))); } + cx__232957 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 10, 0 }; - cx__233011 = (hpushstr(0, newstring(s))); } + cx__232981 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 83, 34, 44, 32, 34, 0 }; - cx__233012 = (hpushstr(0, newstring(s))); } + cx__232982 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 34, 0 }; - cx__233021 = (hpushstr(0, newstring(s))); } + cx__232991 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 65, 34, 44, 32, 34, 0 }; - cx__233022 = (hpushstr(0, newstring(s))); } + cx__232992 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 67, 34, 44, 32, 48, 44, 10, 0 }; - cx__233033 = (hpushstr(0, newstring(s))); } + cx__233003 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 80, 34, 44, 32, 34, 0 }; - cx__233056 = (hpushstr(0, newstring(s))); } - cx__233117 = (hpushstr(0, newstring("r"))); - cx__233121 = (hpushstr(0, newstring("cannot open input file"))); + cx__233026 = (hpushstr(0, newstring(s))); } + cx__233087 = (hpushstr(0, newstring("r"))); + cx__233091 = (hpushstr(0, newstring("cannot open input file"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1284,15 +1285,15 @@ case 0: /* load module */ *--hp = r[0]; *--hp = obj_from_char(92); *--hp = obj_from_size(PAIR_BTAG); - cx__233242 = (hendblk(3)); } + cx__233212 = (hendblk(3)); } { static char s[] = { 10, 32, 32, 48, 44, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 }; - 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"))); + cx__233248 = (hpushstr(0, newstring(s))); } + cx__233256 = (hpushstr(0, newstring("_code[] = {"))); + cx__233257 = (hpushstr(0, newstring("char *"))); + cx__233258 = (hpushstr(0, newstring(" */"))); + cx__233259 = (hpushstr(0, newstring(".c -- generated via skint -c "))); + cx__233260 = (hpushstr(0, newstring("/* "))); + cx__233283 = (hpushstr(0, newstring("K5"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2108,7 +2109,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233317 = (hendblk(3)); } + cx__233287 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2708,7 +2709,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233587 = (hendblk(3)); } + cx__233557 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -3908,7 +3909,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233789 = (hendblk(3)); } + cx__233759 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -4292,7 +4293,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234191 = (hendblk(3)); } + cx__234161 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5432,16 +5433,16 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - 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 =>"))); + cx__234291 = (hendblk(3)); } + cx__234699 = (hpushstr(0, newstring(" ms."))); + cx__234723 = (hpushstr(0, newstring("Elapsed time: "))); + cx__234724 = (hpushstr(0, newstring("Running tests ..."))); + cx__234780 = (hpushstr(0, newstring("DECODE+EXECUTE =>"))); + cx__234787 = (hpushstr(0, newstring("COMPILE-TO-STRING =>"))); + cx__234794 = (hpushstr(0, newstring("unexpected transformed output"))); + cx__234796 = (hpushstr(0, newstring("TRANSFORM =>"))); { static char s[] = { 10, 115, 107, 105, 110, 116, 62, 32, 0 }; - cx__234882 = (hpushstr(0, newstring(s))); } + cx__234852 = (hpushstr(0, newstring(s))); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5453,8 +5454,8 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("main"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234913 = (hendblk(3)); } - cx__234918 = (hpushstr(0, newstring("unexpected benchmark file format"))); + cx__234883 = (hendblk(3)); } + cx__234888 = (hpushstr(0, newstring("unexpected benchmark file format"))); r[0] = (hpushstr(0, newstring("libl.sf"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -5467,21 +5468,21 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("load"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234919 = (hendblk(3)); } + cx__234889 = (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__234937 = (hendblk(3)); } + cx__234907 = (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__234940 = (hendblk(3)); } + cx__234910 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5494,7 +5495,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__234946 = (hendblk(3)); } + cx__234916 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5507,7 +5508,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__234954 = (hendblk(3)); } + cx__234924 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5520,7 +5521,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__234962 = (hendblk(3)); } + cx__234932 = (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; } @@ -5606,26 +5607,27 @@ case 0: /* load module */ { static obj c[] = { obj_from_case(62) }; cx_xform_2Dsexp_2D_3Edatum = (obj)c; } { static obj c[] = { obj_from_case(70) }; cx_xform_2Dref = (obj)c; } { static obj c[] = { obj_from_case(72) }; cx_xform_2Dquote = (obj)c; } - { static obj c[] = { obj_from_case(74) }; cx_xform_2Dsyntax_2Dlength = (obj)c; } - { static obj c[] = { obj_from_case(75) }; cx_xform_2Dsyntax_2Derror = (obj)c; } - { static obj c[] = { obj_from_case(79) }; cx_xform_2Dset_21 = (obj)c; } - { static obj c[] = { obj_from_case(82) }; cx_xform_2Dset_26 = (obj)c; } - { static obj c[] = { obj_from_case(84) }; cx_xform_2Dbegin = (obj)c; } - { static obj c[] = { obj_from_case(88) }; cx_xform_2Dif = (obj)c; } - { static obj c[] = { obj_from_case(93) }; cx_xform_2Dcall = (obj)c; } - { static obj c[] = { obj_from_case(97) }; cx_integrable_2Dargc_2Dmatch_3F = (obj)c; } - { static obj c[] = { obj_from_case(98) }; cx_xform_2Dintegrable = (obj)c; } - { static obj c[] = { obj_from_case(105) }; cx_xform_2Dlambda = (obj)c; } - { static obj c[] = { obj_from_case(117) }; cx_xform_2Dlambda_2A = (obj)c; } - { static obj c[] = { obj_from_case(124) }; cx_xform_2Dsyntax_2Dlambda = (obj)c; } - { 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(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; } + { static obj c[] = { obj_from_case(74) }; cx_xform_2Dset_21 = (obj)c; } + { static obj c[] = { obj_from_case(77) }; cx_xform_2Dset_26 = (obj)c; } + { static obj c[] = { obj_from_case(79) }; cx_xform_2Dbegin = (obj)c; } + { static obj c[] = { obj_from_case(83) }; cx_xform_2Dif = (obj)c; } + { static obj c[] = { obj_from_case(88) }; cx_xform_2Dcall = (obj)c; } + { static obj c[] = { obj_from_case(92) }; cx_integrable_2Dargc_2Dmatch_3F = (obj)c; } + { static obj c[] = { obj_from_case(93) }; cx_xform_2Dintegrable = (obj)c; } + { static obj c[] = { obj_from_case(100) }; cx_xform_2Dlambda = (obj)c; } + { static obj c[] = { obj_from_case(112) }; cx_xform_2Dlambda_2A = (obj)c; } + { static obj c[] = { obj_from_case(119) }; cx_xform_2Dletcc = (obj)c; } + { static obj c[] = { obj_from_case(124) }; cx_xform_2Dwithcc = (obj)c; } + { static obj c[] = { obj_from_case(127) }; cx_xform_2Dbody = (obj)c; } + { static obj c[] = { obj_from_case(141) }; cx_xform_2Dlabels = (obj)c; } + { static obj c[] = { obj_from_case(153) }; cx_xform_2Ddefine = (obj)c; } + { static obj c[] = { obj_from_case(159) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; } + { static obj c[] = { obj_from_case(162) }; cx_xform_2Dsyntax_2Dlambda = (obj)c; } + { static obj c[] = { obj_from_case(170) }; cx_xform_2Dsyntax_2Drules = (obj)c; } + { static obj c[] = { obj_from_case(175) }; cx_xform_2Dsyntax_2Dlength = (obj)c; } + { static obj c[] = { obj_from_case(176) }; cx_xform_2Dsyntax_2Derror = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(175); + *--hp = obj_from_case(180); r[0] = (hendblk(0+1)); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -5725,6 +5727,18 @@ case 0: /* load module */ r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ + *--hp = (mksymbol(internsym("syntax-rules"))); + *--hp = (mksymbol(internsym("syntax-rules"))); + *--hp = obj_from_size(PAIR_BTAG); + r[1] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 2); /* 2 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[0] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mksymbol(internsym("syntax-lambda"))); *--hp = (mksymbol(internsym("syntax-lambda"))); *--hp = obj_from_size(PAIR_BTAG); @@ -5831,11 +5845,10 @@ case 0: /* load module */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__2Atransformers_2A = (hendblk(3)); } - { 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; } + { static obj c[] = { obj_from_case(181) }; cx_top_2Dtransformer_2Denv = (obj)c; } + { static obj c[] = { obj_from_case(185) }; cx_install_2Dtransformer_21 = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(185); + *--hp = obj_from_case(187); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -5843,15 +5856,79 @@ 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(186) }; cx_syntax_2Drules_2A = (obj)c; } + { static obj c[] = { obj_from_case(188) }; cx_syntax_2Drules_2A = (obj)c; } + cx__2Aglobals_2A = (mknull()); + { /* cons */ + hreserve(hbsz(3), 0); /* 0 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), 0); /* 0 live regs */ - *--hp = obj_from_case(246); + *--hp = obj_from_case(248); r[0] = (hendblk(0+1)); - r[1+0] = r[0]; - r[1+1] = (mksymbol(internsym("syntax-rules"))); - r += 1; /* shift reg wnd */ + { /* make-improper-lambda */ + hreserve(hbsz(3), 1); /* 1 live regs */ + *--hp = r[0]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx_c_2Derror = (hendblk(3)); } + { static obj c[] = { obj_from_case(249) }; cx_write_2Dserialized_2Dchar = (obj)c; } + { static obj c[] = { obj_from_case(251) }; cx_write_2Dserialized_2Dbyte = (obj)c; } + { static obj c[] = { obj_from_case(253) }; cx_write_2Dserialized_2Dsize = (obj)c; } + { static obj c[] = { obj_from_case(255) }; cx_write_2Dserialized_2Delement = (obj)c; } + { static obj c[] = { obj_from_case(257) }; cx_write_2Dserialized_2Dsexp = (obj)c; } + { static obj c[] = { obj_from_case(276) }; cx_write_2Dserialized_2Darg = (obj)c; } + { static obj c[] = { obj_from_case(278) }; cx_find_2Dfree_2A = (obj)c; } + { static obj c[] = { obj_from_case(281) }; cx_find_2Dfree = (obj)c; } + { static obj c[] = { obj_from_case(310) }; cx_find_2Dsets_2A = (obj)c; } + { static obj c[] = { obj_from_case(313) }; cx_find_2Dsets = (obj)c; } + { static obj c[] = { obj_from_case(342) }; cx_codegen = (obj)c; } + { static obj c[] = { obj_from_case(456) }; cx_compile_2Dto_2Dstring = (obj)c; } + { /* define execute-thunk-closure */ + static obj c[] = { obj_from_objptr(vmcases+0) }; + cx_execute_2Dthunk_2Dclosure = obj_from_objptr(c); } + { /* define make-closure */ + static obj c[] = { obj_from_objptr(vmcases+1) }; + cx_make_2Dclosure = obj_from_objptr(c); } + { static obj c[] = { obj_from_case(459) }; cx_execute = (obj)c; } + { /* define decode-sexp */ + static obj c[] = { obj_from_objptr(vmcases+2) }; + cx_decode_2Dsexp = obj_from_objptr(c); } + { /* define decode */ + static obj c[] = { obj_from_objptr(vmcases+3) }; + cx_decode = obj_from_objptr(c); } + { static obj c[] = { obj_from_case(461) }; cx_evaluate = (obj)c; } + cx__2Ahide_2Drefs_2A = (mknull()); + { static obj c[] = { obj_from_case(466) }; cx_display_2Dcode = (obj)c; } + { static obj c[] = { obj_from_case(467) }; cx_process_2Dsyntax = (obj)c; } + { static obj c[] = { obj_from_case(470) }; cx_process_2Dalias = (obj)c; } + { static obj c[] = { obj_from_case(471) }; cx_process_2Dcommand = (obj)c; } + { static obj c[] = { obj_from_case(475) }; cx_process_2Ddefine = (obj)c; } + { static obj c[] = { obj_from_case(482) }; cx_scan_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(495) }; cx_process_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(519) }; cx_path_2Dstrip_2Ddirectory = (obj)c; } + { static obj c[] = { obj_from_case(521) }; cx_path_2Dstrip_2Dextension = (obj)c; } + { static obj c[] = { obj_from_case(523) }; cx_module_2Dname = (obj)c; } + { static obj c[] = { obj_from_case(525) }; cx_process_2Dfile = (obj)c; } + cx_continuation_2Dadapter_2Dcode = obj_from_bool(0); + { /* define decode */ + static obj c[] = { obj_from_objptr(vmcases+3) }; + r[0] = obj_from_objptr(c); } + hreserve(hbsz(0+1), 1); /* 1 live regs */ + *--hp = obj_from_case(534); + r[1] = (hendblk(0+1)); + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = r[1]; + r[2+2] = (cx__233283); + r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto gs_top_2Dtransformer_2Denv; + rc = 3; + goto jump; case 1: /* set-member? k x s */ assert(rc == 4); @@ -6435,16 +6512,16 @@ gs_normalize_2Darity: /* k arity */ r[2+2] = r[1]; r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v14003; + goto s_loop_v13912; } -s_loop_v14003: /* k cnt l */ +s_loop_v13912: /* 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_v14003; + goto s_loop_v13912; } else { if ((isnull((r[2])))) { { /* cons */ @@ -6502,10 +6579,10 @@ gs_flatten_2Didslist: /* k ilist */ r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13990; + goto s_loop_v13899; } -s_loop_v13990: /* k l r */ +s_loop_v13899: /* k l r */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); r[4] = (car((r[1]))); @@ -6518,7 +6595,7 @@ s_loop_v13990: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v13990; + goto s_loop_v13899; } else { if ((isnull((r[1])))) { { /* reverse! */ @@ -7147,7 +7224,7 @@ case 56: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; - r[2] = (cx__23424); + r[2] = (cx__23428); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; @@ -7267,12 +7344,6 @@ case 59: /* clo ek r */ r[2] = r[4]; goto gs_xform_2Dlambda_2A; } else { - if ((((r[1]) == (mksymbol(internsym("syntax-lambda")))) && (1))) { - r[0] = r[5]; - r[1] = r[6]; - r[2] = r[4]; - goto gs_xform_2Dsyntax_2Dlambda; - } else { if ((((r[1]) == (mksymbol(internsym("letcc")))) && (1))) { r[0] = r[5]; r[1] = r[6]; @@ -7303,6 +7374,18 @@ case 59: /* clo ek r */ r[2] = r[4]; goto gs_xform_2Ddefine_2Dsyntax; } else { + if ((((r[1]) == (mksymbol(internsym("syntax-lambda")))) && (1))) { + r[0] = r[5]; + r[1] = r[6]; + r[2] = r[4]; + goto gs_xform_2Dsyntax_2Dlambda; + } else { + if ((((r[1]) == (mksymbol(internsym("syntax-rules")))) && (1))) { + r[0] = r[5]; + r[1] = r[6]; + r[2] = r[4]; + goto gs_xform_2Dsyntax_2Drules; + } else { if ((((r[1]) == (mksymbol(internsym("syntax-length")))) && (1))) { r[0] = r[5]; r[1] = r[6]; @@ -7351,6 +7434,7 @@ case 59: /* clo ek r */ } } } + } case 60: /* clo ek r */ assert(rc == 3); @@ -7526,9 +7610,9 @@ case 66: /* clo ek r */ r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v13715; + goto s_loop_v13624; -s_loop_v13715: /* k l conv */ +s_loop_v13624: /* k l conv */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -7540,7 +7624,7 @@ s_loop_v13715: /* k l conv */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13715; + goto s_loop_v13624; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -7679,7 +7763,7 @@ gs_xform_2Dquote: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23472); + r[4+2] = (cx__23476); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -7713,175 +7797,7 @@ case 73: /* clo ek r */ rc = 3; goto jump; -case 74: /* xform-syntax-length k tail env */ - assert(rc == 4); - r += 1; /* shift reg. wnd */ -gs_xform_2Dsyntax_2Dlength: /* k tail env */ - if (bool_from_obj(cxs_list1_3F((r[1])))) { - r[3] = (car((r[1]))); - r[3] = obj_from_bool(islist((r[3]))); - } else { - r[3] = obj_from_bool(0); - } - if (bool_from_obj(r[3])) { - r[3] = (car((r[1]))); - { /* length */ - int n; obj l = r[3]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - r[3] = obj_from_fixnum(n); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = (mknull()); - *--hp = r[3]; - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = (mksymbol(internsym("quote"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - r[4+0] = r[0]; - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = obj_from_ktrap(); - r[4+2] = r[3]; - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("syntax-length"))); - *--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__23482); - r[4+3] = r[3]; - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } - -case 75: /* xform-syntax-error k tail env */ - assert(rc == 4); - r += 1; /* shift reg. wnd */ -gs_xform_2Dsyntax_2Derror: /* k tail env */ - hreserve(hbsz(2+1), 3); /* 3 live regs */ - *--hp = r[0]; - *--hp = r[1]; - *--hp = obj_from_case(78); - r[3] = (hendblk(2+1)); - r[0] = r[3]; - /* r[1] */ - goto s_loop_v13645; - -s_loop_v13645: /* k l */ - if ((ispair((r[1])))) { - r[2] = (cdr((r[1]))); - hreserve(hbsz(2+1), 3); /* 3 live regs */ - *--hp = r[0]; - *--hp = r[1]; - *--hp = obj_from_case(76); - r[3] = (hendblk(2+1)); - r[0] = r[3]; - r[1] = r[2]; - goto s_loop_v13645; - } else { - r[2+0] = r[0]; - pc = objptr_from_obj(r[2+0])[0]; - r[2+1] = obj_from_ktrap(); - r[2+2] = (mknull()); - r += 2; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } - -case 76: /* 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 l k */ - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[1]; - *--hp = r[3]; - *--hp = obj_from_case(77); - r[4] = (hendblk(2+1)); - r[0] = r[4]; - r[1] = (car((r[2]))); - goto gs_xform_2Dsexp_2D_3Edatum; - -case 77: /* 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)); } - r[5+0] = r[2]; - 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 78: /* 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 */ - if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { - r[4] = (car((r[1]))); - r[4] = obj_from_bool(isstring((r[4]))); - } else { - r[4] = obj_from_bool(0); - } - if (bool_from_obj(r[4])) { - r[4+0] = (cx_apply); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[3]; - r[4+2] = (cx_x_2Derror); - r[4+3] = r[1]; - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } else { - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("syntax-error"))); - *--hp = obj_from_size(PAIR_BTAG); - r[4] = (hendblk(3)); } - r[5+0] = (cx_x_2Derror); - pc = objptr_from_obj(r[5+0])[0]; - r[5+1] = r[3]; - r[5+2] = (cx__23507); - r[5+3] = r[4]; - r += 5; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } - -case 79: /* xform-set! k tail env */ +case 74: /* xform-set! k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dset_21: /* k tail env */ @@ -7896,7 +7812,7 @@ gs_xform_2Dset_21: /* k tail env */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(80); + *--hp = obj_from_case(75); r[3] = (hendblk(3+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -7917,7 +7833,7 @@ gs_xform_2Dset_21: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23515); + r[4+2] = (cx__23486); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -7925,7 +7841,7 @@ gs_xform_2Dset_21: /* k tail env */ goto jump; } -case 80: /* clo ek r */ +case 75: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7936,7 +7852,7 @@ case 80: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(81); + *--hp = obj_from_case(76); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -7946,7 +7862,7 @@ case 80: /* clo ek r */ rc = 3; goto jump; -case 81: /* clo ek r */ +case 76: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7985,7 +7901,7 @@ case 81: /* clo ek r */ r[4] = obj_from_bool(!(ispair((r[4])))); if (bool_from_obj(r[4])) { (void)(cdr((r[1])) = (r[3])); - r[4] = (cx__23538); + r[4] = (cx__23509); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); @@ -8030,7 +7946,7 @@ case 81: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23525); + r[2] = (cx__23496); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -8038,14 +7954,14 @@ case 81: /* clo ek r */ } } -case 82: /* xform-set& k tail env */ +case 77: /* xform-set& k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dset_26: /* k tail env */ if (bool_from_obj(cxs_list1_3F((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(83); + *--hp = obj_from_case(78); r[3] = (hendblk(1+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -8065,7 +7981,7 @@ gs_xform_2Dset_26: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23563); + r[4+2] = (cx__23534); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -8073,7 +7989,7 @@ gs_xform_2Dset_26: /* k tail env */ goto jump; } -case 83: /* clo ek r */ +case 78: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -8107,7 +8023,7 @@ case 83: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23569); + r[2] = (cx__23540); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -8141,7 +8057,7 @@ case 83: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23569); + r[2] = (cx__23540); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -8149,19 +8065,19 @@ case 83: /* clo ek r */ } } -case 84: /* xform-begin k tail env */ +case 79: /* xform-begin k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dbegin: /* k tail env */ if ((islist((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(87); + *--hp = obj_from_case(82); r[3] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v13580; + goto s_loop_v13528; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -8172,7 +8088,7 @@ gs_xform_2Dbegin: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23595); + r[4+2] = (cx__23566); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -8180,19 +8096,19 @@ gs_xform_2Dbegin: /* k tail env */ goto jump; } -s_loop_v13580: /* k l env */ +s_loop_v13528: /* 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(85); + *--hp = obj_from_case(80); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13580; + goto s_loop_v13528; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8203,7 +8119,7 @@ s_loop_v13580: /* k l env */ goto jump; } -case 85: /* clo ek r */ +case 80: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8214,7 +8130,7 @@ case 85: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(86); + *--hp = obj_from_case(81); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -8224,7 +8140,7 @@ case 85: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 86: /* clo ek r */ +case 81: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8246,7 +8162,7 @@ case 86: /* clo ek r */ rc = 3; goto jump; -case 87: /* clo ek r */ +case 82: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -8277,7 +8193,7 @@ case 87: /* clo ek r */ rc = 3; goto jump; -case 88: /* xform-if k tail env */ +case 83: /* xform-if k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dif: /* k tail env */ @@ -8285,12 +8201,12 @@ gs_xform_2Dif: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(91); + *--hp = obj_from_case(86); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v13549; + goto s_loop_v13497; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -8301,7 +8217,7 @@ gs_xform_2Dif: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23620); + r[4+2] = (cx__23591); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -8309,7 +8225,186 @@ gs_xform_2Dif: /* k tail env */ goto jump; } -s_loop_v13549: /* k l env */ +s_loop_v13497: /* 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(84); + r[4] = (hendblk(3+1)); + r[0] = r[4]; + r[1] = r[3]; + /* r[2] */ + goto s_loop_v13497; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = (mknull()); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 84: /* 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 env l k */ + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[1]; + *--hp = r[4]; + *--hp = obj_from_case(85); + r[5] = (hendblk(2+1)); + r[6+0] = r[5]; + r[6+1] = obj_from_bool(0); + r[6+2] = (car((r[3]))); + r[6+3] = r[2]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_xform; + +case 85: /* 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)); } + r[5+0] = r[2]; + 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 86: /* 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 */ + { /* length */ + int n; obj l = r[1]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + r[4] = obj_from_fixnum(n); } + if (((((r[4]) == obj_from_fixnum(+2)) && ((r[4]) == obj_from_fixnum(+2))) && (1))) { + hreserve(hbsz(1+1), 5); /* 5 live regs */ + *--hp = r[3]; + *--hp = obj_from_case(87); + r[5] = (hendblk(1+1)); + r[6+0] = (cx__25append); + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[5]; + r[6+2] = r[1]; + r[6+3] = (cx__23619); + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } else { + if (((((r[4]) == obj_from_fixnum(+3)) && ((r[4]) == obj_from_fixnum(+3))) && (1))) { + { /* cons */ + hreserve(hbsz(3), 5); /* 5 live regs */ + *--hp = r[1]; + *--hp = (mksymbol(internsym("if"))); + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + r[6+0] = r[3]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = r[5]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + { /* cons */ + hreserve(hbsz(3), 5); /* 5 live regs */ + *--hp = r[2]; + *--hp = (mksymbol(internsym("if"))); + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + r[6+0] = (cx_x_2Derror); + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[3]; + r[6+2] = (cx__23609); + r[6+3] = r[5]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + } + +case 87: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* ek r k */ + { /* cons */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[1]; + *--hp = (mksymbol(internsym("if"))); + *--hp = obj_from_size(PAIR_BTAG); + r[3] = (hendblk(3)); } + r[4+0] = r[2]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 88: /* xform-call k xexp tail env */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ +gs_xform_2Dcall: /* k xexp tail env */ + if ((islist((r[2])))) { + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[1]; + *--hp = r[0]; + *--hp = obj_from_case(91); + r[4] = (hendblk(2+1)); + r[0] = r[4]; + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v13458; + } else { + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[2]; + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + r[5+0] = (cx_x_2Derror); + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = r[0]; + r[5+2] = (cx__23640); + r[5+3] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +s_loop_v13458: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ @@ -8321,7 +8416,7 @@ s_loop_v13549: /* k l env */ r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13549; + goto s_loop_v13458; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8376,185 +8471,6 @@ case 90: /* clo ek r */ goto jump; case 91: /* 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 */ - { /* length */ - int n; obj l = r[1]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - r[4] = obj_from_fixnum(n); } - if (((((r[4]) == obj_from_fixnum(+2)) && ((r[4]) == obj_from_fixnum(+2))) && (1))) { - hreserve(hbsz(1+1), 5); /* 5 live regs */ - *--hp = r[3]; - *--hp = obj_from_case(92); - r[5] = (hendblk(1+1)); - r[6+0] = (cx__25append); - pc = objptr_from_obj(r[6+0])[0]; - r[6+1] = r[5]; - r[6+2] = r[1]; - r[6+3] = (cx__23648); - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } else { - if (((((r[4]) == obj_from_fixnum(+3)) && ((r[4]) == obj_from_fixnum(+3))) && (1))) { - { /* cons */ - hreserve(hbsz(3), 5); /* 5 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("if"))); - *--hp = obj_from_size(PAIR_BTAG); - r[5] = (hendblk(3)); } - r[6+0] = r[3]; - pc = objptr_from_obj(r[6+0])[0]; - r[6+1] = obj_from_ktrap(); - r[6+2] = r[5]; - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - { /* cons */ - hreserve(hbsz(3), 5); /* 5 live regs */ - *--hp = r[2]; - *--hp = (mksymbol(internsym("if"))); - *--hp = obj_from_size(PAIR_BTAG); - r[5] = (hendblk(3)); } - r[6+0] = (cx_x_2Derror); - pc = objptr_from_obj(r[6+0])[0]; - r[6+1] = r[3]; - r[6+2] = (cx__23638); - r[6+3] = r[5]; - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } - } - -case 92: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; } - r += 1; /* shift reg. wnd */ - /* ek r k */ - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = (mksymbol(internsym("if"))); - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - r[4+0] = r[2]; - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = obj_from_ktrap(); - r[4+2] = r[3]; - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 93: /* xform-call k xexp tail env */ - assert(rc == 5); - r += 1; /* shift reg. wnd */ -gs_xform_2Dcall: /* k xexp tail env */ - if ((islist((r[2])))) { - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[1]; - *--hp = r[0]; - *--hp = obj_from_case(96); - r[4] = (hendblk(2+1)); - r[0] = r[4]; - r[1] = r[2]; - r[2] = r[3]; - goto s_loop_v13510; - } else { - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[2]; - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[4] = (hendblk(3)); } - r[5+0] = (cx_x_2Derror); - pc = objptr_from_obj(r[5+0])[0]; - r[5+1] = r[0]; - r[5+2] = (cx__23669); - r[5+3] = r[4]; - r += 5; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } - -s_loop_v13510: /* 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(94); - r[4] = (hendblk(3+1)); - r[0] = r[4]; - r[1] = r[3]; - /* r[2] */ - goto s_loop_v13510; - } else { - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = (mknull()); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } - -case 94: /* 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 env l k */ - hreserve(hbsz(2+1), 5); /* 5 live regs */ - *--hp = r[1]; - *--hp = r[4]; - *--hp = obj_from_case(95); - r[5] = (hendblk(2+1)); - r[6+0] = r[5]; - r[6+1] = obj_from_bool(0); - r[6+2] = (car((r[3]))); - r[6+3] = r[2]; - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_xform; - -case 95: /* 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)); } - r[5+0] = r[2]; - 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 96: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8598,7 +8514,7 @@ case 96: /* clo ek r */ goto jump; } -case 97: /* integrable-argc-match? k igt n */ +case 92: /* integrable-argc-match? k igt n */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ @@ -8606,79 +8522,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 v14261_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14261_tmp)); } + { const flonum_t v14170_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14170_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 v14260_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14260_tmp)); } + { const flonum_t v14169_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14169_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 v14259_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14259_tmp)); } + { const flonum_t v14168_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14168_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 v14258_tmp = ((flonum_t)(+3)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14258_tmp)); } + { const flonum_t v14167_tmp = ((flonum_t)(+3)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14167_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 v14257_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14257_tmp)); } + { const flonum_t v14166_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14166_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 v14256_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14256_tmp)); } + { const flonum_t v14165_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14165_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 v14255_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14255_tmp)); } + { const flonum_t v14164_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14164_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 v14254_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14254_tmp)); } + { const flonum_t v14163_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14163_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 v14253_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool((v14253_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v14162_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool((v14162_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 v14252_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14252_tmp)); } + { const flonum_t v14161_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14161_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -8688,15 +8604,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 v14251_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool((v14251_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v14160_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool((v14160_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 v14250_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14250_tmp)); } + { const flonum_t v14159_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14159_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -8706,15 +8622,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 v14249_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool((v14249_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v14158_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool((v14158_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 v14248_tmp = ((flonum_t)(+3)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14248_tmp)); } + { const flonum_t v14157_tmp = ((flonum_t)(+3)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14157_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -8724,8 +8640,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 v14247_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14247_tmp)); } + { const flonum_t v14156_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14156_tmp)); } } } else { r[3] = obj_from_bool(((((r[1]) == obj_from_char('@')) || ((is_flonum_obj(r[1])) && (0))) && (1)) && (0)); @@ -8750,7 +8666,7 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ rc = 3; goto jump; -case 98: /* xform-integrable k ig tail env */ +case 93: /* xform-integrable k ig tail env */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_xform_2Dintegrable: /* k ig tail env */ @@ -8762,7 +8678,7 @@ gs_xform_2Dintegrable: /* k ig tail env */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(99); + *--hp = obj_from_case(94); r[5] = (hendblk(4+1)); r[6+0] = r[4]; pc = objptr_from_obj(r[6+0])[0]; @@ -8773,7 +8689,7 @@ gs_xform_2Dintegrable: /* k ig tail env */ rc = 3; goto jump; -case 99: /* clo ek r */ +case 94: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8787,7 +8703,7 @@ case 99: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(100); + *--hp = obj_from_case(95); r[6] = (hendblk(4+1)); { /* length */ int n; obj l = r[3]; @@ -8798,7 +8714,7 @@ case 99: /* clo ek r */ r[2] = r[7]; goto gs_integrable_2Dargc_2Dmatch_3F; -case 100: /* clo ek r */ +case 95: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8811,12 +8727,12 @@ case 100: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(103); + *--hp = obj_from_case(98); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13461; + goto s_loop_v13409; } else { { /* define integrable-global */ static obj c[] = { obj_from_objptr(vmcases+11) }; @@ -8825,7 +8741,7 @@ case 100: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(104); + *--hp = obj_from_case(99); r[7] = (hendblk(3+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; @@ -8836,19 +8752,19 @@ case 100: /* clo ek r */ goto jump; } -s_loop_v13461: /* k l env */ +s_loop_v13409: /* 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(101); + *--hp = obj_from_case(96); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13461; + goto s_loop_v13409; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8859,7 +8775,7 @@ s_loop_v13461: /* k l env */ goto jump; } -case 101: /* clo ek r */ +case 96: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8870,7 +8786,7 @@ case 101: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(102); + *--hp = obj_from_case(97); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -8880,7 +8796,7 @@ case 101: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 102: /* clo ek r */ +case 97: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8902,7 +8818,7 @@ case 102: /* clo ek r */ rc = 3; goto jump; -case 103: /* clo ek r */ +case 98: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8929,7 +8845,7 @@ case 103: /* clo ek r */ rc = 3; goto jump; -case 104: /* clo ek r */ +case 99: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8957,7 +8873,7 @@ case 104: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dcall; -case 105: /* xform-lambda k tail env */ +case 100: /* xform-lambda k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dlambda: /* k tail env */ @@ -8965,7 +8881,7 @@ gs_xform_2Dlambda: /* k tail env */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(106); + *--hp = obj_from_case(101); r[3] = (hendblk(3+1)); if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { r[0] = r[3]; @@ -8979,17 +8895,17 @@ gs_xform_2Dlambda: /* k tail env */ r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13369; + goto s_l_v13317; } -case 106: /* clo ek r */ +case 101: /* 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_v13369: /* ek r env tail k */ +s_l_v13317: /* ek r env tail k */ if (bool_from_obj(r[1])) { r[5] = (car((r[3]))); r[6+0] = r[4]; @@ -8999,7 +8915,7 @@ s_l_v13369: /* ek r env tail k */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13370; + goto s_loop_v13318; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -9010,24 +8926,24 @@ s_l_v13369: /* ek r env tail k */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__23929); + r[2] = (cx__23900); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 107: /* clo k vars ienv ipars */ +case 102: /* clo k vars ienv ipars */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v13370: /* k vars ienv ipars tail */ +s_loop_v13318: /* k vars ienv ipars tail */ if ((ispair((r[1])))) { r[5] = (car((r[1]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[4]; - *--hp = obj_from_case(107); + *--hp = obj_from_case(102); r[6] = (hendblk(1+1)); hreserve(hbsz(6+1), 7); /* 7 live regs */ *--hp = r[0]; @@ -9036,7 +8952,7 @@ s_loop_v13370: /* k vars ienv ipars tail */ *--hp = r[6]; *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(108); + *--hp = obj_from_case(103); r[6] = (hendblk(6+1)); r[0] = r[6]; r[1] = r[5]; @@ -9046,7 +8962,7 @@ s_loop_v13370: /* k vars ienv ipars tail */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(111); + *--hp = obj_from_case(106); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[4]))); @@ -9059,7 +8975,7 @@ s_loop_v13370: /* k vars ienv ipars tail */ *--hp = r[4]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(112); + *--hp = obj_from_case(107); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ @@ -9067,7 +8983,7 @@ s_loop_v13370: /* k vars ienv ipars tail */ } } -case 108: /* clo ek r */ +case 103: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9085,7 +9001,7 @@ case 108: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(109); + *--hp = obj_from_case(104); r[8] = (hendblk(6+1)); r[9+0] = (cx_gensym); pc = objptr_from_obj(r[9+0])[0]; @@ -9096,7 +9012,7 @@ case 108: /* clo ek r */ rc = 3; goto jump; -case 109: /* clo ek r */ +case 104: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9113,7 +9029,7 @@ case 109: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(110); + *--hp = obj_from_case(105); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = r[3]; @@ -9123,7 +9039,7 @@ case 109: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 110: /* clo ek r */ +case 105: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9150,7 +9066,7 @@ case 110: /* clo ek r */ rc = 5; goto jump; -case 111: /* clo ek r */ +case 106: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9163,13 +9079,13 @@ case 111: /* clo ek r */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } - { fixnum_t v14246_tmp; + { fixnum_t v14155_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14246_tmp = (n); } + v14155_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14246_tmp); + obj l, o = mknull(); int c = (v14155_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); @@ -9195,7 +9111,7 @@ case 111: /* clo ek r */ rc = 3; goto jump; -case 112: /* clo ek r */ +case 107: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9211,7 +9127,7 @@ case 112: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(113); + *--hp = obj_from_case(108); r[7] = (hendblk(5+1)); r[8+0] = (cx_gensym); pc = objptr_from_obj(r[8+0])[0]; @@ -9222,7 +9138,7 @@ case 112: /* clo ek r */ rc = 3; goto jump; -case 113: /* clo ek r */ +case 108: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9237,7 +9153,7 @@ case 113: /* clo ek r */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(114); + *--hp = obj_from_case(109); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[3]; @@ -9247,7 +9163,7 @@ case 113: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 114: /* clo ek r */ +case 109: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9260,7 +9176,7 @@ case 114: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(115); + *--hp = obj_from_case(110); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = (cdr((r[2]))); @@ -9269,7 +9185,7 @@ case 114: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dbody; -case 115: /* clo ek r */ +case 110: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9286,15 +9202,15 @@ case 115: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(116); + *--hp = obj_from_case(111); r[6] = (hendblk(2+1)); - { fixnum_t v14245_tmp; + { fixnum_t v14154_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14245_tmp = (n); } + v14154_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14245_tmp); + obj l, o = mknull(); int c = (v14154_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); @@ -9310,7 +9226,7 @@ case 115: /* clo ek r */ rc = 4; goto jump; -case 116: /* clo ek r */ +case 111: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9337,19 +9253,19 @@ case 116: /* clo ek r */ rc = 3; goto jump; -case 117: /* xform-lambda* k tail env */ +case 112: /* xform-lambda* k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dlambda_2A: /* k tail env */ if ((islist((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(123); + *--hp = obj_from_case(118); r[3] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v13325; + goto s_loop_v13273; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -9360,7 +9276,7 @@ gs_xform_2Dlambda_2A: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23972); + r[4+2] = (cx__23943); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -9368,19 +9284,19 @@ gs_xform_2Dlambda_2A: /* k tail env */ goto jump; } -s_loop_v13325: /* k l env */ +s_loop_v13273: /* k l 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(118); + *--hp = obj_from_case(113); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13325; + goto s_loop_v13273; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -9391,7 +9307,7 @@ s_loop_v13325: /* k l env */ goto jump; } -case 118: /* clo ek r */ +case 113: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9403,13 +9319,13 @@ case 118: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(119); + *--hp = obj_from_case(114); r[6] = (hendblk(2+1)); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(120); + *--hp = obj_from_case(115); r[6] = (hendblk(3+1)); if (bool_from_obj(cxs_list2_3F((r[5])))) { r[7] = (car((r[5]))); @@ -9433,7 +9349,7 @@ case 118: /* clo ek r */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(119); + *--hp = obj_from_case(114); r[8] = (hendblk(2+1)); r[9+0] = obj_from_ktrap(); r[9+1] = r[7]; @@ -9442,7 +9358,7 @@ case 118: /* clo ek r */ r[9+4] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13329; + goto s_l_v13277; } else { r[0] = r[6]; r[1] = (car((r[5]))); @@ -9452,7 +9368,7 @@ case 118: /* clo ek r */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(119); + *--hp = obj_from_case(114); r[7] = (hendblk(2+1)); r[8+0] = obj_from_ktrap(); r[8+1] = obj_from_bool(0); @@ -9461,10 +9377,10 @@ case 118: /* clo ek r */ r[8+4] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13329; + goto s_l_v13277; } -case 119: /* clo ek r */ +case 114: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9486,19 +9402,19 @@ case 119: /* clo ek r */ rc = 3; goto jump; -case 120: /* clo ek r */ +case 115: /* 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_v13329: /* ek r env aexp k */ +s_l_v13277: /* ek r env aexp 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(121); + *--hp = obj_from_case(116); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (car((r[6]))); @@ -9513,14 +9429,14 @@ s_l_v13329: /* ek r env aexp k */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__23974); + r[2] = (cx__23945); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 121: /* clo ek r */ +case 116: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9536,13 +9452,13 @@ case 121: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(122); + *--hp = obj_from_case(117); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_normalize_2Darity; -case 122: /* clo ek r */ +case 117: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9564,7 +9480,7 @@ case 122: /* clo ek r */ rc = 3; goto jump; -case 123: /* clo ek r */ +case 118: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -9585,247 +9501,7 @@ case 123: /* clo ek r */ rc = 3; goto jump; -case 124: /* xform-syntax-lambda k tail env */ - assert(rc == 4); - r += 1; /* shift reg. wnd */ -gs_xform_2Dsyntax_2Dlambda: /* k tail env */ - hreserve(hbsz(3+1), 3); /* 3 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = r[0]; - *--hp = obj_from_case(125); - r[3] = (hendblk(3+1)); - if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { - hreserve(hbsz(0+1), 4); /* 4 live regs */ - *--hp = obj_from_case(131); - r[4] = (hendblk(0+1)); - r[5+0] = r[3]; - r[5+1] = r[4]; - r[5+2] = (car((r[1]))); - r += 5; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_andmap; - } else { - r[4+0] = obj_from_ktrap(); - r[4+1] = obj_from_bool(0); - r[4+2] = r[0]; - r[4+3] = r[2]; - r[4+4] = r[1]; - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_l_v13271; - } - -case 125: /* 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_v13271: /* ek r k env tail */ - if (bool_from_obj(r[1])) { - r[5] = (car((r[4]))); - r[6] = (cdr((r[4]))); - hreserve(hbsz(3+1), 7); /* 7 live regs */ - *--hp = r[5]; - *--hp = r[3]; - *--hp = r[6]; - *--hp = obj_from_case(126); - r[5] = (hendblk(3+1)); - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = r[5]; - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - { /* cons */ - hreserve(hbsz(3), 5); /* 5 live regs */ - *--hp = r[4]; - *--hp = (mksymbol(internsym("syntax-lambda"))); - *--hp = obj_from_size(PAIR_BTAG); - r[5] = (hendblk(3)); } - r[0] = (cx_x_2Derror); - pc = objptr_from_obj(r[0])[0]; - r[1] = r[2]; - r[2] = (cx__231013); - r[3] = r[5]; - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } - -case 126: /* clo k use useenv */ - assert(rc == 4); - { obj* p = objptr_from_obj(r[0]); - r[1+3] = p[1]; - r[1+4] = p[2]; - r[1+5] = p[3]; } - r += 1; /* shift reg. wnd */ - /* k use useenv forms env vars */ - if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { - { fixnum_t v14244_tmp; - { fixnum_t v14243_tmp; - { /* length */ - int n; obj l = r[5]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14244_tmp = (n); } - r[6] = (cdr((r[1]))); - { /* length */ - int n; obj l = r[6]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14243_tmp = (n); } - r[6] = obj_from_bool((v14244_tmp) == (v14243_tmp)); } } - } else { - r[6] = obj_from_bool(0); - } - if (bool_from_obj(r[6])) { - r[6] = (cdr((r[1]))); - r[7+0] = r[0]; - r[7+1] = r[5]; - r[7+2] = r[6]; - r[7+3] = r[4]; - r[7+4] = r[2]; - r[7+5] = r[3]; - r += 7; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_loop_v13274; - } else { - r[6+0] = (cx_x_2Derror); - pc = objptr_from_obj(r[6+0])[0]; - r[6+1] = r[0]; - r[6+2] = (cx__231021); - r[6+3] = r[1]; - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } - -case 127: /* clo k vars exps env */ - assert(rc == 5); - { obj* p = objptr_from_obj(r[0]); - r[1+4] = p[1]; - r[1+5] = p[2]; } - r += 1; /* shift reg. wnd */ -s_loop_v13274: /* k vars exps env useenv forms */ - if ((isnull((r[1])))) { - hreserve(hbsz(1+1), 6); /* 6 live regs */ - *--hp = r[0]; - *--hp = obj_from_case(128); - r[6] = (hendblk(1+1)); - r[0] = r[6]; - r[1] = r[5]; - r[2] = r[3]; - goto gs_xform_2Dbody; - } else { - hreserve(hbsz(2+1), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = r[4]; - *--hp = obj_from_case(127); - r[6] = (hendblk(2+1)); - hreserve(hbsz(5+1), 7); /* 7 live regs */ - *--hp = r[0]; - *--hp = r[1]; - *--hp = r[2]; - *--hp = r[6]; - *--hp = r[3]; - *--hp = obj_from_case(129); - r[6] = (hendblk(5+1)); - r[0] = r[6]; - r[1] = obj_from_bool(1); - r[2] = (car((r[2]))); - r[3] = r[4]; - goto gs_xform; - } - -case 128: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; } - r += 1; /* shift reg. wnd */ - /* ek r k */ - { /* cons */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[3] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = (mksymbol(internsym("syntax"))); - *--hp = obj_from_size(PAIR_BTAG); - r[4] = (hendblk(3)); } - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = r[4]; - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 129: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; - r[1+5] = p[4]; - r[1+6] = p[5]; } - r += 1; /* shift reg. wnd */ - /* ek r env loop exps vars k */ - hreserve(hbsz(4+1), 7); /* 7 live regs */ - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(130); - r[7] = (hendblk(4+1)); - r[8+0] = r[7]; - r[8+1] = (car((r[5]))); - r[8+2] = r[1]; - r[8+3] = r[2]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_add_2Dbinding; - -case 130: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; - r[1+5] = p[4]; } - r += 1; /* shift reg. wnd */ - /* ek r loop exps vars k */ - r[6+0] = r[2]; - pc = objptr_from_obj(r[6+0])[0]; - r[6+1] = r[5]; - r[6+2] = (cdr((r[4]))); - r[6+3] = (cdr((r[3]))); - r[6+4] = r[1]; - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 5; - goto jump; - -case 131: /* clo k x */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ - /* k x */ - r[2+0] = r[0]; - pc = objptr_from_obj(r[2+0])[0]; - r[2+1] = obj_from_ktrap(); - r[2+2] = (cxs_id_3F((r[1]))); - r += 2; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 132: /* xform-letcc k tail env */ +case 119: /* xform-letcc k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dletcc: /* k tail env */ @@ -9842,7 +9518,7 @@ gs_xform_2Dletcc: /* k tail env */ *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(133); + *--hp = obj_from_case(120); r[4] = (hendblk(4+1)); r[0] = r[4]; r[1] = r[3]; @@ -9857,7 +9533,7 @@ gs_xform_2Dletcc: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231047); + r[4+2] = (cx__23984); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -9865,7 +9541,7 @@ gs_xform_2Dletcc: /* k tail env */ goto jump; } -case 133: /* clo ek r */ +case 120: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9879,7 +9555,7 @@ case 133: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(134); + *--hp = obj_from_case(121); r[6] = (hendblk(4+1)); r[7+0] = (cx_gensym); pc = objptr_from_obj(r[7+0])[0]; @@ -9890,7 +9566,7 @@ case 133: /* clo ek r */ rc = 3; goto jump; -case 134: /* clo ek r */ +case 121: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9903,7 +9579,7 @@ case 134: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(135); + *--hp = obj_from_case(122); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = r[3]; @@ -9913,7 +9589,7 @@ case 134: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 135: /* clo ek r */ +case 122: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9924,7 +9600,7 @@ case 135: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(136); + *--hp = obj_from_case(123); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = (cdr((r[2]))); @@ -9933,7 +9609,7 @@ case 135: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dbody; -case 136: /* clo ek r */ +case 123: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9966,7 +9642,7 @@ case 136: /* clo ek r */ rc = 3; goto jump; -case 137: /* xform-withcc k tail env */ +case 124: /* xform-withcc k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dwithcc: /* k tail env */ @@ -9975,7 +9651,7 @@ gs_xform_2Dwithcc: /* k tail env */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(138); + *--hp = obj_from_case(125); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (cdr((r[1]))); @@ -9991,7 +9667,7 @@ gs_xform_2Dwithcc: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231063); + r[4+2] = (cx__231000); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -9999,7 +9675,7 @@ gs_xform_2Dwithcc: /* k tail env */ goto jump; } -case 138: /* clo ek r */ +case 125: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10016,7 +9692,7 @@ case 138: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(139); + *--hp = obj_from_case(126); r[6] = (hendblk(2+1)); r[7+0] = r[6]; r[7+1] = obj_from_bool(0); @@ -10026,7 +9702,7 @@ case 138: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 139: /* clo ek r */ +case 126: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10053,7 +9729,7 @@ case 139: /* clo ek r */ rc = 3; goto jump; -case 140: /* xform-body k tail env */ +case 127: /* xform-body k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dbody: /* k tail env */ @@ -10081,8 +9757,8 @@ gs_xform_2Dbody: /* k tail env */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { - { const bool_t v14242_tmp = (islist((r[1]))); - r[3] = obj_from_bool(!(v14242_tmp)); } + { const bool_t v14153_tmp = (islist((r[1]))); + r[3] = obj_from_bool(!(v14153_tmp)); } if (bool_from_obj(r[3])) { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -10093,7 +9769,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__231201); + r[4+2] = (cx__231138); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10108,15 +9784,15 @@ gs_xform_2Dbody: /* k tail env */ r[3+5] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13119; + goto s_loop_v13122; } } } -case 141: /* clo k env ids inits nids body */ +case 128: /* clo k env ids inits nids body */ assert(rc == 7); r += 1; /* shift reg. wnd */ -s_loop_v13119: /* k env ids inits nids body */ +s_loop_v13122: /* k env ids inits nids body */ if ((ispair((r[5])))) { r[6] = (car((r[5]))); r[6] = obj_from_bool(ispair((r[6]))); @@ -10129,7 +9805,7 @@ s_loop_v13119: /* k env ids inits nids body */ r[8] = (car((r[6]))); r[9] = (cdr((r[6]))); hreserve(hbsz(0+1), 10); /* 10 live regs */ - *--hp = obj_from_case(141); + *--hp = obj_from_case(128); r[10] = (hendblk(0+1)); hreserve(hbsz(10+1), 11); /* 11 live regs */ *--hp = r[9]; @@ -10142,7 +9818,7 @@ s_loop_v13119: /* k env ids inits nids body */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; - *--hp = obj_from_case(142); + *--hp = obj_from_case(129); r[10] = (hendblk(10+1)); r[11+0] = (r[10]); r[11+1] = obj_from_bool(1); @@ -10152,37 +9828,37 @@ s_loop_v13119: /* k env ids inits nids body */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { - { fixnum_t v14241_tmp; + { fixnum_t v14152_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14241_tmp = (n); } + v14152_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14241_tmp); + obj l, o = mknull(); int c = (v14152_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 v14240_tmp; + { fixnum_t v14151_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14240_tmp = (n); } + v14151_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14240_tmp); + obj l, o = mknull(); int c = (v14151_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 v14239_tmp; + { fixnum_t v14150_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14239_tmp = (n); } + v14150_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14239_tmp); + obj l, o = mknull(); int c = (v14150_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); @@ -10199,7 +9875,7 @@ s_loop_v13119: /* k env ids inits nids body */ goto gs_xform_2Dlabels; } -case 142: /* clo ek r */ +case 129: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10223,7 +9899,7 @@ case 142: /* clo ek r */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; - *--hp = obj_from_case(143); + *--hp = obj_from_case(130); r[12] = (hendblk(6+1)); r[0] = (cx__25append); pc = objptr_from_obj(r[0])[0]; @@ -10237,7 +9913,7 @@ case 142: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); - r[2] = (cx__23595); + r[2] = (cx__23566); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -10305,7 +9981,7 @@ case 142: /* clo ek r */ *--hp = r[4]; *--hp = r[5]; *--hp = r[9]; - *--hp = obj_from_case(144); + *--hp = obj_from_case(131); r[14] = (hendblk(9+1)); r[0] = (r[14]); r[1] = (r[12]); @@ -10321,7 +9997,7 @@ case 142: /* clo ek r */ *--hp = r[5]; *--hp = r[9]; *--hp = r[3]; - *--hp = obj_from_case(147); + *--hp = obj_from_case(134); r[12] = (hendblk(9+1)); if (bool_from_obj(cxs_list2_2B_3F((r[11])))) { r[13] = (car((r[11]))); @@ -10350,7 +10026,7 @@ case 142: /* clo ek r */ r[13+10] = (r[11]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13135; + goto s_l_v13138; } } else { r[13+0] = obj_from_ktrap(); @@ -10366,7 +10042,7 @@ case 142: /* clo ek r */ r[13+10] = (r[11]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13135; + goto s_l_v13138; } } else { r[13+0] = obj_from_ktrap(); @@ -10382,7 +10058,7 @@ case 142: /* clo ek r */ r[13+10] = (r[11]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13135; + goto s_l_v13138; } } } @@ -10407,18 +10083,18 @@ case 142: /* clo ek r */ *--hp = r[6]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(152); + *--hp = obj_from_case(139); r[14] = (hendblk(8+1)); r[0] = (r[14]); r[1] = (r[12]); - r[2] = (cx__231113); + r[2] = (cx__231050); r[3] = r[9]; goto gs_add_2Dbinding; } else { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); - r[2] = (cx__231106); + r[2] = (cx__231043); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -10434,7 +10110,7 @@ case 142: /* clo ek r */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; - *--hp = obj_from_case(153); + *--hp = obj_from_case(140); r[12] = (hendblk(7+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -10445,37 +10121,37 @@ case 142: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v14238_tmp; + { fixnum_t v14149_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14238_tmp = (n); } + v14149_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14238_tmp); + obj l, o = mknull(); int c = (v14149_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 v14237_tmp; + { fixnum_t v14148_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14237_tmp = (n); } + v14148_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14237_tmp); + obj l, o = mknull(); int c = (v14148_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 v14236_tmp; + { fixnum_t v14147_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14236_tmp = (n); } + v14147_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14236_tmp); + obj l, o = mknull(); int c = (v14147_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); @@ -10495,7 +10171,7 @@ case 142: /* clo ek r */ } } -case 143: /* clo ek r */ +case 130: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10519,7 +10195,7 @@ case 143: /* clo ek r */ rc = 7; goto jump; -case 144: /* clo ek r */ +case 131: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10543,7 +10219,7 @@ case 144: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(145); + *--hp = obj_from_case(132); r[11] = (hendblk(9+1)); r[12+0] = (cx_gensym); pc = objptr_from_obj(r[12+0])[0]; @@ -10554,7 +10230,7 @@ case 144: /* clo ek r */ rc = 3; goto jump; -case 145: /* clo ek r */ +case 132: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10578,7 +10254,7 @@ case 145: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(146); + *--hp = obj_from_case(133); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[9]; @@ -10588,7 +10264,7 @@ case 145: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 146: /* clo ek r */ +case 133: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10633,7 +10309,7 @@ case 146: /* clo ek r */ rc = 7; goto jump; -case 147: /* clo ek r */ +case 134: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10646,7 +10322,7 @@ case 147: /* clo ek r */ 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 */ +s_l_v13138: /* 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]))); @@ -10660,7 +10336,7 @@ s_l_v13135: /* ek r first env loop rest nids inits ids k tail */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(148); + *--hp = obj_from_case(135); r[12] = (hendblk(9+1)); { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ @@ -10675,7 +10351,7 @@ s_l_v13135: /* ek r first env loop rest nids inits ids k tail */ 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+2] = (cx__231063); r[11+3] = r[2]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10683,7 +10359,7 @@ s_l_v13135: /* ek r first env loop rest nids inits ids k tail */ goto jump; } -case 148: /* clo ek r */ +case 135: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10722,13 +10398,13 @@ case 148: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(149); + *--hp = obj_from_case(136); r[12] = (hendblk(9+1)); r[0] = (r[12]); r[1] = r[8]; goto gs_id_2D_3Esym; -case 149: /* clo ek r */ +case 136: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10752,7 +10428,7 @@ case 149: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(150); + *--hp = obj_from_case(137); r[11] = (hendblk(9+1)); r[12+0] = (cx_gensym); pc = objptr_from_obj(r[12+0])[0]; @@ -10763,7 +10439,7 @@ case 149: /* clo ek r */ rc = 3; goto jump; -case 150: /* clo ek r */ +case 137: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10787,7 +10463,7 @@ case 150: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(151); + *--hp = obj_from_case(138); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[9]; @@ -10797,7 +10473,7 @@ case 150: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 151: /* clo ek r */ +case 138: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10842,7 +10518,7 @@ case 151: /* clo ek r */ rc = 7; goto jump; -case 152: /* clo ek r */ +case 139: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10886,7 +10562,7 @@ case 152: /* clo ek r */ rc = 7; goto jump; -case 153: /* clo ek r */ +case 140: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10917,7 +10593,7 @@ case 153: /* clo ek r */ rc = 7; goto jump; -case 154: /* xform-labels k ids inits nids body env */ +case 141: /* 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 */ @@ -10931,31 +10607,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_v13022; + goto s_loop_v13025; -case 155: /* clo k ids inits nids sets lids */ +case 142: /* 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_v13022: /* k ids inits nids sets lids env body */ +s_loop_v13025: /* 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(155); + *--hp = obj_from_case(142); 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(158); + *--hp = obj_from_case(145); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[7]; r[2] = r[6]; - goto s_loop_v13076; + goto s_loop_v13079; } else { r[9] = (car((r[1]))); r[9] = obj_from_bool(!bool_from_obj(r[9])); @@ -10968,7 +10644,7 @@ s_loop_v13022: /* k ids inits nids sets lids env body */ *--hp = r[3]; *--hp = r[5]; *--hp = r[8]; - *--hp = obj_from_case(162); + *--hp = obj_from_case(149); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = obj_from_bool(0); @@ -10987,7 +10663,7 @@ s_loop_v13022: /* k ids inits nids sets lids env body */ *--hp = r[3]; *--hp = r[5]; *--hp = r[8]; - *--hp = obj_from_case(163); + *--hp = obj_from_case(150); r[9] = (hendblk(7+1)); r[10] = (car((r[2]))); { /* cons */ @@ -11017,7 +10693,7 @@ s_loop_v13022: /* k ids inits nids sets lids env body */ *--hp = r[5]; *--hp = r[8]; *--hp = r[6]; - *--hp = obj_from_case(164); + *--hp = obj_from_case(151); r[9] = (hendblk(8+1)); r[10+0] = r[6]; pc = objptr_from_obj(r[10+0])[0]; @@ -11031,19 +10707,19 @@ s_loop_v13022: /* k ids inits nids sets lids env body */ } } -s_loop_v13076: /* k l env */ +s_loop_v13079: /* 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(156); + *--hp = obj_from_case(143); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13076; + goto s_loop_v13079; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -11054,7 +10730,7 @@ s_loop_v13076: /* k l env */ goto jump; } -case 156: /* clo ek r */ +case 143: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11065,7 +10741,7 @@ case 156: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(157); + *--hp = obj_from_case(144); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -11075,7 +10751,7 @@ case 156: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 157: /* clo ek r */ +case 144: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11097,7 +10773,7 @@ case 157: /* clo ek r */ rc = 3; goto jump; -case 158: /* clo ek r */ +case 145: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11108,15 +10784,15 @@ case 158: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(159); + *--hp = obj_from_case(146); r[5] = (hendblk(2+1)); - { fixnum_t v14235_tmp; + { fixnum_t v14146_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14235_tmp = (n); } + v14146_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14235_tmp); + obj l, o = mknull(); int c = (v14146_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); @@ -11132,7 +10808,7 @@ case 158: /* clo ek r */ rc = 4; goto jump; -case 159: /* clo ek r */ +case 146: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11162,23 +10838,23 @@ case 159: /* clo ek r */ *--hp = r[2]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(161); + *--hp = obj_from_case(148); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; - goto s_loop_v13057; + goto s_loop_v13060; } -s_loop_v13057: /* k l */ +s_loop_v13060: /* 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(160); + *--hp = obj_from_case(147); r[3] = (hendblk(1+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v13057; + goto s_loop_v13060; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -11190,7 +10866,7 @@ s_loop_v13057: /* k l */ goto jump; } -case 160: /* clo ek r */ +case 147: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11199,7 +10875,7 @@ case 160: /* clo ek r */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = (cx__231273); + *--hp = (cx__231210); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; @@ -11211,7 +10887,7 @@ case 160: /* clo ek r */ rc = 3; goto jump; -case 161: /* clo ek r */ +case 148: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11225,13 +10901,13 @@ case 161: /* clo ek r */ *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } - { fixnum_t v14234_tmp; + { fixnum_t v14145_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14234_tmp = (n); } + v14145_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14234_tmp); + obj l, o = mknull(); int c = (v14145_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); @@ -11260,7 +10936,7 @@ case 161: /* clo ek r */ rc = 5; goto jump; -case 162: /* clo ek r */ +case 149: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11291,7 +10967,7 @@ case 162: /* clo ek r */ rc = 7; goto jump; -case 163: /* clo ek r */ +case 150: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11329,7 +11005,7 @@ case 163: /* clo ek r */ rc = 7; goto jump; -case 164: /* clo ek r */ +case 151: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11351,7 +11027,7 @@ case 164: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(165); + *--hp = obj_from_case(152); r[10] = (hendblk(8+1)); r[11+0] = (r[10]); r[11+1] = obj_from_bool(1); @@ -11361,7 +11037,7 @@ case 164: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 165: /* clo ek r */ +case 152: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11388,7 +11064,7 @@ case 165: /* clo ek r */ rc = 7; goto jump; -case 166: /* xform-define k tail env */ +case 153: /* xform-define k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine: /* k tail env */ @@ -11419,7 +11095,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(167); + *--hp = obj_from_case(154); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -11435,7 +11111,7 @@ gs_xform_2Ddefine: /* k tail env */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(169); + *--hp = obj_from_case(156); r[3] = (hendblk(3+1)); if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { r[4] = (car((r[1]))); @@ -11458,7 +11134,7 @@ gs_xform_2Ddefine: /* k tail env */ r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12985; + goto s_l_v12988; } } else { r[4+0] = obj_from_ktrap(); @@ -11468,7 +11144,7 @@ gs_xform_2Ddefine: /* k tail env */ r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12985; + goto s_l_v12988; } } else { r[4+0] = obj_from_ktrap(); @@ -11478,12 +11154,12 @@ gs_xform_2Ddefine: /* k tail env */ r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12985; + goto s_l_v12988; } } } -case 167: /* clo ek r */ +case 154: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11499,13 +11175,13 @@ case 167: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(168); + *--hp = obj_from_case(155); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; -case 168: /* clo ek r */ +case 155: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11532,19 +11208,19 @@ case 168: /* clo ek r */ rc = 3; goto jump; -case 169: /* clo ek r */ +case 156: /* 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 */ +s_l_v12988: /* 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); + *--hp = obj_from_case(157); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[7] = (car((r[3]))); @@ -11569,14 +11245,14 @@ s_l_v12985: /* ek r env tail k */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__231126); + r[2] = (cx__231063); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 170: /* clo ek r */ +case 157: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11592,7 +11268,7 @@ case 170: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(171); + *--hp = obj_from_case(158); r[5] = (hendblk(2+1)); r[6] = (car((r[2]))); r[6] = (car((r[6]))); @@ -11600,7 +11276,7 @@ case 170: /* clo ek r */ r[1] = r[6]; goto gs_id_2D_3Esym; -case 171: /* clo ek r */ +case 158: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11627,7 +11303,7 @@ case 171: /* clo ek r */ rc = 3; goto jump; -case 172: /* xform-define-syntax k tail env */ +case 159: /* xform-define-syntax k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ @@ -11641,7 +11317,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(173); + *--hp = obj_from_case(160); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -11662,7 +11338,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231106); + r[4+2] = (cx__231043); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -11670,7 +11346,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ goto jump; } -case 173: /* clo ek r */ +case 160: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11686,13 +11362,13 @@ case 173: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(174); + *--hp = obj_from_case(161); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; -case 174: /* clo ek r */ +case 161: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11719,21 +11395,582 @@ case 174: /* clo ek r */ rc = 3; goto jump; -case 175: /* clo k sexp env */ +case 162: /* xform-syntax-lambda k tail env */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ +gs_xform_2Dsyntax_2Dlambda: /* k tail env */ + hreserve(hbsz(3+1), 3); /* 3 live regs */ + *--hp = r[1]; + *--hp = r[2]; + *--hp = r[0]; + *--hp = obj_from_case(163); + r[3] = (hendblk(3+1)); + if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(169); + r[4] = (hendblk(0+1)); + r[5+0] = r[3]; + r[5+1] = r[4]; + r[5+2] = (car((r[1]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_andmap; + } else { + r[4+0] = obj_from_ktrap(); + r[4+1] = obj_from_bool(0); + r[4+2] = r[0]; + r[4+3] = r[2]; + r[4+4] = r[1]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v12919; + } + +case 163: /* 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_v12919: /* ek r k env tail */ + if (bool_from_obj(r[1])) { + r[5] = (car((r[4]))); + r[6] = (cdr((r[4]))); + hreserve(hbsz(3+1), 7); /* 7 live regs */ + *--hp = r[5]; + *--hp = r[3]; + *--hp = r[6]; + *--hp = obj_from_case(164); + r[5] = (hendblk(3+1)); + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = r[5]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + { /* cons */ + hreserve(hbsz(3), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = (mksymbol(internsym("syntax-lambda"))); + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + r[0] = (cx_x_2Derror); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[2]; + r[2] = (cx__231299); + r[3] = r[5]; + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 164: /* clo k use useenv */ + assert(rc == 4); + { obj* p = objptr_from_obj(r[0]); + r[1+3] = p[1]; + r[1+4] = p[2]; + r[1+5] = p[3]; } + r += 1; /* shift reg. wnd */ + /* k use useenv forms env vars */ + if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { + { fixnum_t v14144_tmp; + { fixnum_t v14143_tmp; + { /* length */ + int n; obj l = r[5]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14144_tmp = (n); } + r[6] = (cdr((r[1]))); + { /* length */ + int n; obj l = r[6]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14143_tmp = (n); } + r[6] = obj_from_bool((v14144_tmp) == (v14143_tmp)); } } + } else { + r[6] = obj_from_bool(0); + } + if (bool_from_obj(r[6])) { + r[6] = (cdr((r[1]))); + r[7+0] = r[0]; + r[7+1] = r[5]; + r[7+2] = r[6]; + r[7+3] = r[4]; + r[7+4] = r[2]; + r[7+5] = r[3]; + r += 7; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v12922; + } else { + r[6+0] = (cx_x_2Derror); + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[0]; + r[6+2] = (cx__231307); + r[6+3] = r[1]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 165: /* clo k vars exps env */ + assert(rc == 5); + { obj* p = objptr_from_obj(r[0]); + r[1+4] = p[1]; + r[1+5] = p[2]; } + r += 1; /* shift reg. wnd */ +s_loop_v12922: /* k vars exps env useenv forms */ + if ((isnull((r[1])))) { + hreserve(hbsz(1+1), 6); /* 6 live regs */ + *--hp = r[0]; + *--hp = obj_from_case(166); + r[6] = (hendblk(1+1)); + r[0] = r[6]; + r[1] = r[5]; + r[2] = r[3]; + goto gs_xform_2Dbody; + } else { + hreserve(hbsz(2+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[4]; + *--hp = obj_from_case(165); + r[6] = (hendblk(2+1)); + hreserve(hbsz(5+1), 7); /* 7 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[2]; + *--hp = r[6]; + *--hp = r[3]; + *--hp = obj_from_case(167); + r[6] = (hendblk(5+1)); + r[0] = r[6]; + r[1] = obj_from_bool(1); + r[2] = (car((r[2]))); + r[3] = r[4]; + goto gs_xform; + } + +case 166: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* ek r k */ + { /* cons */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = (mknull()); + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[3] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = (mksymbol(internsym("syntax"))); + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = r[4]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 167: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; } + r += 1; /* shift reg. wnd */ + /* ek r env loop exps vars k */ + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(168); + r[7] = (hendblk(4+1)); + r[8+0] = r[7]; + r[8+1] = (car((r[5]))); + r[8+2] = r[1]; + r[8+3] = r[2]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_add_2Dbinding; + +case 168: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek r loop exps vars k */ + r[6+0] = r[2]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[5]; + r[6+2] = (cdr((r[4]))); + r[6+3] = (cdr((r[3]))); + r[6+4] = r[1]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 5; + goto jump; + +case 169: /* clo k x */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k x */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (cxs_id_3F((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 170: /* xform-syntax-rules k tail env */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ +gs_xform_2Dsyntax_2Drules: /* k tail env */ + hreserve(hbsz(3+1), 3); /* 3 live regs */ + *--hp = r[0]; + *--hp = r[2]; + *--hp = r[1]; + *--hp = obj_from_case(171); + r[3] = (hendblk(3+1)); + if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { + r[4] = (car((r[1]))); + r[4] = (cxs_id_3F((r[4]))); + if (bool_from_obj(r[4])) { + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(174); + r[4] = (hendblk(0+1)); + r[5] = (cdr((r[1]))); + r[5] = (car((r[5]))); + r[6+0] = r[3]; + r[6+1] = r[4]; + r[6+2] = r[5]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_andmap; + } else { + r[4+0] = obj_from_ktrap(); + r[4+1] = obj_from_bool(0); + r[4+2] = r[1]; + r[4+3] = r[2]; + r[4+4] = r[0]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v12887; + } + } else { + r[4+0] = obj_from_ktrap(); + r[4+1] = obj_from_bool(0); + r[4+2] = r[1]; + r[4+3] = r[2]; + r[4+4] = r[0]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v12887; + } + +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+4] = p[3]; } + r += 1; /* shift reg. wnd */ +s_l_v12887: /* ek r tail env k */ + if (bool_from_obj(r[1])) { + r[5] = (cdr((r[2]))); + r[5] = (car((r[5]))); + r[6] = (cdr((r[2]))); + r[6] = (cdr((r[6]))); + r[7+0] = r[4]; + r[7+1] = r[3]; + r[7+2] = (car((r[2]))); + r[7+3] = r[5]; + r[7+4] = r[6]; + r += 7; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_syntax_2Drules_2A; + } else { + hreserve(hbsz(3+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(172); + r[5] = (hendblk(3+1)); + if (bool_from_obj(cxs_list1_2B_3F((r[2])))) { + hreserve(hbsz(0+1), 6); /* 6 live regs */ + *--hp = obj_from_case(173); + r[6] = (hendblk(0+1)); + r[0] = r[5]; + r[1] = r[6]; + r[2] = (car((r[2]))); + goto gs_andmap; + } else { + r[0] = obj_from_ktrap(); + r[1] = obj_from_bool(0); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_l_v12895; + } + } + +case 172: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ +s_l_v12895: /* ek r tail env k */ + if (bool_from_obj(r[1])) { + r[5+0] = r[4]; + r[5+1] = r[3]; + r[5+2] = obj_from_bool(0); + r[5+3] = (car((r[2]))); + r[5+4] = (cdr((r[2]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_syntax_2Drules_2A; + } else { + { /* cons */ + hreserve(hbsz(3), 5); /* 5 live regs */ + *--hp = r[2]; + *--hp = (mksymbol(internsym("syntax-rules"))); + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + r[6+0] = (cx_x_2Derror); + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[4]; + r[6+2] = (cx__231333); + r[6+3] = r[5]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 173: /* clo k x */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k x */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (cxs_id_3F((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 174: /* clo k x */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k x */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (cxs_id_3F((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 175: /* xform-syntax-length k tail env */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ +gs_xform_2Dsyntax_2Dlength: /* k tail env */ + if (bool_from_obj(cxs_list1_3F((r[1])))) { + r[3] = (car((r[1]))); + r[3] = obj_from_bool(islist((r[3]))); + } else { + r[3] = obj_from_bool(0); + } + if (bool_from_obj(r[3])) { + r[3] = (car((r[1]))); + { /* length */ + int n; obj l = r[3]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + r[3] = obj_from_fixnum(n); } + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = (mknull()); + *--hp = r[3]; + *--hp = obj_from_size(PAIR_BTAG); + r[3] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = (mksymbol(internsym("quote"))); + *--hp = obj_from_size(PAIR_BTAG); + r[3] = (hendblk(3)); } + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + { /* cons */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[1]; + *--hp = (mksymbol(internsym("syntax-length"))); + *--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__231353); + r[4+3] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 176: /* xform-syntax-error k tail env */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ +gs_xform_2Dsyntax_2Derror: /* k tail env */ + hreserve(hbsz(2+1), 3); /* 3 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(179); + r[3] = (hendblk(2+1)); + r[0] = r[3]; + /* r[1] */ + goto s_loop_v12847; + +s_loop_v12847: /* k l */ + if ((ispair((r[1])))) { + r[2] = (cdr((r[1]))); + hreserve(hbsz(2+1), 3); /* 3 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(177); + r[3] = (hendblk(2+1)); + r[0] = r[3]; + r[1] = r[2]; + goto s_loop_v12847; + } else { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (mknull()); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 177: /* 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 l k */ + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[1]; + *--hp = r[3]; + *--hp = obj_from_case(178); + r[4] = (hendblk(2+1)); + r[0] = r[4]; + r[1] = (car((r[2]))); + goto gs_xform_2Dsexp_2D_3Edatum; + +case 178: /* 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)); } + r[5+0] = r[2]; + 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 179: /* 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 */ + if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { + r[4] = (car((r[1]))); + r[4] = obj_from_bool(isstring((r[4]))); + } else { + r[4] = obj_from_bool(0); + } + if (bool_from_obj(r[4])) { + r[4+0] = (cx_apply); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[3]; + r[4+2] = (cx_x_2Derror); + r[4+3] = r[1]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } else { + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[2]; + *--hp = (mksymbol(internsym("syntax-error"))); + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + r[5+0] = (cx_x_2Derror); + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = r[3]; + r[5+2] = (cx__231378); + r[5+3] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 180: /* 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__231360); + r[3+2] = (cx__231384); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 176: /* top-transformer-env k id */ +case 181: /* top-transformer-env k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_top_2Dtransformer_2Denv: /* k id */ @@ -11753,7 +11990,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(177); + *--hp = obj_from_case(182); r[4] = (hendblk(2+1)); r[5+0] = (cx_transform); pc = objptr_from_obj(r[5+0])[0]; @@ -11781,7 +12018,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(178); + *--hp = obj_from_case(183); r[4] = (hendblk(2+1)); r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; @@ -11794,7 +12031,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(179); + *--hp = obj_from_case(184); r[3] = (hendblk(1+1)); r[4+0] = r[1]; pc = objptr_from_obj(r[4+0])[0]; @@ -11806,7 +12043,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ } } -case 177: /* clo ek r */ +case 182: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11822,7 +12059,7 @@ case 177: /* clo ek r */ rc = 3; goto jump; -case 178: /* clo ek r */ +case 183: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11866,7 +12103,7 @@ case 178: /* clo ek r */ rc = 3; goto jump; -case 179: /* clo ek r */ +case 184: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11881,20 +12118,20 @@ case 179: /* clo ek r */ rc = 3; goto jump; -case 180: /* install-transformer! k s t */ +case 185: /* 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(181); + *--hp = obj_from_case(186); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_top_2Dtransformer_2Denv; -case 181: /* clo ek r */ +case 186: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11910,55 +12147,7 @@ case 181: /* clo ek r */ rc = 3; goto jump; -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(183); - r[5] = (hendblk(2+1)); - r[0] = r[5]; - r[1] = (cx_top_2Dtransformer_2Denv); - /* r[2] */ - /* r[3] */ - /* r[4] */ - goto gs_syntax_2Drules_2A; - -case 183: /* 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 s k */ - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[1]; - *--hp = r[3]; - *--hp = obj_from_case(184); - r[4] = (hendblk(2+1)); - r[0] = r[4]; - r[1] = r[2]; - goto gs_top_2Dtransformer_2Denv; - -case 184: /* 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 */ - r[4+0] = r[2]; - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = obj_from_ktrap(); - r[4+2] = obj_from_void(cdr((r[1])) = (r[3])); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 185: /* clo k appos? sexp optenv */ +case 187: /* clo k appos? sexp optenv */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k appos? sexp optenv */ @@ -11968,22 +12157,22 @@ case 185: /* clo k appos? sexp optenv */ r[3] = ((isnull((r[3]))) ? (cx_top_2Dtransformer_2Denv) : (car((r[3])))); goto gs_xform; -case 186: /* syntax-rules* k mac-env ellipsis pat-literals rules */ +case 188: /* 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(188); + *--hp = obj_from_case(190); r[5] = (hendblk(2+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[5]; - *--hp = obj_from_case(190); + *--hp = obj_from_case(192); r[6] = (hendblk(1+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[3]; - *--hp = obj_from_case(187); + *--hp = obj_from_case(189); r[7] = (hendblk(1+1)); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[4]; @@ -11992,7 +12181,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(197); + *--hp = obj_from_case(199); r[5] = (hendblk(6+1)); r[6+0] = r[0]; pc = objptr_from_obj(r[6+0])[0]; @@ -12003,7 +12192,7 @@ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ rc = 3; goto jump; -case 187: /* clo k id */ +case 189: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -12023,7 +12212,7 @@ case 187: /* clo k id */ rc = 3; goto jump; -case 188: /* clo k x */ +case 190: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12044,7 +12233,7 @@ case 188: /* 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(189); + *--hp = obj_from_case(191); r[5] = (hendblk(1+1)); r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; @@ -12074,7 +12263,7 @@ case 188: /* clo k x */ goto jump; } -case 189: /* clo ek r */ +case 191: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -12089,7 +12278,7 @@ case 189: /* clo ek r */ rc = 3; goto jump; -case 190: /* clo k x include-scalars pred? */ +case 192: /* clo k x include-scalars pred? */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -12105,7 +12294,7 @@ case 190: /* clo k x include-scalars pred? */ rreserve(MAX_HOSTREGS); goto s_collect; -case 191: /* clo k x inc l */ +case 193: /* clo k x inc l */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -12115,14 +12304,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(191); + *--hp = obj_from_case(193); 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(192); + *--hp = obj_from_case(194); r[7] = (hendblk(3+1)); if (bool_from_obj(r[2])) { r[8+0] = r[5]; @@ -12141,7 +12330,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_v12833; + goto s_l_v12734; } } else { if ((isvector((r[1])))) { @@ -12150,7 +12339,7 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ *--hp = r[2]; *--hp = r[3]; *--hp = r[6]; - *--hp = obj_from_case(193); + *--hp = obj_from_case(195); r[7] = (hendblk(4+1)); r[8+0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[8+0])[0]; @@ -12168,7 +12357,7 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ *--hp = r[6]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(194); + *--hp = obj_from_case(196); r[7] = (hendblk(5+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; @@ -12190,14 +12379,14 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ } } -case 192: /* clo ek r */ +case 194: /* 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_v12833: /* ek r k l x */ +s_l_v12734: /* ek r k l x */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -12222,7 +12411,7 @@ s_l_v12833: /* ek r k l x */ goto jump; } -case 193: /* clo ek r */ +case 195: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12242,7 +12431,7 @@ case 193: /* clo ek r */ rc = 5; goto jump; -case 194: /* clo ek r */ +case 196: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12257,7 +12446,7 @@ case 194: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(195); + *--hp = obj_from_case(197); r[7] = (hendblk(3+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); @@ -12277,7 +12466,7 @@ case 194: /* clo ek r */ *--hp = r[5]; *--hp = r[3]; *--hp = r[4]; - *--hp = obj_from_case(196); + *--hp = obj_from_case(198); r[7] = (hendblk(4+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; @@ -12291,7 +12480,7 @@ case 194: /* clo ek r */ goto jump; } -case 195: /* clo ek r */ +case 197: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12310,7 +12499,7 @@ case 195: /* clo ek r */ rc = 5; goto jump; -case 196: /* clo ek r */ +case 198: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12330,7 +12519,7 @@ case 196: /* clo ek r */ rc = 5; goto jump; -case 197: /* clo k use use-env */ +case 199: /* clo k use use-env */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -12352,9 +12541,9 @@ case 197: /* clo k use use-env */ r[9+8] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12489; + goto s_loop_v12390; -case 198: /* clo k rules */ +case 200: /* clo k rules */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12365,7 +12554,7 @@ case 198: /* clo k rules */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_loop_v12489: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */ +s_loop_v12390: /* 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]; @@ -12374,7 +12563,7 @@ s_loop_v12489: /* 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(198); + *--hp = obj_from_case(200); r[9] = (hendblk(7+1)); hreserve(hbsz(10+1), 10); /* 10 live regs */ *--hp = r[1]; @@ -12387,13 +12576,13 @@ s_loop_v12489: /* 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(199); + *--hp = obj_from_case(201); 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__231792); + r[2] = (cx__231815); r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; @@ -12407,7 +12596,7 @@ s_loop_v12489: /* 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(198); + *--hp = obj_from_case(200); r[10] = (hendblk(7+1)); r[11+0] = obj_from_ktrap(); r[11+1] = obj_from_void(0); @@ -12423,10 +12612,10 @@ s_loop_v12489: /* 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_v12491; + goto s_l_v12392; } -case 199: /* clo ek . */ +case 201: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -12441,7 +12630,7 @@ case 199: /* clo ek . */ r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ -s_l_v12491: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */ +s_l_v12392: /* 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]))); @@ -12456,7 +12645,7 @@ s_l_v12491: /* 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(200); + *--hp = obj_from_case(202); r[15] = (hendblk(9+1)); hreserve(hbsz(8+1), 16); /* 16 live regs */ *--hp = (r[13]); @@ -12467,7 +12656,7 @@ s_l_v12491: /* 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(225); + *--hp = obj_from_case(227); r[16] = (hendblk(8+1)); r[0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation); pc = objptr_from_obj(r[0])[0]; @@ -12477,7 +12666,7 @@ s_l_v12491: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip rc = 3; goto jump; -case 200: /* clo ek r */ +case 202: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12509,11 +12698,11 @@ case 200: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(201); + *--hp = obj_from_case(203); r[13] = (hendblk(10+1)); hreserve(hbsz(1+1), 14); /* 14 live regs */ *--hp = r[1]; - *--hp = obj_from_case(224); + *--hp = obj_from_case(226); r[14] = (hendblk(1+1)); r[15+0] = r[8]; pc = objptr_from_obj(r[15+0])[0]; @@ -12535,7 +12724,7 @@ case 200: /* clo ek r */ goto jump; } -case 201: /* clo ek r */ +case 203: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12560,26 +12749,26 @@ case 201: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(205); + *--hp = obj_from_case(207); r[12] = (hendblk(9+1)); r[0] = (r[12]); /* r[1] */ /* r[2] */ - goto s_loop_v12760; + goto s_loop_v12661; -s_loop_v12760: /* k l mac-env */ +s_loop_v12661: /* 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(202); + *--hp = obj_from_case(204); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12760; + goto s_loop_v12661; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -12590,7 +12779,7 @@ s_loop_v12760: /* k l mac-env */ goto jump; } -case 202: /* clo ek r */ +case 204: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12603,7 +12792,7 @@ case 202: /* clo ek r */ *--hp = r[5]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(203); + *--hp = obj_from_case(205); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -12613,7 +12802,7 @@ case 202: /* clo ek r */ rc = 3; goto jump; -case 203: /* clo ek r */ +case 205: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12625,13 +12814,13 @@ case 203: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(204); + *--hp = obj_from_case(206); r[5] = (hendblk(3+1)); r[0] = r[5]; /* r[1] */ goto gs_new_2Did; -case 204: /* clo ek r */ +case 206: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12659,7 +12848,7 @@ case 204: /* clo ek r */ rc = 3; goto jump; -case 205: /* clo ek r */ +case 207: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12682,7 +12871,7 @@ case 205: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(206); + *--hp = obj_from_case(208); r[11] = (hendblk(8+1)); r[12+0] = r[5]; pc = objptr_from_obj(r[12+0])[0]; @@ -12695,7 +12884,7 @@ case 205: /* clo ek r */ rc = 5; goto jump; -case 206: /* clo ek r */ +case 208: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12722,7 +12911,7 @@ case 206: /* clo ek r */ rreserve(MAX_HOSTREGS); goto s_expand; -case 207: /* clo k tmpl bindings */ +case 209: /* clo k tmpl bindings */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -12738,7 +12927,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(207); + *--hp = obj_from_case(209); r[8] = (hendblk(5+1)); r[9+0] = r[0]; r[9+1] = r[1]; @@ -12753,7 +12942,7 @@ s_expand: /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars new-literals rreserve(MAX_HOSTREGS); goto s_expand_2Dpart; -case 208: /* clo k tmpl */ +case 210: /* clo k tmpl */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12773,7 +12962,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(208); + *--hp = obj_from_case(210); r[9] = (hendblk(7+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* assq */ @@ -12811,7 +13000,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(209); + *--hp = obj_from_case(211); r[10] = (hendblk(2+1)); r[11+0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[11+0])[0]; @@ -12830,7 +13019,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(211); + *--hp = obj_from_case(213); r[10] = (hendblk(7+1)); if ((ispair((r[1])))) { r[11+0] = r[2]; @@ -12853,12 +13042,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_v12648; + goto s_l_v12549; } } } -case 209: /* clo ek r */ +case 211: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12867,7 +13056,7 @@ case 209: /* clo ek r */ /* ek r expand-part k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(210); + *--hp = obj_from_case(212); r[4] = (hendblk(1+1)); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; @@ -12878,7 +13067,7 @@ case 209: /* clo ek r */ rc = 3; goto jump; -case 210: /* clo ek r */ +case 212: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -12893,7 +13082,7 @@ case 210: /* clo ek r */ rc = 3; goto jump; -case 211: /* clo ek r */ +case 213: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12904,7 +13093,7 @@ case 211: /* clo ek r */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_l_v12648: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ +s_l_v12549: /* 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]; @@ -12912,11 +13101,11 @@ s_l_v12648: /* 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(212); + *--hp = obj_from_case(214); r[9] = (hendblk(5+1)); hreserve(hbsz(1+1), 10); /* 10 live regs */ *--hp = r[3]; - *--hp = obj_from_case(221); + *--hp = obj_from_case(223); r[10] = (hendblk(1+1)); r[11+0] = r[2]; pc = objptr_from_obj(r[11+0])[0]; @@ -12934,7 +13123,7 @@ s_l_v12648: /* 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(222); + *--hp = obj_from_case(224); r[9] = (hendblk(3+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -12954,7 +13143,7 @@ s_l_v12648: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ } } -case 212: /* clo ek r */ +case 214: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12971,7 +13160,7 @@ case 212: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; - *--hp = obj_from_case(213); + *--hp = obj_from_case(215); r[8] = (hendblk(3+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -12985,7 +13174,7 @@ case 212: /* clo ek r */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; - *--hp = obj_from_case(215); + *--hp = obj_from_case(217); r[8] = (hendblk(3+1)); r[9] = (cdr((r[6]))); r[9] = (cdr((r[9]))); @@ -13002,15 +13191,15 @@ case 212: /* clo ek r */ *--hp = r[6]; *--hp = r[3]; *--hp = r[7]; - *--hp = obj_from_case(218); + *--hp = obj_from_case(220); r[8] = (hendblk(4+1)); r[0] = r[8]; /* r[1] */ /* r[2] */ - goto s_loop_v12687; + goto s_loop_v12588; } -case 213: /* clo k vals */ +case 215: /* clo k vals */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13022,7 +13211,7 @@ case 213: /* clo k vals */ *--hp = r[0]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(214); + *--hp = obj_from_case(216); r[5] = (hendblk(3+1)); r[6+0] = (cx__25residual_2Dmap); pc = objptr_from_obj(r[6+0])[0]; @@ -13035,7 +13224,7 @@ case 213: /* clo k vals */ rc = 5; goto jump; -case 214: /* clo ek r */ +case 216: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13053,7 +13242,7 @@ case 214: /* clo ek r */ rc = 4; goto jump; -case 215: /* clo ek r */ +case 217: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13064,7 +13253,7 @@ case 215: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(216); + *--hp = obj_from_case(218); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13074,7 +13263,7 @@ case 215: /* clo ek r */ rc = 3; goto jump; -case 216: /* clo ek r */ +case 218: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13096,19 +13285,19 @@ case 216: /* clo ek r */ rc = 3; goto jump; -s_loop_v12687: /* k l bindings */ +s_loop_v12588: /* 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(217); + *--hp = obj_from_case(219); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12687; + goto s_loop_v12588; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13119,7 +13308,7 @@ s_loop_v12687: /* k l bindings */ goto jump; } -case 217: /* clo ek r */ +case 219: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13148,7 +13337,7 @@ case 217: /* clo ek r */ rc = 3; goto jump; -case 218: /* clo ek r */ +case 220: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13161,7 +13350,7 @@ case 218: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(219); + *--hp = obj_from_case(221); r[6] = (hendblk(3+1)); r[7] = (objptr_from_obj(r[2])[0]); { /* cons */ @@ -13180,7 +13369,7 @@ case 218: /* clo ek r */ rc = 4; goto jump; -case 219: /* clo ek r */ +case 221: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13191,7 +13380,7 @@ case 219: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(220); + *--hp = obj_from_case(222); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -13203,7 +13392,7 @@ case 219: /* clo ek r */ rc = 3; goto jump; -case 220: /* clo ek r */ +case 222: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13220,7 +13409,7 @@ case 220: /* clo ek r */ rc = 4; goto jump; -case 221: /* clo k id */ +case 223: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13240,7 +13429,7 @@ case 221: /* clo k id */ rc = 3; goto jump; -case 222: /* clo ek r */ +case 224: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13251,7 +13440,7 @@ case 222: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(223); + *--hp = obj_from_case(225); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13261,7 +13450,7 @@ case 222: /* clo ek r */ rc = 3; goto jump; -case 223: /* clo ek r */ +case 225: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13283,7 +13472,7 @@ case 223: /* clo ek r */ rc = 3; goto jump; -case 224: /* clo k id */ +case 226: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13303,7 +13492,7 @@ case 224: /* clo k id */ rc = 3; goto jump; -case 225: /* clo k return */ +case 227: /* clo k return */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13331,7 +13520,7 @@ case 225: /* clo k return */ rreserve(MAX_HOSTREGS); goto s_match; -case 226: /* clo k pat sexp bindings */ +case 228: /* clo k pat sexp bindings */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -13351,12 +13540,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(226); + *--hp = obj_from_case(228); r[11] = (hendblk(7+1)); hreserve(hbsz(2+1), 12); /* 12 live regs */ *--hp = r[3]; *--hp = (r[10]); - *--hp = obj_from_case(227); + *--hp = obj_from_case(229); r[12] = (hendblk(2+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* memq */ @@ -13370,7 +13559,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(228); + *--hp = obj_from_case(230); r[13] = (hendblk(4+1)); r[14+0] = r[7]; pc = objptr_from_obj(r[14+0])[0]; @@ -13385,7 +13574,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_v12614; + goto s_l_v12515; } } else { { /* cons */ @@ -13417,7 +13606,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(230); + *--hp = obj_from_case(232); r[13] = (hendblk(5+1)); if ((isvector((r[2])))) { r[14+0] = obj_from_ktrap(); @@ -13429,7 +13618,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_v12584; + goto s_l_v12485; } else { r[0] = (r[10]); pc = objptr_from_obj(r[0])[0]; @@ -13446,7 +13635,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_v12614; + goto s_l_v12515; } else { hreserve(hbsz(8+1), 13); /* 13 live regs */ *--hp = r[1]; @@ -13457,7 +13646,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(233); + *--hp = obj_from_case(235); r[13] = (hendblk(8+1)); r[14+0] = r[4]; pc = objptr_from_obj(r[14+0])[0]; @@ -13471,13 +13660,13 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env } } -case 227: /* clo k condition */ +case 229: /* 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_v12614: /* k condition return bindings */ +s_l_v12515: /* k condition return bindings */ if (bool_from_obj(r[1])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13497,7 +13686,7 @@ s_l_v12614: /* k condition return bindings */ goto jump; } -case 228: /* clo ek r */ +case 230: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13510,7 +13699,7 @@ case 228: /* clo ek r */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(229); + *--hp = obj_from_case(231); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13520,7 +13709,7 @@ case 228: /* clo ek r */ rc = 3; goto jump; -case 229: /* clo ek r */ +case 231: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13537,7 +13726,7 @@ case 229: /* clo ek r */ rc = 3; goto jump; -case 230: /* clo ek . */ +case 232: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -13547,13 +13736,13 @@ case 230: /* clo ek . */ r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ -s_l_v12584: /* ek . pat sexp match bindings k */ +s_l_v12485: /* 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(231); + *--hp = obj_from_case(233); r[7] = (hendblk(4+1)); r[0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[0])[0]; @@ -13563,7 +13752,7 @@ s_l_v12584: /* ek . pat sexp match bindings k */ rc = 3; goto jump; -case 231: /* clo ek r */ +case 233: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13577,7 +13766,7 @@ case 231: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(232); + *--hp = obj_from_case(234); r[6] = (hendblk(4+1)); r[0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[0])[0]; @@ -13587,7 +13776,7 @@ case 231: /* clo ek r */ rc = 3; goto jump; -case 232: /* clo ek r */ +case 234: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13607,7 +13796,7 @@ case 232: /* clo ek r */ rc = 5; goto jump; -case 233: /* clo ek r */ +case 235: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13637,7 +13826,7 @@ case 233: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(234); + *--hp = obj_from_case(236); r[11] = (hendblk(9+1)); if ((islist((r[8])))) { { /* length */ @@ -13657,7 +13846,7 @@ case 233: /* clo ek r */ r[13+10] = (r[10]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12504; + goto s_l_v12405; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13674,7 +13863,7 @@ case 233: /* clo ek r */ *--hp = r[9]; *--hp = r[8]; *--hp = r[5]; - *--hp = obj_from_case(245); + *--hp = obj_from_case(247); r[10] = (hendblk(4+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -13696,7 +13885,7 @@ case 233: /* clo ek r */ } } -case 234: /* clo ek r */ +case 236: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13709,7 +13898,7 @@ case 234: /* clo ek r */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -s_l_v12504: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */ +s_l_v12405: /* 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]; @@ -13720,7 +13909,7 @@ s_l_v12504: /* 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(235); + *--hp = obj_from_case(237); r[11] = (hendblk(9+1)); if (((fxsub(fixnum_from_obj(r[1]), fixnum_from_obj(r[10]))) < 0)) { r[0] = r[2]; @@ -13744,10 +13933,10 @@ s_l_v12504: /* 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_v12506; + goto s_l_v12407; } -case 235: /* clo ek . */ +case 237: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -13761,35 +13950,35 @@ case 235: /* clo ek . */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -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]); +s_l_v12407: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */ + { const fixnum_t v14140_tail_2Dlen = fixnum_from_obj(r[10]); { /* list-tail */ - obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v14231_tail_2Dlen))); + obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v14140_tail_2Dlen))); while (c-- > 0) l = cdr(l); r[11] = (l); } - { fixnum_t v14232_tmp; + { fixnum_t v14141_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14232_tmp = (n); } + v14141_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14232_tmp); + obj l, o = mknull(); int c = (v14141_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 = (v14231_tail_2Dlen); + obj l = (r[12]); int c = (v14140_tail_2Dlen); while (c-- > 0) l = cdr(l); r[12] = (l); } - { fixnum_t v14233_tmp; + { fixnum_t v14142_tmp; { /* length */ int n; obj l = (r[12]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14233_tmp = (n); } + v14142_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14233_tmp); + obj l, o = mknull(); int c = (v14142_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); @@ -13802,7 +13991,7 @@ s_l_v12506: /* 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(236); + *--hp = obj_from_case(238); r[13] = (hendblk(6+1)); r[14+0] = r[2]; pc = objptr_from_obj(r[14+0])[0]; @@ -13815,7 +14004,7 @@ s_l_v12506: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-l rc = 5; goto jump; } -case 236: /* clo ek r */ +case 238: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13833,15 +14022,15 @@ case 236: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(242); + *--hp = obj_from_case(244); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = r[2]; r[2] = r[3]; r[3] = r[6]; - goto s_loop_v12527; + goto s_loop_v12428; -s_loop_v12527: /* k l match pat */ +s_loop_v12428: /* k l match pat */ if ((ispair((r[1])))) { r[4] = (cdr((r[1]))); hreserve(hbsz(4+1), 5); /* 5 live regs */ @@ -13849,81 +14038,13 @@ s_loop_v12527: /* k l match pat */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(237); + *--hp = obj_from_case(239); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = r[4]; /* r[2] */ /* r[3] */ - goto s_loop_v12527; - } else { - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = (mknull()); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } - -case 237: /* 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 match pat k l */ - r[6] = (car((r[5]))); - r[7] = (cx__25residual_2Dcdr); - hreserve(hbsz(3+1), 8); /* 8 live regs */ - *--hp = r[1]; - *--hp = r[4]; - *--hp = r[7]; - *--hp = obj_from_case(238); - r[8] = (hendblk(3+1)); - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[8]; - r[2] = (car((r[3]))); - r[3] = r[6]; - r[4] = (mknull()); - rreserve(MAX_HOSTREGS); - rc = 5; - goto jump; - -case 238: /* 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 f k r */ - hreserve(hbsz(2+1), 5); /* 5 live regs */ - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(241); - r[5] = (hendblk(2+1)); - r[0] = r[5]; - /* r[1] */ - /* r[2] */ - goto s_loop_v12538; - -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(239); - r[4] = (hendblk(3+1)); - r[0] = r[4]; - r[1] = r[3]; - /* r[2] */ - goto s_loop_v12538; + goto s_loop_v12428; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13935,6 +14056,74 @@ s_loop_v12538: /* k l f */ } case 239: /* 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 match pat k l */ + r[6] = (car((r[5]))); + r[7] = (cx__25residual_2Dcdr); + hreserve(hbsz(3+1), 8); /* 8 live regs */ + *--hp = r[1]; + *--hp = r[4]; + *--hp = r[7]; + *--hp = obj_from_case(240); + r[8] = (hendblk(3+1)); + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[8]; + r[2] = (car((r[3]))); + r[3] = r[6]; + r[4] = (mknull()); + rreserve(MAX_HOSTREGS); + rc = 5; + goto jump; + +case 240: /* 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 f k r */ + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(243); + r[5] = (hendblk(2+1)); + r[0] = r[5]; + /* r[1] */ + /* r[2] */ + goto s_loop_v12439; + +s_loop_v12439: /* 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(241); + r[4] = (hendblk(3+1)); + r[0] = r[4]; + r[1] = r[3]; + /* r[2] */ + goto s_loop_v12439; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = (mknull()); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 241: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13945,7 +14134,7 @@ case 239: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(240); + *--hp = obj_from_case(242); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13955,51 +14144,51 @@ case 239: /* clo ek r */ rc = 3; goto jump; -case 240: /* 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)); } - r[5+0] = r[2]; - 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 241: /* 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)); } - r[5+0] = r[2]; - 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 242: /* 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)); } + r[5+0] = r[2]; + 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 243: /* 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)); } + r[5+0] = r[2]; + 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 244: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14028,7 +14217,7 @@ case 242: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(243); + *--hp = obj_from_case(245); r[10] = (hendblk(5+1)); r[0] = (cx_apply); pc = objptr_from_obj(r[0])[0]; @@ -14039,7 +14228,7 @@ case 242: /* clo ek r */ rc = 4; goto jump; -case 243: /* clo ek r */ +case 245: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14052,7 +14241,7 @@ case 243: /* clo ek r */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[1]; - *--hp = obj_from_case(244); + *--hp = obj_from_case(246); r[7] = (hendblk(2+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); @@ -14067,7 +14256,7 @@ case 243: /* clo ek r */ rc = 5; goto jump; -case 244: /* clo ek r */ +case 246: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14084,7 +14273,7 @@ case 244: /* clo ek r */ rc = 4; goto jump; -case 245: /* clo ek r */ +case 247: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14104,284 +14293,34 @@ case 245: /* clo ek r */ rc = 5; goto jump; -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(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(252); - r[2] = (hendblk(0+1)); - { /* 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); - rc = 3; - goto jump; - -case 247: /* clo k sexp env */ - assert(rc == 4); - r += 1; /* shift reg. wnd */ - /* k sexp env */ - hreserve(hbsz(1), 3); /* 3 live regs */ - *--hp = obj_from_void(0); - r[3] = (hendblk(1)); - hreserve(hbsz(4+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[1]; - *--hp = r[0]; - *--hp = r[2]; - *--hp = obj_from_case(248); - r[4] = (hendblk(4+1)); - { /* cons */ - hreserve(hbsz(3), 5); /* 5 live regs */ - *--hp = (mksymbol(internsym("syntax"))); - *--hp = (mksymbol(internsym("syntax"))); - *--hp = obj_from_size(PAIR_BTAG); - r[5] = (hendblk(3)); } - r[0] = r[4]; - r[1] = r[5]; - goto gs_new_2Did; - -case 248: /* 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 env k sexp syntax-id */ - (void)(objptr_from_obj(r[5])[0] = (r[1])); - r[6] = (cdr((r[4]))); - r[6] = (car((r[6]))); - r[6] = (cxs_id_3F((r[6]))); - if (bool_from_obj(r[6])) { - hreserve(hbsz(2+1), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = r[3]; - *--hp = obj_from_case(249); - r[6] = (hendblk(2+1)); - r[7] = (cdr((r[4]))); - r[7] = (car((r[7]))); - r[8] = (cdr((r[4]))); - r[8] = (cdr((r[8]))); - r[8] = (car((r[8]))); - r[9] = (cdr((r[4]))); - r[9] = (cdr((r[9]))); - r[9] = (cdr((r[9]))); - r[0] = r[6]; - r[1] = r[2]; - r[2] = r[7]; - r[3] = r[8]; - r[4] = r[9]; - goto gs_syntax_2Drules_2A; - } else { - hreserve(hbsz(2+1), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = r[3]; - *--hp = obj_from_case(250); - r[6] = (hendblk(2+1)); - r[7] = (cdr((r[4]))); - r[7] = (car((r[7]))); - r[8] = (cdr((r[4]))); - r[8] = (cdr((r[8]))); - r[0] = r[6]; - r[1] = r[2]; - r[2] = obj_from_bool(0); - r[3] = r[7]; - r[4] = r[8]; - goto gs_syntax_2Drules_2A; - } - -case 249: /* 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 syntax-id */ - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = (mknull()); - *--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 = (objptr_from_obj(r[3])[0]); - *--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 250: /* 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 syntax-id */ - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = (mknull()); - *--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 = (objptr_from_obj(r[3])[0]); - *--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 251: /* global-location k sym */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ - /* k sym */ - { /* assq */ - obj x = (r[1]), l = (cx__2Aglobals_2A), p = mknull(); - for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } - r[2] = (l == mknull() ? obj_from_bool(0) : p); } - if ((ispair((r[2])))) { - r[2] = (cdr((r[2]))); - } else { - { /* box */ - hreserve(hbsz(2), 3); /* 3 live regs */ - *--hp = (mksymbol(internsym("undefined"))); - *--hp = obj_from_size(BOX_BTAG); - r[3] = (hendblk(2)); } - { /* 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 = (cx__2Aglobals_2A); - *--hp = r[4]; - *--hp = obj_from_size(PAIR_BTAG); - cx__2Aglobals_2A = (hendblk(3)); } - r[2] = r[3]; - } - r[3+0] = r[0]; - pc = objptr_from_obj(r[3+0])[0]; - r[3+1] = obj_from_ktrap(); - r[3+2] = r[2]; - r += 3; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 252: /* clo k msg args */ +case 248: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ { /* string-append */ - int *d = stringcat(stringdata((cx__231875)), stringdata((r[1]))); + int *d = stringcat(stringdata((cx__231845)), stringdata((r[1]))); r[3] = (hpushstr(3, d)); } /* r[0] */ r[1] = r[3]; /* r[2] */ goto gs_error_2A; -case 253: /* write-serialized-char k x port */ +case 249: /* write-serialized-char k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dchar: /* k x port */ - { const char_t v14230_x = char_from_obj(r[1]); - if ((((v14230_x) == ('%')) || (((v14230_x) == (34)) || (((v14230_x) == (92)) || (((v14230_x) < (' ')) || ((v14230_x) > ('~'))))))) { + { const char_t v14139_x = char_from_obj(r[1]); + if ((((v14139_x) == ('%')) || (((v14139_x) == (34)) || (((v14139_x) == (92)) || (((v14139_x) < (' ')) || ((v14139_x) > ('~'))))))) { (void)(oportputc(('%'), (r[2]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(254); + *--hp = obj_from_case(250); 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)(v14230_x)); + r[4+2] = obj_from_fixnum((fixnum_t)(v14139_x)); r[4+3] = obj_from_fixnum(+16); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -14391,13 +14330,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((v14230_x), (r[2]))); + r[2] = obj_from_void(oportputc((v14139_x), (r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } -case 254: /* clo ek r */ +case 250: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14415,14 +14354,14 @@ case 254: /* clo ek r */ rc = 3; goto jump; -case 255: /* write-serialized-byte k x port */ +case 251: /* 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(256); + *--hp = obj_from_case(252); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14434,7 +14373,7 @@ gs_write_2Dserialized_2Dbyte: /* k x port */ rc = 4; goto jump; -case 256: /* clo ek r */ +case 252: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14452,14 +14391,14 @@ case 256: /* clo ek r */ rc = 3; goto jump; -case 257: /* write-serialized-size k n port */ +case 253: /* 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(258); + *--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]; @@ -14471,7 +14410,7 @@ case 257: /* write-serialized-size k n port */ rc = 4; goto jump; -case 258: /* clo ek r */ +case 254: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14487,21 +14426,21 @@ case 258: /* clo ek r */ rc = 3; goto jump; -case 259: /* write-serialized-element k x port */ +case 255: /* 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(260); + *--hp = obj_from_case(256); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_write_2Dserialized_2Dsexp; -case 260: /* clo ek . */ +case 256: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14517,7 +14456,7 @@ case 260: /* clo ek . */ rc = 3; goto jump; -case 261: /* write-serialized-sexp k x port */ +case 257: /* write-serialized-sexp k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dsexp: /* k x port */ @@ -14560,7 +14499,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(262); + *--hp = obj_from_case(258); r[3] = (hendblk(2+1)); if ((is_fixnum_obj(r[1]))) { r[4+0] = (cx_fixnum_2D_3Estring); @@ -14593,7 +14532,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(259); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -14612,7 +14551,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(266); + *--hp = obj_from_case(262); r[4] = (hendblk(3+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -14630,7 +14569,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(268); + *--hp = obj_from_case(264); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14648,7 +14587,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(271); + *--hp = obj_from_case(267); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14666,7 +14605,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(274); + *--hp = obj_from_case(270); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14685,7 +14624,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[3]; - *--hp = obj_from_case(277); + *--hp = obj_from_case(273); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -14700,7 +14639,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__231910); + r[3+2] = (cx__231880); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -14718,7 +14657,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ } } -case 262: /* clo ek r */ +case 258: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14734,7 +14673,7 @@ case 262: /* clo ek r */ rc = 3; goto jump; -case 263: /* clo ek r */ +case 259: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14747,14 +14686,14 @@ case 263: /* clo ek r */ r[0] = r[3]; r[1] = r[2]; r[2] = r[4]; - goto s_loop_v12358; + goto s_loop_v12295; -case 264: /* clo k x */ +case 260: /* 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_v12358: /* k x port */ +s_loop_v12295: /* k x port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14767,14 +14706,14 @@ s_loop_v12358: /* k x port */ r[3] = (car((r[1]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; - *--hp = obj_from_case(264); + *--hp = obj_from_case(260); 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(265); + *--hp = obj_from_case(261); r[4] = (hendblk(4+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -14787,7 +14726,7 @@ s_loop_v12358: /* k x port */ goto jump; } -case 265: /* clo ek . */ +case 261: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14806,7 +14745,7 @@ case 265: /* clo ek . */ rc = 3; goto jump; -case 266: /* clo ek . */ +case 262: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14820,7 +14759,7 @@ case 266: /* clo ek . */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(267); + *--hp = obj_from_case(263); r[6] = (hendblk(2+1)); r[0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[0])[0]; @@ -14831,7 +14770,7 @@ case 266: /* clo ek . */ rc = 4; goto jump; -case 267: /* clo ek . */ +case 263: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14847,7 +14786,7 @@ case 267: /* clo ek . */ rc = 3; goto jump; -case 268: /* clo ek r */ +case 264: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14863,15 +14802,15 @@ case 268: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12329; + goto s_loop_v12266; -case 269: /* clo k i */ +case 265: /* 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_v12329: /* k i port x */ +s_loop_v12266: /* k i port x */ if ((fixnum_from_obj(r[1]) == (vectorlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14885,14 +14824,14 @@ s_loop_v12329: /* k i port x */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(269); + *--hp = obj_from_case(265); 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(270); + *--hp = obj_from_case(266); r[5] = (hendblk(4+1)); r[6+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[6+0])[0]; @@ -14905,7 +14844,7 @@ s_loop_v12329: /* k i port x */ goto jump; } -case 270: /* clo ek . */ +case 266: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14924,7 +14863,7 @@ case 270: /* clo ek . */ rc = 3; goto jump; -case 271: /* clo ek r */ +case 267: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14940,15 +14879,15 @@ case 271: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12312; + goto s_loop_v12249; -case 272: /* clo k i */ +case 268: /* 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_v12312: /* k i port x */ +s_loop_v12249: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14961,13 +14900,13 @@ s_loop_v12312: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(272); + *--hp = obj_from_case(268); 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(273); + *--hp = obj_from_case(269); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); @@ -14975,7 +14914,7 @@ s_loop_v12312: /* k i port x */ goto gs_write_2Dserialized_2Dchar; } -case 273: /* clo ek . */ +case 269: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14992,7 +14931,7 @@ case 273: /* clo ek . */ rc = 3; goto jump; -case 274: /* clo ek r */ +case 270: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15008,15 +14947,15 @@ case 274: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12295; + goto s_loop_v12232; -case 275: /* clo k i */ +case 271: /* 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_v12295: /* k i port x */ +s_loop_v12232: /* k i port x */ if ((fixnum_from_obj(r[1]) == (bytevectorlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15029,13 +14968,13 @@ s_loop_v12295: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(275); + *--hp = obj_from_case(271); 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(276); + *--hp = obj_from_case(272); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_fixnum(*bytevectorref((r[3]), fixnum_from_obj(r[1]))); @@ -15043,7 +14982,7 @@ s_loop_v12295: /* k i port x */ goto gs_write_2Dserialized_2Dbyte; } -case 276: /* clo ek . */ +case 272: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -15060,7 +14999,7 @@ case 276: /* clo ek . */ rc = 3; goto jump; -case 277: /* clo ek r */ +case 273: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15076,15 +15015,15 @@ case 277: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12278; + goto s_loop_v12215; -case 278: /* clo k i */ +case 274: /* 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_v12278: /* k i port x */ +s_loop_v12215: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15097,13 +15036,13 @@ s_loop_v12278: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(278); + *--hp = obj_from_case(274); 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(279); + *--hp = obj_from_case(275); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); @@ -15111,7 +15050,7 @@ s_loop_v12278: /* k i port x */ goto gs_write_2Dserialized_2Dchar; } -case 279: /* clo ek . */ +case 275: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -15128,14 +15067,14 @@ case 279: /* clo ek . */ rc = 3; goto jump; -case 280: /* write-serialized-arg k arg port */ +case 276: /* 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 v14229_arg = fixnum_from_obj(r[1]); - r[3] = obj_from_bool(((+0) <= (v14229_arg)) && ((v14229_arg) <= (+9))); } + { const fixnum_t v14138_arg = fixnum_from_obj(r[1]); + r[3] = obj_from_bool(((+0) <= (v14138_arg)) && ((v14138_arg) <= (+9))); } } else { r[3] = obj_from_bool(0); } @@ -15143,8 +15082,8 @@ gs_write_2Dserialized_2Darg: /* k arg port */ r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { - { 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]))); } + { const char_t v14137_tmp = (*(unsigned char*)stringref((cx__231973), fixnum_from_obj(r[1]))); + r[3] = obj_from_void(oportputc((v14137_tmp), (r[2]))); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); @@ -15158,7 +15097,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(281); + *--hp = obj_from_case(277); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ @@ -15166,7 +15105,7 @@ gs_write_2Dserialized_2Darg: /* k arg port */ goto gs_write_2Dserialized_2Dsexp; } -case 281: /* clo ek . */ +case 277: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -15182,7 +15121,7 @@ case 281: /* clo ek . */ rc = 3; goto jump; -case 282: /* find-free* k x* b */ +case 278: /* find-free* k x* b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree_2A: /* k x* b */ @@ -15199,7 +15138,7 @@ gs_find_2Dfree_2A: /* k x* b */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(283); + *--hp = obj_from_case(279); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -15207,7 +15146,7 @@ gs_find_2Dfree_2A: /* k x* b */ goto gs_find_2Dfree; } -case 283: /* clo ek r */ +case 279: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15218,14 +15157,14 @@ case 283: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(284); + *--hp = obj_from_case(280); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dfree_2A; -case 284: /* clo ek r */ +case 280: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15239,7 +15178,7 @@ case 284: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 285: /* find-free k x b */ +case 281: /* find-free k x b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree: /* k x b */ @@ -15247,7 +15186,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(286); + *--hp = obj_from_case(282); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15264,7 +15203,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(287); + *--hp = obj_from_case(283); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15281,7 +15220,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(288); + *--hp = obj_from_case(284); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15298,7 +15237,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(290); + *--hp = obj_from_case(286); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15315,7 +15254,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(291); + *--hp = obj_from_case(287); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15332,7 +15271,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(294); + *--hp = obj_from_case(290); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15355,7 +15294,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(294); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15372,7 +15311,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(300); + *--hp = obj_from_case(296); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15389,7 +15328,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(299); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15406,7 +15345,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(308); + *--hp = obj_from_case(304); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15429,7 +15368,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(309); + *--hp = obj_from_case(305); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15452,7 +15391,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(310); + *--hp = obj_from_case(306); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15475,7 +15414,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(313); + *--hp = obj_from_case(309); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15514,7 +15453,7 @@ gs_find_2Dfree: /* k x b */ } } -case 286: /* clo k obj */ +case 282: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -15527,7 +15466,7 @@ case 286: /* clo k obj */ rc = 3; goto jump; -case 287: /* clo k id */ +case 283: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15552,7 +15491,7 @@ case 287: /* clo k id */ rc = 3; goto jump; -case 288: /* clo k id exp */ +case 284: /* clo k id exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15562,14 +15501,14 @@ case 288: /* clo k id exp */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(289); + *--hp = obj_from_case(285); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; -case 289: /* clo ek r */ +case 285: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15594,7 +15533,7 @@ case 289: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 290: /* clo k id */ +case 286: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15619,7 +15558,7 @@ case 290: /* clo k id */ rc = 3; goto jump; -case 291: /* clo k idsi exp */ +case 287: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15629,13 +15568,13 @@ case 291: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(292); + *--hp = obj_from_case(288); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 292: /* clo ek r */ +case 288: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15646,14 +15585,14 @@ case 292: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(293); + *--hp = obj_from_case(289); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ goto gs_set_2Dunion; -case 293: /* clo ek r */ +case 289: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15667,7 +15606,7 @@ case 293: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 294: /* clo k clauses */ +case 290: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15677,26 +15616,26 @@ case 294: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(297); + *--hp = obj_from_case(293); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v12161; + goto s_loop_v12098; -s_loop_v12161: /* k l f */ +s_loop_v12098: /* 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(295); + *--hp = obj_from_case(291); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12161; + goto s_loop_v12098; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15707,7 +15646,7 @@ s_loop_v12161: /* k l f */ goto jump; } -case 295: /* clo ek r */ +case 291: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15718,7 +15657,7 @@ case 295: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(296); + *--hp = obj_from_case(292); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -15728,7 +15667,7 @@ case 295: /* clo ek r */ rc = 3; goto jump; -case 296: /* clo ek r */ +case 292: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15750,7 +15689,7 @@ case 296: /* clo ek r */ rc = 3; goto jump; -case 297: /* clo ek r */ +case 293: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15762,7 +15701,7 @@ case 297: /* clo ek r */ /* r[2] */ goto gs_find_2Dfree_2A; -case 298: /* clo k kid exp */ +case 294: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15771,7 +15710,7 @@ case 298: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(299); + *--hp = obj_from_case(295); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -15784,7 +15723,7 @@ case 298: /* clo k kid exp */ r[2] = r[3]; goto gs_set_2Dunion; -case 299: /* clo ek r */ +case 295: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15798,7 +15737,7 @@ case 299: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 300: /* clo k kexp exp */ +case 296: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15808,14 +15747,14 @@ case 300: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(301); + *--hp = obj_from_case(297); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; -case 301: /* clo ek r */ +case 297: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15826,14 +15765,14 @@ case 301: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(302); + *--hp = obj_from_case(298); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; -case 302: /* clo ek r */ +case 298: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15847,7 +15786,7 @@ case 302: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 303: /* clo k test then else */ +case 299: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -15858,14 +15797,14 @@ case 303: /* clo k test then else */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(304); + *--hp = obj_from_case(300); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dfree; -case 304: /* clo ek r */ +case 300: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15879,14 +15818,14 @@ case 304: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(305); + *--hp = obj_from_case(301); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; -case 305: /* clo ek r */ +case 301: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15899,14 +15838,14 @@ case 305: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(306); + *--hp = obj_from_case(302); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; -case 306: /* clo ek r */ +case 302: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15917,7 +15856,7 @@ case 306: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(307); + *--hp = obj_from_case(303); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -15926,7 +15865,7 @@ case 306: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 307: /* clo ek r */ +case 303: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15940,7 +15879,7 @@ case 307: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 308: /* clo k exps */ +case 304: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15951,7 +15890,7 @@ case 308: /* clo k exps */ /* r[2] */ goto gs_find_2Dfree_2A; -case 309: /* clo k ig args */ +case 305: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15962,7 +15901,7 @@ case 309: /* clo k ig args */ r[2] = r[3]; goto gs_find_2Dfree_2A; -case 310: /* clo k exp args */ +case 306: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15972,14 +15911,14 @@ case 310: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(311); + *--hp = obj_from_case(307); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; -case 311: /* clo ek r */ +case 307: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15990,14 +15929,14 @@ case 311: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(312); + *--hp = obj_from_case(308); 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 */ +case 308: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16011,7 +15950,7 @@ case 312: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 313: /* clo k tail */ +case 309: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16020,14 +15959,14 @@ case 313: /* 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__232024); + r[3+2] = (cx__231994); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 314: /* find-sets* k x* v */ +case 310: /* find-sets* k x* v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets_2A: /* k x* v */ @@ -16044,7 +15983,7 @@ gs_find_2Dsets_2A: /* k x* v */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(315); + *--hp = obj_from_case(311); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -16052,7 +15991,7 @@ gs_find_2Dsets_2A: /* k x* v */ goto gs_find_2Dsets; } -case 315: /* clo ek r */ +case 311: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16063,14 +16002,14 @@ case 315: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(316); + *--hp = obj_from_case(312); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dsets_2A; -case 316: /* clo ek r */ +case 312: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16084,7 +16023,7 @@ case 316: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 317: /* find-sets k x v */ +case 313: /* find-sets k x v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets: /* k x v */ @@ -16092,7 +16031,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(318); + *--hp = obj_from_case(314); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16108,7 +16047,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(319); + *--hp = obj_from_case(315); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16125,7 +16064,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(320); + *--hp = obj_from_case(316); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16142,7 +16081,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(322); + *--hp = obj_from_case(318); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16159,7 +16098,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(323); + *--hp = obj_from_case(319); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16176,7 +16115,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(326); + *--hp = obj_from_case(322); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16199,7 +16138,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(326); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16216,7 +16155,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(332); + *--hp = obj_from_case(328); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16233,7 +16172,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(335); + *--hp = obj_from_case(331); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16256,7 +16195,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(332); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -16273,7 +16212,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(341); + *--hp = obj_from_case(337); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16296,7 +16235,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(342); + *--hp = obj_from_case(338); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16319,7 +16258,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(345); + *--hp = obj_from_case(341); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16358,7 +16297,7 @@ gs_find_2Dsets: /* k x v */ } } -case 318: /* clo k obj */ +case 314: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -16371,7 +16310,7 @@ case 318: /* clo k obj */ rc = 3; goto jump; -case 319: /* clo k id */ +case 315: /* clo k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k id */ @@ -16384,7 +16323,7 @@ case 319: /* clo k id */ rc = 3; goto jump; -case 320: /* clo k id x */ +case 316: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16394,14 +16333,14 @@ case 320: /* clo k id x */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(321); + *--hp = obj_from_case(317); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 321: /* clo ek r */ +case 317: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16426,7 +16365,7 @@ case 321: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 322: /* clo k id */ +case 318: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16451,7 +16390,7 @@ case 322: /* clo k id */ rc = 3; goto jump; -case 323: /* clo k idsi exp */ +case 319: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16461,13 +16400,13 @@ case 323: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(324); + *--hp = obj_from_case(320); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 324: /* clo ek r */ +case 320: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16478,7 +16417,7 @@ case 324: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(325); + *--hp = obj_from_case(321); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -16487,7 +16426,7 @@ case 324: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 325: /* clo ek r */ +case 321: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16501,7 +16440,7 @@ case 325: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 326: /* clo k clauses */ +case 322: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16511,26 +16450,26 @@ case 326: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(329); + *--hp = obj_from_case(325); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v11944; + goto s_loop_v11881; -s_loop_v11944: /* k l f */ +s_loop_v11881: /* 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(327); + *--hp = obj_from_case(323); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v11944; + goto s_loop_v11881; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16541,7 +16480,7 @@ s_loop_v11944: /* k l f */ goto jump; } -case 327: /* clo ek r */ +case 323: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16552,7 +16491,7 @@ case 327: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(328); + *--hp = obj_from_case(324); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -16562,7 +16501,7 @@ case 327: /* clo ek r */ rc = 3; goto jump; -case 328: /* clo ek r */ +case 324: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16584,7 +16523,7 @@ case 328: /* clo ek r */ rc = 3; goto jump; -case 329: /* clo ek r */ +case 325: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16596,7 +16535,7 @@ case 329: /* clo ek r */ /* r[2] */ goto gs_find_2Dsets_2A; -case 330: /* clo k kid exp */ +case 326: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16605,7 +16544,7 @@ case 330: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(331); + *--hp = obj_from_case(327); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -16620,7 +16559,7 @@ case 330: /* clo k kid exp */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 331: /* clo ek r */ +case 327: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16634,7 +16573,7 @@ case 331: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 332: /* clo k kexp exp */ +case 328: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16644,14 +16583,14 @@ case 332: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(333); + *--hp = obj_from_case(329); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; -case 333: /* clo ek r */ +case 329: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16662,14 +16601,14 @@ case 333: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(334); + *--hp = obj_from_case(330); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 334: /* clo ek r */ +case 330: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16683,7 +16622,7 @@ case 334: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 335: /* clo k exps */ +case 331: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16694,7 +16633,7 @@ case 335: /* clo k exps */ /* r[2] */ goto gs_find_2Dsets_2A; -case 336: /* clo k test then else */ +case 332: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -16705,14 +16644,14 @@ case 336: /* clo k test then else */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(337); + *--hp = obj_from_case(333); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dsets; -case 337: /* clo ek r */ +case 333: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16726,14 +16665,14 @@ case 337: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(338); + *--hp = obj_from_case(334); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 338: /* clo ek r */ +case 334: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16746,14 +16685,14 @@ case 338: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(339); + *--hp = obj_from_case(335); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 339: /* clo ek r */ +case 335: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16764,7 +16703,7 @@ case 339: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(340); + *--hp = obj_from_case(336); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -16773,6 +16712,66 @@ case 339: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; +case 336: /* 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 337: /* 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 v */ + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto gs_find_2Dsets_2A; + +case 338: /* 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 v */ + hreserve(hbsz(3+1), 4); /* 4 live regs */ + *--hp = r[0]; + *--hp = r[2]; + *--hp = r[3]; + *--hp = obj_from_case(339); + r[4] = (hendblk(3+1)); + r[0] = r[4]; + /* r[1] */ + r[2] = r[3]; + goto gs_find_2Dsets; + +case 339: /* 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 v args k */ + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[1]; + *--hp = obj_from_case(340); + r[5] = (hendblk(2+1)); + r[0] = r[5]; + r[1] = r[3]; + /* r[2] */ + goto gs_find_2Dsets_2A; + case 340: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); @@ -16787,67 +16786,7 @@ case 340: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 341: /* 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 v */ - /* r[0] */ - r[1] = r[2]; - r[2] = r[3]; - goto gs_find_2Dsets_2A; - -case 342: /* 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 v */ - hreserve(hbsz(3+1), 4); /* 4 live regs */ - *--hp = r[0]; - *--hp = r[2]; - *--hp = r[3]; - *--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 343: /* 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 v args k */ - hreserve(hbsz(2+1), 5); /* 5 live regs */ - *--hp = r[4]; - *--hp = r[1]; - *--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 344: /* 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 345: /* clo k tail */ +case 341: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16856,14 +16795,14 @@ case 345: /* 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__232024); + r[3+2] = (cx__231994); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 346: /* codegen k x l f s g k port */ +case 342: /* 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 */ @@ -16873,7 +16812,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(347); + *--hp = obj_from_case(343); r[8] = (hendblk(2+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16894,7 +16833,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(349); + *--hp = obj_from_case(345); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16916,7 +16855,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(349); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16936,7 +16875,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[6]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(356); + *--hp = obj_from_case(352); r[8] = (hendblk(4+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16958,7 +16897,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(358); + *--hp = obj_from_case(354); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16986,7 +16925,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(362); + *--hp = obj_from_case(358); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -17008,7 +16947,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(366); + *--hp = obj_from_case(362); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -17030,7 +16969,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(382); + *--hp = obj_from_case(378); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -17058,7 +16997,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(391); + *--hp = obj_from_case(387); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -17079,7 +17018,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(394); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -17101,7 +17040,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(403); + *--hp = obj_from_case(399); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -17129,7 +17068,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[7]; *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(438); + *--hp = obj_from_case(434); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -17152,7 +17091,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(459); + *--hp = obj_from_case(455); r[8] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -17191,7 +17130,7 @@ gs_codegen: /* k x l f s g k port */ } } -case 347: /* clo k obj */ +case 343: /* clo k obj */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17202,7 +17141,7 @@ case 347: /* clo k obj */ *--hp = r[3]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(348); + *--hp = obj_from_case(344); 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]))); @@ -17213,7 +17152,7 @@ case 347: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11801; + goto s_l_v11738; } else { if (((((r[1]) == obj_from_bool(0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[5] = obj_from_void(oportputc(('f'), (r[2]))); @@ -17224,7 +17163,7 @@ case 347: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11801; + goto s_l_v11738; } 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]))); @@ -17235,7 +17174,7 @@ case 347: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11801; + goto s_l_v11738; } else { (void)(oportputc((39), (r[2]))); r[0] = r[4]; @@ -17246,7 +17185,7 @@ case 347: /* clo k obj */ } } -case 348: /* clo ek . */ +case 344: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17254,7 +17193,7 @@ case 348: /* clo ek . */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v11801: /* ek . k port k */ +s_l_v11738: /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; @@ -17271,7 +17210,7 @@ s_l_v11801: /* ek . k port k */ goto jump; } -case 349: /* clo k id */ +case 345: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17286,7 +17225,7 @@ case 349: /* clo k id */ *--hp = r[5]; *--hp = r[4]; *--hp = r[0]; - *--hp = obj_from_case(350); + *--hp = obj_from_case(346); r[8] = (hendblk(3+1)); if (bool_from_obj(r[7])) { (void)(oportputc(('.'), (r[4]))); @@ -17295,7 +17234,7 @@ case 349: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(351); + *--hp = obj_from_case(347); r[9] = (hendblk(4+1)); r[0] = r[9]; r[1] = r[7]; @@ -17310,7 +17249,7 @@ case 349: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(352); + *--hp = obj_from_case(348); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; @@ -17325,7 +17264,7 @@ case 349: /* clo k id */ } } -case 350: /* clo ek . */ +case 346: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17350,7 +17289,7 @@ case 350: /* clo ek . */ goto jump; } -case 351: /* clo ek . */ +case 347: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17368,7 +17307,7 @@ case 351: /* clo ek . */ rc = 3; goto jump; -case 352: /* clo ek . */ +case 348: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17386,7 +17325,7 @@ case 352: /* clo ek . */ rc = 3; goto jump; -case 353: /* clo k id x */ +case 349: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -17404,7 +17343,7 @@ case 353: /* clo k id x */ *--hp = r[6]; *--hp = r[0]; *--hp = r[5]; - *--hp = obj_from_case(354); + *--hp = obj_from_case(350); r[9] = (hendblk(6+1)); r[10+0] = r[9]; r[10+1] = r[2]; @@ -17418,7 +17357,7 @@ case 353: /* clo k id x */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 354: /* clo ek . */ +case 350: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17435,7 +17374,7 @@ case 354: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(355); + *--hp = obj_from_case(351); r[9] = (hendblk(3+1)); if (bool_from_obj(r[8])) { (void)(oportputc(('.'), (r[4]))); @@ -17463,7 +17402,7 @@ case 354: /* clo ek . */ } } -case 355: /* clo ek . */ +case 351: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17488,7 +17427,7 @@ case 355: /* clo ek . */ goto jump; } -case 356: /* clo k id */ +case 352: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17502,7 +17441,7 @@ case 356: /* clo k id */ *--hp = r[4]; *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(357); + *--hp = obj_from_case(353); r[7] = (hendblk(3+1)); if (bool_from_obj(r[6])) { (void)(oportputc(('.'), (r[3]))); @@ -17527,7 +17466,7 @@ case 356: /* clo k id */ } } -case 357: /* clo ek . */ +case 353: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17552,7 +17491,7 @@ case 357: /* clo ek . */ goto jump; } -case 358: /* clo k exps */ +case 354: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17568,7 +17507,7 @@ case 358: /* clo k exps */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; - *--hp = obj_from_case(361); + *--hp = obj_from_case(357); r[8] = (hendblk(4+1)); r[9+0] = r[8]; r[9+1] = r[1]; @@ -17580,9 +17519,9 @@ case 358: /* clo k exps */ r[9+7] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11727; + goto s_loop_v11664; -case 359: /* clo k xl */ +case 355: /* clo k xl */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17592,7 +17531,7 @@ case 359: /* clo k xl */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_loop_v11727: /* k xl port g s f l k */ +s_loop_v11664: /* 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]))); @@ -17608,13 +17547,13 @@ s_loop_v11727: /* k xl port g s f l k */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(359); + *--hp = obj_from_case(355); 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(360); + *--hp = obj_from_case(356); r[9] = (hendblk(3+1)); r[10+0] = r[9]; r[10+1] = (car((r[1]))); @@ -17637,7 +17576,7 @@ s_loop_v11727: /* k xl port g s f l k */ goto jump; } -case 360: /* clo ek . */ +case 356: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17654,7 +17593,7 @@ case 360: /* clo ek . */ rc = 3; goto jump; -case 361: /* clo ek . */ +case 357: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17680,7 +17619,7 @@ case 361: /* clo ek . */ goto jump; } -case 362: /* clo k test then else */ +case 358: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -17701,7 +17640,7 @@ case 362: /* clo k test then else */ *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(363); + *--hp = obj_from_case(359); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[1]; @@ -17715,7 +17654,7 @@ case 362: /* clo k test then else */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 363: /* clo ek . */ +case 359: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17741,7 +17680,7 @@ case 363: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(364); + *--hp = obj_from_case(360); r[11] = (hendblk(8+1)); r[12+0] = (r[11]); r[12+1] = r[2]; @@ -17755,7 +17694,7 @@ case 363: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 364: /* clo ek . */ +case 360: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17783,7 +17722,7 @@ case 364: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { - r[10] = obj_from_bool(isequal((r[6]), (cx__232840))); + r[10] = obj_from_bool(isequal((r[6]), (cx__232810))); if (bool_from_obj(r[10])) { r[0] = r[7]; pc = objptr_from_obj(r[0])[0]; @@ -17798,7 +17737,7 @@ case 364: /* clo ek . */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[7]; - *--hp = obj_from_case(365); + *--hp = obj_from_case(361); r[11] = (hendblk(2+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -17823,7 +17762,7 @@ case 364: /* clo ek . */ } } -case 365: /* clo ek . */ +case 361: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17839,7 +17778,7 @@ case 365: /* clo ek . */ rc = 3; goto jump; -case 366: /* clo k idsi exp */ +case 362: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -17860,13 +17799,13 @@ case 366: /* clo k idsi exp */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(367); + *--hp = obj_from_case(363); r[9] = (hendblk(9+1)); r[0] = r[9]; /* r[1] */ goto gs_flatten_2Didslist; -case 367: /* clo ek r */ +case 363: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17891,7 +17830,7 @@ case 367: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(368); + *--hp = obj_from_case(364); r[11] = (hendblk(10+1)); r[12+0] = (r[11]); r[12+1] = r[7]; @@ -17900,7 +17839,7 @@ case 367: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 368: /* clo ek r */ +case 364: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17926,14 +17865,14 @@ case 368: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(369); + *--hp = obj_from_case(365); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ r[2] = r[6]; goto gs_set_2Dminus; -case 369: /* clo ek r */ +case 365: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17960,14 +17899,14 @@ case 369: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(370); + *--hp = obj_from_case(366); r[12] = (hendblk(11+1)); r[0] = (r[12]); r[1] = r[8]; r[2] = r[7]; goto gs_find_2Dsets; -case 370: /* clo ek r */ +case 366: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17983,13 +17922,13 @@ case 370: /* 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 v14227_tmp; + { fixnum_t v14136_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14227_tmp = (n); } + v14136_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14227_tmp); + obj l, o = mknull(); int c = (v14136_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); @@ -18006,7 +17945,7 @@ case 370: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(373); + *--hp = obj_from_case(369); r[14] = (hendblk(10+1)); r[15+0] = (r[14]); r[15+1] = (r[13]); @@ -18016,16 +17955,16 @@ case 370: /* clo ek r */ r[15+5] = (r[12]); r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11656; + goto s_loop_v11593; -case 371: /* clo k free l */ +case 367: /* 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_v11656: /* k free l g f port */ +s_loop_v11593: /* k free l g f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18039,7 +17978,7 @@ s_loop_v11656: /* k free l g f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(371); + *--hp = obj_from_case(367); r[6] = (hendblk(3+1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[5]; @@ -18047,7 +17986,7 @@ s_loop_v11656: /* k free l g f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(372); + *--hp = obj_from_case(368); r[6] = (hendblk(5+1)); r[7] = (car((r[1]))); { /* cons */ @@ -18075,7 +18014,7 @@ s_loop_v11656: /* k free l g f port */ goto gs_codegen; } -case 372: /* clo ek . */ +case 368: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18102,7 +18041,7 @@ case 372: /* clo ek . */ rc = 4; goto jump; -case 373: /* clo ek . */ +case 369: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18130,7 +18069,7 @@ case 373: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(374); + *--hp = obj_from_case(370); r[12] = (hendblk(10+1)); { /* length */ int n; obj l = r[6]; @@ -18141,7 +18080,7 @@ case 373: /* clo ek . */ r[2] = (r[11]); goto gs_write_2Dserialized_2Darg; -case 374: /* clo ek . */ +case 370: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18168,7 +18107,7 @@ case 374: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(375); + *--hp = obj_from_case(371); r[12] = (hendblk(9+1)); if ((islist((r[2])))) { (void)(oportputc(('%'), (r[11]))); @@ -18189,7 +18128,7 @@ case 374: /* clo ek . */ goto gs_write_2Dserialized_2Darg; } -case 375: /* clo ek . */ +case 371: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18214,7 +18153,7 @@ case 375: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(378); + *--hp = obj_from_case(374); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -18223,15 +18162,15 @@ case 375: /* clo ek . */ r[12+4] = r[3]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11631; + goto s_loop_v11568; -case 376: /* clo k ids n */ +case 372: /* 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_v11631: /* k ids n port r */ +s_loop_v11568: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18244,14 +18183,14 @@ s_loop_v11631: /* k ids n port r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(376); + *--hp = obj_from_case(372); 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(377); + *--hp = obj_from_case(373); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); @@ -18265,7 +18204,7 @@ s_loop_v11631: /* k ids n port r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(376); + *--hp = obj_from_case(372); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); @@ -18275,11 +18214,11 @@ s_loop_v11631: /* k ids n port r */ r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11633; + goto s_l_v11570; } } -case 377: /* clo ek . */ +case 373: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18288,7 +18227,7 @@ case 377: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v11633: /* ek . loop n ids k */ +s_l_v11570: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; @@ -18298,7 +18237,7 @@ s_l_v11633: /* ek . loop n ids k */ rc = 4; goto jump; -case 378: /* clo ek . */ +case 374: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18322,14 +18261,14 @@ case 378: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(379); + *--hp = obj_from_case(375); r[11] = (hendblk(8+1)); r[0] = (r[11]); r[1] = r[2]; r[2] = r[5]; goto gs_set_2Dintersect; -case 379: /* clo ek r */ +case 375: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18350,7 +18289,7 @@ case 379: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(380); + *--hp = obj_from_case(376); r[10] = (hendblk(7+1)); r[11+0] = (r[10]); r[11+1] = r[2]; @@ -18359,7 +18298,7 @@ case 379: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 380: /* clo ek r */ +case 376: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18375,7 +18314,7 @@ case 380: /* clo ek r */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; - *--hp = obj_from_case(381); + *--hp = obj_from_case(377); r[9] = (hendblk(3+1)); { /* length */ int n; obj l = r[4]; @@ -18393,7 +18332,7 @@ case 380: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 381: /* clo ek . */ +case 377: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18419,7 +18358,7 @@ case 381: /* clo ek . */ goto jump; } -case 382: /* clo k clauses */ +case 378: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18430,13 +18369,13 @@ case 382: /* clo k clauses */ r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* k clauses g s f l k port */ - { fixnum_t v14226_tmp; + { fixnum_t v14135_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14226_tmp = (n); } + v14135_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14226_tmp); + obj l, o = mknull(); int c = (v14135_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); @@ -18447,7 +18386,7 @@ case 382: /* clo k clauses */ *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(385); + *--hp = obj_from_case(381); r[9] = (hendblk(4+1)); r[10+0] = r[9]; r[10+1] = r[8]; @@ -18458,9 +18397,9 @@ case 382: /* clo k clauses */ r[10+6] = r[7]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11574; + goto s_loop_v11511; -case 383: /* clo k clauses l */ +case 379: /* clo k clauses l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18468,7 +18407,7 @@ case 383: /* clo k clauses l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11574: /* k clauses l g s f port */ +s_loop_v11511: /* k clauses l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18483,7 +18422,7 @@ s_loop_v11574: /* k clauses l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(383); + *--hp = obj_from_case(379); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -18491,7 +18430,7 @@ s_loop_v11574: /* k clauses l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(384); + *--hp = obj_from_case(380); r[7] = (hendblk(5+1)); r[8] = (car((r[1]))); r[9] = (cdr((r[8]))); @@ -18509,7 +18448,7 @@ s_loop_v11574: /* k clauses l g s f port */ goto gs_codegen; } -case 384: /* clo ek . */ +case 380: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18538,7 +18477,7 @@ case 384: /* clo ek . */ rc = 4; goto jump; -case 385: /* clo ek . */ +case 381: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18554,7 +18493,7 @@ case 385: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(386); + *--hp = obj_from_case(382); r[6] = (hendblk(4+1)); { /* length */ int n; obj l = r[2]; @@ -18565,7 +18504,7 @@ case 385: /* clo ek . */ r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 386: /* clo ek . */ +case 382: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18580,20 +18519,20 @@ case 386: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(390); + *--hp = obj_from_case(386); 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_v11547; + goto s_loop_v11484; -case 387: /* clo k clauses i */ +case 383: /* 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_v11547: /* k clauses i port */ +s_loop_v11484: /* k clauses i port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18612,7 +18551,7 @@ s_loop_v11547: /* 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(387); + *--hp = obj_from_case(383); r[7] = (hendblk(1+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; @@ -18620,7 +18559,7 @@ s_loop_v11547: /* k clauses i port */ *--hp = r[2]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(388); + *--hp = obj_from_case(384); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[5]; @@ -18628,7 +18567,7 @@ s_loop_v11547: /* k clauses i port */ goto gs_write_2Dserialized_2Darg; } -case 388: /* clo ek . */ +case 384: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18644,14 +18583,14 @@ case 388: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(389); + *--hp = obj_from_case(385); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[4]; /* r[2] */ goto gs_write_2Dserialized_2Darg; -case 389: /* clo ek . */ +case 385: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18670,7 +18609,7 @@ case 389: /* clo ek . */ rc = 4; goto jump; -case 390: /* clo ek . */ +case 386: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18698,7 +18637,7 @@ case 390: /* clo ek . */ goto jump; } -case 391: /* clo k kid exp */ +case 387: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18726,14 +18665,14 @@ case 391: /* clo k kid exp */ *--hp = r[4]; *--hp = r[3]; *--hp = r[9]; - *--hp = obj_from_case(392); + *--hp = obj_from_case(388); r[10] = (hendblk(10+1)); r[0] = (r[10]); r[1] = r[2]; r[2] = r[9]; goto gs_find_2Dsets; -case 392: /* clo ek r */ +case 388: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18758,14 +18697,14 @@ case 392: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(393); + *--hp = obj_from_case(389); r[12] = (hendblk(9+1)); r[0] = (r[12]); r[1] = r[3]; /* r[2] */ goto gs_set_2Dminus; -case 393: /* clo ek r */ +case 389: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18789,14 +18728,14 @@ case 393: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(394); + *--hp = obj_from_case(390); r[11] = (hendblk(9+1)); r[0] = (r[11]); /* r[1] */ r[2] = r[8]; goto gs_set_2Dunion; -case 394: /* clo ek r */ +case 390: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18823,7 +18762,7 @@ case 394: /* clo ek r */ *--hp = r[1]; *--hp = r[2]; *--hp = (r[10]); - *--hp = obj_from_case(395); + *--hp = obj_from_case(391); r[11] = (hendblk(10+1)); r[0] = (r[11]); r[1] = (r[10]); @@ -18843,7 +18782,7 @@ case 394: /* clo ek r */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[6]; - *--hp = obj_from_case(396); + *--hp = obj_from_case(392); r[11] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ @@ -18876,7 +18815,7 @@ case 394: /* clo ek r */ goto gs_codegen; } -case 395: /* clo ek . */ +case 391: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18916,7 +18855,7 @@ case 395: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 396: /* clo ek . */ +case 392: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18928,14 +18867,14 @@ case 396: /* clo ek . */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(397); + *--hp = obj_from_case(393); 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 397: /* clo ek . */ +case 393: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18951,7 +18890,7 @@ case 397: /* clo ek . */ rc = 3; goto jump; -case 398: /* clo k kexp exp */ +case 394: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18963,7 +18902,7 @@ case 398: /* clo k kexp exp */ /* k kexp exp g s f l port */ r[8] = (car((r[2]))); { /* memq */ - obj x = (r[8]), l = (cx__232675); + obj x = (r[8]), l = (cx__232645); 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])) { @@ -18975,7 +18914,7 @@ case 398: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(399); + *--hp = obj_from_case(395); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = r[2]; @@ -18997,7 +18936,7 @@ case 398: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(401); + *--hp = obj_from_case(397); r[8] = (hendblk(7+1)); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -19030,7 +18969,7 @@ case 398: /* clo k kexp exp */ goto gs_codegen; } -case 399: /* clo ek . */ +case 395: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19047,7 +18986,7 @@ case 399: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(400); + *--hp = obj_from_case(396); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -19067,7 +19006,7 @@ case 399: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 400: /* clo ek . */ +case 396: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19085,7 +19024,7 @@ case 400: /* clo ek . */ rc = 3; goto jump; -case 401: /* clo ek . */ +case 397: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19102,7 +19041,7 @@ case 401: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(402); + *--hp = obj_from_case(398); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -19122,7 +19061,7 @@ case 401: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 402: /* clo ek . */ +case 398: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19138,7 +19077,7 @@ case 402: /* clo ek . */ rc = 3; goto jump; -case 403: /* clo k ig args */ +case 399: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -19162,7 +19101,7 @@ case 403: /* clo k ig args */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(404); + *--hp = obj_from_case(400); r[10] = (hendblk(9+1)); r[11+0] = r[9]; pc = objptr_from_obj(r[11+0])[0]; @@ -19174,7 +19113,7 @@ case 403: /* clo k ig args */ rc = 4; goto jump; -case 404: /* clo ek r */ +case 400: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19202,7 +19141,7 @@ case 404: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(405); + *--hp = obj_from_case(401); r[12] = (hendblk(10+1)); r[0] = (r[11]); pc = objptr_from_obj(r[0])[0]; @@ -19212,7 +19151,7 @@ case 404: /* clo ek r */ rc = 3; goto jump; -case 405: /* clo ek r */ +case 401: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -19231,16 +19170,16 @@ case 405: /* clo ek r */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; - *--hp = obj_from_case(406); + *--hp = obj_from_case(402); 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 v14225_tmp; + { fixnum_t v14134_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14225_tmp = (n); } + v14134_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14225_tmp); + obj l, o = mknull(); int c = (v14134_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); @@ -19250,7 +19189,7 @@ case 405: /* clo ek r */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); - *--hp = obj_from_case(409); + *--hp = obj_from_case(405); r[14] = (hendblk(3+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -19259,7 +19198,7 @@ case 405: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11426; + goto s_loop_v11363; } else { if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((isnull((r[7])))) { @@ -19269,7 +19208,7 @@ case 405: /* clo ek r */ hreserve(hbsz(2+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = (r[12]); - *--hp = obj_from_case(410); + *--hp = obj_from_case(406); r[14] = (hendblk(2+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; @@ -19280,19 +19219,19 @@ case 405: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v14223_tmp; + { fixnum_t v14132_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14223_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14223_tmp), (+1))); } - { fixnum_t v14224_tmp; + v14132_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14132_tmp), (+1))); } + { fixnum_t v14133_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14224_tmp = (n); } + v14133_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14224_tmp); + obj l, o = mknull(); int c = (v14133_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); @@ -19303,7 +19242,7 @@ case 405: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(413); + *--hp = obj_from_case(409); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -19312,7 +19251,7 @@ case 405: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11401; + goto s_loop_v11338; } } else { if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { @@ -19330,7 +19269,7 @@ case 405: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(414); + *--hp = obj_from_case(410); r[14] = (hendblk(7+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; @@ -19341,19 +19280,19 @@ case 405: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v14221_tmp; + { fixnum_t v14130_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; + v14130_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14130_tmp), (+1))); } + { fixnum_t v14131_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14222_tmp = (n); } + v14131_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14222_tmp); + obj l, o = mknull(); int c = (v14131_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); @@ -19364,7 +19303,7 @@ case 405: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(418); + *--hp = obj_from_case(414); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -19373,23 +19312,23 @@ case 405: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11365; + goto s_loop_v11302; } } else { if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v14219_tmp; + { fixnum_t v14128_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14219_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14219_tmp), (+1))); } - { fixnum_t v14220_tmp; + v14128_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14128_tmp), (+1))); } + { fixnum_t v14129_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14220_tmp = (n); } + v14129_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14220_tmp); + obj l, o = mknull(); int c = (v14129_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); @@ -19405,7 +19344,7 @@ case 405: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(419); + *--hp = obj_from_case(415); r[15] = (hendblk(9+1)); r[16+0] = (r[15]); r[16+1] = (car((r[14]))); @@ -19420,19 +19359,19 @@ case 405: /* clo ek r */ goto gs_codegen; } else { if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v14217_tmp; + { fixnum_t v14126_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14217_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14217_tmp), (+1))); } - { fixnum_t v14218_tmp; + v14126_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14126_tmp), (+1))); } + { fixnum_t v14127_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14218_tmp = (n); } + v14127_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14218_tmp); + obj l, o = mknull(); int c = (v14127_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); @@ -19443,7 +19382,7 @@ case 405: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(425); + *--hp = obj_from_case(421); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -19452,14 +19391,14 @@ case 405: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11311; + goto s_loop_v11248; } 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(426); + *--hp = obj_from_case(422); r[13] = (hendblk(3+1)); if ((isnull((r[7])))) { { /* define integrable-code */ @@ -19468,7 +19407,7 @@ case 405: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(427); + *--hp = obj_from_case(423); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -19502,7 +19441,7 @@ case 405: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(428); + *--hp = obj_from_case(424); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = obj_from_bool(isnull((r[14]))); @@ -19513,7 +19452,7 @@ case 405: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(430); + *--hp = obj_from_case(426); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -19549,7 +19488,7 @@ case 405: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(431); + *--hp = obj_from_case(427); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = (cdr((r[14]))); @@ -19561,7 +19500,7 @@ case 405: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(434); + *--hp = obj_from_case(430); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -19589,13 +19528,13 @@ case 405: /* clo ek r */ } } else { if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v14216_tmp; + { fixnum_t v14125_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14216_tmp = (n); } + v14125_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14216_tmp); + obj l, o = mknull(); int c = (v14125_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); @@ -19606,7 +19545,7 @@ case 405: /* clo ek r */ *--hp = r[8]; *--hp = (r[12]); *--hp = r[7]; - *--hp = obj_from_case(437); + *--hp = obj_from_case(433); r[14] = (hendblk(4+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -19615,12 +19554,12 @@ case 405: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11233; + goto s_loop_v11170; } else { r[13+0] = (cx_c_2Derror); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); - r[13+2] = (cx__232368); + r[13+2] = (cx__232338); r[13+3] = r[1]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -19636,7 +19575,7 @@ case 405: /* clo ek r */ } } -case 406: /* clo ek . */ +case 402: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19661,6 +19600,118 @@ case 406: /* clo ek . */ goto jump; } +case 403: /* 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_v11363: /* 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(403); + 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(404); + 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 404: /* 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 405: /* 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 406: /* 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 port */ + r[4+0] = r[2]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + case 407: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); @@ -19669,7 +19720,7 @@ case 407: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11426: /* k args l g s f port */ +s_loop_v11338: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19741,6 +19792,73 @@ case 408: /* clo ek . */ goto jump; case 409: /* 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_v11329; + +s_loop_v11329: /* k i r port opc */ + { const fixnum_t v14124_i = fixnum_from_obj(r[1]); + if (((v14124_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((v14124_i), (+1))); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_loop_v11329; + } } + +case 410: /* 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(411); + 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 411: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19757,23 +19875,7 @@ case 409: /* clo ek . */ rc = 3; goto jump; -case 410: /* 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 port */ - r[4+0] = r[2]; - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = obj_from_ktrap(); - r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 411: /* clo k args l */ +case 412: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -19781,7 +19883,7 @@ case 411: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11401: /* k args l g s f port */ +s_loop_v11302: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19796,7 +19898,7 @@ s_loop_v11401: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(411); + *--hp = obj_from_case(412); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -19804,7 +19906,7 @@ s_loop_v11401: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(412); + *--hp = obj_from_case(413); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -19819,7 +19921,7 @@ s_loop_v11401: /* k args l g s f port */ goto gs_codegen; } -case 412: /* clo ek . */ +case 413: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19852,7 +19954,7 @@ case 412: /* clo ek . */ rc = 4; goto jump; -case 413: /* clo ek . */ +case 414: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19867,11 +19969,11 @@ case 413: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11392; + goto s_loop_v11293; -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]))) { +s_loop_v11293: /* k i r port opc */ + { const fixnum_t v14123_i = fixnum_from_obj(r[1]); + if (((v14123_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -19882,59 +19984,53 @@ s_loop_v11392: /* 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((v14123_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11392; + goto s_loop_v11293; } } -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+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 . 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]))); + /* ek . g s f l args r opc k port */ + (void)(oportputc((','), (r[10]))); + r[11] = (cdr((r[6]))); + { /* cons */ + hreserve(hbsz(3), 12); /* 12 live regs */ + *--hp = r[5]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[12] = (hendblk(3)); } + hreserve(hbsz(4+1), 13); /* 13 live regs */ + *--hp = r[9]; + *--hp = r[8]; + *--hp = (r[10]); + *--hp = r[7]; + *--hp = obj_from_case(418); + r[13] = (hendblk(4+1)); + r[14+0] = (r[13]); + r[14+1] = (r[11]); + r[14+2] = (r[12]); + r[14+3] = r[2]; + r[14+4] = r[3]; + r[14+5] = r[4]; + r[14+6] = (r[10]); + r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; + goto s_loop_v11274; case 416: /* clo k args l */ assert(rc == 4); @@ -19944,7 +20040,7 @@ case 416: /* clo k args l */ 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 */ +s_loop_v11274: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19999,6 +20095,7 @@ case 417: /* clo ek . */ (void)((0) ? obj_from_bool(0) : obj_from_void(0)); } else { (void)(oportputc((','), (r[5]))); + (void)(oportputc((','), (r[5]))); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ @@ -20006,6 +20103,12 @@ case 417: /* clo ek . */ *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 8); /* 8 live regs */ + *--hp = r[7]; + *--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]; @@ -20030,11 +20133,11 @@ case 418: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11356; + goto s_loop_v11265; -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]))) { +s_loop_v11265: /* k i r port opc */ + { const fixnum_t v14122_i = fixnum_from_obj(r[1]); + if (((v14122_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -20043,57 +20146,17 @@ s_loop_v11356: /* k i r port opc */ rc = 3; goto jump; } else { + (void)(((v14122_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((v14214_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v14122_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11356; + goto s_loop_v11265; } } -case 419: /* 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+8] = p[7]; - r[1+9] = p[8]; - r[1+10] = p[9]; } - r += 1; /* shift reg. wnd */ - /* ek . g s f l args r opc k port */ - (void)(oportputc((','), (r[10]))); - r[11] = (cdr((r[6]))); - { /* cons */ - hreserve(hbsz(3), 12); /* 12 live regs */ - *--hp = r[5]; - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[12] = (hendblk(3)); } - hreserve(hbsz(4+1), 13); /* 13 live regs */ - *--hp = r[9]; - *--hp = r[8]; - *--hp = (r[10]); - *--hp = r[7]; - *--hp = obj_from_case(422); - r[13] = (hendblk(4+1)); - r[14+0] = (r[13]); - r[14+1] = (r[11]); - r[14+2] = (r[12]); - r[14+3] = r[2]; - r[14+4] = r[3]; - r[14+5] = r[4]; - r[14+6] = (r[10]); - r += 14; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_loop_v11337; - -case 420: /* clo k args l */ +case 419: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20101,7 +20164,7 @@ case 420: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11337: /* k args l g s f port */ +s_loop_v11248: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20116,7 +20179,7 @@ s_loop_v11337: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(420); + *--hp = obj_from_case(419); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -20124,7 +20187,7 @@ s_loop_v11337: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(421); + *--hp = obj_from_case(420); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -20139,6 +20202,39 @@ s_loop_v11337: /* k args l g s f port */ goto gs_codegen; } +case 420: /* 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 421: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ @@ -20146,194 +20242,37 @@ case 421: /* clo ek . */ 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+5] = p[4]; } 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]))); - (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)); } - { /* cons */ - hreserve(hbsz(3), 8); /* 8 live regs */ - *--hp = r[7]; - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[7] = (hendblk(3)); } - r[0] = r[2]; + /* ek . r port opc k */ + r[0] = r[5]; + r[1] = obj_from_fixnum(+0); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_loop_v11239; + +s_loop_v11239: /* k i r port opc */ + { const fixnum_t v14121_i = fixnum_from_obj(r[1]); + if (((v14121_i) >= fixnum_from_obj(r[4]))) { + /* r[0] */ pc = objptr_from_obj(r[0])[0]; - r[1] = r[4]; - r[2] = (cdr((r[6]))); - r[3] = r[7]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); - rc = 4; + rc = 3; goto jump; + } else { + (void)(oportputs(stringchars((r[2])), (r[3]))); + /* r[0] */ + r[1] = obj_from_fixnum(fxadd((v14121_i), (+1))); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_loop_v11239; + } } case 422: /* 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_v11328; - -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(); - r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - (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((v14213_i), (+1))); - /* r[2] */ - /* r[3] */ - /* r[4] */ - goto s_loop_v11328; - } } - -case 423: /* 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_v11311: /* 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(423); - 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(424); - 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 424: /* 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 425: /* 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_v11302; - -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(); - 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((v14212_i), (+1))); - /* r[2] */ - /* r[3] */ - /* r[4] */ - goto s_loop_v11302; - } } - -case 426: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20350,7 +20289,7 @@ case 426: /* clo ek . */ rc = 3; goto jump; -case 427: /* clo ek r */ +case 423: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20366,6 +20305,124 @@ case 427: /* clo ek r */ rc = 3; goto jump; +case 424: /* 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+8] = p[7]; + r[1+9] = p[8]; } + r += 1; /* shift reg. wnd */ + /* ek . g s f l args k r port */ + (void)(oportputc((','), (r[9]))); + hreserve(hbsz(3+1), 10); /* 10 live regs */ + *--hp = r[9]; + *--hp = r[8]; + *--hp = r[7]; + *--hp = obj_from_case(425); + r[10] = (hendblk(3+1)); + { /* cons */ + hreserve(hbsz(3), 11); /* 11 live regs */ + *--hp = r[5]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[11] = (hendblk(3)); } + r[12+0] = (r[10]); + r[12+1] = (car((r[6]))); + r[12+2] = (r[11]); + r[12+3] = r[4]; + r[12+4] = r[3]; + r[12+5] = r[2]; + r[12+6] = obj_from_bool(0); + r[12+7] = r[9]; + r += 12; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + +case 425: /* 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 426: /* 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 port */ + r[4+0] = r[2]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 427: /* 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+8] = p[7]; + r[1+9] = p[8]; } + r += 1; /* shift reg. wnd */ + /* ek . g s f l args k r port */ + (void)(oportputc((','), (r[9]))); + hreserve(hbsz(8+1), 10); /* 10 live regs */ + *--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(428); + r[10] = (hendblk(8+1)); + r[11] = (cdr((r[6]))); + r[11] = (car((r[11]))); + { /* cons */ + hreserve(hbsz(3), 12); /* 12 live regs */ + *--hp = r[5]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[12] = (hendblk(3)); } + r[13+0] = (r[10]); + r[13+1] = (r[11]); + r[13+2] = (r[12]); + r[13+3] = r[4]; + r[13+4] = r[3]; + r[13+5] = r[2]; + r[13+6] = obj_from_bool(0); + r[13+7] = r[9]; + r += 13; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + case 428: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ @@ -20393,6 +20450,12 @@ case 428: /* clo ek . */ *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 12); /* 12 live regs */ + *--hp = (r[11]); + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[11] = (hendblk(3)); } r[12+0] = (r[10]); r[12+1] = (car((r[6]))); r[12+2] = (r[11]); @@ -20438,51 +20501,51 @@ case 430: /* clo ek r */ rc = 3; goto jump; -case 431: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ +case 431: /* clo k args l */ + assert(rc == 4); { 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+3] = p[1]; + r[1+4] = p[2]; + r[1+5] = p[3]; + r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ - /* ek . g s f l args k r port */ - (void)(oportputc((','), (r[9]))); - hreserve(hbsz(8+1), 10); /* 10 live regs */ - *--hp = r[9]; - *--hp = r[8]; - *--hp = r[7]; +s_loop_v11170: /* 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(431); + r[7] = (hendblk(4+1)); + hreserve(hbsz(5+1), 8); /* 8 live regs */ + *--hp = r[6]; + *--hp = r[0]; + *--hp = r[1]; *--hp = r[2]; + *--hp = r[7]; *--hp = obj_from_case(432); - r[10] = (hendblk(8+1)); - r[11] = (cdr((r[6]))); - r[11] = (car((r[11]))); - { /* cons */ - hreserve(hbsz(3), 12); /* 12 live regs */ - *--hp = r[5]; - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[12] = (hendblk(3)); } - r[13+0] = (r[10]); - r[13+1] = (r[11]); - r[13+2] = (r[12]); - r[13+3] = r[4]; - r[13+4] = r[3]; - r[13+5] = r[2]; - r[13+6] = obj_from_bool(0); - r[13+7] = r[9]; - r += 13; /* shift reg wnd */ + 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 432: /* clo ek . */ assert(rc >= 2); @@ -20492,42 +20555,24 @@ case 432: /* clo ek . */ 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+6] = p[5]; } r += 1; /* shift reg. wnd */ - /* ek . g s f l args k r port */ - (void)(oportputc((','), (r[9]))); - hreserve(hbsz(3+1), 10); /* 10 live regs */ - *--hp = r[9]; - *--hp = r[8]; - *--hp = r[7]; - *--hp = obj_from_case(433); - r[10] = (hendblk(3+1)); + /* ek . loop l args k port */ + (void)(oportputc((','), (r[6]))); { /* cons */ - hreserve(hbsz(3), 11); /* 11 live regs */ - *--hp = r[5]; + hreserve(hbsz(3), 7); /* 7 live regs */ + *--hp = r[3]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); - r[11] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 12); /* 12 live regs */ - *--hp = (r[11]); - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[11] = (hendblk(3)); } - r[12+0] = (r[10]); - r[12+1] = (car((r[6]))); - r[12+2] = (r[11]); - r[12+3] = r[4]; - r[12+4] = r[3]; - r[12+5] = r[2]; - r[12+6] = obj_from_bool(0); - r[12+7] = r[9]; - r += 12; /* shift reg wnd */ + r[7] = (hendblk(3)); } + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[5]; + r[2] = (cdr((r[4]))); + r[3] = r[7]; rreserve(MAX_HOSTREGS); - goto gs_codegen; + rc = 4; + goto jump; case 433: /* clo ek . */ assert(rc >= 2); @@ -20535,32 +20580,170 @@ case 433: /* clo ek . */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; - r[1+4] = p[3]; } + r[1+4] = p[3]; + r[1+5] = p[4]; } 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; + /* ek . args k r port */ + (void)(oportputs(stringchars((r[4])), (r[5]))); + { /* length */ + int n; obj l = r[2]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + r[6] = obj_from_fixnum(n); } + r[0] = r[3]; + r[1] = r[6]; + r[2] = r[5]; + goto gs_write_2Dserialized_2Darg; -case 434: /* clo ek r */ - assert(rc == 3); +case 434: /* clo k exp args */ + assert(rc == 4); { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } + 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 */ - /* ek r k port */ - r[4+0] = r[2]; - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = obj_from_ktrap(); - r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); - r += 4; /* shift reg wnd */ + /* k exp args s l port g f k */ + r[9] = (car((r[1]))); + r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda")))); + if (bool_from_obj(r[9])) { + r[9] = (cdr((r[1]))); + r[9] = (car((r[9]))); + r[9] = obj_from_bool(islist((r[9]))); + if (bool_from_obj(r[9])) { + { fixnum_t v14120_tmp; + { fixnum_t v14119_tmp; + { /* length */ + int n; obj l = r[2]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14120_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)) ; + v14119_tmp = (n); } + r[9] = obj_from_bool((v14120_tmp) == (v14119_tmp)); } } + } else { + r[9] = obj_from_bool(0); + } + } else { + r[9] = obj_from_bool(0); + } + if (bool_from_obj(r[9])) { + { fixnum_t v14118_tmp; + { /* length */ + int n; obj l = r[2]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14118_tmp = (n); } + { /* reverse */ + obj l, o = mknull(); int c = (v14118_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); + *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } + r[9] = (o); } } + hreserve(hbsz(9+1), 10); /* 10 live regs */ + *--hp = r[1]; + *--hp = r[8]; + *--hp = r[0]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[2]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(437); + r[10] = (hendblk(9+1)); + r[11+0] = (r[10]); + r[11+1] = r[9]; + r[11+2] = r[4]; + r[11+3] = r[6]; + r[11+4] = r[3]; + r[11+5] = r[7]; + r[11+6] = r[5]; + r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; + goto s_loop_v11139; + } else { + if (bool_from_obj(r[8])) { + { fixnum_t v14117_tmp; + { /* length */ + int n; obj l = r[2]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14117_tmp = (n); } + { /* reverse */ + obj l, o = mknull(); int c = (v14117_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); + *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } + r[9] = (o); } } + hreserve(hbsz(4+1), 10); /* 10 live regs */ + *--hp = r[5]; + *--hp = r[0]; + *--hp = r[2]; + *--hp = r[8]; + *--hp = obj_from_case(448); + r[10] = (hendblk(4+1)); + r[11+0] = (r[10]); + r[11+1] = r[9]; + r[11+2] = r[4]; + r[11+3] = r[5]; + r[11+4] = r[6]; + r[11+5] = r[3]; + r[11+6] = r[7]; + r[11+7] = r[1]; + r += 11; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v11071; + } else { + (void)(oportputc((36), (r[5]))); + (void)(oportputc(('{'), (r[5]))); + { fixnum_t v14116_tmp; + { /* length */ + int n; obj l = r[2]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14116_tmp = (n); } + { /* reverse */ + obj l, o = mknull(); int c = (v14116_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); + *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } + r[9] = (o); } } + { /* cons */ + hreserve(hbsz(3), 10); /* 10 live regs */ + *--hp = r[4]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[10] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 11); /* 11 live regs */ + *--hp = (r[10]); + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[10] = (hendblk(3)); } + hreserve(hbsz(3+1), 11); /* 11 live regs */ + *--hp = r[5]; + *--hp = r[0]; + *--hp = r[2]; + *--hp = obj_from_case(452); + r[11] = (hendblk(3+1)); + r[12+0] = (r[11]); + r[12+1] = r[9]; + r[12+2] = (r[10]); + r[12+3] = r[5]; + r[12+4] = r[6]; + r[12+5] = r[3]; + r[12+6] = r[7]; + r[12+7] = r[1]; + r += 12; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v11046; + } + } case 435: /* clo k args l */ assert(rc == 4); @@ -20570,7 +20753,7 @@ case 435: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11233: /* k args l g s f port */ +s_loop_v11139: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20642,179 +20825,184 @@ case 437: /* clo ek . */ r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; - r[1+5] = p[4]; } + 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 . args k r port */ - (void)(oportputs(stringchars((r[4])), (r[5]))); - { /* length */ - int n; obj l = r[2]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - r[6] = obj_from_fixnum(n); } - r[0] = r[3]; - r[1] = r[6]; - r[2] = r[5]; - goto gs_write_2Dserialized_2Darg; - -case 438: /* clo k exp args */ - 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 exp args s l port g f k */ - r[9] = (car((r[1]))); - r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda")))); - if (bool_from_obj(r[9])) { - r[9] = (cdr((r[1]))); - r[9] = (car((r[9]))); - r[9] = obj_from_bool(islist((r[9]))); - if (bool_from_obj(r[9])) { - { fixnum_t v14211_tmp; - { fixnum_t v14210_tmp; - { /* length */ - int n; obj l = r[2]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - 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)) ; - v14210_tmp = (n); } - r[9] = obj_from_bool((v14211_tmp) == (v14210_tmp)); } } - } else { - r[9] = obj_from_bool(0); - } - } else { - r[9] = obj_from_bool(0); - } - if (bool_from_obj(r[9])) { - { fixnum_t v14209_tmp; - { /* length */ - int n; obj l = r[2]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14209_tmp = (n); } - { /* reverse */ - 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); - *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } - r[9] = (o); } } - hreserve(hbsz(9+1), 10); /* 10 live regs */ - *--hp = r[1]; + /* ek . s l port args g f k k exp */ + r[11] = (cdr((r[10]))); + r[11] = (car((r[11]))); + r[12] = (cdr((r[10]))); + r[12] = (cdr((r[12]))); + r[12] = (car((r[12]))); + hreserve(hbsz(10+1), 13); /* 13 live regs */ + *--hp = r[9]; *--hp = r[8]; - *--hp = r[0]; + *--hp = (r[12]); *--hp = r[7]; *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = (r[11]); + *--hp = r[3]; *--hp = r[2]; + *--hp = obj_from_case(438); + r[13] = (hendblk(10+1)); + r[0] = (r[13]); + r[1] = (r[12]); + r[2] = (r[11]); + goto gs_find_2Dsets; + +case 438: /* 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+11] = p[10]; } + r += 1; /* shift reg. wnd */ + /* ek r s l ids port args g f exp k k */ + hreserve(hbsz(10+1), 12); /* 12 live regs */ + *--hp = (r[11]); + *--hp = (r[10]); + *--hp = r[9]; + *--hp = r[8]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[1]; + *--hp = r[3]; + *--hp = obj_from_case(439); + r[12] = (hendblk(10+1)); + r[0] = (r[12]); + r[1] = r[2]; + r[2] = r[4]; + goto gs_set_2Dminus; + +case 439: /* 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+11] = p[10]; } + r += 1; /* shift reg. wnd */ + /* ek r l r ids port args g f exp k k */ + hreserve(hbsz(10+1), 12); /* 12 live regs */ + *--hp = (r[11]); + *--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(440); + r[12] = (hendblk(10+1)); + r[0] = (r[12]); + /* r[1] */ + r[2] = r[3]; + goto gs_set_2Dunion; + +case 440: /* 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+11] = p[10]; } + r += 1; /* shift reg. wnd */ + /* ek r l r ids port args g f exp k k */ + hreserve(hbsz(10+1), 12); /* 12 live regs */ + *--hp = (r[11]); + *--hp = (r[10]); + *--hp = r[9]; + *--hp = r[8]; + *--hp = r[1]; + *--hp = r[7]; + *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(441); - r[10] = (hendblk(9+1)); - r[11+0] = (r[10]); - r[11+1] = r[9]; - r[11+2] = r[4]; - r[11+3] = r[6]; - r[11+4] = r[3]; - r[11+5] = r[7]; - r[11+6] = r[5]; - r += 11; /* shift reg wnd */ + r[12] = (hendblk(10+1)); + r[13+0] = (cx__25append); + pc = objptr_from_obj(r[13+0])[0]; + r[13+1] = (r[12]); + r[13+2] = r[4]; + r[13+3] = r[2]; + r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11202; - } else { - if (bool_from_obj(r[8])) { - { fixnum_t v14208_tmp; - { /* length */ - int n; obj l = r[2]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14208_tmp = (n); } - { /* reverse */ - 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); - *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } - r[9] = (o); } } - hreserve(hbsz(4+1), 10); /* 10 live regs */ - *--hp = r[5]; - *--hp = r[0]; - *--hp = r[2]; - *--hp = r[8]; - *--hp = obj_from_case(452); - r[10] = (hendblk(4+1)); - r[11+0] = (r[10]); - r[11+1] = r[9]; - r[11+2] = r[4]; - r[11+3] = r[5]; - r[11+4] = r[6]; - r[11+5] = r[3]; - r[11+6] = r[7]; - r[11+7] = r[1]; - r += 11; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_loop_v11134; - } else { - (void)(oportputc((36), (r[5]))); - (void)(oportputc(('{'), (r[5]))); - { fixnum_t v14207_tmp; - { /* length */ - int n; obj l = r[2]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14207_tmp = (n); } - { /* reverse */ - 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); - *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } - r[9] = (o); } } - { /* cons */ - hreserve(hbsz(3), 10); /* 10 live regs */ - *--hp = r[4]; - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[10] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 11); /* 11 live regs */ - *--hp = (r[10]); - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[10] = (hendblk(3)); } - hreserve(hbsz(3+1), 11); /* 11 live regs */ - *--hp = r[5]; - *--hp = r[0]; - *--hp = r[2]; - *--hp = obj_from_case(456); - r[11] = (hendblk(3+1)); - r[12+0] = (r[11]); - r[12+1] = r[9]; - r[12+2] = (r[10]); - r[12+3] = r[5]; - r[12+4] = r[6]; - r[12+5] = r[3]; - r[12+6] = r[7]; - r[12+7] = r[1]; - r += 12; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_loop_v11109; - } - } + rc = 4; + goto jump; -case 439: /* clo k args l */ +case 441: /* 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+11] = p[10]; } + r += 1; /* shift reg. wnd */ + /* ek r r ids port args g r f exp k k */ + hreserve(hbsz(9+1), 12); /* 12 live regs */ + *--hp = (r[11]); + *--hp = (r[10]); + *--hp = r[9]; + *--hp = r[1]; + *--hp = r[8]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = obj_from_case(444); + r[12] = (hendblk(9+1)); + r[13+0] = (r[12]); + r[13+1] = r[3]; + r[13+2] = obj_from_fixnum(+0); + r[13+3] = r[4]; + r[13+4] = r[2]; + r += 13; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v11106; + +case 442: /* 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+5] = p[3]; - r[1+6] = p[4]; } + r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v11202: /* k args l g s f port */ +s_loop_v11106: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20824,35 +21012,188 @@ s_loop_v11202: /* k args l g s f port */ rc = 3; goto jump; } else { - hreserve(hbsz(4+1), 7); /* 7 live regs */ - *--hp = r[6]; - *--hp = r[5]; + hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(439); - r[7] = (hendblk(4+1)); - hreserve(hbsz(5+1), 8); /* 8 live regs */ - *--hp = r[6]; + *--hp = obj_from_case(442); + r[5] = (hendblk(2+1)); + hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = r[7]; - *--hp = obj_from_case(440); - 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 */ + *--hp = r[5]; + *--hp = obj_from_case(443); + r[5] = (hendblk(4+1)); + r[6] = (car((r[1]))); + r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); + if (bool_from_obj(r[6])) { + (void)(oportputc(('#'), (r[3]))); + r[0] = r[5]; + r[1] = r[2]; + r[2] = r[3]; + goto gs_write_2Dserialized_2Darg; + } else { + hreserve(hbsz(2+1), 6); /* 6 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(442); + r[6] = (hendblk(2+1)); + r[7+0] = obj_from_ktrap(); + r[7+1] = obj_from_void(0); + r[7+2] = r[6]; + r[7+3] = r[2]; + r[7+4] = r[1]; + r[7+5] = r[0]; + r += 7; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_l_v11108; + } + } + +case 443: /* 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 */ +s_l_v11108: /* ek . loop n ids k */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[5]; + r[2] = (cdr((r[4]))); + r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + +case 444: /* 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+8] = p[7]; + r[1+9] = p[8]; + r[1+10] = p[9]; } + r += 1; /* shift reg. wnd */ + /* ek . port args g r f r exp k k */ + if (bool_from_obj(r[10])) { + { fixnum_t v14115_tmp; + { /* length */ + int n; obj l = r[3]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14115_tmp = (n); } + r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14115_tmp))); } + r[12+0] = r[9]; + r[12+1] = r[8]; + r[12+2] = r[7]; + r[12+3] = r[6]; + r[12+4] = r[5]; + r[12+5] = r[4]; + r[12+6] = (r[11]); + r[12+7] = r[2]; + r += 12; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + } else { + hreserve(hbsz(3+1), 11); /* 11 live regs */ + *--hp = r[2]; + *--hp = r[9]; + *--hp = r[3]; + *--hp = obj_from_case(445); + r[11] = (hendblk(3+1)); + r[12+0] = (r[11]); + r[12+1] = r[8]; + r[12+2] = r[7]; + r[12+3] = r[6]; + r[12+4] = r[5]; + r[12+5] = r[4]; + r[12+6] = obj_from_bool(0); + r[12+7] = r[2]; + r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } -case 440: /* clo ek . */ +case 445: /* 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 . args k port */ + (void)(oportputc(('_'), (r[4]))); + { /* length */ + int n; obj l = r[2]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + r[5] = obj_from_fixnum(n); } + r[0] = r[3]; + r[1] = r[5]; + r[2] = r[4]; + goto gs_write_2Dserialized_2Darg; + +case 446: /* 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+7] = p[5]; } + r += 1; /* shift reg. wnd */ +s_loop_v11071: /* k args l port g s f exp */ + if ((isnull((r[1])))) { + r[8+0] = r[0]; + r[8+1] = r[7]; + r[8+2] = r[2]; + r[8+3] = r[6]; + r[8+4] = r[5]; + r[8+5] = r[4]; + r[8+6] = obj_from_bool(0); + r[8+7] = r[3]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + } else { + hreserve(hbsz(5+1), 8); /* 8 live regs */ + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(446); + r[8] = (hendblk(5+1)); + hreserve(hbsz(5+1), 9); /* 9 live regs */ + *--hp = r[3]; + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[2]; + *--hp = r[8]; + *--hp = obj_from_case(447); + r[8] = (hendblk(5+1)); + r[9+0] = r[8]; + r[9+1] = (car((r[1]))); + r[9+2] = r[2]; + r[9+3] = r[6]; + r[9+4] = r[5]; + r[9+5] = r[4]; + r[9+6] = obj_from_bool(0); + r[9+7] = r[3]; + r += 9; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + } + +case 447: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20879,239 +21220,7 @@ case 440: /* clo ek . */ rc = 4; goto jump; -case 441: /* 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+8] = p[7]; - r[1+9] = p[8]; - r[1+10] = p[9]; } - r += 1; /* shift reg. wnd */ - /* ek . s l port args g f k k exp */ - r[11] = (cdr((r[10]))); - r[11] = (car((r[11]))); - r[12] = (cdr((r[10]))); - r[12] = (cdr((r[12]))); - r[12] = (car((r[12]))); - hreserve(hbsz(10+1), 13); /* 13 live regs */ - *--hp = r[9]; - *--hp = r[8]; - *--hp = (r[12]); - *--hp = r[7]; - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = (r[11]); - *--hp = r[3]; - *--hp = r[2]; - *--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 442: /* 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+11] = p[10]; } - r += 1; /* shift reg. wnd */ - /* ek r s l ids port args g f exp k k */ - hreserve(hbsz(10+1), 12); /* 12 live regs */ - *--hp = (r[11]); - *--hp = (r[10]); - *--hp = r[9]; - *--hp = r[8]; - *--hp = r[7]; - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[1]; - *--hp = r[3]; - *--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 443: /* 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+11] = p[10]; } - r += 1; /* shift reg. wnd */ - /* ek r l r ids port args g f exp k k */ - hreserve(hbsz(10+1), 12); /* 12 live regs */ - *--hp = (r[11]); - *--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(444); - r[12] = (hendblk(10+1)); - r[0] = (r[12]); - /* r[1] */ - r[2] = r[3]; - goto gs_set_2Dunion; - -case 444: /* 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+11] = p[10]; } - r += 1; /* shift reg. wnd */ - /* ek r l r ids port args g f exp k k */ - hreserve(hbsz(10+1), 12); /* 12 live regs */ - *--hp = (r[11]); - *--hp = (r[10]); - *--hp = r[9]; - *--hp = r[8]; - *--hp = r[1]; - *--hp = r[7]; - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(445); - r[12] = (hendblk(10+1)); - r[13+0] = (cx__25append); - pc = objptr_from_obj(r[13+0])[0]; - r[13+1] = (r[12]); - r[13+2] = r[4]; - r[13+3] = r[2]; - r += 13; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - -case 445: /* 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+11] = p[10]; } - r += 1; /* shift reg. wnd */ - /* ek r r ids port args g r f exp k k */ - hreserve(hbsz(9+1), 12); /* 12 live regs */ - *--hp = (r[11]); - *--hp = (r[10]); - *--hp = r[9]; - *--hp = r[1]; - *--hp = r[8]; - *--hp = r[7]; - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = obj_from_case(448); - r[12] = (hendblk(9+1)); - r[13+0] = (r[12]); - r[13+1] = r[3]; - r[13+2] = obj_from_fixnum(+0); - r[13+3] = r[4]; - r[13+4] = r[2]; - r += 13; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_loop_v11169; - -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_v11169: /* k ids n port r */ - 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(2+1), 5); /* 5 live regs */ - *--hp = r[4]; - *--hp = r[3]; - *--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(447); - r[5] = (hendblk(4+1)); - r[6] = (car((r[1]))); - r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); - if (bool_from_obj(r[6])) { - (void)(oportputc(('#'), (r[3]))); - r[0] = r[5]; - r[1] = r[2]; - r[2] = r[3]; - goto gs_write_2Dserialized_2Darg; - } else { - hreserve(hbsz(2+1), 6); /* 6 live regs */ - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(446); - r[6] = (hendblk(2+1)); - r[7+0] = obj_from_ktrap(); - r[7+1] = obj_from_void(0); - r[7+2] = r[6]; - r[7+3] = r[2]; - r[7+4] = r[1]; - r[7+5] = r[0]; - r += 7; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_l_v11171; - } - } - -case 447: /* clo ek . */ +case 448: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21120,68 +21229,18 @@ case 447: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v11171: /* ek . loop n ids k */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[5]; - r[2] = (cdr((r[4]))); - r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - -case 448: /* 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+8] = p[7]; - r[1+9] = p[8]; - r[1+10] = p[9]; } - r += 1; /* shift reg. wnd */ - /* ek . port args g r f r exp k k */ - if (bool_from_obj(r[10])) { - { fixnum_t v14206_tmp; - { /* length */ - int n; obj l = r[3]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - 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]; - r[12+3] = r[6]; - r[12+4] = r[5]; - r[12+5] = r[4]; - r[12+6] = (r[11]); - r[12+7] = r[2]; - r += 12; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - } else { - hreserve(hbsz(3+1), 11); /* 11 live regs */ - *--hp = r[2]; - *--hp = r[9]; + /* ek . k args k port */ + (void)(oportputc(('['), (r[5]))); + hreserve(hbsz(3+1), 6); /* 6 live regs */ + *--hp = r[4]; *--hp = r[3]; + *--hp = r[5]; *--hp = obj_from_case(449); - r[11] = (hendblk(3+1)); - r[12+0] = (r[11]); - r[12+1] = r[8]; - r[12+2] = r[7]; - r[12+3] = r[6]; - r[12+4] = r[5]; - r[12+5] = r[4]; - r[12+6] = obj_from_bool(0); - r[12+7] = r[2]; - r += 12; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - } + r[6] = (hendblk(3+1)); + r[0] = r[6]; + r[1] = r[2]; + r[2] = r[5]; + goto gs_write_2Dserialized_2Darg; case 449: /* clo ek . */ assert(rc >= 2); @@ -21191,15 +21250,14 @@ case 449: /* clo ek . */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ - /* ek . args k port */ - (void)(oportputc(('_'), (r[4]))); + /* ek . port args k */ { /* length */ - int n; obj l = r[2]; + int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[5] = obj_from_fixnum(n); } - r[0] = r[3]; + r[0] = r[4]; r[1] = r[5]; - r[2] = r[4]; + /* r[2] */ goto gs_write_2Dserialized_2Darg; case 450: /* clo k args l */ @@ -21211,7 +21269,7 @@ case 450: /* clo k args l */ r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ -s_loop_v11134: /* k args l port g s f exp */ +s_loop_v11046: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; @@ -21282,125 +21340,6 @@ case 451: /* clo ek . */ goto jump; case 452: /* 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 args k port */ - (void)(oportputc(('['), (r[5]))); - hreserve(hbsz(3+1), 6); /* 6 live regs */ - *--hp = r[4]; - *--hp = r[3]; - *--hp = r[5]; - *--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 453: /* 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 . port args k */ - { /* length */ - int n; obj l = r[3]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - r[5] = obj_from_fixnum(n); } - r[0] = r[4]; - r[1] = r[5]; - /* r[2] */ - goto gs_write_2Dserialized_2Darg; - -case 454: /* 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+7] = p[5]; } - r += 1; /* shift reg. wnd */ -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]; - r[8+2] = r[2]; - r[8+3] = r[6]; - r[8+4] = r[5]; - r[8+5] = r[4]; - r[8+6] = obj_from_bool(0); - r[8+7] = r[3]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - } else { - hreserve(hbsz(5+1), 8); /* 8 live regs */ - *--hp = r[7]; - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(454); - r[8] = (hendblk(5+1)); - hreserve(hbsz(5+1), 9); /* 9 live regs */ - *--hp = r[3]; - *--hp = r[0]; - *--hp = r[1]; - *--hp = r[2]; - *--hp = r[8]; - *--hp = obj_from_case(455); - r[8] = (hendblk(5+1)); - r[9+0] = r[8]; - r[9+1] = (car((r[1]))); - r[9+2] = r[2]; - r[9+3] = r[6]; - r[9+4] = r[5]; - r[9+5] = r[4]; - r[9+6] = obj_from_bool(0); - r[9+7] = r[3]; - r += 9; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - } - -case 455: /* 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 args k port */ - (void)(oportputc((','), (r[6]))); - { /* 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[5]; - r[2] = (cdr((r[4]))); - r[3] = r[7]; - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - -case 456: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21414,14 +21353,14 @@ case 456: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(457); + *--hp = obj_from_case(453); 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 457: /* clo ek . */ +case 453: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21433,7 +21372,7 @@ case 457: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(458); + *--hp = obj_from_case(454); r[5] = (hendblk(2+1)); { /* length */ int n; obj l = r[2]; @@ -21444,7 +21383,7 @@ case 457: /* clo ek . */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 458: /* clo ek . */ +case 454: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21460,7 +21399,7 @@ case 458: /* clo ek . */ rc = 3; goto jump; -case 459: /* clo k tail */ +case 455: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21469,14 +21408,14 @@ case 459: /* 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__232024); + r[3+2] = (cx__231994); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 460: /* compile-to-string k x */ +case 456: /* compile-to-string k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -21486,14 +21425,14 @@ case 460: /* compile-to-string k x */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(461); + *--hp = obj_from_case(457); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 461: /* clo ek r */ +case 457: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21504,7 +21443,7 @@ case 461: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(462); + *--hp = obj_from_case(458); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -21518,7 +21457,7 @@ case 461: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 462: /* clo ek . */ +case 458: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21540,7 +21479,7 @@ case 462: /* clo ek . */ rc = 3; goto jump; -case 463: /* execute k code */ +case 459: /* execute k code */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_execute: /* k code */ @@ -21549,7 +21488,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(464); + *--hp = obj_from_case(460); r[3] = (hendblk(1+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -21560,7 +21499,7 @@ gs_execute: /* k code */ rc = 3; goto jump; -case 464: /* clo ek r */ +case 460: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21578,13 +21517,13 @@ case 464: /* clo ek r */ rc = 3; goto jump; -case 465: /* evaluate k x */ +case 461: /* evaluate k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_evaluate: /* k x */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(466); + *--hp = obj_from_case(462); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -21596,7 +21535,7 @@ gs_evaluate: /* k x */ rc = 4; goto jump; -case 466: /* clo ek r */ +case 462: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21608,14 +21547,14 @@ case 466: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(467); + *--hp = obj_from_case(463); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 467: /* clo ek r */ +case 463: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21626,7 +21565,7 @@ case 467: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(468); + *--hp = obj_from_case(464); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -21640,7 +21579,7 @@ case 467: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 468: /* clo ek . */ +case 464: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21659,7 +21598,7 @@ case 468: /* clo ek . */ r[5] = obj_from_objptr(c); } hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; - *--hp = obj_from_case(469); + *--hp = obj_from_case(465); r[6] = (hendblk(1+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -21669,7 +21608,7 @@ case 468: /* clo ek . */ rc = 3; goto jump; -case 469: /* clo ek r */ +case 465: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21679,7 +21618,7 @@ case 469: /* clo ek r */ /* r[1] */ goto gs_execute; -case 470: /* display-code k cstr oport */ +case 466: /* display-code k cstr oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_display_2Dcode: /* k cstr oport */ @@ -21690,17 +21629,17 @@ gs_display_2Dcode: /* k cstr oport */ r[3+4] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11008; + goto s_loop_v10945; -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)); +s_loop_v10945: /* k i l cstr oport */ + { const fixnum_t v14114_i = fixnum_from_obj(r[1]); + if (((fxsub(fixnum_from_obj(r[2]), (v14114_i))) <= (+70))) { + (void)(oportputcircular((cx__232953), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v14205_i), fixnum_from_obj(r[2])); + int *d = substring(stringdata((r[3])), (v14114_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__232987), (r[4]), 1)); + r[5] = obj_from_void(oportputcircular((cx__232957), (r[4]), 1)); /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -21709,42 +21648,42 @@ s_loop_v11008: /* k i l cstr oport */ rc = 3; goto jump; } else { - (void)(oportputcircular((cx__232983), (r[4]), 1)); + (void)(oportputcircular((cx__232953), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v14205_i), (fxadd((v14205_i), (+70)))); + int *d = substring(stringdata((r[3])), (v14114_i), (fxadd((v14114_i), (+70)))); r[5] = (hpushstr(5, d)); } (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - (void)(oportputcircular((cx__232978), (r[4]), 1)); + (void)(oportputcircular((cx__232948), (r[4]), 1)); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14205_i), (+70))); + r[1] = obj_from_fixnum(fxadd((v14114_i), (+70))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11008; + goto s_loop_v10945; } } -case 471: /* process-syntax k id xval oport */ +case 467: /* 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__233012), (r[3]), 1)); + (void)(oportputcircular((cx__232982), (r[3]), 1)); (void)(oportputcircular((r[1]), (r[3]), 1)); - (void)(oportputcircular((cx__233011), (r[3]), 1)); + (void)(oportputcircular((cx__232981), (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(472); + *--hp = obj_from_case(468); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; r[2] = r[4]; goto gs_write_2Dserialized_2Dsexp; -case 472: /* clo ek . */ +case 468: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21756,7 +21695,7 @@ case 472: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(473); + *--hp = obj_from_case(469); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); @@ -21769,7 +21708,7 @@ case 472: /* clo ek . */ r[2] = r[4]; goto gs_display_2Dcode; -case 473: /* clo ek . */ +case 469: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21785,17 +21724,17 @@ case 473: /* clo ek . */ rc = 3; goto jump; -case 474: /* process-alias k id oldid oport */ +case 470: /* 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((cx__232992), (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((cx__232957), (r[3]), 1)); + (void)(oportputcircular((cx__232991), (r[3]), 1)); (void)(oportputcircular((r[2]), (r[3]), 1)); - r[4] = obj_from_void(oportputcircular((cx__233011), (r[3]), 1)); + r[4] = obj_from_void(oportputcircular((cx__232981), (r[3]), 1)); r[5+0] = r[0]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); @@ -21805,7 +21744,7 @@ case 474: /* process-alias k id oldid oport */ rc = 3; goto jump; -case 475: /* process-command k xval oport */ +case 471: /* process-command k xval oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k xval oport */ @@ -21820,14 +21759,14 @@ case 475: /* process-command k xval oport */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(476); + *--hp = obj_from_case(472); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 476: /* clo ek r */ +case 472: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21842,7 +21781,7 @@ case 476: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(477); + *--hp = obj_from_case(473); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -21856,7 +21795,7 @@ case 476: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 477: /* clo ek . */ +case 473: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21874,18 +21813,18 @@ case 477: /* 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__233033), (r[3]), 1)); + (void)(oportputcircular((cx__233003), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(478); + *--hp = obj_from_case(474); 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 . */ +case 474: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21901,7 +21840,7 @@ case 478: /* clo ek . */ rc = 3; goto jump; -case 479: /* process-define k id xlam oport */ +case 475: /* process-define k id xlam oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_process_2Ddefine: /* k id xlam oport */ @@ -21917,14 +21856,14 @@ gs_process_2Ddefine: /* k id xlam oport */ *--hp = r[3]; *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(480); + *--hp = obj_from_case(476); r[6] = (hendblk(6+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (mknull()); goto gs_find_2Dfree; -case 480: /* clo ek r */ +case 476: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21942,7 +21881,7 @@ case 480: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(481); + *--hp = obj_from_case(477); r[8] = (hendblk(6+1)); r[9+0] = r[8]; r[9+1] = r[5]; @@ -21956,7 +21895,7 @@ case 480: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 481: /* clo ek . */ +case 477: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21975,32 +21914,32 @@ case 481: /* 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 v14200_len; + { fixnum_t v14109_len; r[9] = (objptr_from_obj(r[6])[0]); - v14200_len = (stringlen((r[9]))); + v14109_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 (((v14200_len) > (+4))) { - { char_t v14204_tmp; + if (((v14109_len) > (+4))) { + { char_t v14113_tmp; r[9] = (objptr_from_obj(r[6])[0]); - v14204_tmp = (*(unsigned char*)stringref((r[9]), (+0))); - r[9] = obj_from_bool((v14204_tmp) == ('&')); } + v14113_tmp = (*(unsigned char*)stringref((r[9]), (+0))); + r[9] = obj_from_bool((v14113_tmp) == ('&')); } if (bool_from_obj(r[9])) { - { char_t v14203_tmp; + { char_t v14112_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')); } + v14112_tmp = (*(unsigned char*)stringref((r[9]), (+1))); + r[9] = obj_from_bool((v14112_tmp) == ('0')); } if (bool_from_obj(r[9])) { - { char_t v14202_tmp; + { char_t v14111_tmp; r[9] = (objptr_from_obj(r[6])[0]); - v14202_tmp = (*(unsigned char*)stringref((r[9]), (+2))); - r[9] = obj_from_bool((v14202_tmp) == ('{')); } + v14111_tmp = (*(unsigned char*)stringref((r[9]), (+2))); + r[9] = obj_from_bool((v14111_tmp) == ('{')); } if (bool_from_obj(r[9])) { - { char_t v14201_tmp; + { char_t v14110_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) == ('}')); } + v14110_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14109_len), (+1))))); + r[9] = obj_from_bool((v14110_tmp) == ('}')); } } else { r[9] = obj_from_bool(0); } @@ -22018,17 +21957,17 @@ case 481: /* clo ek . */ } if (bool_from_obj(r[9])) { (void)(oportputc('\n', (r[4]))); - (void)(oportputcircular((cx__233056), (r[4]), 1)); + (void)(oportputcircular((cx__233026), (r[4]), 1)); (void)(oportputcircular((r[3]), (r[4]), 1)); - (void)(oportputcircular((cx__233011), (r[4]), 1)); + (void)(oportputcircular((cx__232981), (r[4]), 1)); hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(482); + *--hp = obj_from_case(478); r[9] = (hendblk(2+1)); r[10] = (objptr_from_obj(r[6])[0]); { /* substring */ - int *d = substring(stringdata((r[10])), (+3), (fxsub((v14200_len), (+1)))); + int *d = substring(stringdata((r[10])), (+3), (fxsub((v14109_len), (+1)))); r[10] = (hpushstr(11, d)); } r[0] = r[9]; r[1] = (r[10]); @@ -22064,7 +22003,7 @@ case 481: /* clo ek . */ *--hp = r[4]; *--hp = r[2]; *--hp = r[9]; - *--hp = obj_from_case(483); + *--hp = obj_from_case(479); r[12] = (hendblk(5+1)); r[0] = (r[12]); r[1] = r[9]; @@ -22072,7 +22011,7 @@ case 481: /* clo ek . */ goto gs_find_2Dfree; } } -case 482: /* clo ek . */ +case 478: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22088,7 +22027,7 @@ case 482: /* clo ek . */ rc = 3; goto jump; -case 483: /* clo ek r */ +case 479: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22103,7 +22042,7 @@ case 483: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(484); + *--hp = obj_from_case(480); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -22117,7 +22056,7 @@ case 483: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 484: /* clo ek . */ +case 480: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22135,18 +22074,18 @@ case 484: /* 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__233033), (r[3]), 1)); + (void)(oportputcircular((cx__233003), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(485); + *--hp = obj_from_case(481); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; -case 485: /* clo ek . */ +case 481: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22162,7 +22101,7 @@ case 485: /* clo ek . */ rc = 3; goto jump; -case 486: /* scan-top-form k x */ +case 482: /* scan-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_scan_2Dtop_2Dform: /* k x */ @@ -22182,10 +22121,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__233117)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233087)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(487); + *--hp = obj_from_case(483); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -22194,12 +22133,12 @@ gs_scan_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10864; + goto s_l_v10801; } 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+2] = (cx__233091); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -22211,7 +22150,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(493); + *--hp = obj_from_case(489); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -22234,16 +22173,16 @@ gs_scan_2Dtop_2Dform: /* k x */ } } -case 487: /* clo ek r */ +case 483: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_l_v10864: /* ek r k */ +s_l_v10801: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(488); + *--hp = obj_from_case(484); r[3] = (hendblk(2+1)); r[4+0] = (cx__25read); pc = objptr_from_obj(r[4+0])[0]; @@ -22255,7 +22194,7 @@ s_l_v10864: /* ek r k */ rc = 4; goto jump; -case 488: /* clo ek r */ +case 484: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22265,19 +22204,19 @@ case 488: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(492); + *--hp = obj_from_case(488); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v10873; + goto s_loop_v10810; -case 489: /* clo k x */ +case 485: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v10873: /* k x r */ +s_loop_v10810: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22289,20 +22228,20 @@ s_loop_v10873: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(489); + *--hp = obj_from_case(485); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(490); + *--hp = obj_from_case(486); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 490: /* clo ek . */ +case 486: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22314,7 +22253,7 @@ case 490: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(491); + *--hp = obj_from_case(487); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -22325,7 +22264,7 @@ case 490: /* clo ek . */ rc = 4; goto jump; -case 491: /* clo ek r */ +case 487: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22341,7 +22280,7 @@ case 491: /* clo ek r */ rc = 3; goto jump; -case 492: /* clo ek . */ +case 488: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22357,7 +22296,7 @@ case 492: /* clo ek . */ rc = 3; goto jump; -case 493: /* clo ek r */ +case 489: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22368,13 +22307,13 @@ case 493: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v10848; + goto s_loop_v10785; } 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(496); + *--hp = obj_from_case(492); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -22392,7 +22331,7 @@ case 493: /* clo ek r */ if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(498); + *--hp = obj_from_case(494); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -22414,19 +22353,19 @@ case 493: /* clo ek r */ } } -case 494: /* clo k l */ +case 490: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v10848: /* k l */ +s_loop_v10785: /* k l */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(494); + *--hp = obj_from_case(490); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(495); + *--hp = obj_from_case(491); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -22442,7 +22381,7 @@ s_loop_v10848: /* k l */ goto jump; } -case 495: /* clo ek . */ +case 491: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22459,7 +22398,7 @@ case 495: /* clo ek . */ rc = 3; goto jump; -case 496: /* clo ek r */ +case 492: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22471,13 +22410,13 @@ case 496: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(497); + *--hp = obj_from_case(493); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 497: /* clo ek r */ +case 493: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22493,7 +22432,7 @@ case 497: /* clo ek r */ rc = 3; goto jump; -case 498: /* clo ek r */ +case 494: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -22503,7 +22442,7 @@ case 498: /* clo ek r */ /* r[1] */ goto gs_scan_2Dtop_2Dform; -case 499: /* process-top-form k x oport */ +case 495: /* process-top-form k x oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_process_2Dtop_2Dform: /* k x oport */ @@ -22523,10 +22462,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__233117)))); + r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233087)))); hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; - *--hp = obj_from_case(500); + *--hp = obj_from_case(496); r[5] = (hendblk(1+1)); if (bool_from_obj(r[4])) { r[6] = (mkiport_file(6, (void*)((r[4])))); @@ -22535,12 +22474,12 @@ gs_process_2Dtop_2Dform: /* k x oport */ r[7+2] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10786; + goto s_l_v10723; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; - r[2] = (cx__233121); + r[2] = (cx__233091); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -22552,7 +22491,7 @@ gs_process_2Dtop_2Dform: /* k x oport */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(506); + *--hp = obj_from_case(502); r[3] = (hendblk(3+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -22567,7 +22506,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(519); + *--hp = obj_from_case(515); r[3] = (hendblk(2+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -22581,16 +22520,16 @@ gs_process_2Dtop_2Dform: /* k x oport */ } } -case 500: /* clo ek r */ +case 496: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_l_v10786: /* ek r k */ +s_l_v10723: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(501); + *--hp = obj_from_case(497); r[3] = (hendblk(2+1)); r[4+0] = (cx__25read); pc = objptr_from_obj(r[4+0])[0]; @@ -22602,7 +22541,7 @@ s_l_v10786: /* ek r k */ rc = 4; goto jump; -case 501: /* clo ek r */ +case 497: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22612,19 +22551,19 @@ case 501: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(505); + *--hp = obj_from_case(501); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v10795; + goto s_loop_v10732; -case 502: /* clo k x */ +case 498: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v10795: /* k x r */ +s_loop_v10732: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22636,20 +22575,20 @@ s_loop_v10795: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(502); + *--hp = obj_from_case(498); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(503); + *--hp = obj_from_case(499); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 503: /* clo ek . */ +case 499: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22661,7 +22600,7 @@ case 503: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(504); + *--hp = obj_from_case(500); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -22672,7 +22611,7 @@ case 503: /* clo ek . */ rc = 4; goto jump; -case 504: /* clo ek r */ +case 500: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22688,7 +22627,7 @@ case 504: /* clo ek r */ rc = 3; goto jump; -case 505: /* clo ek . */ +case 501: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22704,7 +22643,7 @@ case 505: /* clo ek . */ rc = 3; goto jump; -case 506: /* clo ek r */ +case 502: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22717,14 +22656,14 @@ case 506: /* clo ek r */ r[0] = r[4]; r[1] = r[5]; /* r[2] */ - goto s_loop_v10770; + goto s_loop_v10707; } 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(509); + *--hp = obj_from_case(505); r[5] = (hendblk(3+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -22742,7 +22681,7 @@ case 506: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(513); + *--hp = obj_from_case(509); r[5] = (hendblk(2+1)); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; @@ -22757,7 +22696,7 @@ case 506: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(514); + *--hp = obj_from_case(510); r[5] = (hendblk(2+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -22771,7 +22710,7 @@ case 506: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(515); + *--hp = obj_from_case(511); r[5] = (hendblk(2+1)); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; @@ -22786,22 +22725,22 @@ case 506: /* clo ek r */ } } -case 507: /* clo k x* */ +case 503: /* clo k x* */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v10770: /* k x* oport */ +s_loop_v10707: /* k x* oport */ if ((ispair((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(507); + *--hp = obj_from_case(503); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(508); + *--hp = obj_from_case(504); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -22817,7 +22756,7 @@ s_loop_v10770: /* k x* oport */ goto jump; } -case 508: /* clo ek . */ +case 504: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22834,7 +22773,7 @@ case 508: /* clo ek . */ rc = 3; goto jump; -case 509: /* clo ek r */ +case 505: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22849,13 +22788,13 @@ case 509: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(510); + *--hp = obj_from_case(506); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[5]; goto gs_top_2Dtransformer_2Denv; -case 510: /* clo ek r */ +case 506: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22891,12 +22830,12 @@ case 510: /* clo ek r */ r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); (void)(oportputc('\n', (r[2]))); - (void)(oportputcircular((cx__233022), (r[2]), 1)); + (void)(oportputcircular((cx__232992), (r[2]), 1)); (void)(oportputcircular((r[6]), (r[2]), 1)); - (void)(oportputcircular((cx__232987), (r[2]), 1)); - (void)(oportputcircular((cx__233021), (r[2]), 1)); + (void)(oportputcircular((cx__232957), (r[2]), 1)); + (void)(oportputcircular((cx__232991), (r[2]), 1)); (void)(oportputcircular((r[7]), (r[2]), 1)); - r[6] = obj_from_void(oportputcircular((cx__233011), (r[2]), 1)); + r[6] = obj_from_void(oportputcircular((cx__232981), (r[2]), 1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -22911,16 +22850,16 @@ case 510: /* clo ek r */ r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); (void)(oportputc('\n', (r[2]))); - (void)(oportputcircular((cx__233012), (r[2]), 1)); + (void)(oportputcircular((cx__232982), (r[2]), 1)); (void)(oportputcircular((r[6]), (r[2]), 1)); - (void)(oportputcircular((cx__233011), (r[2]), 1)); + (void)(oportputcircular((cx__232981), (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(511); + *--hp = obj_from_case(507); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[7]; @@ -22929,7 +22868,7 @@ case 510: /* clo ek r */ } } -case 511: /* clo ek . */ +case 507: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22941,7 +22880,7 @@ case 511: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(512); + *--hp = obj_from_case(508); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); @@ -22954,7 +22893,7 @@ case 511: /* clo ek . */ r[2] = r[4]; goto gs_display_2Dcode; -case 512: /* clo ek . */ +case 508: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22970,7 +22909,7 @@ case 512: /* clo ek . */ rc = 3; goto jump; -case 513: /* clo ek r */ +case 509: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22990,7 +22929,7 @@ case 513: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_process_2Ddefine; -case 514: /* clo ek r */ +case 510: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23002,6 +22941,105 @@ case 514: /* clo ek r */ /* r[2] */ goto gs_process_2Dtop_2Dform; +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; /* 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(512); + r[6] = (hendblk(5+1)); + r[0] = r[6]; + /* r[1] */ + r[2] = (mknull()); + goto gs_find_2Dfree; + +case 512: /* 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(513); + 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 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+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__233003), (r[3]), 1)); + hreserve(hbsz(2+1), 7); /* 7 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(514); + 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 514: /* 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 515: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); @@ -23074,7 +23112,7 @@ case 517: /* 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__233033), (r[3]), 1)); + (void)(oportputcircular((cx__233003), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; @@ -23101,112 +23139,13 @@ case 518: /* clo ek . */ rc = 3; goto jump; -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 */ +case 519: /* 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(524); + *--hp = obj_from_case(520); r[2] = (hendblk(1+1)); r[3+0] = (cx_string_2D_3Elist); pc = objptr_from_obj(r[3+0])[0]; @@ -23217,19 +23156,19 @@ gs_path_2Dstrip_2Ddirectory: /* k filename */ rc = 3; goto jump; -case 524: /* clo ek r */ +case 520: /* 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 v14199_tmp; + { fixnum_t v14108_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14199_tmp = (n); } + v14108_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14199_tmp); + obj l, o = mknull(); int c = (v14108_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); @@ -23238,9 +23177,9 @@ case 524: /* clo ek r */ r[0] = r[2]; r[1] = r[3]; r[2] = (mknull()); - goto s_loop_v10667; + goto s_loop_v10604; -s_loop_v10667: /* k l r */ +s_loop_v10604: /* k l r */ if ((isnull((r[1])))) { r[3+0] = (cx_list_2D_3Estring); pc = objptr_from_obj(r[3+0])[0]; @@ -23252,7 +23191,7 @@ s_loop_v10667: /* k l r */ goto jump; } else { r[3] = (car((r[1]))); - r[3] = (ismemv((r[3]), (cx__233242))); + r[3] = (ismemv((r[3]), (cx__233212))); if (bool_from_obj(r[3])) { r[3+0] = (cx_list_2D_3Estring); pc = objptr_from_obj(r[3+0])[0]; @@ -23274,18 +23213,18 @@ s_loop_v10667: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v10667; + goto s_loop_v10604; } } -case 525: /* path-strip-extension k filename */ +case 521: /* path-strip-extension k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Dextension: /* k filename */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(526); + *--hp = obj_from_case(522); r[2] = (hendblk(2+1)); r[3+0] = (cx_string_2D_3Elist); pc = objptr_from_obj(r[3+0])[0]; @@ -23296,20 +23235,20 @@ gs_path_2Dstrip_2Dextension: /* k filename */ rc = 3; goto jump; -case 526: /* clo ek r */ +case 522: /* 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 v14197_tmp; + { fixnum_t v14106_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14197_tmp = (n); } + v14106_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14197_tmp); + obj l, o = mknull(); int c = (v14106_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); @@ -23318,13 +23257,13 @@ case 526: /* clo ek r */ r[5] = (ismemv(obj_from_char('.'), (r[4]))); if (bool_from_obj(r[5])) { r[6] = (cdr((r[5]))); - { fixnum_t v14198_tmp; + { fixnum_t v14107_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14198_tmp = (n); } + v14107_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14198_tmp); + obj l, o = mknull(); int c = (v14107_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); @@ -23347,19 +23286,19 @@ case 526: /* clo ek r */ goto jump; } -case 527: /* module-name k filename */ +case 523: /* 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(528); + *--hp = obj_from_case(524); r[2] = (hendblk(1+1)); r[0] = r[2]; /* r[1] */ goto gs_path_2Dstrip_2Ddirectory; -case 528: /* clo ek r */ +case 524: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -23369,7 +23308,7 @@ case 528: /* clo ek r */ /* r[1] */ goto gs_path_2Dstrip_2Dextension; -case 529: /* process-file k fname */ +case 525: /* process-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_process_2Dfile: /* k fname */ @@ -23386,13 +23325,13 @@ gs_process_2Dfile: /* k fname */ *--hp = r[4]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(530); + *--hp = obj_from_case(526); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ goto gs_module_2Dname; -case 530: /* clo ek r */ +case 526: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23402,7 +23341,7 @@ case 530: /* 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__233117)))); + r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233087)))); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[1]; @@ -23410,7 +23349,7 @@ case 530: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(531); + *--hp = obj_from_case(527); r[8] = (hendblk(6+1)); if (bool_from_obj(r[7])) { r[9] = (mkiport_file(9, (void*)((r[7])))); @@ -23424,19 +23363,19 @@ case 530: /* clo ek r */ r[10+7] = r[5]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10591; + goto s_l_v10528; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; - r[2] = (cx__233121); + r[2] = (cx__233091); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 531: /* clo ek r */ +case 527: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23446,25 +23385,25 @@ case 531: /* clo ek r */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_l_v10591: /* ek r fname k oport mname r iport */ +s_l_v10528: /* 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__233290), (r[4]), 1)); + (void)(oportputcircular((cx__233260), (r[4]), 1)); r[8] = (objptr_from_obj(r[5])[0]); (void)(oportputcircular((r[8]), (r[4]), 1)); - (void)(oportputcircular((cx__233289), (r[4]), 1)); + (void)(oportputcircular((cx__233259), (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(532); + *--hp = obj_from_case(528); r[8] = (hendblk(4+1)); r[0] = r[8]; r[1] = r[2]; goto gs_path_2Dstrip_2Ddirectory; -case 532: /* clo ek r */ +case 528: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23474,19 +23413,19 @@ case 532: /* clo ek r */ r += 1; /* shift reg. wnd */ /* ek r iport k mname oport */ (void)(oportputcircular((r[1]), (r[5]), 1)); - (void)(oportputcircular((cx__233288), (r[5]), 1)); + (void)(oportputcircular((cx__233258), (r[5]), 1)); (void)(oportputc('\n', (r[5]))); (void)(oportputc('\n', (r[5]))); - (void)(oportputcircular((cx__233287), (r[5]), 1)); + (void)(oportputcircular((cx__233257), (r[5]), 1)); r[6] = (objptr_from_obj(r[4])[0]); (void)(oportputcircular((r[6]), (r[5]), 1)); - (void)(oportputcircular((cx__233286), (r[5]), 1)); + (void)(oportputcircular((cx__233256), (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(533); + *--hp = obj_from_case(529); r[6] = (hendblk(3+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -23497,7 +23436,7 @@ case 532: /* clo ek r */ rc = 4; goto jump; -case 533: /* clo ek r */ +case 529: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23509,7 +23448,7 @@ case 533: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(537); + *--hp = obj_from_case(533); r[5] = (hendblk(3+1)); r[6+0] = r[5]; r[6+1] = r[1]; @@ -23517,15 +23456,15 @@ case 533: /* clo ek r */ r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v10602; + goto s_loop_v10539; -case 534: /* clo k x */ +case 530: /* 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_v10602: /* k x oport iport */ +s_loop_v10539: /* k x oport iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -23538,13 +23477,13 @@ s_loop_v10602: /* k x oport iport */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(534); + *--hp = obj_from_case(530); 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(535); + *--hp = obj_from_case(531); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ @@ -23552,7 +23491,7 @@ s_loop_v10602: /* k x oport iport */ goto gs_process_2Dtop_2Dform; } -case 535: /* clo ek . */ +case 531: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23564,7 +23503,7 @@ case 535: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(536); + *--hp = obj_from_case(532); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -23575,7 +23514,7 @@ case 535: /* clo ek . */ rc = 4; goto jump; -case 536: /* clo ek r */ +case 532: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23591,7 +23530,7 @@ case 536: /* clo ek r */ rc = 3; goto jump; -case 537: /* clo ek . */ +case 533: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23600,7 +23539,7 @@ case 537: /* clo ek . */ r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . iport k oport */ - (void)(oportputcircular((cx__233278), (r[4]), 1)); + (void)(oportputcircular((cx__233248), (r[4]), 1)); r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; @@ -23609,7 +23548,7 @@ case 537: /* clo ek . */ rc = 3; goto jump; -case 538: /* clo ek r */ +case 534: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -23617,7 +23556,7 @@ case 538: /* 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(539); + *--hp = obj_from_case(535); r[3] = (hendblk(0+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -23628,7 +23567,7 @@ case 538: /* clo ek r */ rc = 3; goto jump; -case 539: /* clo ek r */ +case 535: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -23640,7 +23579,7 @@ case 539: /* 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(540); + *--hp = obj_from_case(536); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -23649,7 +23588,7 @@ case 539: /* clo ek r */ rc = 2; goto jump; -case 540: /* clo ek . */ +case 536: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ @@ -23661,7 +23600,7 @@ case 540: /* 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(541); + *--hp = obj_from_case(537); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -23670,28 +23609,28 @@ case 540: /* clo ek . */ rc = 2; goto jump; -case 541: /* clo ek . */ +case 537: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ /* ek . */ - cx_test1 = (cx__233317); - cx_test2 = (cx__233587); - cx_test3 = (cx__233789); - cx_test4 = (cx__234191); - cx_test5 = (cx__234321); + cx_test1 = (cx__233287); + cx_test2 = (cx__233557); + cx_test3 = (cx__233759); + cx_test4 = (cx__234161); + cx_test5 = (cx__234291); cx__2Averbose_2A = obj_from_bool(0); cx__2Areset_2A = obj_from_bool(0); - { 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; } + { static obj c[] = { obj_from_case(538) }; cx_error_2A = (obj)c; } + { static obj c[] = { obj_from_case(540) }; cx_run_2Dtests = (obj)c; } + { static obj c[] = { obj_from_case(546) }; cx_repl_2Deval = (obj)c; } + { static obj c[] = { obj_from_case(553) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(562) }; cx_repl_2Dread = (obj)c; } + { static obj c[] = { obj_from_case(563) }; cx_repl_2Dfrom_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(568) }; cx_repl_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(571) }; cx_benchmark_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(577) }; cx_run_2Drepl = (obj)c; } + { static obj c[] = { obj_from_case(578) }; cx_main = (obj)c; } r[2] = obj_from_void(0); r[3+0] = r[0]; pc = 0; /* exit from module init */ @@ -23700,7 +23639,7 @@ case 541: /* clo ek . */ rc = 2; goto jump; -case 542: /* error* k msg args */ +case 538: /* error* k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_error_2A: /* k msg args */ @@ -23710,12 +23649,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(543); + *--hp = obj_from_case(539); r[4] = (hendblk(1+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; - goto s_loop_v10559; + goto s_loop_v10496; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -23734,7 +23673,7 @@ gs_error_2A: /* k msg args */ goto jump; } -s_loop_v10559: /* k l p */ +s_loop_v10496: /* k l p */ if ((ispair((r[1])))) { r[3] = (car((r[1]))); (void)(oportputcircular((r[3]), (r[2]), 0)); @@ -23743,7 +23682,7 @@ s_loop_v10559: /* k l p */ /* r[0] */ r[1] = r[3]; /* r[2] */ - goto s_loop_v10559; + goto s_loop_v10496; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -23754,7 +23693,7 @@ s_loop_v10559: /* k l p */ goto jump; } -case 543: /* clo ek . */ +case 539: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23769,7 +23708,7 @@ case 543: /* clo ek . */ rc = 3; goto jump; -case 544: /* run-tests k */ +case 540: /* run-tests k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Dtests: /* k */ @@ -23778,17 +23717,89 @@ 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__234754), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234724), (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(545); + *--hp = obj_from_case(541); r[2] = (hendblk(2+1)); r[0] = r[2]; r[1] = (cx_test1); goto gs_evaluate; +case 541: /* 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 start */ + (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); + (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(542); + r[4] = (hendblk(2+1)); + r[0] = r[4]; + r[1] = (cx_test2); + goto gs_evaluate; + +case 542: /* 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 start */ + (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); + (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(543); + r[4] = (hendblk(2+1)); + r[0] = r[4]; + r[1] = (cx_test3); + goto gs_evaluate; + +case 543: /* 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 start */ + (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); + (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(544); + r[4] = (hendblk(2+1)); + r[0] = r[4]; + r[1] = (cx_test4); + goto gs_evaluate; + +case 544: /* 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 start */ + (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); + (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(545); + r[4] = (hendblk(2+1)); + r[0] = r[4]; + r[1] = (cx_test5); + goto gs_evaluate; + case 545: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); @@ -23798,95 +23809,23 @@ case 545: /* clo ek r */ /* ek r k start */ (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(546); - r[4] = (hendblk(2+1)); - r[0] = r[4]; - r[1] = (cx_test2); - goto gs_evaluate; - -case 546: /* 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 start */ - (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(547); - r[4] = (hendblk(2+1)); - r[0] = r[4]; - r[1] = (cx_test3); - goto gs_evaluate; - -case 547: /* 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 start */ - (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(548); - r[4] = (hendblk(2+1)); - r[0] = r[4]; - r[1] = (cx_test4); - goto gs_evaluate; - -case 548: /* 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 start */ - (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(549); - r[4] = (hendblk(2+1)); - r[0] = r[4]; - r[1] = (cx_test5); - goto gs_evaluate; - -case 549: /* 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 start */ - (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); - (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()); + (void)(oportputcircular((cx__234723), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v14104_b; + { flonum_t v14103_a; + { const flonum_t v14102_b = (CLOCKS_PER_SEC); + { const flonum_t v14100_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v14192_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v14194_a = ((v14191_a) - (v14192_tmp)); } + { const flonum_t v14101_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v14103_a = ((v14100_a) - (v14101_tmp)); } } else { - v14194_a = ((v14191_a) - flonum_from_obj(r[4])); + v14103_a = ((v14100_a) - flonum_from_obj(r[4])); } } - v14195_b = ((v14194_a) / (v14193_b)); } } - { const flonum_t v14196_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v14196_tmp) * (v14195_b)); } } + v14104_b = ((v14103_a) / (v14102_b)); } } + { const flonum_t v14105_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v14105_tmp) * (v14104_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__234729), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234699), (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]; @@ -23896,14 +23835,14 @@ case 549: /* clo ek r */ rc = 3; goto jump; -case 550: /* repl-eval k x */ +case 546: /* repl-eval k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval: /* k x */ cx__2Areset_2A = r[0]; hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(551); + *--hp = obj_from_case(547); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -23915,14 +23854,14 @@ gs_repl_2Deval: /* k x */ rc = 4; goto jump; -case 551: /* clo ek r */ +case 547: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__234826), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234796), (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))); @@ -23931,7 +23870,7 @@ case 551: /* clo ek r */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(552); + *--hp = obj_from_case(548); r[3] = (hendblk(2+1)); if ((ispair((r[1])))) { r[4+0] = obj_from_ktrap(); @@ -23940,12 +23879,12 @@ case 551: /* clo ek r */ r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10480; + goto s_l_v10417; } else { r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; - r[4+2] = (cx__234824); + r[4+2] = (cx__234794); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -23953,14 +23892,14 @@ case 551: /* clo ek r */ goto jump; } -case 552: /* clo ek . */ +case 548: /* 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_v10480: /* ek . k r */ +s_l_v10417: /* ek . k r */ r[4] = (car((r[3]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("define")))); if (bool_from_obj(r[4])) { @@ -23968,7 +23907,7 @@ s_l_v10480: /* ek . k r */ } else { } if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__234817), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234787), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { } @@ -23978,14 +23917,14 @@ s_l_v10480: /* ek . k r */ *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(553); + *--hp = obj_from_case(549); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; r[2] = (mknull()); goto gs_find_2Dfree; -case 553: /* clo ek r */ +case 549: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23996,7 +23935,7 @@ case 553: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(554); + *--hp = obj_from_case(550); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -24010,7 +23949,7 @@ case 553: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 554: /* clo ek . */ +case 550: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24030,7 +23969,7 @@ case 554: /* 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__234810), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234780), (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])); @@ -24042,7 +23981,7 @@ case 554: /* clo ek . */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(555); + *--hp = obj_from_case(551); r[7] = (hendblk(2+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; @@ -24052,7 +23991,7 @@ case 554: /* clo ek . */ rc = 3; goto jump; -case 555: /* clo ek r */ +case 551: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24062,13 +24001,13 @@ case 555: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(556); + *--hp = obj_from_case(552); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ goto gs_execute; -case 556: /* clo ek r */ +case 552: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24082,23 +24021,23 @@ case 556: /* clo ek r */ (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } if (bool_from_obj(cx__2Averbose_2A)) { - (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()); + (void)(oportputcircular((cx__234723), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v14098_b; + { flonum_t v14097_a; + { const flonum_t v14096_b = (CLOCKS_PER_SEC); + { const flonum_t v14094_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v14186_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v14188_a = ((v14185_a) - (v14186_tmp)); } + { const flonum_t v14095_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v14097_a = ((v14094_a) - (v14095_tmp)); } } else { - v14188_a = ((v14185_a) - flonum_from_obj(r[4])); + v14097_a = ((v14094_a) - flonum_from_obj(r[4])); } } - v14189_b = ((v14188_a) / (v14187_b)); } } - { const flonum_t v14190_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v14190_tmp) * (v14189_b)); } } + v14098_b = ((v14097_a) / (v14096_b)); } } + { const flonum_t v14099_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v14099_tmp) * (v14098_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__234729), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234699), (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); @@ -24111,7 +24050,7 @@ case 556: /* clo ek r */ rc = 3; goto jump; -case 557: /* repl-eval-top-form k x */ +case 553: /* repl-eval-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval_2Dtop_2Dform: /* k x */ @@ -24131,10 +24070,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__233117)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233087)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(558); + *--hp = obj_from_case(554); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -24143,12 +24082,12 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10460; + goto s_l_v10397; } 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+2] = (cx__233091); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24160,7 +24099,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(560); + *--hp = obj_from_case(556); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -24178,22 +24117,22 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ } } -case 558: /* clo ek r */ +case 554: /* 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_v10460: /* ek r k */ +s_l_v10397: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(559); + *--hp = obj_from_case(555); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Dfrom_2Dport; -case 559: /* clo ek . */ +case 555: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24209,7 +24148,7 @@ case 559: /* clo ek . */ rc = 3; goto jump; -case 560: /* clo ek r */ +case 556: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24220,13 +24159,13 @@ case 560: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v10444; + goto s_loop_v10381; } 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(563); + *--hp = obj_from_case(559); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -24244,7 +24183,7 @@ case 560: /* clo ek r */ if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(565); + *--hp = obj_from_case(561); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -24262,19 +24201,19 @@ case 560: /* clo ek r */ } } -case 561: /* clo k x* */ +case 557: /* clo k x* */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v10444: /* k x* */ +s_loop_v10381: /* k x* */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(561); + *--hp = obj_from_case(557); 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(562); + *--hp = obj_from_case(558); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -24290,7 +24229,7 @@ s_loop_v10444: /* k x* */ goto jump; } -case 562: /* clo ek . */ +case 558: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24307,7 +24246,7 @@ case 562: /* clo ek . */ rc = 3; goto jump; -case 563: /* clo ek r */ +case 559: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24319,13 +24258,13 @@ case 563: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(564); + *--hp = obj_from_case(560); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 564: /* clo ek r */ +case 560: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24341,7 +24280,7 @@ case 564: /* clo ek r */ rc = 3; goto jump; -case 565: /* clo ek r */ +case 561: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -24351,11 +24290,11 @@ case 565: /* clo ek r */ /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; -case 566: /* repl-read k iport */ +case 562: /* 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__234882), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0)); + (void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__234852), (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]; @@ -24366,20 +24305,20 @@ gs_repl_2Dread: /* k iport */ rc = 4; goto jump; -case 567: /* repl-from-port k iport */ +case 563: /* 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(568); + *--hp = obj_from_case(564); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto gs_repl_2Dread; -case 568: /* clo ek r */ +case 564: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24389,14 +24328,14 @@ case 568: /* clo ek r */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v10391; + goto s_loop_v10328; -case 569: /* clo k x */ +case 565: /* 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_v10391: /* k x iport */ +s_loop_v10328: /* k x iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -24408,20 +24347,20 @@ s_loop_v10391: /* k x iport */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(569); + *--hp = obj_from_case(565); 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(570); + *--hp = obj_from_case(566); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; } -case 570: /* clo ek . */ +case 566: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24433,13 +24372,13 @@ case 570: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(571); + *--hp = obj_from_case(567); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_repl_2Dread; -case 571: /* clo ek r */ +case 567: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24455,18 +24394,18 @@ case 571: /* clo ek r */ rc = 3; goto jump; -case 572: /* repl-file k fname */ +case 568: /* 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__233117)))); + r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233087)))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(573); + *--hp = obj_from_case(569); r[4] = (hendblk(2+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -24476,12 +24415,12 @@ gs_repl_2Dfile: /* k fname */ r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10372; + goto s_l_v10309; } 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+2] = (cx__233091); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24489,24 +24428,24 @@ gs_repl_2Dfile: /* k fname */ goto jump; } -case 573: /* clo ek r */ +case 569: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ -s_l_v10372: /* ek r k iport */ +s_l_v10309: /* 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(574); + *--hp = obj_from_case(570); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (objptr_from_obj(r[3])[0]); goto gs_repl_2Dfrom_2Dport; -case 574: /* clo ek . */ +case 570: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24522,19 +24461,19 @@ case 574: /* clo ek . */ rc = 3; goto jump; -case 575: /* benchmark-file k fname */ +case 571: /* 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)))); + r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233087)))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(576); + *--hp = obj_from_case(572); r[4] = (hendblk(3+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -24545,12 +24484,12 @@ gs_benchmark_2Dfile: /* k fname */ r[6+4] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10336; + goto s_l_v10273; } 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+2] = (cx__233091); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24558,24 +24497,24 @@ gs_benchmark_2Dfile: /* k fname */ goto jump; } -case 576: /* clo ek r */ +case 572: /* 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 */ +s_l_v10273: /* 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); + *--hp = obj_from_case(573); r[5] = (hendblk(2+1)); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(580); + *--hp = obj_from_case(576); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -24586,7 +24525,7 @@ s_l_v10336: /* ek r fname k iport */ rc = 4; goto jump; -case 577: /* clo ek . */ +case 573: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24597,13 +24536,13 @@ case 577: /* clo ek . */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(578); + *--hp = obj_from_case(574); 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 . */ +case 574: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24614,13 +24553,13 @@ case 578: /* clo ek . */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(579); + *--hp = obj_from_case(575); r[4] = (hendblk(2+1)); r[0] = r[4]; - r[1] = (cx__234913); + r[1] = (cx__234883); goto gs_repl_2Deval_2Dtop_2Dform; -case 579: /* clo ek . */ +case 575: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24636,14 +24575,14 @@ case 579: /* clo ek . */ rc = 3; goto jump; -case 580: /* clo ek r */ +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; /* shift reg. wnd */ /* ek r fname k */ - r[4] = (cxs_syntax_2Dmatch_3F((cx__234919), (r[1]))); + r[4] = (cxs_syntax_2Dmatch_3F((cx__234889), (r[1]))); if (bool_from_obj(r[4])) { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; @@ -24656,7 +24595,7 @@ case 580: /* 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__234918); + r[5+2] = (cx__234888); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24664,7 +24603,7 @@ case 580: /* clo ek r */ goto jump; } -case 581: /* run-repl k */ +case 577: /* run-repl k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Drepl: /* k */ @@ -24674,13 +24613,13 @@ gs_run_2Drepl: /* k */ rreserve(MAX_HOSTREGS); goto gs_repl_2Dfrom_2Dport; -case 582: /* main k argv */ +case 578: /* 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(583); + *--hp = obj_from_case(579); r[2] = (hendblk(1+1)); r[3+0] = (cx_command_2Dline); pc = objptr_from_obj(r[3+0])[0]; @@ -24690,39 +24629,39 @@ case 582: /* main k argv */ rc = 2; goto jump; -case 583: /* clo ek r */ +case 579: /* 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__234962), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234932), (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__234954), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234924), (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__234946), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234916), (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__234940), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234910), (r[3])))) { r[0] = r[2]; goto gs_run_2Dtests; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234937), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234907), (r[3])))) { cx__2Averbose_2A = obj_from_bool(1); r[0] = r[2]; goto gs_run_2Drepl; diff --git a/src/k.sf b/src/k.sf index 3517fc9..4c9cd9e 100644 --- a/src/k.sf +++ b/src/k.sf @@ -293,12 +293,13 @@ [(if) (xform-if tail env)] [(lambda) (xform-lambda tail env)] [(lambda*) (xform-lambda* tail env)] - [(syntax-lambda) (xform-syntax-lambda tail env)] [(letcc) (xform-letcc tail env)] [(withcc) (xform-withcc tail env)] [(body) (xform-body tail env)] [(define) (xform-define tail env)] [(define-syntax) (xform-define-syntax tail env)] + [(syntax-lambda) (xform-syntax-lambda tail env)] + [(syntax-rules) (xform-syntax-rules tail env)] [(syntax-length) (xform-syntax-length tail env)] [(syntax-error) (xform-syntax-error tail env)] [else (if (integrable? hval) @@ -324,17 +325,6 @@ (list 'quote (xform-sexp->datum (car tail))) (x-error "improper quote form" (cons 'quote tail)))) -(define (xform-syntax-length tail env) - (if (and (list1? tail) (list? (car tail))) - (list 'quote (length (car tail))) - (x-error "improper syntax-length form" (cons 'syntax-length tail)))) - -(define (xform-syntax-error tail env) - (let ([args (map xform-sexp->datum tail)]) - (if (and (list1+? args) (string? (car args))) - (apply x-error args) - (x-error "improper syntax-error form" (cons 'syntax-error tail))))) - (define (xform-set! tail env) (if (and (list2? tail) (id? (car tail))) (let ([den (env (car tail))] [xexp (xform #f (cadr tail) env)]) @@ -425,21 +415,6 @@ tail)) (x-error "improper lambda* form" (cons 'lambda* tail)))) -(define (xform-syntax-lambda tail env) - (if (and (list2+? tail) (andmap id? (car tail))) - (let ([vars (car tail)] [macenv env] [forms (cdr tail)]) - ; return a transformer that wraps xformed body in (syntax ...) - (lambda (use useenv) - (if (and (list1+? use) (fx=? (length vars) (length (cdr use)))) - (let loop ([vars vars] [exps (cdr use)] [env macenv]) - (if (null? vars) - (list 'syntax (xform-body forms env)) - (loop (cdr vars) (cdr exps) - (add-binding (car vars) - (xform #t (car exps) useenv) env)))) - (x-error "invalif syntax-lambda application" use)))) - (x-error "improper syntax-lambda body" (cons 'syntax-lambda tail)))) - (define (xform-letcc tail env) (if (and (list2+? tail) (id? (car tail))) (let* ([var (car tail)] [nvar (gensym (id->sym var))]) @@ -533,6 +508,40 @@ (list 'define-syntax (id->sym (car tail)) (xform #t (cadr tail) env)) (x-error "improper define-syntax form" (cons 'define-syntax tail)))) +(define (xform-syntax-lambda tail env) + (if (and (list2+? tail) (andmap id? (car tail))) + (let ([vars (car tail)] [macenv env] [forms (cdr tail)]) + ; return a transformer that wraps xformed body in (syntax ...) + (lambda (use useenv) + (if (and (list1+? use) (fx=? (length vars) (length (cdr use)))) + (let loop ([vars vars] [exps (cdr use)] [env macenv]) + (if (null? vars) + (list 'syntax (xform-body forms env)) + (loop (cdr vars) (cdr exps) + (add-binding (car vars) + (xform #t (car exps) useenv) env)))) + (x-error "invalif syntax-lambda application" use)))) + (x-error "improper syntax-lambda body" (cons 'syntax-lambda tail)))) + +(define (xform-syntax-rules tail env) + (cond [(and (list2+? tail) (id? (car tail)) (andmap id? (cadr tail))) + (syntax-rules* env (car tail) (cadr tail) (cddr tail))] + [(and (list1+? tail) (andmap id? (car tail))) + (syntax-rules* env #f (car tail) (cdr tail))] + [else + (x-error "improper syntax-rules form" (cons 'syntax-rules tail))])) + +(define (xform-syntax-length tail env) + (if (and (list1? tail) (list? (car tail))) + (list 'quote (length (car tail))) + (x-error "improper syntax-length form" (cons 'syntax-length tail)))) + +(define (xform-syntax-error tail env) + (let ([args (map xform-sexp->datum tail)]) + (if (and (list1+? args) (string? (car args))) + (apply x-error args) + (x-error "improper syntax-error form" (cons 'syntax-error tail))))) + ; ellipsis denotation is used for comparisons only @@ -550,6 +559,7 @@ (make-binding 'lambda 'lambda) (make-binding 'lambda* 'lambda*) (make-binding 'syntax-lambda 'syntax-lambda) + (make-binding 'syntax-rules 'syntax-rules) (make-binding 'syntax-length 'syntax-length) (make-binding 'syntax-error 'syntax-error) (make-binding 'letcc 'letcc) @@ -576,16 +586,12 @@ (define (install-transformer! s t) (binding-set-val! (top-transformer-env s) t)) -(define (install-transformer-rules! s ell lits rules) - (install-transformer! s - (syntax-rules* top-transformer-env ell lits rules))) - (define (transform appos? sexp . optenv) ; (gensym #f) ; reset gs counter to make results reproducible (xform appos? sexp (if (null? optenv) top-transformer-env (car optenv)))) -; 'syntax-rules' transformer produces another transformer from the rules +; make transformer procedure from the rules (define (syntax-rules* mac-env ellipsis pat-literals rules) (define (pat-literal? id) (memq id pat-literals)) @@ -702,37 +708,15 @@ (lambda (bindings) (expand-template pat tmpl bindings))] [else (loop (cdr rules))]))))) -(install-transformer! 'syntax-rules - (lambda (sexp env) - (define syntax-id (new-id (make-binding 'syntax 'syntax))) - ; sexp can be either - (if (id? (cadr sexp)) - ; (_ ellipsis (litname ...) . rules) - (list syntax-id (syntax-rules* env (cadr sexp) (caddr sexp) (cdddr sexp))) - ; or (_ (litname ...) . rules) - (list syntax-id (syntax-rules* env #f (cadr sexp) (cddr sexp)))))) - ;--------------------------------------------------------------------------------------------- -; Runtime +; Runtime globals ;--------------------------------------------------------------------------------------------- (%localdef "#include \"i.h\"") (define *globals* '()) -(define global-location - (lambda (sym) - (let ([p (assq sym *globals*)]) - (if (pair? p) - (cdr p) - (let ([loc (box 'undefined)]) - (set! *globals* (cons (cons sym loc) *globals*)) - loc))))) - -(define-syntax index-global unbox) -(define-syntax index-set-global! set-box!) - (define *dynamic-state* (list #f)) ; for dynamic-wind (define *current-input* #f) diff --git a/src/t.scm b/src/t.scm index 88ce82a..0d1c396 100644 --- a/src/t.scm +++ b/src/t.scm @@ -257,12 +257,13 @@ [(if) (xform-if tail env)] [(lambda) (xform-lambda tail env)] [(lambda*) (xform-lambda* tail env)] - [(syntax-lambda) (xform-syntax-lambda tail env)] [(letcc) (xform-letcc tail env)] [(withcc) (xform-withcc tail env)] [(body) (xform-body tail env)] [(define) (xform-define tail env)] [(define-syntax) (xform-define-syntax tail env)] + [(syntax-lambda) (xform-syntax-lambda tail env)] + [(syntax-rules) (xform-syntax-rules tail env)] [(syntax-length) (xform-syntax-length tail env)] [(syntax-error) (xform-syntax-error tail env)] [else (if (integrable? hval) @@ -288,17 +289,6 @@ (list 'quote (xform-sexp->datum (car tail))) (x-error "improper quote form" (cons 'quote tail)))) -(define (xform-syntax-length tail env) - (if (and (list1? tail) (list? (car tail))) - (list 'quote (length (car tail))) - (x-error "improper syntax-length form" (cons 'syntax-length tail)))) - -(define (xform-syntax-error tail env) - (let ([args (map xform-sexp->datum tail)]) - (if (and (list1+? args) (string? (car args))) - (apply x-error args) - (x-error "improper syntax-error form" (cons 'syntax-error tail))))) - (define (xform-set! tail env) (if (and (list2? tail) (id? (car tail))) (let ([den (env (car tail))] [xexp (xform #f (cadr tail) env)]) @@ -389,21 +379,6 @@ tail)) (x-error "improper lambda* form" (cons 'lambda* tail)))) -(define (xform-syntax-lambda tail env) - (if (and (list2+? tail) (andmap id? (car tail))) - (let ([vars (car tail)] [macenv env] [forms (cdr tail)]) - ; return a transformer that wraps xformed body in (syntax ...) - (lambda (use useenv) - (if (and (list1+? use) (fx=? (length vars) (length (cdr use)))) - (let loop ([vars vars] [exps (cdr use)] [env macenv]) - (if (null? vars) - (list 'syntax (xform-body forms env)) - (loop (cdr vars) (cdr exps) - (add-binding (car vars) - (xform #t (car exps) useenv) env)))) - (x-error "invalif syntax-lambda application" use)))) - (x-error "improper syntax-lambda body" (cons 'syntax-lambda tail)))) - (define (xform-letcc tail env) (if (and (list2+? tail) (id? (car tail))) (let* ([var (car tail)] [nvar (gensym (id->sym var))]) @@ -497,6 +472,40 @@ (list 'define-syntax (id->sym (car tail)) (xform #t (cadr tail) env)) (x-error "improper define-syntax form" (cons 'define-syntax tail)))) +(define (xform-syntax-lambda tail env) + (if (and (list2+? tail) (andmap id? (car tail))) + (let ([vars (car tail)] [macenv env] [forms (cdr tail)]) + ; return a transformer that wraps xformed body in (syntax ...) + (lambda (use useenv) + (if (and (list1+? use) (fx=? (length vars) (length (cdr use)))) + (let loop ([vars vars] [exps (cdr use)] [env macenv]) + (if (null? vars) + (list 'syntax (xform-body forms env)) + (loop (cdr vars) (cdr exps) + (add-binding (car vars) + (xform #t (car exps) useenv) env)))) + (x-error "invalif syntax-lambda application" use)))) + (x-error "improper syntax-lambda body" (cons 'syntax-lambda tail)))) + +(define (xform-syntax-rules tail env) + (cond [(and (list2+? tail) (id? (car tail)) (andmap id? (cadr tail))) + (syntax-rules* env (car tail) (cadr tail) (cddr tail))] + [(and (list1+? tail) (andmap id? (car tail))) + (syntax-rules* env #f (car tail) (cdr tail))] + [else + (x-error "improper syntax-rules form" (cons 'syntax-rules tail))])) + +(define (xform-syntax-length tail env) + (if (and (list1? tail) (list? (car tail))) + (list 'quote (length (car tail))) + (x-error "improper syntax-length form" (cons 'syntax-length tail)))) + +(define (xform-syntax-error tail env) + (let ([args (map xform-sexp->datum tail)]) + (if (and (list1+? args) (string? (car args))) + (apply x-error args) + (x-error "improper syntax-error form" (cons 'syntax-error tail))))) + ; ellipsis denotation is used for comparisons only @@ -514,6 +523,7 @@ (make-binding 'lambda 'lambda) (make-binding 'lambda* 'lambda*) (make-binding 'syntax-lambda 'syntax-lambda) + (make-binding 'syntax-rules 'syntax-rules) (make-binding 'syntax-length 'syntax-length) (make-binding 'syntax-error 'syntax-error) (make-binding 'letcc 'letcc) @@ -549,7 +559,7 @@ (xform appos? sexp (if (null? optenv) top-transformer-env (car optenv)))) -; 'syntax-rules' transformer produces another transformer from the rules +; make transformer procedure from the rules (define (syntax-rules* mac-env ellipsis pat-literals rules) (define (pat-literal? id) (memq id pat-literals)) @@ -666,16 +676,6 @@ (lambda (bindings) (expand-template pat tmpl bindings))] [else (loop (cdr rules))]))))) -(install-transformer! 'syntax-rules - (lambda (sexp env) - (define syntax-id (new-id (make-binding 'syntax 'syntax))) - ; sexp can be either - (if (id? (cadr sexp)) - ; (_ ellipsis (litname ...) . rules) - (list syntax-id (syntax-rules* env (cadr sexp) (caddr sexp) (cdddr sexp))) - ; or (_ (litname ...) . rules) - (list syntax-id (syntax-rules* env #f (cadr sexp) (cddr sexp)))))) - ; 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 dbe2994..9a9ff0c 100644 --- a/t.c +++ b/t.c @@ -140,15 +140,16 @@ char *t_code[] = { "?{.6,.3,@(y10:xform-set!)[72}'(y4:set&),.1v?{.6,.3,@(y10:xform-set&)[7" "2}'(y5:begin),.1v?{.6,.3,@(y11:xform-begin)[72}'(y2:if),.1v?{.6,.3,@(y" "8:xform-if)[72}'(y6:lambda),.1v?{.6,.3,@(y12:xform-lambda)[72}'(y7:lam" - "bda*),.1v?{.6,.3,@(y13:xform-lambda*)[72}'(y13:syntax-lambda),.1v?{.6," - ".3,@(y19:xform-syntax-lambda)[72}'(y5:letcc),.1v?{.6,.3,@(y11:xform-le" - "tcc)[72}'(y6:withcc),.1v?{.6,.3,@(y12:xform-withcc)[72}'(y4:body),.1v?" - "{.6,.3,@(y10:xform-body)[72}'(y6:define),.1v?{.6,.3,@(y12:xform-define" - ")[72}'(y13:define-syntax),.1v?{.6,.3,@(y19:xform-define-syntax)[72}'(y" - "13:syntax-length),.1v?{.6,.3,@(y19:xform-syntax-length)[72}'(y12:synta" - "x-error),.1v?{.6,.3,@(y18:xform-syntax-error)[72}.1U0?{.6,.3,.3,@(y16:" - "xform-integrable)[73}.1K0?{.6,${.9,.9,.6[02},.6,@(y5:xform)[73}.6,.3,." - "3,@(y10:xform-call)[73", + "bda*),.1v?{.6,.3,@(y13:xform-lambda*)[72}'(y5:letcc),.1v?{.6,.3,@(y11:" + "xform-letcc)[72}'(y6:withcc),.1v?{.6,.3,@(y12:xform-withcc)[72}'(y4:bo" + "dy),.1v?{.6,.3,@(y10:xform-body)[72}'(y6:define),.1v?{.6,.3,@(y12:xfor" + "m-define)[72}'(y13:define-syntax),.1v?{.6,.3,@(y19:xform-define-syntax" + ")[72}'(y13:syntax-lambda),.1v?{.6,.3,@(y19:xform-syntax-lambda)[72}'(y" + "12:syntax-rules),.1v?{.6,.3,@(y18:xform-syntax-rules)[72}'(y13:syntax-" + "length),.1v?{.6,.3,@(y19:xform-syntax-length)[72}'(y12:syntax-error),." + "1v?{.6,.3,@(y18:xform-syntax-error)[72}.1U0?{.6,.3,.3,@(y16:xform-inte" + "grable)[73}.1K0?{.6,${.9,.9,.6[02},.6,@(y5:xform)[73}.6,.3,.3,@(y10:xf" + "orm-call)[73", "P", "xform-sexp->datum", "%1.0,,#0.0,&1{%1${.2,@(y3:id?)[01}?{.0,@(y7:id->sym)[11}.0p?{${.2d,:0^" @@ -162,15 +163,6 @@ char *t_code[] = { "%2${.2,@(y6:list1?)[01}?{${.2a,@(y17:xform-sexp->datum)[01},'(y5:quote" "),l2]2}.0,'(y5:quote)c,'(s19:improper quote form),@(y7:x-error)[22", - "P", "xform-syntax-length", - "%2${.2,@(y6:list1?)[01}?{.0aL0}{f}?{.0ag,'(y5:quote),l2]2}.0,'(y13:syn" - "tax-length)c,'(s27:improper syntax-length form),@(y7:x-error)[22", - - "P", "xform-syntax-error", - "%2${.2,@(y17:xform-sexp->datum),@(y5:%25map1)[02},${.2,@(y7:list1+?)[0" - "1}?{.0aS0}{f}?{.0,@(y7:x-error),@(y13:apply-to-list)[32}.1,'(y12:synta" - "x-error)c,'(s26:improper syntax-error form),@(y7:x-error)[32", - "P", "xform-set!", "%2${.2,@(y6:list2?)[01}?{${.2a,@(y3:id?)[01}}{f}?{${.3,.3da,f,@(y5:xfo" "rm)[03},${.3a,.5[01},.0Y0?{.1,.1,'(y4:set!),l3]4}${.2,@(y16:binding-sp" @@ -229,15 +221,6 @@ char *t_code[] = { "proper lambda* clause),@(y7:x-error)[12},@(y5:%25map1)[02},'(y7:lambda" "*)c]2}.0,'(y7:lambda*)c,'(s21:improper lambda* form),@(y7:x-error)[22", - "P", "xform-syntax-lambda", - "%2${.2,@(y7:list2+?)[01}?{${.2a,@(y3:id?),@(y6:andmap)[02}}{f}?{.0d,.2" - ",.2a,.2,.1,.3,&3{%2${.2,@(y7:list1+?)[01}?{.0dg,:1gI=}{f}?{:0,.1d,:1,," - "#0.5,.1,:2,&3{%3.0u?{${.4,:0,@(y10:xform-body)[02},'(y6:syntax),l2]3}$" - "{.4,${:2,.7a,t,@(y5:xform)[03},.4a,@(y11:add-binding)[03},.2d,.2d,:1^[" - "33}.!0.0^_1[23}.0,'(s33:invalif syntax-lambda application),@(y7:x-erro" - "r)[22}]5}.0,'(y13:syntax-lambda)c,'(s27:improper syntax-lambda body),@" - "(y7:x-error)[22", - "P", "xform-letcc", "%2${.2,@(y7:list2+?)[01}?{${.2a,@(y3:id?)[01}}{f}?{.0a,${${.4,@(y7:id-" ">sym)[01},@(y6:gensym)[01},${${.7,.5,.7,@(y7:add-var)[03},.5d,@(y10:xf" @@ -293,6 +276,31 @@ char *t_code[] = { "rm)[03},${.3a,@(y7:id->sym)[01},'(y13:define-syntax),l3]2}.0,'(y13:def" "ine-syntax)c,'(s27:improper define-syntax form),@(y7:x-error)[22", + "P", "xform-syntax-lambda", + "%2${.2,@(y7:list2+?)[01}?{${.2a,@(y3:id?),@(y6:andmap)[02}}{f}?{.0d,.2" + ",.2a,.2,.1,.3,&3{%2${.2,@(y7:list1+?)[01}?{.0dg,:1gI=}{f}?{:0,.1d,:1,," + "#0.5,.1,:2,&3{%3.0u?{${.4,:0,@(y10:xform-body)[02},'(y6:syntax),l2]3}$" + "{.4,${:2,.7a,t,@(y5:xform)[03},.4a,@(y11:add-binding)[03},.2d,.2d,:1^[" + "33}.!0.0^_1[23}.0,'(s33:invalif syntax-lambda application),@(y7:x-erro" + "r)[22}]5}.0,'(y13:syntax-lambda)c,'(s27:improper syntax-lambda body),@" + "(y7:x-error)[22", + + "P", "xform-syntax-rules", + "%2${.2,@(y7:list2+?)[01}?{${.2a,@(y3:id?)[01}?{${.2da,@(y3:id?),@(y6:a" + "ndmap)[02}}{f}}{f}?{.0dd,.1da,.2a,.4,@(y13:syntax-rules*)[24}${.2,@(y7" + ":list1+?)[01}?{${.2a,@(y3:id?),@(y6:andmap)[02}}{f}?{.0d,.1a,f,.4,@(y1" + "3:syntax-rules*)[24}.0,'(y12:syntax-rules)c,'(s26:improper syntax-rule" + "s form),@(y7:x-error)[22", + + "P", "xform-syntax-length", + "%2${.2,@(y6:list1?)[01}?{.0aL0}{f}?{.0ag,'(y5:quote),l2]2}.0,'(y13:syn" + "tax-length)c,'(s27:improper syntax-length form),@(y7:x-error)[22", + + "P", "xform-syntax-error", + "%2${.2,@(y17:xform-sexp->datum),@(y5:%25map1)[02},${.2,@(y7:list1+?)[0" + "1}?{.0aS0}{f}?{.0,@(y7:x-error),@(y13:apply-to-list)[32}.1,'(y12:synta" + "x-error)c,'(s26:improper syntax-error form),@(y7:x-error)[32", + "C", 0, "&0{%2.0,'(s19:improper use of ...),@(y7:x-error)[22},'(y3:...)c@!(y30:" "denotation-of-default-ellipsis)", @@ -301,11 +309,12 @@ char *t_code[] = { "@(y30:denotation-of-default-ellipsis),'(y4:body),'(y4:body)c,'(y2:if)," "'(y2:if)c,'(y5:begin),'(y5:begin)c,'(y6:withcc),'(y6:withcc)c,'(y5:let" "cc),'(y5:letcc)c,'(y12:syntax-error),'(y12:syntax-error)c,'(y13:syntax" - "-length),'(y13:syntax-length)c,'(y13:syntax-lambda),'(y13:syntax-lambd" - "a)c,'(y7:lambda*),'(y7:lambda*)c,'(y6:lambda),'(y6:lambda)c,'(y4:set&)" - ",'(y4:set&)c,'(y4:set!),'(y4:set!)c,'(y5:quote),'(y5:quote)c,'(y13:def" - "ine-syntax),'(y13:define-syntax)c,'(y6:define),'(y6:define)c,'(y6:synt" - "ax),'(y6:syntax)c,l(i17)@!(y14:*transformers*)", + "-length),'(y13:syntax-length)c,'(y12:syntax-rules),'(y12:syntax-rules)" + "c,'(y13:syntax-lambda),'(y13:syntax-lambda)c,'(y7:lambda*),'(y7:lambda" + "*)c,'(y6:lambda),'(y6:lambda)c,'(y4:set&),'(y4:set&)c,'(y4:set!),'(y4:" + "set!)c,'(y5:quote),'(y5:quote)c,'(y13:define-syntax),'(y13:define-synt" + "ax)c,'(y6:define),'(y6:define)c,'(y6:syntax),'(y6:syntax)c,l(i18)@!(y1" + "4:*transformers*)", "P", "top-transformer-env", "%1@(y14:*transformers*),.1A3,.0p?{.0d,.0p?{'(y12:syntax-rules),.1aq}{f" @@ -353,12 +362,6 @@ char *t_code[] = { "?{${:3,'(s14:invalid syntax),@(y7:x-error)[02}}.0a,.0a,.1da,${:2,:3,.5" ",:4^[03},.0?{.0,.0,.3,.5,:1^[63}.4d,:0^[51}.!0.0^_1[21}](i11)", - "C", 0, - "${&0{%2,#0${'(y6:syntax),'(y6:syntax)c,@(y6:new-id)[01}.!0${.3da,@(y3:" - "id?)[01}?{${.3ddd,.4dda,.5da,.7,@(y13:syntax-rules*)[04},.1^,l2]3}${.3" - "dd,.4da,f,.7,@(y13:syntax-rules*)[04},.1^,l2]3},'(y12:syntax-rules),@(" - "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"