diff --git a/k.c b/k.c
index 503efd8..68b4d0b 100644
--- a/k.c
+++ b/k.c
@@ -548,7 +548,6 @@ obj cx_continuation_2Dadapter_2Dcode; /* continuation-adapter-code */
 obj cx_decode; /* decode */
 obj cx_decode_2Dsexp; /* decode-sexp */
 obj cx_den_2D_3Esym; /* den->sym */
-obj cx_denotation_2Dof_2Ddefault_2Dellipsis; /* denotation-of-default-ellipsis */
 obj cx_display_2Dcode; /* display-code */
 obj cx_empty_2Dxenv; /* empty-xenv */
 obj cx_error_2A; /* error* */
@@ -626,6 +625,7 @@ obj cx_write_2Dserialized_2Dsexp; /* write-serialized-sexp */
 obj cx_write_2Dserialized_2Dsize; /* write-serialized-size */
 obj cx_x_2Derror; /* x-error */
 obj cx_xform; /* xform */
+obj cx_xform_2D_2E_2E_2E; /* xform-... */
 obj cx_xform_2Dbegin; /* xform-begin */
 obj cx_xform_2Dbody; /* xform-body */
 obj cx_xform_2Dcall; /* xform-call */
@@ -647,84 +647,84 @@ 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__231000; /* constant #1000 */
-static obj cx__231043; /* constant #1043 */
-static obj cx__231050; /* constant #1050 */
-static obj cx__231063; /* constant #1063 */
-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__231003; /* constant #1003 */
+static obj cx__231046; /* constant #1046 */
+static obj cx__231053; /* constant #1053 */
+static obj cx__231066; /* constant #1066 */
+static obj cx__231141; /* constant #1141 */
+static obj cx__231213; /* constant #1213 */
+static obj cx__231302; /* constant #1302 */
+static obj cx__231310; /* constant #1310 */
+static obj cx__231336; /* constant #1336 */
+static obj cx__231356; /* constant #1356 */
+static obj cx__231381; /* constant #1381 */
+static obj cx__231389; /* constant #1389 */
+static obj cx__231825; /* constant #1825 */
+static obj cx__231857; /* constant #1857 */
+static obj cx__231892; /* constant #1892 */
+static obj cx__231985; /* constant #1985 */
+static obj cx__232006; /* constant #2006 */
+static obj cx__232350; /* constant #2350 */
+static obj cx__232657; /* constant #2657 */
+static obj cx__232822; /* constant #2822 */
+static obj cx__232960; /* constant #2960 */
+static obj cx__232965; /* constant #2965 */
+static obj cx__232969; /* constant #2969 */
+static obj cx__232993; /* constant #2993 */
+static obj cx__232994; /* constant #2994 */
 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__233004; /* constant #3004 */
+static obj cx__233015; /* constant #3015 */
+static obj cx__233038; /* constant #3038 */
+static obj cx__233099; /* constant #3099 */
+static obj cx__233103; /* constant #3103 */
+static obj cx__233224; /* constant #3224 */
 static obj cx__233260; /* constant #3260 */
-static obj cx__233283; /* constant #3283 */
-static obj cx__233287; /* constant #3287 */
+static obj cx__233268; /* constant #3268 */
+static obj cx__233269; /* constant #3269 */
+static obj cx__233270; /* constant #3270 */
+static obj cx__233271; /* constant #3271 */
+static obj cx__233272; /* constant #3272 */
+static obj cx__233295; /* constant #3295 */
+static obj cx__233299; /* constant #3299 */
 static obj cx__23334; /* constant #334 */
-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__233569; /* constant #3569 */
+static obj cx__233771; /* constant #3771 */
+static obj cx__234173; /* constant #4173 */
+static obj cx__234303; /* constant #4303 */
+static obj cx__23431; /* constant #431 */
+static obj cx__234711; /* constant #4711 */
+static obj cx__234735; /* constant #4735 */
+static obj cx__234736; /* constant #4736 */
+static obj cx__23479; /* constant #479 */
+static obj cx__234792; /* constant #4792 */
+static obj cx__234799; /* constant #4799 */
+static obj cx__234806; /* constant #4806 */
+static obj cx__234808; /* constant #4808 */
+static obj cx__234864; /* constant #4864 */
+static obj cx__23489; /* constant #489 */
+static obj cx__234895; /* constant #4895 */
+static obj cx__234900; /* constant #4900 */
+static obj cx__234901; /* constant #4901 */
+static obj cx__234919; /* constant #4919 */
+static obj cx__234922; /* constant #4922 */
+static obj cx__234928; /* constant #4928 */
+static obj cx__234936; /* constant #4936 */
+static obj cx__234944; /* constant #4944 */
+static obj cx__23499; /* constant #499 */
+static obj cx__23512; /* constant #512 */
+static obj cx__23537; /* constant #537 */
+static obj cx__23543; /* constant #543 */
+static obj cx__23569; /* constant #569 */
+static obj cx__23594; /* constant #594 */
+static obj cx__23612; /* constant #612 */
+static obj cx__23622; /* constant #622 */
+static obj cx__23643; /* constant #643 */
+static obj cx__23903; /* constant #903 */
+static obj cx__23946; /* constant #946 */
+static obj cx__23948; /* constant #948 */
 static obj cx__2398; /* constant #98 */
-static obj cx__23984; /* constant #984 */
+static obj cx__23987; /* constant #987 */
 
 /* 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 v5354_tmp = (cdr((v1_s)));
-    obj v5353_tmp = (v2_x);
+    obj v5366_tmp = (cdr((v1_s)));
+    obj v5365_tmp = (v2_x);
     /* tail call */
-    v2_x = (v5353_tmp);
-    v1_s = (v5354_tmp);
+    v2_x = (v5365_tmp);
+    v1_s = (v5366_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 v5347_tmp;
+    obj v5359_tmp;
   { /* let */
-    obj v5351_tmp;
+    obj v5363_tmp;
   { /* let */
-    obj v5352_tmp;
+    obj v5364_tmp;
     { static obj o = 0; static char s[] = { 36, 0 };
-    v5352_tmp = (o ? o : (o = mksymbol(internsym(s)))); };
-    v5351_tmp = obj_from_bool((car((v41_pat))) == (v5352_tmp));
+    v5364_tmp = (o ? o : (o = mksymbol(internsym(s)))); };
+    v5363_tmp = obj_from_bool((car((v41_pat))) == (v5364_tmp));
   }
-    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));
+    v5359_tmp = (bool_from_obj(v5363_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(v5347_tmp)) {
+  if (bool_from_obj(v5359_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 v5350_tmp = (cdr((v58_lst)));
+    obj v5362_tmp = (cdr((v58_lst)));
     /* tail call */
-    v58_lst = (v5350_tmp);
+    v58_lst = (v5362_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 v5349_tmp = (cdr((v40_exp)));
-    obj v5348_tmp = (cdr((v41_pat)));
+    obj v5361_tmp = (cdr((v40_exp)));
+    obj v5360_tmp = (cdr((v41_pat)));
     /* tail call */
-    v41_pat = (v5348_tmp);
-    v40_exp = (v5349_tmp);
+    v41_pat = (v5360_tmp);
+    v40_exp = (v5361_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 v5346_tmp = obj_from_fixnum(+0);
-    obj v5345_tmp = (v116_l);
+    obj v5358_tmp = obj_from_fixnum(+0);
+    obj v5357_tmp = (v116_l);
     /* tail call */
-    v120_l = (v5345_tmp);
-    v119_n = (v5346_tmp);
+    v120_l = (v5357_tmp);
+    v119_n = (v5358_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 v5344_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1)));
-    obj v5343_tmp = (cdr((v120_l)));
+    obj v5356_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1)));
+    obj v5355_tmp = (cdr((v120_l)));
     /* tail call */
-    v120_l = (v5343_tmp);
-    v119_n = (v5344_tmp);
+    v120_l = (v5355_tmp);
+    v119_n = (v5356_tmp);
     goto s_loop;
   }
   }
@@ -926,7 +926,6 @@ static obj *globv[] = {
   &cx_continuation_2Dadapter_2Dcode,
   &cx_decode,
   &cx_decode_2Dsexp,
-  &cx_denotation_2Dof_2Ddefault_2Dellipsis,
   &cx_execute_2Dthunk_2Dclosure,
   &cx_gensym,
   &cx_initialize_2Dmodules,
@@ -945,84 +944,84 @@ static obj *globv[] = {
   &cx_test5,
   &cx_transform,
   &cx_x_2Derror,
-  &cx__231000,
-  &cx__231043,
-  &cx__231050,
-  &cx__231063,
-  &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__231003,
+  &cx__231046,
+  &cx__231053,
+  &cx__231066,
+  &cx__231141,
+  &cx__231213,
+  &cx__231302,
+  &cx__231310,
+  &cx__231336,
+  &cx__231356,
+  &cx__231381,
+  &cx__231389,
+  &cx__231825,
+  &cx__231857,
+  &cx__231892,
+  &cx__231985,
+  &cx__232006,
+  &cx__232350,
+  &cx__232657,
+  &cx__232822,
+  &cx__232960,
+  &cx__232965,
+  &cx__232969,
+  &cx__232993,
+  &cx__232994,
   &cx__233003,
-  &cx__233026,
-  &cx__233087,
-  &cx__233091,
-  &cx__233212,
-  &cx__233248,
-  &cx__233256,
-  &cx__233257,
-  &cx__233258,
-  &cx__233259,
+  &cx__233004,
+  &cx__233015,
+  &cx__233038,
+  &cx__233099,
+  &cx__233103,
+  &cx__233224,
   &cx__233260,
-  &cx__233283,
-  &cx__233287,
+  &cx__233268,
+  &cx__233269,
+  &cx__233270,
+  &cx__233271,
+  &cx__233272,
+  &cx__233295,
+  &cx__233299,
   &cx__23334,
-  &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__233569,
+  &cx__233771,
+  &cx__234173,
+  &cx__234303,
+  &cx__23431,
+  &cx__234711,
+  &cx__234735,
+  &cx__234736,
+  &cx__23479,
+  &cx__234792,
+  &cx__234799,
+  &cx__234806,
+  &cx__234808,
+  &cx__234864,
+  &cx__23489,
+  &cx__234895,
+  &cx__234900,
+  &cx__234901,
+  &cx__234919,
+  &cx__234922,
+  &cx__234928,
+  &cx__234936,
+  &cx__234944,
+  &cx__23499,
+  &cx__23512,
+  &cx__23537,
+  &cx__23543,
+  &cx__23569,
+  &cx__23594,
+  &cx__23612,
+  &cx__23622,
+  &cx__23643,
+  &cx__23903,
+  &cx__23946,
+  &cx__23948,
   &cx__2398,
-  &cx__23984,
+  &cx__23987,
 };
 
 static cxroot_t root = {
@@ -1164,21 +1163,21 @@ jump:
 case 0: /* load module */
     cx__2398 = (hpushstr(0, newstring("#")));
     cx__23334 = (hpushstr(0, newstring("transformer: ")));
-    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")));
+    cx__23431 = (hpushstr(0, newstring("improper use of syntax form")));
+    cx__23479 = (hpushstr(0, newstring("improper quote form")));
+    cx__23489 = (hpushstr(0, newstring("improper set! form")));
+    cx__23499 = (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__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")));
+    cx__23512 = (hendblk(3)); }
+    cx__23537 = (hpushstr(0, newstring("improper set& form")));
+    cx__23543 = (hpushstr(0, newstring("set& of a non-variable")));
+    cx__23569 = (hpushstr(0, newstring("improper begin form")));
+    cx__23594 = (hpushstr(0, newstring("improper if form")));
+    cx__23612 = (hpushstr(0, newstring("malformed if form")));
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -1190,40 +1189,40 @@ case 0: /* load module */
     *--hp = (mknull());
     *--hp = r[0];  
     *--hp = obj_from_size(PAIR_BTAG); 
-    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")));
+    cx__23622 = (hendblk(3)); }
+    cx__23643 = (hpushstr(0, newstring("improper application")));
+    cx__23903 = (hpushstr(0, newstring("improper lambda body")));
+    cx__23946 = (hpushstr(0, newstring("improper lambda* form")));
+    cx__23948 = (hpushstr(0, newstring("improper lambda* clause")));
+    cx__23987 = (hpushstr(0, newstring("improper letcc form")));
+    cx__231003 = (hpushstr(0, newstring("improper withcc form")));
+    cx__231046 = (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__231050 = (hendblk(3)); }
-    cx__231063 = (hpushstr(0, newstring("improper define form")));
-    cx__231138 = (hpushstr(0, newstring("improper body form")));
+    cx__231053 = (hendblk(3)); }
+    cx__231066 = (hpushstr(0, newstring("improper define form")));
+    cx__231141 = (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__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")));
+    cx__231213 = (hendblk(3)); }
+    cx__231302 = (hpushstr(0, newstring("improper syntax-lambda body")));
+    cx__231310 = (hpushstr(0, newstring("invalif syntax-lambda application")));
+    cx__231336 = (hpushstr(0, newstring("improper syntax-rules form")));
+    cx__231356 = (hpushstr(0, newstring("improper syntax-length form")));
+    cx__231381 = (hpushstr(0, newstring("improper syntax-error form")));
+    cx__231389 = (hpushstr(0, newstring("improper use of ... in syntax form")));
+    cx__231825 = (hpushstr(0, newstring("invalid syntax")));
+    cx__231857 = (hpushstr(0, newstring("compiler: ")));
+    cx__231892 = (hpushstr(0, newstring("cannot encode literal")));
+    cx__231985 = (hpushstr(0, newstring("0123456789")));
+    cx__232006 = (hpushstr(0, newstring("misplaced define form")));
+    cx__232350 = (hpushstr(0, newstring("unsupported integrable type")));
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -1241,33 +1240,33 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = (mksymbol(internsym("quote")));
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__232645 = (hendblk(3)); }
+    cx__232657 = (hendblk(3)); }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
     *--hp = (mksymbol(internsym("begin")));
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__232810 = (hendblk(3)); }
+    cx__232822 = (hendblk(3)); }
     { static char s[] = { 34, 10, 0 };
-    cx__232948 = (hpushstr(0, newstring(s))); }
+    cx__232960 = (hpushstr(0, newstring(s))); }
     { static char s[] = { 32, 32, 34, 0 };
-    cx__232953 = (hpushstr(0, newstring(s))); }
+    cx__232965 = (hpushstr(0, newstring(s))); }
     { static char s[] = { 34, 44, 0 };
-    cx__232957 = (hpushstr(0, newstring(s))); }
+    cx__232969 = (hpushstr(0, newstring(s))); }
     { static char s[] = { 34, 44, 10, 0 };
-    cx__232981 = (hpushstr(0, newstring(s))); }
+    cx__232993 = (hpushstr(0, newstring(s))); }
     { static char s[] = { 32, 32, 34, 83, 34, 44, 32, 34, 0 };
-    cx__232982 = (hpushstr(0, newstring(s))); }
+    cx__232994 = (hpushstr(0, newstring(s))); }
     { static char s[] = { 32, 34, 0 };
-    cx__232991 = (hpushstr(0, newstring(s))); }
-    { static char s[] = { 32, 32, 34, 65, 34, 44, 32, 34, 0 };
-    cx__232992 = (hpushstr(0, newstring(s))); }
-    { static char s[] = { 32, 32, 34, 67, 34, 44, 32, 48, 44, 10, 0 };
     cx__233003 = (hpushstr(0, newstring(s))); }
+    { static char s[] = { 32, 32, 34, 65, 34, 44, 32, 34, 0 };
+    cx__233004 = (hpushstr(0, newstring(s))); }
+    { static char s[] = { 32, 32, 34, 67, 34, 44, 32, 48, 44, 10, 0 };
+    cx__233015 = (hpushstr(0, newstring(s))); }
     { static char s[] = { 32, 32, 34, 80, 34, 44, 32, 34, 0 };
-    cx__233026 = (hpushstr(0, newstring(s))); }
-    cx__233087 = (hpushstr(0, newstring("r")));
-    cx__233091 = (hpushstr(0, newstring("cannot open input file")));
+    cx__233038 = (hpushstr(0, newstring(s))); }
+    cx__233099 = (hpushstr(0, newstring("r")));
+    cx__233103 = (hpushstr(0, newstring("cannot open input file")));
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -1285,15 +1284,15 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = obj_from_char(92);
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__233212 = (hendblk(3)); }
+    cx__233224 = (hendblk(3)); }
     { static char s[] = { 10, 32, 32, 48, 44, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 };
-    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")));
+    cx__233260 = (hpushstr(0, newstring(s))); }
+    cx__233268 = (hpushstr(0, newstring("_code[] = {")));
+    cx__233269 = (hpushstr(0, newstring("char *")));
+    cx__233270 = (hpushstr(0, newstring(" */")));
+    cx__233271 = (hpushstr(0, newstring(".c -- generated via skint -c ")));
+    cx__233272 = (hpushstr(0, newstring("/* ")));
+    cx__233295 = (hpushstr(0, newstring("K5")));
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -2109,7 +2108,7 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = (mksymbol(internsym("let")));
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__233287 = (hendblk(3)); }
+    cx__233299 = (hendblk(3)); }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -2709,7 +2708,7 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = (mksymbol(internsym("let")));
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__233557 = (hendblk(3)); }
+    cx__233569 = (hendblk(3)); }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -3909,7 +3908,7 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = (mksymbol(internsym("let")));
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__233759 = (hendblk(3)); }
+    cx__233771 = (hendblk(3)); }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -4293,7 +4292,7 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = (mksymbol(internsym("let")));
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__234161 = (hendblk(3)); }
+    cx__234173 = (hendblk(3)); }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -5433,16 +5432,16 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = (mksymbol(internsym("let")));
     *--hp = obj_from_size(PAIR_BTAG); 
-    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 =>")));
+    cx__234303 = (hendblk(3)); }
+    cx__234711 = (hpushstr(0, newstring(" ms.")));
+    cx__234735 = (hpushstr(0, newstring("Elapsed time: ")));
+    cx__234736 = (hpushstr(0, newstring("Running tests ...")));
+    cx__234792 = (hpushstr(0, newstring("DECODE+EXECUTE =>")));
+    cx__234799 = (hpushstr(0, newstring("COMPILE-TO-STRING =>")));
+    cx__234806 = (hpushstr(0, newstring("unexpected transformed output")));
+    cx__234808 = (hpushstr(0, newstring("TRANSFORM =>")));
     { static char s[] = { 10, 115, 107, 105, 110, 116, 62, 32, 0 };
-    cx__234852 = (hpushstr(0, newstring(s))); }
+    cx__234864 = (hpushstr(0, newstring(s))); }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -5454,8 +5453,8 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = (mksymbol(internsym("main")));
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__234883 = (hendblk(3)); }
-    cx__234888 = (hpushstr(0, newstring("unexpected benchmark file format")));
+    cx__234895 = (hendblk(3)); }
+    cx__234900 = (hpushstr(0, newstring("unexpected benchmark file format")));
     r[0] = (hpushstr(0, newstring("libl.sf")));
     { /* cons */ 
     hreserve(hbsz(3), 1); /* 1 live regs */
@@ -5468,21 +5467,21 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = (mksymbol(internsym("load")));
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__234889 = (hendblk(3)); }
+    cx__234901 = (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__234907 = (hendblk(3)); }
+    cx__234919 = (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__234910 = (hendblk(3)); }
+    cx__234922 = (hendblk(3)); }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -5495,7 +5494,7 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = r[1];  
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__234916 = (hendblk(3)); }
+    cx__234928 = (hendblk(3)); }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -5508,7 +5507,7 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = r[1];  
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__234924 = (hendblk(3)); }
+    cx__234936 = (hendblk(3)); }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
     *--hp = (mknull());
@@ -5521,7 +5520,7 @@ case 0: /* load module */
     *--hp = r[0];  
     *--hp = r[1];  
     *--hp = obj_from_size(PAIR_BTAG); 
-    cx__234932 = (hendblk(3)); }
+    cx__234944 = (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; }
@@ -5626,19 +5625,17 @@ case 0: /* load module */
     { 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(180);
-    r[0] = (hendblk(0+1));
-    { /* cons */ 
-    hreserve(hbsz(3), 1); /* 1 live regs */
-    *--hp = r[0];  
-    *--hp = (mksymbol(internsym("...")));
-    *--hp = obj_from_size(PAIR_BTAG); 
-    cx_denotation_2Dof_2Ddefault_2Dellipsis = (hendblk(3)); }
+    { static obj c[] = { obj_from_case(180) }; cx_xform_2D_2E_2E_2E = (obj)c; }
     { /* cons */ 
     hreserve(hbsz(3), 0); /* 0 live regs */
+    *--hp = (mksymbol(internsym("...")));
+    *--hp = (mksymbol(internsym("...")));
+    *--hp = obj_from_size(PAIR_BTAG); 
+    r[0] = (hendblk(3)); }
+    { /* cons */ 
+    hreserve(hbsz(3), 1); /* 1 live regs */
     *--hp = (mknull());
-    *--hp = (cx_denotation_2Dof_2Ddefault_2Dellipsis);
+    *--hp = r[0];  
     *--hp = obj_from_size(PAIR_BTAG); 
     r[0] = (hendblk(3)); }
     { /* cons */ 
@@ -5924,7 +5921,7 @@ case 0: /* load module */
     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+2] = (cx__233295);
     r += 2; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
     rc = 3;
@@ -6512,16 +6509,16 @@ gs_normalize_2Darity: /* k arity */
     r[2+2] = r[1];  
     r += 2; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v13912;
+    goto s_loop_v13929;
   }
 
-s_loop_v13912: /* k cnt l */
+s_loop_v13929: /* 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_v13912;
+    goto s_loop_v13929;
   } else {
   if ((isnull((r[2])))) {
     { /* cons */ 
@@ -6579,10 +6576,10 @@ gs_flatten_2Didslist: /* k ilist */
     r[2+2] = (mknull());
     r += 2; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v13899;
+    goto s_loop_v13916;
   }
 
-s_loop_v13899: /* k l r */
+s_loop_v13916: /* k l r */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     r[4] = (car((r[1])));
@@ -6595,7 +6592,7 @@ s_loop_v13899: /* k l r */
     /* r[0] */    
     r[1] = r[3];  
     r[2] = r[4];  
-    goto s_loop_v13899;
+    goto s_loop_v13916;
   } else {
   if ((isnull((r[1])))) {
     { /* reverse! */
@@ -7224,7 +7221,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__23428);
+    r[2] = (cx__23431);
     r[3] = r[5];  
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -7397,6 +7394,12 @@ case 59: /* clo ek r */
     r[1] = r[6];  
     r[2] = r[4];  
     goto gs_xform_2Dsyntax_2Derror;
+  } else {
+  if ((((r[1]) == (mksymbol(internsym("...")))) && (1))) {
+    r[0] = r[5];  
+    r[1] = r[6];  
+    r[2] = r[4];  
+    goto gs_xform_2D_2E_2E_2E;
   } else {
     { /* define integrable? */
     static obj c[] = { obj_from_objptr(vmcases+8) };
@@ -7435,6 +7438,7 @@ case 59: /* clo ek r */
   }
   }
   }
+  }
 
 case 60: /* clo ek r */
     assert(rc == 3);
@@ -7610,9 +7614,9 @@ case 66: /* clo ek r */
     r[0] = r[4];  
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v13624;
+    goto s_loop_v13641;
 
-s_loop_v13624: /* k l conv */
+s_loop_v13641: /* k l conv */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -7624,7 +7628,7 @@ s_loop_v13624: /* k l conv */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v13624;
+    goto s_loop_v13641;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -7763,7 +7767,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__23476);
+    r[4+2] = (cx__23479);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -7833,7 +7837,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__23486);
+    r[4+2] = (cx__23489);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -7901,7 +7905,7 @@ case 76: /* 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__23509);
+    r[4] = (cx__23512);
     r[5+0] = r[2];  
     pc = objptr_from_obj(r[5+0])[0];
     r[5+1] = obj_from_ktrap();
@@ -7946,7 +7950,7 @@ case 76: /* clo ek r */
     r[0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[2];  
-    r[2] = (cx__23496);
+    r[2] = (cx__23499);
     rreserve(MAX_HOSTREGS);
     rc = 3;
     goto jump;
@@ -7981,7 +7985,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__23534);
+    r[4+2] = (cx__23537);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -8023,7 +8027,7 @@ case 78: /* clo ek r */
     r[0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[2];  
-    r[2] = (cx__23540);
+    r[2] = (cx__23543);
     rreserve(MAX_HOSTREGS);
     rc = 3;
     goto jump;
@@ -8057,7 +8061,7 @@ case 78: /* clo ek r */
     r[0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[2];  
-    r[2] = (cx__23540);
+    r[2] = (cx__23543);
     rreserve(MAX_HOSTREGS);
     rc = 3;
     goto jump;
@@ -8077,7 +8081,7 @@ gs_xform_2Dbegin: /* k tail env */
     r[0] = r[3];  
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v13528;
+    goto s_loop_v13545;
   } else {
     { /* cons */ 
     hreserve(hbsz(3), 3); /* 3 live regs */
@@ -8088,7 +8092,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__23566);
+    r[4+2] = (cx__23569);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -8096,7 +8100,7 @@ gs_xform_2Dbegin: /* k tail env */
     goto jump;
   }
 
-s_loop_v13528: /* k l env */
+s_loop_v13545: /* k l env */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -8108,7 +8112,7 @@ s_loop_v13528: /* k l env */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v13528;
+    goto s_loop_v13545;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -8206,7 +8210,7 @@ gs_xform_2Dif: /* k tail env */
     r[0] = r[3];  
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v13497;
+    goto s_loop_v13514;
   } else {
     { /* cons */ 
     hreserve(hbsz(3), 3); /* 3 live regs */
@@ -8217,7 +8221,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__23591);
+    r[4+2] = (cx__23594);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -8225,7 +8229,7 @@ gs_xform_2Dif: /* k tail env */
     goto jump;
   }
 
-s_loop_v13497: /* k l env */
+s_loop_v13514: /* k l env */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -8237,7 +8241,7 @@ s_loop_v13497: /* k l env */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v13497;
+    goto s_loop_v13514;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -8311,7 +8315,7 @@ case 86: /* clo ek r */
     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+3] = (cx__23622);
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -8342,7 +8346,7 @@ case 86: /* clo ek r */
     r[6+0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[6+0])[0];
     r[6+1] = r[3];  
-    r[6+2] = (cx__23609);
+    r[6+2] = (cx__23612);
     r[6+3] = r[5];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -8385,7 +8389,7 @@ gs_xform_2Dcall: /* k xexp tail env */
     r[0] = r[4];  
     r[1] = r[2];  
     r[2] = r[3];  
-    goto s_loop_v13458;
+    goto s_loop_v13475;
   } else {
     { /* cons */ 
     hreserve(hbsz(3), 4); /* 4 live regs */
@@ -8396,7 +8400,7 @@ gs_xform_2Dcall: /* k xexp tail env */
     r[5+0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[5+0])[0];
     r[5+1] = r[0];  
-    r[5+2] = (cx__23640);
+    r[5+2] = (cx__23643);
     r[5+3] = r[4];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -8404,7 +8408,7 @@ gs_xform_2Dcall: /* k xexp tail env */
     goto jump;
   }
 
-s_loop_v13458: /* k l env */
+s_loop_v13475: /* k l env */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -8416,7 +8420,7 @@ s_loop_v13458: /* k l env */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v13458;
+    goto s_loop_v13475;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -8522,79 +8526,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 v14170_tmp = ((flonum_t)(+0));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14170_tmp)); } 
+    { const flonum_t v14187_tmp = ((flonum_t)(+0));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14187_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 v14169_tmp = ((flonum_t)(+1));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14169_tmp)); } 
+    { const flonum_t v14186_tmp = ((flonum_t)(+1));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14186_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 v14168_tmp = ((flonum_t)(+2));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14168_tmp)); } 
+    { const flonum_t v14185_tmp = ((flonum_t)(+2));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14185_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 v14167_tmp = ((flonum_t)(+3));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14167_tmp)); } 
+    { const flonum_t v14184_tmp = ((flonum_t)(+3));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14184_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 v14166_tmp = ((flonum_t)(+0));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14166_tmp)); } 
+    { const flonum_t v14183_tmp = ((flonum_t)(+0));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14183_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 v14165_tmp = ((flonum_t)(+1));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14165_tmp)); } 
+    { const flonum_t v14182_tmp = ((flonum_t)(+1));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14182_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 v14164_tmp = ((flonum_t)(+2));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14164_tmp)); } 
+    { const flonum_t v14181_tmp = ((flonum_t)(+2));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14181_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 v14163_tmp = ((flonum_t)(+1));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14163_tmp)); } 
+    { const flonum_t v14180_tmp = ((flonum_t)(+1));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14180_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 v14162_tmp = ((flonum_t)(+0));
-    r[3] = obj_from_bool((v14162_tmp) <= flonum_from_obj(r[2])); } 
+    { const flonum_t v14179_tmp = ((flonum_t)(+0));
+    r[3] = obj_from_bool((v14179_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 v14161_tmp = ((flonum_t)(+1));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14161_tmp)); } 
+    { const flonum_t v14178_tmp = ((flonum_t)(+1));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14178_tmp)); } 
   }
   } else {
     r[3] = obj_from_bool(0);
@@ -8604,15 +8608,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 v14160_tmp = ((flonum_t)(+1));
-    r[3] = obj_from_bool((v14160_tmp) <= flonum_from_obj(r[2])); } 
+    { const flonum_t v14177_tmp = ((flonum_t)(+1));
+    r[3] = obj_from_bool((v14177_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 v14159_tmp = ((flonum_t)(+2));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14159_tmp)); } 
+    { const flonum_t v14176_tmp = ((flonum_t)(+2));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14176_tmp)); } 
   }
   } else {
     r[3] = obj_from_bool(0);
@@ -8622,15 +8626,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 v14158_tmp = ((flonum_t)(+2));
-    r[3] = obj_from_bool((v14158_tmp) <= flonum_from_obj(r[2])); } 
+    { const flonum_t v14175_tmp = ((flonum_t)(+2));
+    r[3] = obj_from_bool((v14175_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 v14157_tmp = ((flonum_t)(+3));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14157_tmp)); } 
+    { const flonum_t v14174_tmp = ((flonum_t)(+3));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14174_tmp)); } 
   }
   } else {
     r[3] = obj_from_bool(0);
@@ -8640,8 +8644,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 v14156_tmp = ((flonum_t)(+0));
-    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14156_tmp)); } 
+    { const flonum_t v14173_tmp = ((flonum_t)(+0));
+    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14173_tmp)); } 
   }
   } else {
     r[3] = obj_from_bool(((((r[1]) == obj_from_char('@')) || ((is_flonum_obj(r[1])) && (0))) && (1)) && (0));
@@ -8732,7 +8736,7 @@ case 95: /* clo ek r */
     r[0] = r[6];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v13409;
+    goto s_loop_v13426;
   } else {
     { /* define integrable-global */
     static obj c[] = { obj_from_objptr(vmcases+11) };
@@ -8752,7 +8756,7 @@ case 95: /* clo ek r */
     goto jump;
   }
 
-s_loop_v13409: /* k l env */
+s_loop_v13426: /* k l env */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -8764,7 +8768,7 @@ s_loop_v13409: /* k l env */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v13409;
+    goto s_loop_v13426;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -8895,7 +8899,7 @@ gs_xform_2Dlambda: /* k tail env */
     r[4+4] = r[0];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v13317;
+    goto s_l_v13334;
   }
 
 case 101: /* clo ek r */
@@ -8905,7 +8909,7 @@ case 101: /* clo ek r */
     r[1+3] = p[2];
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_l_v13317: /* ek r env tail k */
+s_l_v13334: /* ek r env tail k */
   if (bool_from_obj(r[1])) {
     r[5] = (car((r[3])));
     r[6+0] = r[4];  
@@ -8915,7 +8919,7 @@ s_l_v13317: /* ek r env tail k */
     r[6+4] = r[3];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v13318;
+    goto s_loop_v13335;
   } else {
     { /* cons */ 
     hreserve(hbsz(3), 5); /* 5 live regs */
@@ -8926,7 +8930,7 @@ s_l_v13317: /* ek r env tail k */
     r[0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[4];  
-    r[2] = (cx__23900);
+    r[2] = (cx__23903);
     r[3] = r[5];  
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -8938,7 +8942,7 @@ case 102: /* clo k vars ienv ipars */
     { obj* p = objptr_from_obj(r[0]);
     r[1+4] = p[1]; }
     r += 1; /* shift reg. wnd */
-s_loop_v13318: /* k vars ienv ipars tail */
+s_loop_v13335: /* k vars ienv ipars tail */
   if ((ispair((r[1])))) {
     r[5] = (car((r[1])));
     hreserve(hbsz(1+1), 6); /* 6 live regs */
@@ -9079,13 +9083,13 @@ case 106: /* clo ek r */
     *--hp = r[1];  
     *--hp = obj_from_size(PAIR_BTAG); 
     r[4] = (hendblk(3)); }
-    { fixnum_t v14155_tmp;
+    { fixnum_t v14172_tmp;
     { /* length */
     int n; obj l = r[3];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14155_tmp = (n); }
+    v14172_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14155_tmp);
+    obj l, o = mknull(); int c = (v14172_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);
@@ -9204,13 +9208,13 @@ case 110: /* clo ek r */
     *--hp = r[4];  
     *--hp = obj_from_case(111);
     r[6] = (hendblk(2+1));
-    { fixnum_t v14154_tmp;
+    { fixnum_t v14171_tmp;
     { /* length */
     int n; obj l = r[3];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14154_tmp = (n); }
+    v14171_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14154_tmp);
+    obj l, o = mknull(); int c = (v14171_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);
@@ -9265,7 +9269,7 @@ gs_xform_2Dlambda_2A: /* k tail env */
     r[0] = r[3];  
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v13273;
+    goto s_loop_v13290;
   } else {
     { /* cons */ 
     hreserve(hbsz(3), 3); /* 3 live regs */
@@ -9276,7 +9280,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__23943);
+    r[4+2] = (cx__23946);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -9284,7 +9288,7 @@ gs_xform_2Dlambda_2A: /* k tail env */
     goto jump;
   }
 
-s_loop_v13273: /* k l env */
+s_loop_v13290: /* k l env */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -9296,7 +9300,7 @@ s_loop_v13273: /* k l env */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v13273;
+    goto s_loop_v13290;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -9358,7 +9362,7 @@ case 113: /* clo ek r */
     r[9+4] = r[8];  
     r += 9; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v13277;
+    goto s_l_v13294;
   } else {
     r[0] = r[6];  
     r[1] = (car((r[5])));
@@ -9377,7 +9381,7 @@ case 113: /* clo ek r */
     r[8+4] = r[7];  
     r += 8; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v13277;
+    goto s_l_v13294;
   }
 
 case 114: /* clo ek r */
@@ -9409,7 +9413,7 @@ case 115: /* clo ek r */
     r[1+3] = p[2];
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_l_v13277: /* ek r env aexp k */
+s_l_v13294: /* ek r env aexp k */
   if (bool_from_obj(r[1])) {
     hreserve(hbsz(2+1), 5); /* 5 live regs */
     *--hp = r[4];  
@@ -9429,7 +9433,7 @@ s_l_v13277: /* ek r env aexp k */
     r[0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[4];  
-    r[2] = (cx__23945);
+    r[2] = (cx__23948);
     /* r[3] */    
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -9533,7 +9537,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__23984);
+    r[4+2] = (cx__23987);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -9667,7 +9671,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__231000);
+    r[4+2] = (cx__231003);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -9757,8 +9761,8 @@ gs_xform_2Dbody: /* k tail env */
     rreserve(MAX_HOSTREGS);
     goto gs_xform;
   } else {
-    { const bool_t v14153_tmp = (islist((r[1])));
-    r[3] = obj_from_bool(!(v14153_tmp)); } 
+    { const bool_t v14170_tmp = (islist((r[1])));
+    r[3] = obj_from_bool(!(v14170_tmp)); } 
   if (bool_from_obj(r[3])) {
     { /* cons */ 
     hreserve(hbsz(3), 3); /* 3 live regs */
@@ -9769,7 +9773,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__231138);
+    r[4+2] = (cx__231141);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -9784,7 +9788,7 @@ gs_xform_2Dbody: /* k tail env */
     r[3+5] = r[1];  
     r += 3; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v13122;
+    goto s_loop_v13139;
   }
   }
   }
@@ -9792,7 +9796,7 @@ gs_xform_2Dbody: /* k tail env */
 case 128: /* clo k env ids inits nids body */
     assert(rc == 7);
     r += 1; /* shift reg. wnd */
-s_loop_v13122: /* k env ids inits nids body */
+s_loop_v13139: /* k env ids inits nids body */
   if ((ispair((r[5])))) {
     r[6] = (car((r[5])));
     r[6] = obj_from_bool(ispair((r[6])));
@@ -9828,37 +9832,37 @@ s_loop_v13122: /* k env ids inits nids body */
     rreserve(MAX_HOSTREGS);
     goto gs_xform;
   } else {
-    { fixnum_t v14152_tmp;
+    { fixnum_t v14169_tmp;
     { /* length */
     int n; obj l = r[2];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14152_tmp = (n); }
+    v14169_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14152_tmp);
+    obj l, o = mknull(); int c = (v14169_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 v14151_tmp;
+    { fixnum_t v14168_tmp;
     { /* length */
     int n; obj l = r[3];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14151_tmp = (n); }
+    v14168_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14151_tmp);
+    obj l, o = mknull(); int c = (v14168_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 v14150_tmp;
+    { fixnum_t v14167_tmp;
     { /* length */
     int n; obj l = r[4];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14150_tmp = (n); }
+    v14167_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14150_tmp);
+    obj l, o = mknull(); int c = (v14167_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);
@@ -9913,7 +9917,7 @@ case 129: /* clo ek r */
     r[0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = (r[10]);
-    r[2] = (cx__23566);
+    r[2] = (cx__23569);
     /* r[3] */    
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -10026,7 +10030,7 @@ case 129: /* clo ek r */
     r[13+10] = (r[11]);
     r += 13; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v13138;
+    goto s_l_v13155;
   }
   } else {
     r[13+0] = obj_from_ktrap();
@@ -10042,7 +10046,7 @@ case 129: /* clo ek r */
     r[13+10] = (r[11]);
     r += 13; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v13138;
+    goto s_l_v13155;
   }
   } else {
     r[13+0] = obj_from_ktrap();
@@ -10058,7 +10062,7 @@ case 129: /* clo ek r */
     r[13+10] = (r[11]);
     r += 13; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v13138;
+    goto s_l_v13155;
   }
   }
   }
@@ -10087,14 +10091,14 @@ case 129: /* clo ek r */
     r[14] = (hendblk(8+1));
     r[0] = (r[14]);
     r[1] = (r[12]);
-    r[2] = (cx__231050);
+    r[2] = (cx__231053);
     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__231043);
+    r[2] = (cx__231046);
     /* r[3] */    
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -10121,37 +10125,37 @@ case 129: /* clo ek r */
     rc = 4;
     goto jump;
   } else {
-    { fixnum_t v14149_tmp;
+    { fixnum_t v14166_tmp;
     { /* length */
     int n; obj l = r[8];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14149_tmp = (n); }
+    v14166_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14149_tmp);
+    obj l, o = mknull(); int c = (v14166_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 v14148_tmp;
+    { fixnum_t v14165_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14148_tmp = (n); }
+    v14165_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14148_tmp);
+    obj l, o = mknull(); int c = (v14165_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 v14147_tmp;
+    { fixnum_t v14164_tmp;
     { /* length */
     int n; obj l = r[6];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14147_tmp = (n); }
+    v14164_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14147_tmp);
+    obj l, o = mknull(); int c = (v14164_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);
@@ -10322,7 +10326,7 @@ case 134: /* clo ek r */
     r[1+9] = p[8];
     r[1+10] = p[9]; }
     r += 1; /* shift reg. wnd */
-s_l_v13138: /* ek r first env loop rest nids inits ids k tail */
+s_l_v13155: /* 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])));
@@ -10351,7 +10355,7 @@ s_l_v13138: /* 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__231063);
+    r[11+2] = (cx__231066);
     r[11+3] = r[2];  
     r += 11; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -10607,7 +10611,7 @@ gs_xform_2Dlabels: /* k ids inits nids body env */
     r[6+7] = r[4];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v13025;
+    goto s_loop_v13042;
 
 case 142: /* clo k ids inits nids sets lids */
     assert(rc == 7);
@@ -10615,7 +10619,7 @@ case 142: /* clo k ids inits nids sets lids */
     r[1+6] = p[1];
     r[1+7] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_loop_v13025: /* k ids inits nids sets lids env body */
+s_loop_v13042: /* k ids inits nids sets lids env body */
     hreserve(hbsz(2+1), 8); /* 8 live regs */
     *--hp = r[7];  
     *--hp = r[6];  
@@ -10631,7 +10635,7 @@ s_loop_v13025: /* k ids inits nids sets lids env body */
     r[0] = r[9];  
     r[1] = r[7];  
     r[2] = r[6];  
-    goto s_loop_v13079;
+    goto s_loop_v13096;
   } else {
     r[9] = (car((r[1])));
     r[9] = obj_from_bool(!bool_from_obj(r[9]));
@@ -10707,7 +10711,7 @@ s_loop_v13025: /* k ids inits nids sets lids env body */
   }
   }
 
-s_loop_v13079: /* k l env */
+s_loop_v13096: /* k l env */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -10719,7 +10723,7 @@ s_loop_v13079: /* k l env */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v13079;
+    goto s_loop_v13096;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -10786,13 +10790,13 @@ case 145: /* clo ek r */
     *--hp = r[3];  
     *--hp = obj_from_case(146);
     r[5] = (hendblk(2+1));
-    { fixnum_t v14146_tmp;
+    { fixnum_t v14163_tmp;
     { /* length */
     int n; obj l = r[2];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14146_tmp = (n); }
+    v14163_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14146_tmp);
+    obj l, o = mknull(); int c = (v14163_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);
@@ -10842,10 +10846,10 @@ case 146: /* clo ek r */
     r[5] = (hendblk(3+1));
     r[0] = r[5];  
     r[1] = r[3];  
-    goto s_loop_v13060;
+    goto s_loop_v13077;
   }
 
-s_loop_v13060: /* k l */
+s_loop_v13077: /* k l */
   if ((ispair((r[1])))) {
     r[2] = (cdr((r[1])));
     hreserve(hbsz(1+1), 3); /* 3 live regs */
@@ -10854,7 +10858,7 @@ s_loop_v13060: /* k l */
     r[3] = (hendblk(1+1));
     r[0] = r[3];  
     r[1] = r[2];  
-    goto s_loop_v13060;
+    goto s_loop_v13077;
   } else {
     r[2+0] = r[0];  
     pc = objptr_from_obj(r[2+0])[0];
@@ -10875,7 +10879,7 @@ case 147: /* clo ek r */
     { /* cons */ 
     hreserve(hbsz(3), 3); /* 3 live regs */
     *--hp = r[1];  
-    *--hp = (cx__231210);
+    *--hp = (cx__231213);
     *--hp = obj_from_size(PAIR_BTAG); 
     r[3] = (hendblk(3)); }
     r[4+0] = r[2];  
@@ -10901,13 +10905,13 @@ case 148: /* clo ek r */
     *--hp = r[3];  
     *--hp = obj_from_size(PAIR_BTAG); 
     r[5] = (hendblk(3)); }
-    { fixnum_t v14145_tmp;
+    { fixnum_t v14162_tmp;
     { /* length */
     int n; obj l = r[2];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14145_tmp = (n); }
+    v14162_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14145_tmp);
+    obj l, o = mknull(); int c = (v14162_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);
@@ -11134,7 +11138,7 @@ gs_xform_2Ddefine: /* k tail env */
     r[4+4] = r[0];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v12988;
+    goto s_l_v13005;
   }
   } else {
     r[4+0] = obj_from_ktrap();
@@ -11144,7 +11148,7 @@ gs_xform_2Ddefine: /* k tail env */
     r[4+4] = r[0];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v12988;
+    goto s_l_v13005;
   }
   } else {
     r[4+0] = obj_from_ktrap();
@@ -11154,7 +11158,7 @@ gs_xform_2Ddefine: /* k tail env */
     r[4+4] = r[0];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v12988;
+    goto s_l_v13005;
   }
   }
   }
@@ -11215,7 +11219,7 @@ case 156: /* clo ek r */
     r[1+3] = p[2];
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_l_v12988: /* ek r env tail k */
+s_l_v13005: /* ek r env tail k */
   if (bool_from_obj(r[1])) {
     hreserve(hbsz(2+1), 5); /* 5 live regs */
     *--hp = r[4];  
@@ -11245,7 +11249,7 @@ s_l_v12988: /* ek r env tail k */
     r[0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[4];  
-    r[2] = (cx__231063);
+    r[2] = (cx__231066);
     r[3] = r[5];  
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -11338,7 +11342,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__231043);
+    r[4+2] = (cx__231046);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -11423,7 +11427,7 @@ gs_xform_2Dsyntax_2Dlambda: /* k tail env */
     r[4+4] = r[1];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v12919;
+    goto s_l_v12936;
   }
 
 case 163: /* clo ek r */
@@ -11433,7 +11437,7 @@ case 163: /* clo ek r */
     r[1+3] = p[2];
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_l_v12919: /* ek r k env tail */
+s_l_v12936: /* ek r k env tail */
   if (bool_from_obj(r[1])) {
     r[5] = (car((r[4])));
     r[6] = (cdr((r[4])));
@@ -11460,7 +11464,7 @@ s_l_v12919: /* ek r k env tail */
     r[0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[2];  
-    r[2] = (cx__231299);
+    r[2] = (cx__231302);
     r[3] = r[5];  
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -11476,18 +11480,18 @@ case 164: /* clo k use useenv */
     r += 1; /* shift reg. wnd */
     /* k use useenv forms env vars */
   if (bool_from_obj(cxs_list1_2B_3F((r[1])))) {
-    { fixnum_t v14144_tmp;
-    { fixnum_t v14143_tmp;
+    { fixnum_t v14161_tmp;
+    { fixnum_t v14160_tmp;
     { /* length */
     int n; obj l = r[5];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14144_tmp = (n); }
+    v14161_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)); } }
+    v14160_tmp = (n); }
+    r[6] = obj_from_bool((v14161_tmp) == (v14160_tmp)); } }
   } else {
     r[6] = obj_from_bool(0);
   }
@@ -11501,12 +11505,12 @@ case 164: /* clo k use useenv */
     r[7+5] = r[3];  
     r += 7; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v12922;
+    goto s_loop_v12939;
   } 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+2] = (cx__231310);
     r[6+3] = r[1];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -11520,7 +11524,7 @@ case 165: /* clo k vars exps env */
     r[1+4] = p[1];
     r[1+5] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_loop_v12922: /* k vars exps env useenv forms */
+s_loop_v12939: /* k vars exps env useenv forms */
   if ((isnull((r[1])))) {
     hreserve(hbsz(1+1), 6); /* 6 live regs */
     *--hp = r[0];  
@@ -11668,7 +11672,7 @@ gs_xform_2Dsyntax_2Drules: /* k tail env */
     r[4+4] = r[0];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v12887;
+    goto s_l_v12904;
   }
   } else {
     r[4+0] = obj_from_ktrap();
@@ -11678,7 +11682,7 @@ gs_xform_2Dsyntax_2Drules: /* k tail env */
     r[4+4] = r[0];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v12887;
+    goto s_l_v12904;
   }
 
 case 171: /* clo ek r */
@@ -11688,7 +11692,7 @@ case 171: /* clo ek r */
     r[1+3] = p[2];
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_l_v12887: /* ek r tail env k */
+s_l_v12904: /* ek r tail env k */
   if (bool_from_obj(r[1])) {
     r[5] = (cdr((r[2])));
     r[5] = (car((r[5])));
@@ -11723,7 +11727,7 @@ s_l_v12887: /* ek r tail env k */
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_l_v12895;
+    goto s_l_v12912;
   }
   }
 
@@ -11734,7 +11738,7 @@ case 172: /* clo ek r */
     r[1+3] = p[2];
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_l_v12895: /* ek r tail env k */
+s_l_v12912: /* ek r tail env k */
   if (bool_from_obj(r[1])) {
     r[5+0] = r[4];  
     r[5+1] = r[3];  
@@ -11754,7 +11758,7 @@ s_l_v12895: /* ek r tail env k */
     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+2] = (cx__231336);
     r[6+3] = r[5];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -11834,7 +11838,7 @@ gs_xform_2Dsyntax_2Dlength: /* 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__231353);
+    r[4+2] = (cx__231356);
     r[4+3] = r[3];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -11853,9 +11857,9 @@ gs_xform_2Dsyntax_2Derror: /* k tail env */
     r[3] = (hendblk(2+1));
     r[0] = r[3];  
     /* r[1] */    
-    goto s_loop_v12847;
+    goto s_loop_v12864;
 
-s_loop_v12847: /* k l */
+s_loop_v12864: /* k l */
   if ((ispair((r[1])))) {
     r[2] = (cdr((r[1])));
     hreserve(hbsz(2+1), 3); /* 3 live regs */
@@ -11865,7 +11869,7 @@ s_loop_v12847: /* k l */
     r[3] = (hendblk(2+1));
     r[0] = r[3];  
     r[1] = r[2];  
-    goto s_loop_v12847;
+    goto s_loop_v12864;
   } else {
     r[2+0] = r[0];  
     pc = objptr_from_obj(r[2+0])[0];
@@ -11948,7 +11952,7 @@ case 179: /* clo ek r */
     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+2] = (cx__231381);
     r[5+3] = r[4];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -11956,16 +11960,22 @@ case 179: /* clo ek r */
     goto jump;
   }
 
-case 180: /* clo k sexp env */
+case 180: /* xform-... k tail 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__231384);
-    r[3+3] = r[1];  
-    r += 3; /* shift reg wnd */
+gs_xform_2D_2E_2E_2E: /* k tail env */
+    { /* cons */ 
+    hreserve(hbsz(3), 3); /* 3 live regs */
+    *--hp = r[1];  
+    *--hp = (mksymbol(internsym("...")));
+    *--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__231389);
+    r[4+3] = r[3];  
+    r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
     rc = 4;
     goto jump;
@@ -12269,11 +12279,17 @@ case 191: /* clo ek r */
     r[1+2] = p[1]; }
     r += 1; /* shift reg. wnd */
     /* ek r k */
-    r[3+0] = r[2];  
-    pc = objptr_from_obj(r[3+0])[0];
-    r[3+1] = obj_from_ktrap();
-    r[3+2] = obj_from_bool((r[1]) == (cx_denotation_2Dof_2Ddefault_2Dellipsis));
-    r += 3; /* shift reg wnd */
+  if ((ispair((r[1])))) {
+    r[3] = (cdr((r[1])));
+    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("..."))));
+  } else {
+    r[3] = obj_from_bool(0);
+  }
+    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;
@@ -12330,7 +12346,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_v12734;
+    goto s_l_v12751;
   }
   } else {
   if ((isvector((r[1])))) {
@@ -12386,7 +12402,7 @@ case 194: /* clo ek r */
     r[1+3] = p[2];
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_l_v12734: /* ek r k l x */
+s_l_v12751: /* ek r k l x */
   if (bool_from_obj(r[1])) {
     { /* cons */ 
     hreserve(hbsz(3), 5); /* 5 live regs */
@@ -12541,7 +12557,7 @@ case 199: /* clo k use use-env */
     r[9+8] = r[7];  
     r += 9; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v12390;
+    goto s_loop_v12407;
 
 case 200: /* clo k rules */
     assert(rc == 3);
@@ -12554,7 +12570,7 @@ case 200: /* clo k rules */
     r[1+7] = p[6];
     r[1+8] = p[7]; }
     r += 1; /* shift reg. wnd */
-s_loop_v12390: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */
+s_loop_v12407: /* 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];  
@@ -12582,7 +12598,7 @@ s_loop_v12390: /* k rules use-env pat-literals use mac-env not-pat-literal? elli
     r[0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[9];  
-    r[2] = (cx__231815);
+    r[2] = (cx__231825);
     r[3] = r[4];  
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -12612,7 +12628,7 @@ s_loop_v12390: /* 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_v12392;
+    goto s_l_v12409;
   }
 
 case 201: /* clo ek . */
@@ -12630,7 +12646,7 @@ case 201: /* clo ek . */
     r[1+10] = p[9];
     r[1+11] = p[10]; }
     r += 1; /* shift reg. wnd */
-s_l_v12392: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */
+s_l_v12409: /* 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])));
@@ -12754,9 +12770,9 @@ case 203: /* clo ek r */
     r[0] = (r[12]);
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v12661;
+    goto s_loop_v12678;
 
-s_loop_v12661: /* k l mac-env */
+s_loop_v12678: /* k l mac-env */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -12768,7 +12784,7 @@ s_loop_v12661: /* k l mac-env */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v12661;
+    goto s_loop_v12678;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -13042,7 +13058,7 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite
     r[11+8] = r[1];  
     r += 11; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v12549;
+    goto s_l_v12566;
   }
   }
   }
@@ -13093,7 +13109,7 @@ case 213: /* clo ek r */
     r[1+7] = p[6];
     r[1+8] = p[7]; }
     r += 1; /* shift reg. wnd */
-s_l_v12549: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */
+s_l_v12566: /* 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];  
@@ -13196,7 +13212,7 @@ case 214: /* clo ek r */
     r[0] = r[8];  
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v12588;
+    goto s_loop_v12605;
   }
 
 case 215: /* clo k vals */
@@ -13285,7 +13301,7 @@ case 218: /* clo ek r */
     rc = 3;
     goto jump;
 
-s_loop_v12588: /* k l bindings */
+s_loop_v12605: /* k l bindings */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -13297,7 +13313,7 @@ s_loop_v12588: /* k l bindings */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v12588;
+    goto s_loop_v12605;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -13574,7 +13590,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_v12515;
+    goto s_l_v12532;
   }
   } else {
     { /* cons */ 
@@ -13618,7 +13634,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_v12485;
+    goto s_l_v12502;
   } else {
     r[0] = (r[10]);
     pc = objptr_from_obj(r[0])[0];
@@ -13635,7 +13651,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_v12515;
+    goto s_l_v12532;
   } else {
     hreserve(hbsz(8+1), 13); /* 13 live regs */
     *--hp = r[1];  
@@ -13666,7 +13682,7 @@ case 229: /* clo k condition */
     r[1+2] = p[1];
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_l_v12515: /* k condition return bindings */
+s_l_v12532: /* k condition return bindings */
   if (bool_from_obj(r[1])) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -13736,7 +13752,7 @@ case 232: /* clo ek . */
     r[1+5] = p[4];
     r[1+6] = p[5]; }
     r += 1; /* shift reg. wnd */
-s_l_v12485: /* ek . pat sexp match bindings k */
+s_l_v12502: /* ek . pat sexp match bindings k */
     hreserve(hbsz(4+1), 7); /* 7 live regs */
     *--hp = r[6];  
     *--hp = r[5];  
@@ -13846,7 +13862,7 @@ case 235: /* clo ek r */
     r[13+10] = (r[10]);
     r += 13; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v12405;
+    goto s_l_v12422;
   } else {
     r[0] = r[2];  
     pc = objptr_from_obj(r[0])[0];
@@ -13898,7 +13914,7 @@ case 236: /* clo ek r */
     r[1+9] = p[8];
     r[1+10] = p[9]; }
     r += 1; /* shift reg. wnd */
-s_l_v12405: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */
+s_l_v12422: /* 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];  
@@ -13933,7 +13949,7 @@ s_l_v12405: /* 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_v12407;
+    goto s_l_v12424;
   }
 
 case 237: /* clo ek . */
@@ -13950,35 +13966,35 @@ case 237: /* clo ek . */
     r[1+9] = p[8];
     r[1+10] = p[9]; }
     r += 1; /* shift reg. wnd */
-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]);
+s_l_v12424: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */
+    { const fixnum_t v14157_tail_2Dlen = fixnum_from_obj(r[10]);
     { /* list-tail */
-    obj l = r[8];   int c = (fxsub(fixnum_from_obj(r[9]), (v14140_tail_2Dlen)));
+    obj l = r[8];   int c = (fxsub(fixnum_from_obj(r[9]), (v14157_tail_2Dlen)));
     while (c-- > 0) l = cdr(l);
     r[11] = (l); }
-    { fixnum_t v14141_tmp;
+    { fixnum_t v14158_tmp;
     { /* length */
     int n; obj l = r[8];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14141_tmp = (n); }
+    v14158_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14141_tmp);
+    obj l, o = mknull(); int c = (v14158_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 = (v14140_tail_2Dlen);
+    obj l = (r[12]); int c = (v14157_tail_2Dlen);
     while (c-- > 0) l = cdr(l);
     r[12] = (l); }
-    { fixnum_t v14142_tmp;
+    { fixnum_t v14159_tmp;
     { /* length */
     int n; obj l = (r[12]);
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14142_tmp = (n); }
+    v14159_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14142_tmp);
+    obj l, o = mknull(); int c = (v14159_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);
@@ -14028,9 +14044,9 @@ case 238: /* clo ek r */
     r[1] = r[2];  
     r[2] = r[3];  
     r[3] = r[6];  
-    goto s_loop_v12428;
+    goto s_loop_v12445;
 
-s_loop_v12428: /* k l match pat */
+s_loop_v12445: /* k l match pat */
   if ((ispair((r[1])))) {
     r[4] = (cdr((r[1])));
     hreserve(hbsz(4+1), 5); /* 5 live regs */
@@ -14044,7 +14060,7 @@ s_loop_v12428: /* k l match pat */
     r[1] = r[4];  
     /* r[2] */    
     /* r[3] */    
-    goto s_loop_v12428;
+    goto s_loop_v12445;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -14098,9 +14114,9 @@ case 240: /* clo ek r */
     r[0] = r[5];  
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v12439;
+    goto s_loop_v12456;
 
-s_loop_v12439: /* k l f */
+s_loop_v12456: /* k l f */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -14112,7 +14128,7 @@ s_loop_v12439: /* k l f */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v12439;
+    goto s_loop_v12456;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -14298,7 +14314,7 @@ case 248: /* clo k msg args */
     r += 1; /* shift reg. wnd */
     /* k msg args */
     { /* string-append */
-    int *d = stringcat(stringdata((cx__231845)), stringdata((r[1])));
+    int *d = stringcat(stringdata((cx__231857)), stringdata((r[1])));
     r[3] = (hpushstr(3, d)); }
     /* r[0] */    
     r[1] = r[3];  
@@ -14309,8 +14325,8 @@ 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 v14139_x = char_from_obj(r[1]);
-  if ((((v14139_x) == ('%')) || (((v14139_x) == (34)) || (((v14139_x) == (92)) || (((v14139_x) < (' ')) || ((v14139_x) > ('~'))))))) {
+    { const char_t v14156_x = char_from_obj(r[1]);
+  if ((((v14156_x) == ('%')) || (((v14156_x) == (34)) || (((v14156_x) == (92)) || (((v14156_x) < (' ')) || ((v14156_x) > ('~'))))))) {
     (void)(oportputc(('%'), (r[2])));
     hreserve(hbsz(2+1), 3); /* 3 live regs */
     *--hp = r[2];  
@@ -14320,7 +14336,7 @@ gs_write_2Dserialized_2Dchar: /* k x port */
     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)(v14139_x));
+    r[4+2] = obj_from_fixnum((fixnum_t)(v14156_x));
     r[4+3] = obj_from_fixnum(+16);
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -14330,7 +14346,7 @@ 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((v14139_x), (r[2])));
+    r[2] = obj_from_void(oportputc((v14156_x), (r[2])));
     rreserve(MAX_HOSTREGS);
     rc = 3;
     goto jump;
@@ -14639,7 +14655,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__231880);
+    r[3+2] = (cx__231892);
     r[3+3] = r[1];  
     r += 3; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -14686,14 +14702,14 @@ case 259: /* clo ek r */
     r[0] = r[3];  
     r[1] = r[2];  
     r[2] = r[4];  
-    goto s_loop_v12295;
+    goto s_loop_v12312;
 
 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_v12295: /* k x port */
+s_loop_v12312: /* k x port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -14802,7 +14818,7 @@ case 264: /* clo ek r */
     r[5+3] = r[2];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v12266;
+    goto s_loop_v12283;
 
 case 265: /* clo k i */
     assert(rc == 3);
@@ -14810,7 +14826,7 @@ case 265: /* clo k i */
     r[1+2] = p[1];
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_loop_v12266: /* k i port x */
+s_loop_v12283: /* k i port x */
   if ((fixnum_from_obj(r[1]) == (vectorlen((r[3]))))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -14879,7 +14895,7 @@ case 267: /* clo ek r */
     r[5+3] = r[2];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v12249;
+    goto s_loop_v12266;
 
 case 268: /* clo k i */
     assert(rc == 3);
@@ -14887,7 +14903,7 @@ case 268: /* clo k i */
     r[1+2] = p[1];
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_loop_v12249: /* k i port x */
+s_loop_v12266: /* k i port x */
   if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -14947,7 +14963,7 @@ case 270: /* clo ek r */
     r[5+3] = r[2];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v12232;
+    goto s_loop_v12249;
 
 case 271: /* clo k i */
     assert(rc == 3);
@@ -14955,7 +14971,7 @@ case 271: /* clo k i */
     r[1+2] = p[1];
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_loop_v12232: /* k i port x */
+s_loop_v12249: /* k i port x */
   if ((fixnum_from_obj(r[1]) == (bytevectorlen((r[3]))))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -15015,7 +15031,7 @@ case 273: /* clo ek r */
     r[5+3] = r[2];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v12215;
+    goto s_loop_v12232;
 
 case 274: /* clo k i */
     assert(rc == 3);
@@ -15023,7 +15039,7 @@ case 274: /* clo k i */
     r[1+2] = p[1];
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_loop_v12215: /* k i port x */
+s_loop_v12232: /* k i port x */
   if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -15073,8 +15089,8 @@ case 276: /* write-serialized-arg k arg port */
 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 v14138_arg = fixnum_from_obj(r[1]);
-    r[3] = obj_from_bool(((+0) <= (v14138_arg)) && ((v14138_arg) <= (+9))); } 
+    { const fixnum_t v14155_arg = fixnum_from_obj(r[1]);
+    r[3] = obj_from_bool(((+0) <= (v14155_arg)) && ((v14155_arg) <= (+9))); } 
   } else {
     r[3] = obj_from_bool(0);
   }
@@ -15082,8 +15098,8 @@ gs_write_2Dserialized_2Darg: /* k arg port */
     r[3] = obj_from_bool(0);
   }
   if (bool_from_obj(r[3])) {
-    { 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]))); } 
+    { const char_t v14154_tmp = (*(unsigned char*)stringref((cx__231985), fixnum_from_obj(r[1])));
+    r[3] = obj_from_void(oportputc((v14154_tmp), (r[2]))); } 
     r[4+0] = r[0];  
     pc = objptr_from_obj(r[4+0])[0];
     r[4+1] = obj_from_ktrap();
@@ -15621,9 +15637,9 @@ case 290: /* clo k clauses */
     r[0] = r[4];  
     /* r[1] */    
     r[2] = r[3];  
-    goto s_loop_v12098;
+    goto s_loop_v12115;
 
-s_loop_v12098: /* k l f */
+s_loop_v12115: /* k l f */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -15635,7 +15651,7 @@ s_loop_v12098: /* k l f */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v12098;
+    goto s_loop_v12115;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -15959,7 +15975,7 @@ case 309: /* 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__231994);
+    r[3+2] = (cx__232006);
     r[3+3] = r[2];  
     r += 3; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -16455,9 +16471,9 @@ case 322: /* clo k clauses */
     r[0] = r[4];  
     /* r[1] */    
     r[2] = r[3];  
-    goto s_loop_v11881;
+    goto s_loop_v11898;
 
-s_loop_v11881: /* k l f */
+s_loop_v11898: /* k l f */
   if ((ispair((r[1])))) {
     r[3] = (cdr((r[1])));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
@@ -16469,7 +16485,7 @@ s_loop_v11881: /* k l f */
     r[0] = r[4];  
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v11881;
+    goto s_loop_v11898;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -16795,7 +16811,7 @@ case 341: /* 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__231994);
+    r[3+2] = (cx__232006);
     r[3+3] = r[2];  
     r += 3; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -17152,7 +17168,7 @@ case 343: /* clo k obj */
     r[6+4] = r[3];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v11738;
+    goto s_l_v11755;
   } else {
   if (((((r[1]) == obj_from_bool(0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
     r[5] = obj_from_void(oportputc(('f'), (r[2])));
@@ -17163,7 +17179,7 @@ case 343: /* clo k obj */
     r[6+4] = r[3];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v11738;
+    goto s_l_v11755;
   } 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])));
@@ -17174,7 +17190,7 @@ case 343: /* clo k obj */
     r[6+4] = r[3];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v11738;
+    goto s_l_v11755;
   } else {
     (void)(oportputc((39), (r[2])));
     r[0] = r[4];  
@@ -17193,7 +17209,7 @@ case 344: /* clo ek . */
     r[1+3] = p[2];
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_l_v11738: /* ek . k port k */
+s_l_v11755: /* ek . k port k */
   if (bool_from_obj(r[4])) {
     (void)(oportputc((']'), (r[3])));
     r[0] = r[2];  
@@ -17519,7 +17535,7 @@ case 354: /* clo k exps */
     r[9+7] = r[7];  
     r += 9; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v11664;
+    goto s_loop_v11681;
 
 case 355: /* clo k xl */
     assert(rc == 3);
@@ -17531,7 +17547,7 @@ case 355: /* clo k xl */
     r[1+6] = p[5];
     r[1+7] = p[6]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11664: /* k xl port g s f l k */
+s_loop_v11681: /* 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])));
@@ -17722,7 +17738,7 @@ case 360: /* clo ek . */
     rreserve(MAX_HOSTREGS);
     goto gs_codegen;
   } else {
-    r[10] = obj_from_bool(isequal((r[6]), (cx__232810)));
+    r[10] = obj_from_bool(isequal((r[6]), (cx__232822)));
   if (bool_from_obj(r[10])) {
     r[0] = r[7];  
     pc = objptr_from_obj(r[0])[0];
@@ -17922,13 +17938,13 @@ case 366: /* 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 v14136_tmp;
+    { fixnum_t v14153_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14136_tmp = (n); }
+    v14153_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14136_tmp);
+    obj l, o = mknull(); int c = (v14153_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);
@@ -17955,7 +17971,7 @@ case 366: /* clo ek r */
     r[15+5] = (r[12]);
     r += 15; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v11593;
+    goto s_loop_v11610;
 
 case 367: /* clo k free l */
     assert(rc == 4);
@@ -17964,7 +17980,7 @@ case 367: /* clo k free l */
     r[1+4] = p[2];
     r[1+5] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11593: /* k free l g f port */
+s_loop_v11610: /* k free l g f port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -18162,7 +18178,7 @@ case 371: /* clo ek . */
     r[12+4] = r[3];  
     r += 12; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v11568;
+    goto s_loop_v11585;
 
 case 372: /* clo k ids n */
     assert(rc == 4);
@@ -18170,7 +18186,7 @@ case 372: /* clo k ids n */
     r[1+3] = p[1];
     r[1+4] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11568: /* k ids n port r */
+s_loop_v11585: /* k ids n port r */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -18214,7 +18230,7 @@ s_loop_v11568: /* k ids n port r */
     r[7+5] = r[0];  
     r += 7; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v11570;
+    goto s_l_v11587;
   }
   }
 
@@ -18227,7 +18243,7 @@ case 373: /* clo ek . */
     r[1+4] = p[3];
     r[1+5] = p[4]; }
     r += 1; /* shift reg. wnd */
-s_l_v11570: /* ek . loop n ids k */
+s_l_v11587: /* ek . loop n ids k */
     r[0] = r[2];  
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[5];  
@@ -18369,13 +18385,13 @@ case 378: /* clo k clauses */
     r[1+7] = p[6]; }
     r += 1; /* shift reg. wnd */
     /* k clauses g s f l k port */
-    { fixnum_t v14135_tmp;
+    { fixnum_t v14152_tmp;
     { /* length */
     int n; obj l = r[1];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14135_tmp = (n); }
+    v14152_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14135_tmp);
+    obj l, o = mknull(); int c = (v14152_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);
@@ -18397,7 +18413,7 @@ case 378: /* clo k clauses */
     r[10+6] = r[7];  
     r += 10; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v11511;
+    goto s_loop_v11528;
 
 case 379: /* clo k clauses l */
     assert(rc == 4);
@@ -18407,7 +18423,7 @@ case 379: /* clo k clauses l */
     r[1+5] = p[3];
     r[1+6] = p[4]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11511: /* k clauses l g s f port */
+s_loop_v11528: /* k clauses l g s f port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -18525,14 +18541,14 @@ case 382: /* clo ek . */
     r[1] = r[2];  
     r[2] = obj_from_fixnum(+0);
     r[3] = r[5];  
-    goto s_loop_v11484;
+    goto s_loop_v11501;
 
 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_v11484: /* k clauses i port */
+s_loop_v11501: /* k clauses i port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -18902,7 +18918,7 @@ case 394: /* clo k kexp exp */
     /* k kexp exp g s f l port */
     r[8] = (car((r[2])));
     { /* memq */
-    obj x = (r[8]), l = (cx__232645);
+    obj x = (r[8]), l = (cx__232657);
     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])) {
@@ -19173,13 +19189,13 @@ case 401: /* clo ek r */
     *--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 v14134_tmp;
+    { fixnum_t v14151_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14134_tmp = (n); }
+    v14151_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14134_tmp);
+    obj l, o = mknull(); int c = (v14151_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);
@@ -19198,7 +19214,7 @@ case 401: /* clo ek r */
     /* r[4] */    
     /* r[5] */    
     r[6] = (r[10]);
-    goto s_loop_v11363;
+    goto s_loop_v11380;
   } else {
   if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
   if ((isnull((r[7])))) {
@@ -19219,19 +19235,19 @@ case 401: /* clo ek r */
     rc = 4;
     goto jump;
   } else {
-    { fixnum_t v14132_tmp;
+    { fixnum_t v14149_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14132_tmp = (n); }
-    r[13] = obj_from_fixnum(fxsub((v14132_tmp), (+1))); }
-    { fixnum_t v14133_tmp;
+    v14149_tmp = (n); }
+    r[13] = obj_from_fixnum(fxsub((v14149_tmp), (+1))); }
+    { fixnum_t v14150_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14133_tmp = (n); }
+    v14150_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14133_tmp);
+    obj l, o = mknull(); int c = (v14150_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);
@@ -19251,7 +19267,7 @@ case 401: /* clo ek r */
     /* r[4] */    
     /* r[5] */    
     r[6] = (r[10]);
-    goto s_loop_v11338;
+    goto s_loop_v11355;
   }
   } else {
   if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
@@ -19280,19 +19296,19 @@ case 401: /* clo ek r */
     rc = 4;
     goto jump;
   } else {
-    { fixnum_t v14130_tmp;
+    { fixnum_t v14147_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14130_tmp = (n); }
-    r[13] = obj_from_fixnum(fxsub((v14130_tmp), (+1))); }
-    { fixnum_t v14131_tmp;
+    v14147_tmp = (n); }
+    r[13] = obj_from_fixnum(fxsub((v14147_tmp), (+1))); }
+    { fixnum_t v14148_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14131_tmp = (n); }
+    v14148_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14131_tmp);
+    obj l, o = mknull(); int c = (v14148_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);
@@ -19312,23 +19328,23 @@ case 401: /* clo ek r */
     /* r[4] */    
     /* r[5] */    
     r[6] = (r[10]);
-    goto s_loop_v11302;
+    goto s_loop_v11319;
   }
   } else {
   if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
-    { fixnum_t v14128_tmp;
+    { fixnum_t v14145_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14128_tmp = (n); }
-    r[13] = obj_from_fixnum(fxsub((v14128_tmp), (+1))); }
-    { fixnum_t v14129_tmp;
+    v14145_tmp = (n); }
+    r[13] = obj_from_fixnum(fxsub((v14145_tmp), (+1))); }
+    { fixnum_t v14146_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14129_tmp = (n); }
+    v14146_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14129_tmp);
+    obj l, o = mknull(); int c = (v14146_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);
@@ -19359,19 +19375,19 @@ case 401: /* clo ek r */
     goto gs_codegen;
   } else {
   if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
-    { fixnum_t v14126_tmp;
+    { fixnum_t v14143_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14126_tmp = (n); }
-    r[13] = obj_from_fixnum(fxsub((v14126_tmp), (+1))); }
-    { fixnum_t v14127_tmp;
+    v14143_tmp = (n); }
+    r[13] = obj_from_fixnum(fxsub((v14143_tmp), (+1))); }
+    { fixnum_t v14144_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14127_tmp = (n); }
+    v14144_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14127_tmp);
+    obj l, o = mknull(); int c = (v14144_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);
@@ -19391,7 +19407,7 @@ case 401: /* clo ek r */
     /* r[4] */    
     /* r[5] */    
     r[6] = (r[10]);
-    goto s_loop_v11248;
+    goto s_loop_v11265;
   } else {
   if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
     hreserve(hbsz(3+1), 13); /* 13 live regs */
@@ -19528,13 +19544,13 @@ case 401: /* clo ek r */
   }
   } else {
   if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
-    { fixnum_t v14125_tmp;
+    { fixnum_t v14142_tmp;
     { /* length */
     int n; obj l = r[7];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14125_tmp = (n); }
+    v14142_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14125_tmp);
+    obj l, o = mknull(); int c = (v14142_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);
@@ -19554,12 +19570,12 @@ case 401: /* clo ek r */
     /* r[4] */    
     /* r[5] */    
     r[6] = (r[10]);
-    goto s_loop_v11170;
+    goto s_loop_v11187;
   } else {
     r[13+0] = (cx_c_2Derror);
     pc = objptr_from_obj(r[13+0])[0];
     r[13+1] = (r[12]);
-    r[13+2] = (cx__232338);
+    r[13+2] = (cx__232350);
     r[13+3] = r[1];  
     r += 13; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -19608,7 +19624,7 @@ case 403: /* clo k args l */
     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 */
+s_loop_v11380: /* k args l g s f port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -19720,7 +19736,7 @@ case 407: /* clo k args l */
     r[1+5] = p[3];
     r[1+6] = p[4]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11338: /* k args l g s f port */
+s_loop_v11355: /* k args l g s f port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -19806,11 +19822,11 @@ case 409: /* clo ek . */
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_loop_v11329;
+    goto s_loop_v11346;
 
-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]))) {
+s_loop_v11346: /* k i r port opc */
+    { const fixnum_t v14141_i = fixnum_from_obj(r[1]);
+  if (((v14141_i) >= fixnum_from_obj(r[4]))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
     r[1] = obj_from_ktrap();
@@ -19821,11 +19837,11 @@ s_loop_v11329: /* k i r port opc */
   } else {
     (void)(oportputs(stringchars((r[2])), (r[3])));
     /* r[0] */    
-    r[1] = obj_from_fixnum(fxadd((v14124_i), (+1)));
+    r[1] = obj_from_fixnum(fxadd((v14141_i), (+1)));
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_loop_v11329;
+    goto s_loop_v11346;
   } } 
 
 case 410: /* clo ek r */
@@ -19883,7 +19899,7 @@ case 412: /* clo k args l */
     r[1+5] = p[3];
     r[1+6] = p[4]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11302: /* k args l g s f port */
+s_loop_v11319: /* k args l g s f port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -19969,11 +19985,11 @@ case 414: /* clo ek . */
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_loop_v11293;
+    goto s_loop_v11310;
 
-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]))) {
+s_loop_v11310: /* k i r port opc */
+    { const fixnum_t v14140_i = fixnum_from_obj(r[1]);
+  if (((v14140_i) >= fixnum_from_obj(r[4]))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
     r[1] = obj_from_ktrap();
@@ -19984,11 +20000,11 @@ s_loop_v11293: /* k i r port opc */
   } else {
     (void)(oportputs(stringchars((r[2])), (r[3])));
     /* r[0] */    
-    r[1] = obj_from_fixnum(fxadd((v14123_i), (+1)));
+    r[1] = obj_from_fixnum(fxadd((v14140_i), (+1)));
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_loop_v11293;
+    goto s_loop_v11310;
   } } 
 
 case 415: /* clo ek . */
@@ -20030,7 +20046,7 @@ case 415: /* clo ek . */
     r[14+6] = (r[10]);
     r += 14; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v11274;
+    goto s_loop_v11291;
 
 case 416: /* clo k args l */
     assert(rc == 4);
@@ -20040,7 +20056,7 @@ case 416: /* clo k args l */
     r[1+5] = p[3];
     r[1+6] = p[4]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11274: /* k args l g s f port */
+s_loop_v11291: /* k args l g s f port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -20133,11 +20149,11 @@ case 418: /* clo ek . */
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_loop_v11265;
+    goto s_loop_v11282;
 
-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]))) {
+s_loop_v11282: /* k i r port opc */
+    { const fixnum_t v14139_i = fixnum_from_obj(r[1]);
+  if (((v14139_i) >= fixnum_from_obj(r[4]))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
     r[1] = obj_from_ktrap();
@@ -20146,14 +20162,14 @@ s_loop_v11265: /* 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)(((v14139_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((v14122_i), (+1)));
+    r[1] = obj_from_fixnum(fxadd((v14139_i), (+1)));
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_loop_v11265;
+    goto s_loop_v11282;
   } } 
 
 case 419: /* clo k args l */
@@ -20164,7 +20180,7 @@ case 419: /* clo k args l */
     r[1+5] = p[3];
     r[1+6] = p[4]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11248: /* k args l g s f port */
+s_loop_v11265: /* k args l g s f port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -20250,11 +20266,11 @@ case 421: /* clo ek . */
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_loop_v11239;
+    goto s_loop_v11256;
 
-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]))) {
+s_loop_v11256: /* k i r port opc */
+    { const fixnum_t v14138_i = fixnum_from_obj(r[1]);
+  if (((v14138_i) >= fixnum_from_obj(r[4]))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
     r[1] = obj_from_ktrap();
@@ -20265,11 +20281,11 @@ s_loop_v11239: /* k i r port opc */
   } else {
     (void)(oportputs(stringchars((r[2])), (r[3])));
     /* r[0] */    
-    r[1] = obj_from_fixnum(fxadd((v14121_i), (+1)));
+    r[1] = obj_from_fixnum(fxadd((v14138_i), (+1)));
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_loop_v11239;
+    goto s_loop_v11256;
   } } 
 
 case 422: /* clo ek . */
@@ -20509,7 +20525,7 @@ case 431: /* clo k args l */
     r[1+5] = p[3];
     r[1+6] = p[4]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11170: /* k args l g s f port */
+s_loop_v11187: /* k args l g s f port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -20612,19 +20628,19 @@ case 434: /* clo k exp args */
     r[9] = (car((r[9])));
     r[9] = obj_from_bool(islist((r[9])));
   if (bool_from_obj(r[9])) {
-    { fixnum_t v14120_tmp;
-    { fixnum_t v14119_tmp;
+    { fixnum_t v14137_tmp;
+    { fixnum_t v14136_tmp;
     { /* length */
     int n; obj l = r[2];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14120_tmp = (n); }
+    v14137_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)); } }
+    v14136_tmp = (n); }
+    r[9] = obj_from_bool((v14137_tmp) == (v14136_tmp)); } }
   } else {
     r[9] = obj_from_bool(0);
   }
@@ -20632,13 +20648,13 @@ case 434: /* clo k exp args */
     r[9] = obj_from_bool(0);
   }
   if (bool_from_obj(r[9])) {
-    { fixnum_t v14118_tmp;
+    { fixnum_t v14135_tmp;
     { /* length */
     int n; obj l = r[2];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14118_tmp = (n); }
+    v14135_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14118_tmp);
+    obj l, o = mknull(); int c = (v14135_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);
@@ -20665,16 +20681,16 @@ case 434: /* clo k exp args */
     r[11+6] = r[5];  
     r += 11; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v11139;
+    goto s_loop_v11156;
   } else {
   if (bool_from_obj(r[8])) {
-    { fixnum_t v14117_tmp;
+    { fixnum_t v14134_tmp;
     { /* length */
     int n; obj l = r[2];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14117_tmp = (n); }
+    v14134_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14117_tmp);
+    obj l, o = mknull(); int c = (v14134_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);
@@ -20697,17 +20713,17 @@ case 434: /* clo k exp args */
     r[11+7] = r[1];  
     r += 11; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v11071;
+    goto s_loop_v11088;
   } else {
     (void)(oportputc((36), (r[5])));
     (void)(oportputc(('{'), (r[5])));
-    { fixnum_t v14116_tmp;
+    { fixnum_t v14133_tmp;
     { /* length */
     int n; obj l = r[2];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14116_tmp = (n); }
+    v14133_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14116_tmp);
+    obj l, o = mknull(); int c = (v14133_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);
@@ -20741,7 +20757,7 @@ case 434: /* clo k exp args */
     r[12+7] = r[1];  
     r += 12; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v11046;
+    goto s_loop_v11063;
   }
   }
 
@@ -20753,7 +20769,7 @@ case 435: /* clo k args l */
     r[1+5] = p[3];
     r[1+6] = p[4]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11139: /* k args l g s f port */
+s_loop_v11156: /* k args l g s f port */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -20994,7 +21010,7 @@ case 441: /* clo ek r */
     r[13+4] = r[2];  
     r += 13; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v11106;
+    goto s_loop_v11123;
 
 case 442: /* clo k ids n */
     assert(rc == 4);
@@ -21002,7 +21018,7 @@ case 442: /* clo k ids n */
     r[1+3] = p[1];
     r[1+4] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11106: /* k ids n port r */
+s_loop_v11123: /* k ids n port r */
   if ((isnull((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -21046,7 +21062,7 @@ s_loop_v11106: /* k ids n port r */
     r[7+5] = r[0];  
     r += 7; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v11108;
+    goto s_l_v11125;
   }
   }
 
@@ -21059,7 +21075,7 @@ case 443: /* clo ek . */
     r[1+4] = p[3];
     r[1+5] = p[4]; }
     r += 1; /* shift reg. wnd */
-s_l_v11108: /* ek . loop n ids k */
+s_l_v11125: /* ek . loop n ids k */
     r[0] = r[2];  
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[5];  
@@ -21085,12 +21101,12 @@ case 444: /* clo ek . */
     r += 1; /* shift reg. wnd */
     /* ek . port args g r f r exp k k */
   if (bool_from_obj(r[10])) {
-    { fixnum_t v14115_tmp;
+    { fixnum_t v14132_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))); }
+    v14132_tmp = (n); }
+    r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14132_tmp))); }
     r[12+0] = r[9];  
     r[12+1] = r[8];  
     r[12+2] = r[7];  
@@ -21150,7 +21166,7 @@ case 446: /* clo k args l */
     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 */
+s_loop_v11088: /* k args l port g s f exp */
   if ((isnull((r[1])))) {
     r[8+0] = r[0];  
     r[8+1] = r[7];  
@@ -21269,7 +21285,7 @@ case 450: /* clo k args l */
     r[1+6] = p[4];
     r[1+7] = p[5]; }
     r += 1; /* shift reg. wnd */
-s_loop_v11046: /* k args l port g s f exp */
+s_loop_v11063: /* k args l port g s f exp */
   if ((isnull((r[1])))) {
     r[8+0] = r[0];  
     r[8+1] = r[7];  
@@ -21408,7 +21424,7 @@ case 455: /* 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__231994);
+    r[3+2] = (cx__232006);
     r[3+3] = r[2];  
     r += 3; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -21629,17 +21645,17 @@ gs_display_2Dcode: /* k cstr oport */
     r[3+4] = r[2];  
     r += 3; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v10945;
+    goto s_loop_v10962;
 
-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));
+s_loop_v10962: /* k i l cstr oport */
+    { const fixnum_t v14131_i = fixnum_from_obj(r[1]);
+  if (((fxsub(fixnum_from_obj(r[2]), (v14131_i))) <= (+70))) {
+    (void)(oportputcircular((cx__232965), (r[4]), 1));
     { /* substring */
-    int *d = substring(stringdata((r[3])), (v14114_i), fixnum_from_obj(r[2]));
+    int *d = substring(stringdata((r[3])), (v14131_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__232957), (r[4]), 1));
+    r[5] = obj_from_void(oportputcircular((cx__232969), (r[4]), 1));
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
     r[1] = obj_from_ktrap();
@@ -21648,18 +21664,18 @@ s_loop_v10945: /* k i l cstr oport */
     rc = 3;
     goto jump;
   } else {
-    (void)(oportputcircular((cx__232953), (r[4]), 1));
+    (void)(oportputcircular((cx__232965), (r[4]), 1));
     { /* substring */
-    int *d = substring(stringdata((r[3])), (v14114_i), (fxadd((v14114_i), (+70))));
+    int *d = substring(stringdata((r[3])), (v14131_i), (fxadd((v14131_i), (+70))));
     r[5] = (hpushstr(5, d)); }
     (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
-    (void)(oportputcircular((cx__232948), (r[4]), 1));
+    (void)(oportputcircular((cx__232960), (r[4]), 1));
     /* r[0] */    
-    r[1] = obj_from_fixnum(fxadd((v14114_i), (+70)));
+    r[1] = obj_from_fixnum(fxadd((v14131_i), (+70)));
     /* r[2] */    
     /* r[3] */    
     /* r[4] */    
-    goto s_loop_v10945;
+    goto s_loop_v10962;
   } } 
 
 case 467: /* process-syntax k id xval oport */
@@ -21667,9 +21683,9 @@ case 467: /* process-syntax k id xval oport */
     r += 1; /* shift reg. wnd */
     /* k id xval oport */
     (void)(oportputc('\n', (r[3])));
-    (void)(oportputcircular((cx__232982), (r[3]), 1));
+    (void)(oportputcircular((cx__232994), (r[3]), 1));
     (void)(oportputcircular((r[1]), (r[3]), 1));
-    (void)(oportputcircular((cx__232981), (r[3]), 1));
+    (void)(oportputcircular((cx__232993), (r[3]), 1));
     { /* open-output-string */
     r[4] = (mkoport_string(4, newcb())); }
     hreserve(hbsz(3+1), 5); /* 5 live regs */
@@ -21729,12 +21745,12 @@ case 470: /* process-alias k id oldid oport */
     r += 1; /* shift reg. wnd */
     /* k id oldid oport */
     (void)(oportputc('\n', (r[3])));
-    (void)(oportputcircular((cx__232992), (r[3]), 1));
+    (void)(oportputcircular((cx__233004), (r[3]), 1));
     (void)(oportputcircular((r[1]), (r[3]), 1));
-    (void)(oportputcircular((cx__232957), (r[3]), 1));
-    (void)(oportputcircular((cx__232991), (r[3]), 1));
+    (void)(oportputcircular((cx__232969), (r[3]), 1));
+    (void)(oportputcircular((cx__233003), (r[3]), 1));
     (void)(oportputcircular((r[2]), (r[3]), 1));
-    r[4] = obj_from_void(oportputcircular((cx__232981), (r[3]), 1));
+    r[4] = obj_from_void(oportputcircular((cx__232993), (r[3]), 1));
     r[5+0] = r[0];  
     pc = objptr_from_obj(r[5+0])[0];
     r[5+1] = obj_from_ktrap();
@@ -21813,7 +21829,7 @@ case 473: /* 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__233003), (r[3]), 1));
+    (void)(oportputcircular((cx__233015), (r[3]), 1));
     hreserve(hbsz(2+1), 7); /* 7 live regs */
     *--hp = r[3];  
     *--hp = r[2];  
@@ -21914,32 +21930,32 @@ case 477: /* 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 v14109_len;
+    { fixnum_t v14126_len;
     r[9] = (objptr_from_obj(r[6])[0]);
-    v14109_len = (stringlen((r[9])));
+    v14126_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 (((v14109_len) > (+4))) {
-    { char_t v14113_tmp;
+  if (((v14126_len) > (+4))) {
+    { char_t v14130_tmp;
     r[9] = (objptr_from_obj(r[6])[0]);
-    v14113_tmp = (*(unsigned char*)stringref((r[9]), (+0)));
-    r[9] = obj_from_bool((v14113_tmp) == ('&')); }
+    v14130_tmp = (*(unsigned char*)stringref((r[9]), (+0)));
+    r[9] = obj_from_bool((v14130_tmp) == ('&')); }
   if (bool_from_obj(r[9])) {
-    { char_t v14112_tmp;
+    { char_t v14129_tmp;
     r[9] = (objptr_from_obj(r[6])[0]);
-    v14112_tmp = (*(unsigned char*)stringref((r[9]), (+1)));
-    r[9] = obj_from_bool((v14112_tmp) == ('0')); }
+    v14129_tmp = (*(unsigned char*)stringref((r[9]), (+1)));
+    r[9] = obj_from_bool((v14129_tmp) == ('0')); }
   if (bool_from_obj(r[9])) {
-    { char_t v14111_tmp;
+    { char_t v14128_tmp;
     r[9] = (objptr_from_obj(r[6])[0]);
-    v14111_tmp = (*(unsigned char*)stringref((r[9]), (+2)));
-    r[9] = obj_from_bool((v14111_tmp) == ('{')); }
+    v14128_tmp = (*(unsigned char*)stringref((r[9]), (+2)));
+    r[9] = obj_from_bool((v14128_tmp) == ('{')); }
   if (bool_from_obj(r[9])) {
-    { char_t v14110_tmp;
+    { char_t v14127_tmp;
     r[9] = (objptr_from_obj(r[6])[0]);
-    v14110_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14109_len), (+1)))));
-    r[9] = obj_from_bool((v14110_tmp) == ('}')); }
+    v14127_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14126_len), (+1)))));
+    r[9] = obj_from_bool((v14127_tmp) == ('}')); }
   } else {
     r[9] = obj_from_bool(0);
   }
@@ -21957,9 +21973,9 @@ case 477: /* clo ek . */
   }
   if (bool_from_obj(r[9])) {
     (void)(oportputc('\n', (r[4])));
-    (void)(oportputcircular((cx__233026), (r[4]), 1));
+    (void)(oportputcircular((cx__233038), (r[4]), 1));
     (void)(oportputcircular((r[3]), (r[4]), 1));
-    (void)(oportputcircular((cx__232981), (r[4]), 1));
+    (void)(oportputcircular((cx__232993), (r[4]), 1));
     hreserve(hbsz(2+1), 9); /* 9 live regs */
     *--hp = r[4];  
     *--hp = r[2];  
@@ -21967,7 +21983,7 @@ case 477: /* clo ek . */
     r[9] = (hendblk(2+1));
     r[10] = (objptr_from_obj(r[6])[0]);
     { /* substring */
-    int *d = substring(stringdata((r[10])), (+3), (fxsub((v14109_len), (+1))));
+    int *d = substring(stringdata((r[10])), (+3), (fxsub((v14126_len), (+1))));
     r[10] = (hpushstr(11, d)); }
     r[0] = r[9];  
     r[1] = (r[10]);
@@ -22074,7 +22090,7 @@ case 480: /* clo ek . */
     r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
     (void)(objptr_from_obj(r[4])[0] = (r[6]));
     (void)(oportputc('\n', (r[3])));
-    (void)(oportputcircular((cx__233003), (r[3]), 1));
+    (void)(oportputcircular((cx__233015), (r[3]), 1));
     hreserve(hbsz(2+1), 7); /* 7 live regs */
     *--hp = r[3];  
     *--hp = r[2];  
@@ -22121,7 +22137,7 @@ 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__233087))));
+    r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233099))));
     hreserve(hbsz(1+1), 4); /* 4 live regs */
     *--hp = r[0];  
     *--hp = obj_from_case(483);
@@ -22133,12 +22149,12 @@ gs_scan_2Dtop_2Dform: /* k x */
     r[6+2] = r[0];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v10801;
+    goto s_l_v10818;
   } else {
     r[5+0] = (cx_file_2Derror);
     pc = objptr_from_obj(r[5+0])[0];
     r[5+1] = r[4];  
-    r[5+2] = (cx__233091);
+    r[5+2] = (cx__233103);
     r[5+3] = r[2];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -22178,7 +22194,7 @@ case 483: /* clo ek r */
     { obj* p = objptr_from_obj(r[0]);
     r[1+2] = p[1]; }
     r += 1; /* shift reg. wnd */
-s_l_v10801: /* ek r k */
+s_l_v10818: /* ek r k */
     hreserve(hbsz(2+1), 3); /* 3 live regs */
     *--hp = r[2];  
     *--hp = r[1];  
@@ -22209,14 +22225,14 @@ case 484: /* clo ek r */
     r[0] = r[4];  
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v10810;
+    goto s_loop_v10827;
 
 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_v10810: /* k x r */
+s_loop_v10827: /* k x r */
   if ((iseof((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -22307,7 +22323,7 @@ case 489: /* clo ek r */
     r[4] = (cdr((r[2])));
     r[0] = r[3];  
     r[1] = r[4];  
-    goto s_loop_v10785;
+    goto s_loop_v10802;
   } else {
   if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
     hreserve(hbsz(2+1), 4); /* 4 live regs */
@@ -22356,7 +22372,7 @@ case 489: /* clo ek r */
 case 490: /* clo k l */
     assert(rc == 3);
     r += 1; /* shift reg. wnd */
-s_loop_v10785: /* k l */
+s_loop_v10802: /* k l */
   if ((ispair((r[1])))) {
     hreserve(hbsz(0+1), 2); /* 2 live regs */
     *--hp = obj_from_case(490);
@@ -22462,7 +22478,7 @@ 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__233087))));
+    r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233099))));
     hreserve(hbsz(1+1), 5); /* 5 live regs */
     *--hp = r[0];  
     *--hp = obj_from_case(496);
@@ -22474,12 +22490,12 @@ gs_process_2Dtop_2Dform: /* k x oport */
     r[7+2] = r[0];  
     r += 7; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v10723;
+    goto s_l_v10740;
   } else {
     r[0] = (cx_file_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[5];  
-    r[2] = (cx__233091);
+    r[2] = (cx__233103);
     /* r[3] */    
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -22525,7 +22541,7 @@ case 496: /* clo ek r */
     { obj* p = objptr_from_obj(r[0]);
     r[1+2] = p[1]; }
     r += 1; /* shift reg. wnd */
-s_l_v10723: /* ek r k */
+s_l_v10740: /* ek r k */
     hreserve(hbsz(2+1), 3); /* 3 live regs */
     *--hp = r[2];  
     *--hp = r[1];  
@@ -22556,14 +22572,14 @@ case 497: /* clo ek r */
     r[0] = r[4];  
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v10732;
+    goto s_loop_v10749;
 
 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_v10732: /* k x r */
+s_loop_v10749: /* k x r */
   if ((iseof((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -22656,7 +22672,7 @@ case 502: /* clo ek r */
     r[0] = r[4];  
     r[1] = r[5];  
     /* r[2] */    
-    goto s_loop_v10707;
+    goto s_loop_v10724;
   } else {
   if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
     hreserve(hbsz(3+1), 5); /* 5 live regs */
@@ -22730,7 +22746,7 @@ case 503: /* clo k x* */
     { obj* p = objptr_from_obj(r[0]);
     r[1+2] = p[1]; }
     r += 1; /* shift reg. wnd */
-s_loop_v10707: /* k x* oport */
+s_loop_v10724: /* k x* oport */
   if ((ispair((r[1])))) {
     hreserve(hbsz(1+1), 3); /* 3 live regs */
     *--hp = r[2];  
@@ -22830,12 +22846,12 @@ case 506: /* clo ek r */
     r[7] = (cdr((r[7])));
     r[7] = (car((r[7])));
     (void)(oportputc('\n', (r[2])));
-    (void)(oportputcircular((cx__232992), (r[2]), 1));
+    (void)(oportputcircular((cx__233004), (r[2]), 1));
     (void)(oportputcircular((r[6]), (r[2]), 1));
-    (void)(oportputcircular((cx__232957), (r[2]), 1));
-    (void)(oportputcircular((cx__232991), (r[2]), 1));
+    (void)(oportputcircular((cx__232969), (r[2]), 1));
+    (void)(oportputcircular((cx__233003), (r[2]), 1));
     (void)(oportputcircular((r[7]), (r[2]), 1));
-    r[6] = obj_from_void(oportputcircular((cx__232981), (r[2]), 1));
+    r[6] = obj_from_void(oportputcircular((cx__232993), (r[2]), 1));
     r[0] = r[3];  
     pc = objptr_from_obj(r[0])[0];
     r[1] = obj_from_ktrap();
@@ -22850,9 +22866,9 @@ case 506: /* clo ek r */
     r[7] = (cdr((r[7])));
     r[7] = (car((r[7])));
     (void)(oportputc('\n', (r[2])));
-    (void)(oportputcircular((cx__232982), (r[2]), 1));
+    (void)(oportputcircular((cx__232994), (r[2]), 1));
     (void)(oportputcircular((r[6]), (r[2]), 1));
-    (void)(oportputcircular((cx__232981), (r[2]), 1));
+    (void)(oportputcircular((cx__232993), (r[2]), 1));
     { /* open-output-string */
     r[8] = (mkoport_string(8, newcb())); }
     hreserve(hbsz(3+1), 9); /* 9 live regs */
@@ -23013,7 +23029,7 @@ case 513: /* 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__233003), (r[3]), 1));
+    (void)(oportputcircular((cx__233015), (r[3]), 1));
     hreserve(hbsz(2+1), 7); /* 7 live regs */
     *--hp = r[3];  
     *--hp = r[2];  
@@ -23112,7 +23128,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__233003), (r[3]), 1));
+    (void)(oportputcircular((cx__233015), (r[3]), 1));
     hreserve(hbsz(2+1), 7); /* 7 live regs */
     *--hp = r[3];  
     *--hp = r[2];  
@@ -23162,13 +23178,13 @@ case 520: /* clo ek r */
     r[1+2] = p[1]; }
     r += 1; /* shift reg. wnd */
     /* ek r k */
-    { fixnum_t v14108_tmp;
+    { fixnum_t v14125_tmp;
     { /* length */
     int n; obj l = r[1];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14108_tmp = (n); }
+    v14125_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14108_tmp);
+    obj l, o = mknull(); int c = (v14125_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);
@@ -23177,9 +23193,9 @@ case 520: /* clo ek r */
     r[0] = r[2];  
     r[1] = r[3];  
     r[2] = (mknull());
-    goto s_loop_v10604;
+    goto s_loop_v10621;
 
-s_loop_v10604: /* k l r */
+s_loop_v10621: /* k l r */
   if ((isnull((r[1])))) {
     r[3+0] = (cx_list_2D_3Estring);
     pc = objptr_from_obj(r[3+0])[0];
@@ -23191,7 +23207,7 @@ s_loop_v10604: /* k l r */
     goto jump;
   } else {
     r[3] = (car((r[1])));
-    r[3] = (ismemv((r[3]), (cx__233212)));
+    r[3] = (ismemv((r[3]), (cx__233224)));
   if (bool_from_obj(r[3])) {
     r[3+0] = (cx_list_2D_3Estring);
     pc = objptr_from_obj(r[3+0])[0];
@@ -23213,7 +23229,7 @@ s_loop_v10604: /* k l r */
     /* r[0] */    
     r[1] = r[3];  
     r[2] = r[4];  
-    goto s_loop_v10604;
+    goto s_loop_v10621;
   }
   }
 
@@ -23242,13 +23258,13 @@ case 522: /* clo ek r */
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
     /* ek r filename k */
-    { fixnum_t v14106_tmp;
+    { fixnum_t v14123_tmp;
     { /* length */
     int n; obj l = r[1];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14106_tmp = (n); }
+    v14123_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14106_tmp);
+    obj l, o = mknull(); int c = (v14123_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);
@@ -23257,13 +23273,13 @@ case 522: /* clo ek r */
     r[5] = (ismemv(obj_from_char('.'), (r[4])));
   if (bool_from_obj(r[5])) {
     r[6] = (cdr((r[5])));
-    { fixnum_t v14107_tmp;
+    { fixnum_t v14124_tmp;
     { /* length */
     int n; obj l = r[6];  
     for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
-    v14107_tmp = (n); }
+    v14124_tmp = (n); }
     { /* reverse */
-    obj l, o = mknull(); int c = (v14107_tmp);
+    obj l, o = mknull(); int c = (v14124_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);
@@ -23341,7 +23357,7 @@ case 526: /* 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__233087))));
+    r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233099))));
     hreserve(hbsz(6+1), 8); /* 8 live regs */
     *--hp = r[5];  
     *--hp = r[1];  
@@ -23363,12 +23379,12 @@ case 526: /* clo ek r */
     r[10+7] = r[5];  
     r += 10; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v10528;
+    goto s_l_v10545;
   } else {
     r[0] = (cx_file_2Derror);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[8];  
-    r[2] = (cx__233091);
+    r[2] = (cx__233103);
     r[3] = r[6];  
     rreserve(MAX_HOSTREGS);
     rc = 4;
@@ -23385,13 +23401,13 @@ case 527: /* clo ek r */
     r[1+6] = p[5];
     r[1+7] = p[6]; }
     r += 1; /* shift reg. wnd */
-s_l_v10528: /* ek r fname k oport mname r iport */
+s_l_v10545: /* 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__233260), (r[4]), 1));
+    (void)(oportputcircular((cx__233272), (r[4]), 1));
     r[8] = (objptr_from_obj(r[5])[0]);
     (void)(oportputcircular((r[8]), (r[4]), 1));
-    (void)(oportputcircular((cx__233259), (r[4]), 1));
+    (void)(oportputcircular((cx__233271), (r[4]), 1));
     hreserve(hbsz(4+1), 8); /* 8 live regs */
     *--hp = r[4];  
     *--hp = r[5];  
@@ -23413,13 +23429,13 @@ case 528: /* clo ek r */
     r += 1; /* shift reg. wnd */
     /* ek r iport k mname oport */
     (void)(oportputcircular((r[1]), (r[5]), 1));
-    (void)(oportputcircular((cx__233258), (r[5]), 1));
+    (void)(oportputcircular((cx__233270), (r[5]), 1));
     (void)(oportputc('\n', (r[5])));
     (void)(oportputc('\n', (r[5])));
-    (void)(oportputcircular((cx__233257), (r[5]), 1));
+    (void)(oportputcircular((cx__233269), (r[5]), 1));
     r[6] = (objptr_from_obj(r[4])[0]);
     (void)(oportputcircular((r[6]), (r[5]), 1));
-    (void)(oportputcircular((cx__233256), (r[5]), 1));
+    (void)(oportputcircular((cx__233268), (r[5]), 1));
     (void)(oportputc('\n', (r[5])));
     hreserve(hbsz(3+1), 6); /* 6 live regs */
     *--hp = r[5];  
@@ -23456,7 +23472,7 @@ case 529: /* clo ek r */
     r[6+3] = r[2];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_loop_v10539;
+    goto s_loop_v10556;
 
 case 530: /* clo k x */
     assert(rc == 3);
@@ -23464,7 +23480,7 @@ case 530: /* clo k x */
     r[1+2] = p[1];
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_loop_v10539: /* k x oport iport */
+s_loop_v10556: /* k x oport iport */
   if ((iseof((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -23539,7 +23555,7 @@ case 533: /* clo ek . */
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
     /* ek . iport k oport */
-    (void)(oportputcircular((cx__233248), (r[4]), 1));
+    (void)(oportputcircular((cx__233260), (r[4]), 1));
     r[0] = (cx_close_2Dinput_2Dport);
     pc = objptr_from_obj(r[0])[0];
     r[1] = r[3];  
@@ -23614,11 +23630,11 @@ case 537: /* clo ek . */
     r[2] = obj_from_void(0); /* ignored */
     r += 1; /* shift reg. wnd */
     /* ek . */
-    cx_test1 = (cx__233287);
-    cx_test2 = (cx__233557);
-    cx_test3 = (cx__233759);
-    cx_test4 = (cx__234161);
-    cx_test5 = (cx__234291);
+    cx_test1 = (cx__233299);
+    cx_test2 = (cx__233569);
+    cx_test3 = (cx__233771);
+    cx_test4 = (cx__234173);
+    cx_test5 = (cx__234303);
     cx__2Averbose_2A = obj_from_bool(0);
     cx__2Areset_2A = obj_from_bool(0);
     { static obj c[] = { obj_from_case(538) }; cx_error_2A = (obj)c; }
@@ -23654,7 +23670,7 @@ gs_error_2A: /* k msg args */
     r[0] = r[4];  
     r[1] = r[2];  
     r[2] = r[3];  
-    goto s_loop_v10496;
+    goto s_loop_v10513;
   } else {
     { /* cons */ 
     hreserve(hbsz(3), 3); /* 3 live regs */
@@ -23673,7 +23689,7 @@ gs_error_2A: /* k msg args */
     goto jump;
   }
 
-s_loop_v10496: /* k l p */
+s_loop_v10513: /* k l p */
   if ((ispair((r[1])))) {
     r[3] = (car((r[1])));
     (void)(oportputcircular((r[3]), (r[2]), 0));
@@ -23682,7 +23698,7 @@ s_loop_v10496: /* k l p */
     /* r[0] */    
     r[1] = r[3];  
     /* r[2] */    
-    goto s_loop_v10496;
+    goto s_loop_v10513;
   } else {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -23717,7 +23733,7 @@ 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__234724), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
+    (void)(oportputcircular((cx__234736), (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];  
@@ -23809,23 +23825,23 @@ case 545: /* clo ek r */
     /* ek r k start */
     (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
     (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
-    (void)(oportputcircular((cx__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());
+    (void)(oportputcircular((cx__234735), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
+    { flonum_t v14121_b;
+    { flonum_t v14120_a;
+    { const flonum_t v14119_b = (CLOCKS_PER_SEC);
+    { const flonum_t v14117_a = (clock());
     r[4] = (objptr_from_obj(r[3])[0]);
   if ((is_fixnum_obj(r[4]))) {
-    { const flonum_t v14101_tmp = ((flonum_t)fixnum_from_obj(r[4]));
-    v14103_a = ((v14100_a) - (v14101_tmp)); } 
+    { const flonum_t v14118_tmp = ((flonum_t)fixnum_from_obj(r[4]));
+    v14120_a = ((v14117_a) - (v14118_tmp)); } 
   } else {
-    v14103_a = ((v14100_a) - flonum_from_obj(r[4]));
+    v14120_a = ((v14117_a) - flonum_from_obj(r[4]));
   } } 
-    v14104_b = ((v14103_a) / (v14102_b)); }  }
-    { const flonum_t v14105_tmp = ((flonum_t)(+1000));
-    r[4] = obj_from_flonum(4, (v14105_tmp) * (v14104_b)); }  }
+    v14121_b = ((v14120_a) / (v14119_b)); }  }
+    { const flonum_t v14122_tmp = ((flonum_t)(+1000));
+    r[4] = obj_from_flonum(4, (v14122_tmp) * (v14121_b)); }  }
     (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
-    (void)(oportputcircular((cx__234699), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
+    (void)(oportputcircular((cx__234711), (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];
@@ -23861,7 +23877,7 @@ case 547: /* clo ek r */
     r += 1; /* shift reg. wnd */
     /* ek r k */
   if (bool_from_obj(cx__2Averbose_2A)) {
-    (void)(oportputcircular((cx__234796), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
+    (void)(oportputcircular((cx__234808), (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)));
@@ -23879,12 +23895,12 @@ case 547: /* clo ek r */
     r[4+3] = r[1];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v10417;
+    goto s_l_v10434;
   } else {
     r[4+0] = (cx_x_2Derror);
     pc = objptr_from_obj(r[4+0])[0];
     r[4+1] = r[3];  
-    r[4+2] = (cx__234794);
+    r[4+2] = (cx__234806);
     r[4+3] = r[1];  
     r += 4; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -23899,7 +23915,7 @@ case 548: /* clo ek . */
     r[1+2] = p[1];
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_l_v10417: /* ek . k r */
+s_l_v10434: /* ek . k r */
     r[4] = (car((r[3])));
     r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("define"))));
   if (bool_from_obj(r[4])) {
@@ -23907,7 +23923,7 @@ s_l_v10417: /* ek . k r */
   } else {
   }
   if (bool_from_obj(cx__2Averbose_2A)) {
-    (void)(oportputcircular((cx__234787), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
+    (void)(oportputcircular((cx__234799), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
     (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
   } else {
   }
@@ -23969,7 +23985,7 @@ case 550: /* 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__234780), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
+    (void)(oportputcircular((cx__234792), (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]));
@@ -24021,23 +24037,23 @@ case 552: /* clo ek r */
     (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
   }
   if (bool_from_obj(cx__2Averbose_2A)) {
-    (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());
+    (void)(oportputcircular((cx__234735), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
+    { flonum_t v14115_b;
+    { flonum_t v14114_a;
+    { const flonum_t v14113_b = (CLOCKS_PER_SEC);
+    { const flonum_t v14111_a = (clock());
     r[4] = (objptr_from_obj(r[3])[0]);
   if ((is_fixnum_obj(r[4]))) {
-    { const flonum_t v14095_tmp = ((flonum_t)fixnum_from_obj(r[4]));
-    v14097_a = ((v14094_a) - (v14095_tmp)); } 
+    { const flonum_t v14112_tmp = ((flonum_t)fixnum_from_obj(r[4]));
+    v14114_a = ((v14111_a) - (v14112_tmp)); } 
   } else {
-    v14097_a = ((v14094_a) - flonum_from_obj(r[4]));
+    v14114_a = ((v14111_a) - flonum_from_obj(r[4]));
   } } 
-    v14098_b = ((v14097_a) / (v14096_b)); }  }
-    { const flonum_t v14099_tmp = ((flonum_t)(+1000));
-    r[4] = obj_from_flonum(4, (v14099_tmp) * (v14098_b)); }  }
+    v14115_b = ((v14114_a) / (v14113_b)); }  }
+    { const flonum_t v14116_tmp = ((flonum_t)(+1000));
+    r[4] = obj_from_flonum(4, (v14116_tmp) * (v14115_b)); }  }
     (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
-    (void)(oportputcircular((cx__234699), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
+    (void)(oportputcircular((cx__234711), (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);
@@ -24070,7 +24086,7 @@ 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__233087))));
+    r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233099))));
     hreserve(hbsz(1+1), 4); /* 4 live regs */
     *--hp = r[0];  
     *--hp = obj_from_case(554);
@@ -24082,12 +24098,12 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */
     r[6+2] = r[0];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v10397;
+    goto s_l_v10414;
   } else {
     r[5+0] = (cx_file_2Derror);
     pc = objptr_from_obj(r[5+0])[0];
     r[5+1] = r[4];  
-    r[5+2] = (cx__233091);
+    r[5+2] = (cx__233103);
     r[5+3] = r[2];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -24122,7 +24138,7 @@ case 554: /* clo ek r */
     { obj* p = objptr_from_obj(r[0]);
     r[1+2] = p[1]; }
     r += 1; /* shift reg. wnd */
-s_l_v10397: /* ek r k */
+s_l_v10414: /* ek r k */
     hreserve(hbsz(2+1), 3); /* 3 live regs */
     *--hp = r[2];  
     *--hp = r[1];  
@@ -24159,7 +24175,7 @@ case 556: /* clo ek r */
     r[4] = (cdr((r[2])));
     r[0] = r[3];  
     r[1] = r[4];  
-    goto s_loop_v10381;
+    goto s_loop_v10398;
   } else {
   if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
     hreserve(hbsz(2+1), 4); /* 4 live regs */
@@ -24204,7 +24220,7 @@ case 556: /* clo ek r */
 case 557: /* clo k x* */
     assert(rc == 3);
     r += 1; /* shift reg. wnd */
-s_loop_v10381: /* k x* */
+s_loop_v10398: /* k x* */
   if ((ispair((r[1])))) {
     hreserve(hbsz(0+1), 2); /* 2 live regs */
     *--hp = obj_from_case(557);
@@ -24294,7 +24310,7 @@ 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__234852), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0));
+    (void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__234864), (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];  
@@ -24328,14 +24344,14 @@ case 564: /* clo ek r */
     r[0] = r[3];  
     /* r[1] */    
     /* r[2] */    
-    goto s_loop_v10328;
+    goto s_loop_v10345;
 
 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_v10328: /* k x iport */
+s_loop_v10345: /* k x iport */
   if ((iseof((r[1])))) {
     /* r[0] */    
     pc = objptr_from_obj(r[0])[0];
@@ -24401,7 +24417,7 @@ 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__233087))));
+    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233099))));
     hreserve(hbsz(2+1), 4); /* 4 live regs */
     *--hp = r[2];  
     *--hp = r[0];  
@@ -24415,12 +24431,12 @@ gs_repl_2Dfile: /* k fname */
     r[6+3] = r[2];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v10309;
+    goto s_l_v10326;
   } else {
     r[5+0] = (cx_file_2Derror);
     pc = objptr_from_obj(r[5+0])[0];
     r[5+1] = r[4];  
-    r[5+2] = (cx__233091);
+    r[5+2] = (cx__233103);
     r[5+3] = r[1];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -24434,7 +24450,7 @@ case 569: /* clo ek r */
     r[1+2] = p[1];
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
-s_l_v10309: /* ek r k iport */
+s_l_v10326: /* ek r k iport */
     (void)(objptr_from_obj(r[3])[0] = (r[1]));
     hreserve(hbsz(2+1), 4); /* 4 live regs */
     *--hp = r[2];  
@@ -24468,7 +24484,7 @@ 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__233087))));
+    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233099))));
     hreserve(hbsz(3+1), 4); /* 4 live regs */
     *--hp = r[2];  
     *--hp = r[0];  
@@ -24484,12 +24500,12 @@ gs_benchmark_2Dfile: /* k fname */
     r[6+4] = r[2];  
     r += 6; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
-    goto s_l_v10273;
+    goto s_l_v10290;
   } else {
     r[5+0] = (cx_file_2Derror);
     pc = objptr_from_obj(r[5+0])[0];
     r[5+1] = r[4];  
-    r[5+2] = (cx__233091);
+    r[5+2] = (cx__233103);
     r[5+3] = r[1];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -24504,7 +24520,7 @@ case 572: /* clo ek r */
     r[1+3] = p[2];
     r[1+4] = p[3]; }
     r += 1; /* shift reg. wnd */
-s_l_v10273: /* ek r fname k iport */
+s_l_v10290: /* 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];  
@@ -24556,7 +24572,7 @@ case 574: /* clo ek . */
     *--hp = obj_from_case(575);
     r[4] = (hendblk(2+1));
     r[0] = r[4];  
-    r[1] = (cx__234883);
+    r[1] = (cx__234895);
     goto gs_repl_2Deval_2Dtop_2Dform;
 
 case 575: /* clo ek . */
@@ -24582,7 +24598,7 @@ case 576: /* clo ek r */
     r[1+3] = p[2]; }
     r += 1; /* shift reg. wnd */
     /* ek r fname k */
-    r[4] = (cxs_syntax_2Dmatch_3F((cx__234889), (r[1])));
+    r[4] = (cxs_syntax_2Dmatch_3F((cx__234901), (r[1])));
   if (bool_from_obj(r[4])) {
     r[0] = r[3];  
     pc = objptr_from_obj(r[0])[0];
@@ -24595,7 +24611,7 @@ case 576: /* 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__234888);
+    r[5+2] = (cx__234900);
     r[5+3] = r[2];  
     r += 5; /* shift reg wnd */
     rreserve(MAX_HOSTREGS);
@@ -24636,32 +24652,32 @@ case 579: /* clo ek r */
     r += 1; /* shift reg. wnd */
     /* ek r k */
     r[3] = (cdr((r[1])));
-  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234932), (r[3])))) {
+  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234944), (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__234924), (r[3])))) {
+  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234936), (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__234916), (r[3])))) {
+  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234928), (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__234910), (r[3])))) {
+  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234922), (r[3])))) {
     r[0] = r[2];  
     goto gs_run_2Dtests;
   } else {
-  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234907), (r[3])))) {
+  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234919), (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 4c9cd9e..fd2f5e1 100644
--- a/src/k.sf
+++ b/src/k.sf
@@ -302,6 +302,7 @@
              [(syntax-rules)  (xform-syntax-rules  tail env)]
              [(syntax-length) (xform-syntax-length tail env)]
              [(syntax-error)  (xform-syntax-error  tail env)]
+             [(...)           (xform-...           tail env)]
              [else            (if (integrable? hval)
                                   (xform-integrable hval tail env)
                                   (if (procedure? hval)
@@ -378,7 +379,7 @@
     [(#\p) (>= n 0)]   [(#\m) (>= n 1)]   [(#\c) (>= n 2)]   [(#\x) (>= n 1)]
     [(#\u) (<= 0 n 1)] [(#\b) (<= 1 n 2)] [(#\t) (<= 2 n 3)]
     [(#\#) (>= n 0)]   [(#\@) #f]
-    [else #f])) 
+    [else  #f])) 
 
 (define (xform-integrable ig tail env)
   (if (integrable-argc-match? (integrable-type ig) (length tail))
@@ -542,11 +543,8 @@
         (apply x-error args)
         (x-error "improper syntax-error form" (cons 'syntax-error tail)))))
 
-
-; ellipsis denotation is used for comparisons only
-
-(define denotation-of-default-ellipsis 
-  (make-binding '... (lambda (sexp env) (x-error "improper use of ..." sexp))))
+(define (xform-... tail env)
+  (x-error "improper use of ... in syntax form" (cons '... tail)))
 
 (define *transformers* 
   (list
@@ -567,7 +565,7 @@
     (make-binding 'begin 'begin)
     (make-binding 'if 'if)
     (make-binding 'body 'body)
-    denotation-of-default-ellipsis))
+    (make-binding '... '...)))
 
 (define (top-transformer-env id)
   (let ([bnd (find-top-binding id *transformers*)])
@@ -594,14 +592,17 @@
 ; make transformer procedure from the rules
 
 (define (syntax-rules* mac-env ellipsis pat-literals rules)
+
   (define (pat-literal? id) (memq id pat-literals))
   (define (not-pat-literal? id) (not (pat-literal? id)))
   (define (ellipsis-pair? x)
     (and (pair? x) (ellipsis? (car x))))
+  (define (ellipsis-denotation? den)
+    (and (binding? den) (eq? (binding-val den) '...)))
   (define (ellipsis? x)
     (if ellipsis
         (eq? x ellipsis)
-        (and (id? x) (eq? (mac-env x) denotation-of-default-ellipsis))))
+        (and (id? x) (ellipsis-denotation? (mac-env x)))))
 
   ; List-ids returns a list of the non-ellipsis ids in a
   ; pattern or template for which (pred? id) is true.  If
diff --git a/src/t.scm b/src/t.scm
index 0d1c396..fccb37f 100644
--- a/src/t.scm
+++ b/src/t.scm
@@ -266,6 +266,7 @@
              [(syntax-rules)  (xform-syntax-rules  tail env)]
              [(syntax-length) (xform-syntax-length tail env)]
              [(syntax-error)  (xform-syntax-error  tail env)]
+             [(...)           (xform-...           tail env)]
              [else            (if (integrable? hval)
                                   (xform-integrable hval tail env)
                                   (if (procedure? hval)
@@ -342,7 +343,7 @@
     [(#\p) (>= n 0)]   [(#\m) (>= n 1)]   [(#\c) (>= n 2)]   [(#\x) (>= n 1)]
     [(#\u) (<= 0 n 1)] [(#\b) (<= 1 n 2)] [(#\t) (<= 2 n 3)]
     [(#\#) (>= n 0)]   [(#\@) #f]
-    [else #f])) 
+    [else  #f])) 
 
 (define (xform-integrable ig tail env)
   (if (integrable-argc-match? (integrable-type ig) (length tail))
@@ -506,11 +507,8 @@
         (apply x-error args)
         (x-error "improper syntax-error form" (cons 'syntax-error tail)))))
 
-
-; ellipsis denotation is used for comparisons only
-
-(define denotation-of-default-ellipsis 
-  (make-binding '... (lambda (sexp env) (x-error "improper use of ..." sexp))))
+(define (xform-... tail env)
+  (x-error "improper use of ... in syntax form" (cons '... tail)))
 
 (define *transformers* 
   (list
@@ -531,7 +529,7 @@
     (make-binding 'begin 'begin)
     (make-binding 'if 'if)
     (make-binding 'body 'body)
-    denotation-of-default-ellipsis))
+    (make-binding '... '...)))
 
 (define (top-transformer-env id)
   (let ([bnd (find-top-binding id *transformers*)])
@@ -562,14 +560,17 @@
 ; make transformer procedure from the rules
 
 (define (syntax-rules* mac-env ellipsis pat-literals rules)
+
   (define (pat-literal? id) (memq id pat-literals))
   (define (not-pat-literal? id) (not (pat-literal? id)))
   (define (ellipsis-pair? x)
     (and (pair? x) (ellipsis? (car x))))
+  (define (ellipsis-denotation? den)
+    (and (binding? den) (eq? (binding-val den) '...)))
   (define (ellipsis? x)
     (if ellipsis
         (eq? x ellipsis)
-        (and (id? x) (eq? (mac-env x) denotation-of-default-ellipsis))))
+        (and (id? x) (ellipsis-denotation? (mac-env x)))))
 
   ; List-ids returns a list of the non-ellipsis ids in a
   ; pattern or template for which (pred? id) is true.  If
diff --git a/t.c b/t.c
index 9a9ff0c..9fc5e4a 100644
--- a/t.c
+++ b/t.c
@@ -147,9 +147,9 @@ char *t_code[] = {
   ")[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",
+  "1v?{.6,.3,@(y18:xform-syntax-error)[72}'(y3:...),.1v?{.6,.3,@(y9:xform"
+  "-...)[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",
 
   "P", "xform-sexp->datum",
   "%1.0,,#0.0,&1{%1${.2,@(y3:id?)[01}?{.0,@(y7:id->sym)[11}.0p?{${.2d,:0^"
@@ -301,20 +301,19 @@ char *t_code[] = {
   "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)",
+  "P", "xform-...",
+  "%2.0,'(y3:...)c,'(s34:improper use of ... in syntax form),@(y7:x-error"
+  ")[22",
 
   "C", 0,
-  "@(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,'(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*)",
+  "'(y3:...),'(y3:...)c,'(y4:body),'(y4:body)c,'(y2:if),'(y2:if)c,'(y5:be"
+  "gin),'(y5:begin)c,'(y6:withcc),'(y6:withcc)c,'(y5:letcc),'(y5:letcc)c,"
+  "'(y12:syntax-error),'(y12:syntax-error)c,'(y13:syntax-length),'(y13:sy"
+  "ntax-length)c,'(y12:syntax-rules),'(y12:syntax-rules)c,'(y13:syntax-la"
+  "mbda),'(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-syntax)c,'(y6:define)"
+  ",'(y6:define)c,'(y6:syntax),'(y6:syntax)c,l(i18)@!(y14:*transformers*)",
 
   "P", "top-transformer-env",
   "%1@(y14:*transformers*),.1A3,.0p?{.0d,.0p?{'(y12:syntax-rules),.1aq}{f"
@@ -333,34 +332,35 @@ char *t_code[] = {
   "%!2.0u?{@(y19:top-transformer-env)}{.0a},.3,.3,@(y5:xform)[33",
 
   "P", "syntax-rules*",
-  "%4,,,,,,,#0#1#2#3#4#5#6.9,&1{%1:0,.1A0]1}.!0.0,&1{%1${.2,:0^[01}~]1}.!"
-  "1.3,&1{%1.0p?{.0a,:0^[11}f]1}.!2.7,.9,&2{%1:0?{:0,.1q]1}${.2,@(y3:id?)"
-  "[01}?{@(y30:denotation-of-default-ellipsis),${.3,:1[01}q]1}f]1}.!3.2,&"
-  "1{%3n,.2,.2,,#0:0,.1,.8,&3{%3${.2,@(y3:id?)[01}?{.1?{${.2,:0[01}}{f}?{"
-  ".2,.1c]3}.2]3}.0V0?{.2,.2,.2X0,:1^[33}.0p?{${.2d,:2^[01}?{${.4,.4,.4dd"
-  ",:1^[03},t,.2a,:1^[33}${.4,.4,.4d,:1^[03},.2,.2a,:1^[33}.2]3}.!0.0^_1["
-  "33}.!4.4,.2,.4,.3,.(i11),&5{%3k3,.0,,#0.1,&1{%0f,:0[01}.!0n,.5,.5,,#0."
-  "4,.1,:4,:3,:2,:1,:0,.(i16),&8{%3,#0:7,.4,&2{%1.0?{:0]1}:1^[10}.!0${.3,"
-  "@(y3:id?)[01}?{${.3,:2^[01}?{${.4,@(y3:id?)[01}?{${.3,:1[01},${.5,:0[0"
-  "1}q}{f},.1^[41}.3,.3,.3cc]4}.1V0?{.2V0,.0?{.0}{${:7^[00}}_1.3,.3X0,.3X"
-  "0,:6^[43}.1p~?{.2,.2e,.1^[41}${.3d,:3^[01}?{.1ddg,.3L0?{.3g}{${:7^[00}"
-  "},.1,.1I-,.0<0?{${:7^[00}}.0,.6A6,.3,.7A8A6A8,${:4^,t,.(i10)a,:5^[03},"
-  ",#0:6,.9,&2{%1${n,.3,:0a,:1^[03},@(y3:cdr),@(y5:%25map1)[12}.!0${.(i12"
-  "),.6,.(i12)dd,:6^[03},${${.7,.6^,@(y5:%25map1)[02},.5c,@(y4:list)c,@(y"
-  "4:%25map),@(y13:apply-to-list)[02}L6](i11)}.2p?{${.5,.5d,.5d,:6^[03},."
-  "3a,.3a,:6^[43}:7^[40}.!0.0^_1[63}.!5.7,.2,.6,.5,&4{%3,,,#0#1#2${${.9,&"
-  "1{%1:0,.1A3~]1},t,.(i10),:1^[03},:3,&1{%1${${.4,:0[01},@(y6:new-id)[01"
-  "},.1c]1},@(y5:%25map1)[02}.!0${:2^,f,.7,:1^[03}.!1.1,:1,&2{%1:1,&1{%1:"
-  "0^,.1A0]1},t,.2,:0^[13}.!2.5,.5,,#0.8,.4,:0,.8,.4,&5{%2.0,,#0.0,.4,:0,"
-  ":1,:2,:3,:4,&7{%1${.2,@(y3:id?)[01}?{:5,.1A3,.0?{.0}{:0,.2A3,.0?{.0}{:"
-  "1^,.3A3}_1}_1d]1}.0V0?{${.2X0,:6^[01}X1]1}.0p?{${.2d,:2^[01}}{f}?{${.2"
-  "a,:3^[01},,,#0#1:5,&1{%1:0,.1A3d]1}.!0.2,.4,:4,&3{%!0${.2,:2,@(y4:cons"
-  "),@(y5:%25map2)[03},:1a,:0^[12}.!1.2u?{${.5dd,:6^[01},${.6a,:6^[01}c]4"
-  "}${.4,.3^,@(y5:%25map1)[02},${.6dd,:6^[01},${.3,.6^c,@(y4:%25map),@(y1"
-  "3:apply-to-list)[02}L6]5}.0p?{${.2d,:6^[01},${.3a,:6^[01}c]1}.0]1}.!0."
-  "0^_1[21}.!0.0^_1[62}.!6.(i10),.7,.7,&3{%2:2,,#0:0,.3,.5,:1,.4,&5{%1.0u"
-  "?{${:3,'(s14:invalid syntax),@(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)",
+  "%4,,,,,,,,#0#1#2#3#4#5#6#7.(i10),&1{%1:0,.1A0]1}.!0.0,&1{%1${.2,:0^[01"
+  "}~]1}.!1.4,&1{%1.0p?{.0a,:0^[11}f]1}.!2&0{%1.0p?{'(y3:...),.1dq]1}f]1}"
+  ".!3.3,.9,.(i11),&3{%1:0?{:0,.1q]1}${.2,@(y3:id?)[01}?{${.2,:1[01},:2^["
+  "11}f]1}.!4.2,&1{%3n,.2,.2,,#0:0,.1,.8,&3{%3${.2,@(y3:id?)[01}?{.1?{${."
+  "2,:0[01}}{f}?{.2,.1c]3}.2]3}.0V0?{.2,.2,.2X0,:1^[33}.0p?{${.2d,:2^[01}"
+  "?{${.4,.4,.4dd,:1^[03},t,.2a,:1^[33}${.4,.4,.4d,:1^[03},.2,.2a,:1^[33}"
+  ".2]3}.!0.0^_1[33}.!5.5,.2,.4,.3,.(i12),&5{%3k3,.0,,#0.1,&1{%0f,:0[01}."
+  "!0n,.5,.5,,#0.4,.1,:4,:3,:2,:1,:0,.(i16),&8{%3,#0:7,.4,&2{%1.0?{:0]1}:"
+  "1^[10}.!0${.3,@(y3:id?)[01}?{${.3,:2^[01}?{${.4,@(y3:id?)[01}?{${.3,:1"
+  "[01},${.5,:0[01}q}{f},.1^[41}.3,.3,.3cc]4}.1V0?{.2V0,.0?{.0}{${:7^[00}"
+  "}_1.3,.3X0,.3X0,:6^[43}.1p~?{.2,.2e,.1^[41}${.3d,:3^[01}?{.1ddg,.3L0?{"
+  ".3g}{${:7^[00}},.1,.1I-,.0<0?{${:7^[00}}.0,.6A6,.3,.7A8A6A8,${:4^,t,.("
+  "i10)a,:5^[03},,#0:6,.9,&2{%1${n,.3,:0a,:1^[03},@(y3:cdr),@(y5:%25map1)"
+  "[12}.!0${.(i12),.6,.(i12)dd,:6^[03},${${.7,.6^,@(y5:%25map1)[02},.5c,@"
+  "(y4:list)c,@(y4:%25map),@(y13:apply-to-list)[02}L6](i11)}.2p?{${.5,.5d"
+  ",.5d,:6^[03},.3a,.3a,:6^[43}:7^[40}.!0.0^_1[63}.!6.8,.2,.7,.5,&4{%3,,,"
+  "#0#1#2${${.9,&1{%1:0,.1A3~]1},t,.(i10),:1^[03},:3,&1{%1${${.4,:0[01},@"
+  "(y6:new-id)[01},.1c]1},@(y5:%25map1)[02}.!0${:2^,f,.7,:1^[03}.!1.1,:1,"
+  "&2{%1:1,&1{%1:0^,.1A0]1},t,.2,:0^[13}.!2.5,.5,,#0.8,.4,:0,.8,.4,&5{%2."
+  "0,,#0.0,.4,:0,:1,:2,:3,:4,&7{%1${.2,@(y3:id?)[01}?{:5,.1A3,.0?{.0}{:0,"
+  ".2A3,.0?{.0}{:1^,.3A3}_1}_1d]1}.0V0?{${.2X0,:6^[01}X1]1}.0p?{${.2d,:2^"
+  "[01}}{f}?{${.2a,:3^[01},,,#0#1:5,&1{%1:0,.1A3d]1}.!0.2,.4,:4,&3{%!0${."
+  "2,:2,@(y4:cons),@(y5:%25map2)[03},:1a,:0^[12}.!1.2u?{${.5dd,:6^[01},${"
+  ".6a,:6^[01}c]4}${.4,.3^,@(y5:%25map1)[02},${.6dd,:6^[01},${.3,.6^c,@(y"
+  "4:%25map),@(y13:apply-to-list)[02}L6]5}.0p?{${.2d,:6^[01},${.3a,:6^[01"
+  "}c]1}.0]1}.!0.0^_1[21}.!0.0^_1[62}.!7.(i11),.8,.8,&3{%2:2,,#0:0,.3,.5,"
+  ":1,.4,&5{%1.0u?{${:3,'(s14:invalid syntax),@(y7:x-error)[02}}.0a,.0a,."
+  "1da,${:2,:3,.5,:4^[03},.0?{.0,.0,.3,.5,:1^[63}.4d,:0^[51}.!0.0^_1[21}]"
+  "(i12)",
 
   "S", "install-sr-transformer!",
   "l4:y12:syntax-rules;l2:y5:quote;y12:syntax-rules;;l2:l3:y1:_;l2:y5:quo"