Version 262txr-262

* RELNOTES: Updated.

* configure, txr.1: Bumped version and date.

* share/txr/stdlib/ver.tl: Bumped.

* txr.vim, tl.vim: Regenerated.

* protsym.c: Likewise.

* y.tab.c.shipped: Regenerated. Good catch! forgot to do this
for most recent change to parser.y.

1 files changed, 292 insertions, 283 deletions

diff --git a/y.tab.c.shipped b/y.tab.c.shipped
index 59ad07a0..f1e85135 100644
--- a/y.tab.c.shipped
+++ b/y.tab.c.shipped
@@ -851,32 +851,32 @@ static const yytype_uint16 yyrline[] =
      779,   780,   782,   785,   788,   792,   795,   798,   806,   809,
      815,   821,   828,   829,   830,   831,   832,   833,   837,   842,
      845,   849,   852,   853,   855,   857,   860,   865,   874,   879,
-     882,   887,   892,   896,   902,   906,   914,   918,   922,   926,
-     931,   935,   948,   952,   954,   954,   958,   959,   960,   961,
-     963,   964,   969,   970,   975,   975,   980,   980,   985,   985,
-     988,   989,   991,   993,   997,  1001,  1010,  1012,  1016,  1023,
-    1034,  1035,  1037,  1040,  1044,  1048,  1049,  1055,  1056,  1057,
-    1058,  1062,  1067,  1071,  1076,  1080,  1084,  1085,  1086,  1090,
-    1091,  1092,  1095,  1098,  1099,  1102,  1104,  1109,  1112,  1112,
-    1116,  1116,  1120,  1120,  1123,  1123,  1126,  1129,  1131,  1135,
-    1137,  1143,  1144,  1146,  1147,  1148,  1149,  1150,  1151,  1152,
-    1153,  1154,  1155,  1156,  1157,  1158,  1159,  1160,  1161,  1162,
-    1164,  1164,  1168,  1168,  1172,  1172,  1176,  1176,  1179,  1182,
-    1183,  1185,  1186,  1188,  1189,  1190,  1191,  1192,  1193,  1194,
-    1195,  1196,  1197,  1198,  1199,  1200,  1201,  1202,  1203,  1204,
-    1206,  1206,  1210,  1210,  1214,  1214,  1218,  1221,  1227,  1231,
-    1237,  1238,  1241,  1242,  1243,  1243,  1246,  1249,  1250,  1253,
-    1254,  1255,  1258,  1261,  1266,  1270,  1276,  1279,  1280,  1281,
-    1282,  1285,  1286,  1287,  1290,  1291,  1292,  1293,  1294,  1301,
-    1302,  1304,  1305,  1306,  1307,  1308,  1309,  1310,  1311,  1315,
-    1316,  1319,  1320,  1321,  1324,  1326,  1327,  1328,  1329,  1330,
-    1331,  1332,  1333,  1334,  1335,  1336,  1337,  1340,  1354,  1355,
-    1359,  1360,  1362,  1366,  1379,  1381,  1385,  1390,  1391,  1394,
-    1398,  1400,  1404,  1405,  1406,  1408,  1415,  1416,  1418,  1419,
-    1422,  1423,  1424,  1425,  1428,  1429,  1430,  1432,  1436,  1437,
-    1438,  1440,  1446,  1448,  1451,  1456,  1458,  1462,  1463,  1470,
-    1471,  1472,  1473,  1474,  1475,  1476,  1477,  1478,  1479,  1481,
-    1483,  1485,  1487,  1489,  1491,  1493,  1498
+     882,   887,   892,   896,   905,   909,   920,   924,   928,   932,
+     937,   941,   957,   961,   963,   963,   967,   968,   969,   970,
+     972,   973,   978,   979,   984,   984,   989,   989,   994,   994,
+     997,   998,  1000,  1002,  1006,  1010,  1019,  1021,  1025,  1032,
+    1043,  1044,  1046,  1049,  1053,  1057,  1058,  1064,  1065,  1066,
+    1067,  1071,  1076,  1080,  1085,  1089,  1093,  1094,  1095,  1099,
+    1100,  1101,  1104,  1107,  1108,  1111,  1113,  1118,  1121,  1121,
+    1125,  1125,  1129,  1129,  1132,  1132,  1135,  1138,  1140,  1144,
+    1146,  1152,  1153,  1155,  1156,  1157,  1158,  1159,  1160,  1161,
+    1162,  1163,  1164,  1165,  1166,  1167,  1168,  1169,  1170,  1171,
+    1173,  1173,  1177,  1177,  1181,  1181,  1185,  1185,  1188,  1191,
+    1192,  1194,  1195,  1197,  1198,  1199,  1200,  1201,  1202,  1203,
+    1204,  1205,  1206,  1207,  1208,  1209,  1210,  1211,  1212,  1213,
+    1215,  1215,  1219,  1219,  1223,  1223,  1227,  1230,  1236,  1240,
+    1246,  1247,  1250,  1251,  1252,  1252,  1255,  1258,  1259,  1262,
+    1263,  1264,  1267,  1270,  1275,  1279,  1285,  1288,  1289,  1290,
+    1291,  1294,  1295,  1296,  1299,  1300,  1301,  1302,  1303,  1310,
+    1311,  1313,  1314,  1315,  1316,  1317,  1318,  1319,  1320,  1324,
+    1325,  1328,  1329,  1330,  1333,  1335,  1336,  1337,  1338,  1339,
+    1340,  1341,  1342,  1343,  1344,  1345,  1346,  1349,  1363,  1364,
+    1368,  1369,  1371,  1375,  1388,  1390,  1394,  1399,  1400,  1403,
+    1407,  1409,  1413,  1414,  1415,  1417,  1424,  1425,  1427,  1428,
+    1431,  1432,  1433,  1434,  1437,  1438,  1439,  1441,  1445,  1446,
+    1447,  1449,  1455,  1457,  1460,  1465,  1467,  1471,  1472,  1479,
+    1480,  1481,  1482,  1483,  1484,  1485,  1486,  1487,  1488,  1490,
+    1492,  1494,  1496,  1498,  1500,  1502,  1507
 };
 #endif
 
@@ -4967,7 +4967,10 @@ yyreduce:
 
 /* Line 1806 of yacc.c  */
 #line 896 "parser.y"
-    { if (parser->quasi_level > 0 && unquotes_occur((yyvsp[(2) - (2)].val), 0))
+    { if (parser->ignore)
+                                    (yyval.val) = nil;
+                                  else if (parser->quasi_level > 0 &&
+                                           unquotes_occur((yyvsp[(2) - (2)].val), 0))
                                     (yyval.val) = rl(cons(hash_lit_s, (yyvsp[(2) - (2)].val)), num((yyvsp[(1) - (2)].lineno)));
                                   else
                                     (yyval.val) = rl(hash_construct(first((yyvsp[(2) - (2)].val)),
@@ -4978,7 +4981,7 @@ yyreduce:
   case 214:
 
 /* Line 1806 of yacc.c  */
-#line 902 "parser.y"
+#line 905 "parser.y"
     { (yyval.val) = nil;
                                     yybadtok(yychar, lit("hash literal")); }
     break;
@@ -4986,10 +4989,13 @@ yyreduce:
   case 215:
 
 /* Line 1806 of yacc.c  */
-#line 906 "parser.y"
-    { if ((parser->quasi_level > 0 && unquotes_occur((yyvsp[(2) - (2)].val), 0)) ||
-                                      (parser->read_unknown_structs &&
-                                        !find_struct_type(first((yyvsp[(2) - (2)].val)))))
+#line 909 "parser.y"
+    {  if (parser->ignore)
+                                   { (yyval.val) = nil; }
+                                   else if ((parser->quasi_level > 0 &&
+                                            unquotes_occur((yyvsp[(2) - (2)].val), 0)) ||
+                                           (parser->read_unknown_structs &&
+                                            !find_struct_type(first((yyvsp[(2) - (2)].val)))))
                                   { (yyval.val) = rl(cons(struct_lit_s, (yyvsp[(2) - (2)].val)), num((yyvsp[(1) - (2)].lineno))); }
                                   else
                                   { val strct = make_struct_lit(first((yyvsp[(2) - (2)].val)),
@@ -5000,7 +5006,7 @@ yyreduce:
   case 216:
 
 /* Line 1806 of yacc.c  */
-#line 914 "parser.y"
+#line 920 "parser.y"
     { (yyval.val) = nil;
                                     yybadtok(yychar, lit("struct literal")); }
     break;
@@ -5008,7 +5014,7 @@ yyreduce:
   case 217:
 
 /* Line 1806 of yacc.c  */
-#line 918 "parser.y"
+#line 924 "parser.y"
     { if (length((yyvsp[(2) - (2)].val)) != two)
                                     yyerr("range literal needs two elements");
                                   { val range = rcons(first((yyvsp[(2) - (2)].val)), second((yyvsp[(2) - (2)].val)));
@@ -5018,7 +5024,7 @@ yyreduce:
   case 218:
 
 /* Line 1806 of yacc.c  */
-#line 922 "parser.y"
+#line 928 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("range literal")); }
     break;
@@ -5026,7 +5032,7 @@ yyreduce:
   case 219:
 
 /* Line 1806 of yacc.c  */
-#line 926 "parser.y"
+#line 932 "parser.y"
     { if (gt(length((yyvsp[(2) - (2)].val)), three))
                                     yyerr("excess elements in tree node");
                                   { val tn = tnode(first((yyvsp[(2) - (2)].val)), second((yyvsp[(2) - (2)].val)),
@@ -5037,7 +5043,7 @@ yyreduce:
   case 220:
 
 /* Line 1806 of yacc.c  */
-#line 931 "parser.y"
+#line 937 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("tree node literal")); }
     break;
@@ -5045,9 +5051,12 @@ yyreduce:
   case 221:
 
 /* Line 1806 of yacc.c  */
-#line 935 "parser.y"
-    { if (parser->quasi_level > 0 && unquotes_occur((yyvsp[(2) - (2)].val), 0))
-                                   (yyval.val) = rl(cons(tree_lit_s, (yyvsp[(2) - (2)].val)), num((yyvsp[(1) - (2)].lineno)));
+#line 941 "parser.y"
+    { if (parser->ignore)
+                                 { (yyval.val) = nil; }
+                                 else if (parser->quasi_level > 0 &&
+                                          unquotes_occur((yyvsp[(2) - (2)].val), 0))
+                                 { (yyval.val) = rl(cons(tree_lit_s, (yyvsp[(2) - (2)].val)), num((yyvsp[(1) - (2)].lineno))); }
                                  else
                                  { val opts = first((yyvsp[(2) - (2)].val));
                                    val key_fn_name = pop(&opts);
@@ -5064,7 +5073,7 @@ yyreduce:
   case 222:
 
 /* Line 1806 of yacc.c  */
-#line 948 "parser.y"
+#line 957 "parser.y"
     { (yyval.val) = nil;
                                  yybadtok(yychar, lit("tree node literal")); }
     break;
@@ -5072,7 +5081,7 @@ yyreduce:
   case 223:
 
 /* Line 1806 of yacc.c  */
-#line 952 "parser.y"
+#line 961 "parser.y"
     { (yyval.val) = list(json_s, quote_s, (yyvsp[(2) - (2)].val), nao);
                                   end_of_json(scnr); }
     break;
@@ -5080,14 +5089,14 @@ yyreduce:
   case 224:
 
 /* Line 1806 of yacc.c  */
-#line 954 "parser.y"
+#line 963 "parser.y"
     { parser->quasi_level++; }
     break;
 
   case 225:
 
 /* Line 1806 of yacc.c  */
-#line 955 "parser.y"
+#line 964 "parser.y"
     { parser->quasi_level--;
                                   end_of_json(scnr);
                                   (yyval.val) = list(json_s, sys_qquote_s, (yyvsp[(4) - (4)].val), nao); }
@@ -5096,28 +5105,28 @@ yyreduce:
   case 226:
 
 /* Line 1806 of yacc.c  */
-#line 958 "parser.y"
+#line 967 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 227:
 
 /* Line 1806 of yacc.c  */
-#line 959 "parser.y"
+#line 968 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 228:
 
 /* Line 1806 of yacc.c  */
-#line 960 "parser.y"
+#line 969 "parser.y"
     { (yyval.val) = null_string; }
     break;
 
   case 229:
 
 /* Line 1806 of yacc.c  */
-#line 961 "parser.y"
+#line 970 "parser.y"
     { (yyval.val) = (yyvsp[(2) - (3)].val);
                                   rl((yyval.val), num(parser->lineno)); }
     break;
@@ -5125,14 +5134,14 @@ yyreduce:
   case 230:
 
 /* Line 1806 of yacc.c  */
-#line 963 "parser.y"
+#line 972 "parser.y"
     { (yyval.val) = vector(zero, nil); }
     break;
 
   case 231:
 
 /* Line 1806 of yacc.c  */
-#line 964 "parser.y"
+#line 973 "parser.y"
     { (yyval.val) = if3(vectorp((yyvsp[(2) - (3)].val)),
                                            (yyvsp[(2) - (3)].val),
                                            rl(cons(vector_lit_s,
@@ -5143,14 +5152,14 @@ yyreduce:
   case 232:
 
 /* Line 1806 of yacc.c  */
-#line 969 "parser.y"
+#line 978 "parser.y"
     { (yyval.val) = make_hash(nil, nil, t); }
     break;
 
   case 233:
 
 /* Line 1806 of yacc.c  */
-#line 970 "parser.y"
+#line 979 "parser.y"
     { (yyval.val) = if3(hashp((yyvsp[(2) - (3)].val)),
                                            (yyvsp[(2) - (3)].val),
                                            rl(cons(hash_lit_s,
@@ -5161,14 +5170,14 @@ yyreduce:
   case 234:
 
 /* Line 1806 of yacc.c  */
-#line 975 "parser.y"
+#line 984 "parser.y"
     { parser->quasi_level--; }
     break;
 
   case 235:
 
 /* Line 1806 of yacc.c  */
-#line 976 "parser.y"
+#line 985 "parser.y"
     { parser->quasi_level++;
                                   end_of_json_unquote(scnr);
                                   (yyval.val) = rl(rlc(list(sys_unquote_s, (yyvsp[(3) - (3)].val), nao), (yyvsp[(3) - (3)].val)),
@@ -5178,14 +5187,14 @@ yyreduce:
   case 236:
 
 /* Line 1806 of yacc.c  */
-#line 980 "parser.y"
+#line 989 "parser.y"
     { parser->quasi_level--; }
     break;
 
   case 237:
 
 /* Line 1806 of yacc.c  */
-#line 981 "parser.y"
+#line 990 "parser.y"
     { parser->quasi_level++;
                                   end_of_json_unquote(scnr);
                                   (yyval.val) = rl(rlc(list(sys_splice_s, (yyvsp[(3) - (3)].val), nao), (yyvsp[(3) - (3)].val)),
@@ -5195,14 +5204,14 @@ yyreduce:
   case 238:
 
 /* Line 1806 of yacc.c  */
-#line 985 "parser.y"
+#line 994 "parser.y"
     { parser_circ_def(parser, (yyvsp[(1) - (1)].val), unique_s); }
     break;
 
   case 239:
 
 /* Line 1806 of yacc.c  */
-#line 986 "parser.y"
+#line 995 "parser.y"
     { parser_circ_def(parser, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
                                   (yyval.val) = (yyvsp[(3) - (3)].val); }
     break;
@@ -5210,14 +5219,14 @@ yyreduce:
   case 240:
 
 /* Line 1806 of yacc.c  */
-#line 988 "parser.y"
+#line 997 "parser.y"
     { (yyval.val) = parser_circ_ref(parser, (yyvsp[(1) - (1)].val)); }
     break;
 
   case 241:
 
 /* Line 1806 of yacc.c  */
-#line 989 "parser.y"
+#line 998 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("JSON string")); }
     break;
@@ -5225,7 +5234,7 @@ yyreduce:
   case 242:
 
 /* Line 1806 of yacc.c  */
-#line 991 "parser.y"
+#line 1000 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("JSON array")); }
     break;
@@ -5233,7 +5242,7 @@ yyreduce:
   case 243:
 
 /* Line 1806 of yacc.c  */
-#line 993 "parser.y"
+#line 1002 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("JSON hash")); }
     break;
@@ -5241,7 +5250,7 @@ yyreduce:
   case 244:
 
 /* Line 1806 of yacc.c  */
-#line 997 "parser.y"
+#line 1006 "parser.y"
     { (yyval.val) = if3(parser->quasi_level > 0 &&
                                                    unquotes_occur((yyvsp[(1) - (1)].val), 0),
                                                    cons((yyvsp[(1) - (1)].val), nil),
@@ -5251,7 +5260,7 @@ yyreduce:
   case 245:
 
 /* Line 1806 of yacc.c  */
-#line 1001 "parser.y"
+#line 1010 "parser.y"
     { if (consp((yyvsp[(1) - (3)].val)))
                                           { (yyval.val) = cons((yyvsp[(3) - (3)].val), (yyvsp[(1) - (3)].val)); }
                                           else if (parser->quasi_level > 0 &&
@@ -5266,7 +5275,7 @@ yyreduce:
   case 246:
 
 /* Line 1806 of yacc.c  */
-#line 1010 "parser.y"
+#line 1019 "parser.y"
     { yyerr("missing comma in JSON array");
                                           (yyval.val) = (yyvsp[(1) - (2)].val); }
     break;
@@ -5274,7 +5283,7 @@ yyreduce:
   case 247:
 
 /* Line 1806 of yacc.c  */
-#line 1012 "parser.y"
+#line 1021 "parser.y"
     { yybadtok(yychar, lit("JSON array"));
                                           (yyval.val) = (yyvsp[(1) - (2)].val); }
     break;
@@ -5282,7 +5291,7 @@ yyreduce:
   case 248:
 
 /* Line 1806 of yacc.c  */
-#line 1016 "parser.y"
+#line 1025 "parser.y"
     { if (parser->quasi_level > 0 &&
                                               (unquotes_occur((yyvsp[(1) - (3)].val), 0) ||
                                                unquotes_occur((yyvsp[(3) - (3)].val), 0)))
@@ -5295,7 +5304,7 @@ yyreduce:
   case 249:
 
 /* Line 1806 of yacc.c  */
-#line 1024 "parser.y"
+#line 1033 "parser.y"
     { if (consp((yyvsp[(1) - (5)].val)))
                                           { (yyval.val) = cons(list((yyvsp[(3) - (5)].val), (yyvsp[(5) - (5)].val), nao), (yyvsp[(1) - (5)].val)); }
                                           else if (parser->quasi_level > 0 &&
@@ -5311,28 +5320,28 @@ yyreduce:
   case 250:
 
 /* Line 1806 of yacc.c  */
-#line 1034 "parser.y"
+#line 1043 "parser.y"
     { yyerr("missing colon in JSON hash"); }
     break;
 
   case 251:
 
 /* Line 1806 of yacc.c  */
-#line 1036 "parser.y"
+#line 1045 "parser.y"
     { yyerr("missing comma in JSON hash"); }
     break;
 
   case 252:
 
 /* Line 1806 of yacc.c  */
-#line 1037 "parser.y"
+#line 1046 "parser.y"
     { yybadtok(yychar, lit("JSON hash")); }
     break;
 
   case 253:
 
 /* Line 1806 of yacc.c  */
-#line 1040 "parser.y"
+#line 1049 "parser.y"
     { if ((yyvsp[(1) - (1)].lexeme)[0] == ':' && (yyvsp[(1) - (1)].lexeme)[1] == 0)
                           { (yyval.val) = nil; }
                           else
@@ -5342,21 +5351,21 @@ yyreduce:
   case 254:
 
 /* Line 1806 of yacc.c  */
-#line 1044 "parser.y"
+#line 1053 "parser.y"
     { (yyval.val) = nil; }
     break;
 
   case 255:
 
 /* Line 1806 of yacc.c  */
-#line 1048 "parser.y"
+#line 1057 "parser.y"
     { (yyval.val) = rl((yyvsp[(2) - (3)].val), num((yyvsp[(1) - (3)].lineno))); }
     break;
 
   case 256:
 
 /* Line 1806 of yacc.c  */
-#line 1049 "parser.y"
+#line 1058 "parser.y"
     { val a = car((yyvsp[(3) - (4)].val));
                                   val ur = uref_helper(parser, a);
                                   if (ur == a)
@@ -5368,28 +5377,28 @@ yyreduce:
   case 257:
 
 /* Line 1806 of yacc.c  */
-#line 1055 "parser.y"
+#line 1064 "parser.y"
     { (yyval.val) = nil; }
     break;
 
   case 258:
 
 /* Line 1806 of yacc.c  */
-#line 1056 "parser.y"
+#line 1065 "parser.y"
     { (yyval.val) = (yyvsp[(3) - (4)].val); }
     break;
 
   case 259:
 
 /* Line 1806 of yacc.c  */
-#line 1057 "parser.y"
+#line 1066 "parser.y"
     { (yyval.val) = (yyvsp[(3) - (4)].val); }
     break;
 
   case 260:
 
 /* Line 1806 of yacc.c  */
-#line 1058 "parser.y"
+#line 1067 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("expression")); }
     break;
@@ -5397,7 +5406,7 @@ yyreduce:
   case 261:
 
 /* Line 1806 of yacc.c  */
-#line 1062 "parser.y"
+#line 1071 "parser.y"
     { if (consp((yyvsp[(2) - (2)].val)))
                                     (yyval.val) = rl(cons(expr_s, cons((yyvsp[(2) - (2)].val), nil)), num((yyvsp[(1) - (2)].lineno)));
                                   else
@@ -5408,7 +5417,7 @@ yyreduce:
   case 262:
 
 /* Line 1806 of yacc.c  */
-#line 1067 "parser.y"
+#line 1076 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("meta expression")); }
     break;
@@ -5416,7 +5425,7 @@ yyreduce:
   case 263:
 
 /* Line 1806 of yacc.c  */
-#line 1071 "parser.y"
+#line 1080 "parser.y"
     { if (consp((yyvsp[(2) - (2)].val)))
                                     (yyval.val) = rl(cons(expr_s, cons((yyvsp[(2) - (2)].val), nil)), num((yyvsp[(1) - (2)].chr)));
                                   else
@@ -5427,7 +5436,7 @@ yyreduce:
   case 264:
 
 /* Line 1806 of yacc.c  */
-#line 1076 "parser.y"
+#line 1085 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("meta expression")); }
     break;
@@ -5435,7 +5444,7 @@ yyreduce:
   case 265:
 
 /* Line 1806 of yacc.c  */
-#line 1080 "parser.y"
+#line 1089 "parser.y"
     { val a = car((yyvsp[(3) - (4)].val));
                                   val ur = uref_helper(parser, a);
                                   (yyval.val) = rlcp_tree(cons(dwim_s,
@@ -5445,21 +5454,21 @@ yyreduce:
   case 266:
 
 /* Line 1806 of yacc.c  */
-#line 1084 "parser.y"
+#line 1093 "parser.y"
     { (yyval.val) = rl(cons(dwim_s, (yyvsp[(2) - (3)].val)), num((yyvsp[(1) - (3)].lineno))); }
     break;
 
   case 267:
 
 /* Line 1806 of yacc.c  */
-#line 1085 "parser.y"
+#line 1094 "parser.y"
     { (yyval.val) = rl(cons(dwim_s, nil), num((yyvsp[(1) - (2)].lineno))); }
     break;
 
   case 268:
 
 /* Line 1806 of yacc.c  */
-#line 1086 "parser.y"
+#line 1095 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("DWIM expression")); }
     break;
@@ -5467,28 +5476,28 @@ yyreduce:
   case 272:
 
 /* Line 1806 of yacc.c  */
-#line 1095 "parser.y"
+#line 1104 "parser.y"
     { (yyval.val) = rlc(expand_meta((yyvsp[(1) - (1)].val), nil), (yyvsp[(1) - (1)].val)); }
     break;
 
   case 273:
 
 /* Line 1806 of yacc.c  */
-#line 1098 "parser.y"
+#line 1107 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 274:
 
 /* Line 1806 of yacc.c  */
-#line 1099 "parser.y"
+#line 1108 "parser.y"
     { (yyval.val) = nil; }
     break;
 
   case 275:
 
 /* Line 1806 of yacc.c  */
-#line 1102 "parser.y"
+#line 1111 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val)->c.cdr;
                                   (yyvsp[(1) - (1)].val)->c.cdr = nil; }
     break;
@@ -5496,7 +5505,7 @@ yyreduce:
   case 276:
 
 /* Line 1806 of yacc.c  */
-#line 1105 "parser.y"
+#line 1114 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (3)].val)->c.cdr;
                                   (yyvsp[(1) - (3)].val)->c.cdr = (yyvsp[(3) - (3)].val); }
     break;
@@ -5504,7 +5513,7 @@ yyreduce:
   case 277:
 
 /* Line 1806 of yacc.c  */
-#line 1109 "parser.y"
+#line 1118 "parser.y"
     { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil);
                                   rlc((yyval.val), (yyvsp[(1) - (1)].val));
                                   (yyval.val)->c.cdr = (yyval.val); }
@@ -5513,14 +5522,14 @@ yyreduce:
   case 278:
 
 /* Line 1806 of yacc.c  */
-#line 1112 "parser.y"
+#line 1121 "parser.y"
     { parser->ignore = 1; }
     break;
 
   case 279:
 
 /* Line 1806 of yacc.c  */
-#line 1113 "parser.y"
+#line 1122 "parser.y"
     { parser->ignore = 0;
                                   (yyval.val) = cons(nil, nil);
                                   (yyval.val)->c.cdr = (yyval.val); }
@@ -5529,14 +5538,14 @@ yyreduce:
   case 280:
 
 /* Line 1806 of yacc.c  */
-#line 1116 "parser.y"
+#line 1125 "parser.y"
     { parser->ignore = 1; }
     break;
 
   case 281:
 
 /* Line 1806 of yacc.c  */
-#line 1117 "parser.y"
+#line 1126 "parser.y"
     { parser->ignore = 0;
                                   (yyval.val) = cons(nil, nil);
                                   (yyval.val)->c.cdr = (yyval.val); }
@@ -5545,14 +5554,14 @@ yyreduce:
   case 282:
 
 /* Line 1806 of yacc.c  */
-#line 1120 "parser.y"
+#line 1129 "parser.y"
     { parser->ignore = 1; }
     break;
 
   case 283:
 
 /* Line 1806 of yacc.c  */
-#line 1121 "parser.y"
+#line 1130 "parser.y"
     { parser->ignore = 0;
                                   (yyval.val) = (yyvsp[(1) - (4)].val); }
     break;
@@ -5560,14 +5569,14 @@ yyreduce:
   case 284:
 
 /* Line 1806 of yacc.c  */
-#line 1123 "parser.y"
+#line 1132 "parser.y"
     { parser->ignore = 1; }
     break;
 
   case 285:
 
 /* Line 1806 of yacc.c  */
-#line 1124 "parser.y"
+#line 1133 "parser.y"
     { parser->ignore = 0;
                                   (yyval.val) = (yyvsp[(1) - (5)].val); }
     break;
@@ -5575,7 +5584,7 @@ yyreduce:
   case 286:
 
 /* Line 1806 of yacc.c  */
-#line 1126 "parser.y"
+#line 1135 "parser.y"
     { uses_or2;
                                   (yyval.val) = rlc(cons((yyvsp[(2) - (2)].val), (yyvsp[(1) - (2)].val)->c.cdr), or2((yyvsp[(2) - (2)].val), (yyvsp[(1) - (2)].val)->c.cdr));
                                   (yyvsp[(1) - (2)].val)->c.cdr = (yyval.val); }
@@ -5584,7 +5593,7 @@ yyreduce:
   case 287:
 
 /* Line 1806 of yacc.c  */
-#line 1129 "parser.y"
+#line 1138 "parser.y"
     { (yyval.val) = lastcons(rl((yyvsp[(2) - (2)].val), num((yyvsp[(1) - (2)].lineno))));
                                   (yyval.val)->c.cdr = (yyvsp[(2) - (2)].val); }
     break;
@@ -5592,7 +5601,7 @@ yyreduce:
   case 288:
 
 /* Line 1806 of yacc.c  */
-#line 1132 "parser.y"
+#line 1141 "parser.y"
     { (yyval.val) = lastcons(rl((yyvsp[(3) - (3)].val), num((yyvsp[(2) - (3)].lineno))));
                                   (yyval.val)->c.cdr = (yyvsp[(1) - (3)].val)->c.cdr;
                                   (yyvsp[(1) - (3)].val)->c.cdr = (yyvsp[(3) - (3)].val); }
@@ -5601,7 +5610,7 @@ yyreduce:
   case 289:
 
 /* Line 1806 of yacc.c  */
-#line 1135 "parser.y"
+#line 1144 "parser.y"
     { (yyval.val) = lastcons(rl((yyvsp[(2) - (2)].val), num((yyvsp[(1) - (2)].lineno))));
                                   (yyval.val)->c.cdr = (yyvsp[(2) - (2)].val); }
     break;
@@ -5609,7 +5618,7 @@ yyreduce:
   case 290:
 
 /* Line 1806 of yacc.c  */
-#line 1138 "parser.y"
+#line 1147 "parser.y"
     { (yyval.val) = lastcons(rl((yyvsp[(3) - (3)].val), num((yyvsp[(2) - (3)].lineno))));
                                   (yyval.val)->c.cdr = (yyvsp[(1) - (3)].val)->c.cdr;
                                   (yyvsp[(1) - (3)].val)->c.cdr = (yyvsp[(3) - (3)].val); }
@@ -5618,14 +5627,14 @@ yyreduce:
   case 291:
 
 /* Line 1806 of yacc.c  */
-#line 1143 "parser.y"
+#line 1152 "parser.y"
     { (yyval.val) = ifnign(symhlpr((yyvsp[(1) - (1)].lexeme), t)); }
     break;
 
   case 292:
 
 /* Line 1806 of yacc.c  */
-#line 1144 "parser.y"
+#line 1153 "parser.y"
     { (yyval.val) = cons(var_s, cons((yyvsp[(1) - (1)].val), nil));
                                   rl((yyval.val), num(parser->lineno)); }
     break;
@@ -5633,119 +5642,119 @@ yyreduce:
   case 293:
 
 /* Line 1806 of yacc.c  */
-#line 1146 "parser.y"
+#line 1155 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 294:
 
 /* Line 1806 of yacc.c  */
-#line 1147 "parser.y"
+#line 1156 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 295:
 
 /* Line 1806 of yacc.c  */
-#line 1148 "parser.y"
+#line 1157 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 296:
 
 /* Line 1806 of yacc.c  */
-#line 1149 "parser.y"
+#line 1158 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 297:
 
 /* Line 1806 of yacc.c  */
-#line 1150 "parser.y"
+#line 1159 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 298:
 
 /* Line 1806 of yacc.c  */
-#line 1151 "parser.y"
+#line 1160 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 299:
 
 /* Line 1806 of yacc.c  */
-#line 1152 "parser.y"
+#line 1161 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 300:
 
 /* Line 1806 of yacc.c  */
-#line 1153 "parser.y"
+#line 1162 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 301:
 
 /* Line 1806 of yacc.c  */
-#line 1154 "parser.y"
+#line 1163 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 302:
 
 /* Line 1806 of yacc.c  */
-#line 1155 "parser.y"
+#line 1164 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 303:
 
 /* Line 1806 of yacc.c  */
-#line 1156 "parser.y"
+#line 1165 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 304:
 
 /* Line 1806 of yacc.c  */
-#line 1157 "parser.y"
+#line 1166 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 305:
 
 /* Line 1806 of yacc.c  */
-#line 1158 "parser.y"
+#line 1167 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 306:
 
 /* Line 1806 of yacc.c  */
-#line 1159 "parser.y"
+#line 1168 "parser.y"
     { (yyval.val) = rl((yyvsp[(2) - (2)].val), num((yyvsp[(1) - (2)].lineno))); }
     break;
 
   case 307:
 
 /* Line 1806 of yacc.c  */
-#line 1160 "parser.y"
+#line 1169 "parser.y"
     { (yyval.val) = rl(cons(quasilist_s, (yyvsp[(2) - (2)].val)), num((yyvsp[(1) - (2)].lineno))); }
     break;
 
   case 308:
 
 /* Line 1806 of yacc.c  */
-#line 1161 "parser.y"
+#line 1170 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 309:
 
 /* Line 1806 of yacc.c  */
-#line 1162 "parser.y"
+#line 1171 "parser.y"
     { (yyval.val) = rl(rlc(list(quote_s, (yyvsp[(2) - (2)].val), nao), (yyvsp[(2) - (2)].val)),
                                           num(parser->lineno)); }
     break;
@@ -5753,14 +5762,14 @@ yyreduce:
   case 310:
 
 /* Line 1806 of yacc.c  */
-#line 1164 "parser.y"
+#line 1173 "parser.y"
     { parser->quasi_level++; }
     break;
 
   case 311:
 
 /* Line 1806 of yacc.c  */
-#line 1165 "parser.y"
+#line 1174 "parser.y"
     { parser->quasi_level--;
                                   (yyval.val) = rl(rlc(list(sys_qquote_s, (yyvsp[(3) - (3)].val), nao), (yyvsp[(3) - (3)].val)),
                                           num(parser->lineno)); }
@@ -5769,14 +5778,14 @@ yyreduce:
   case 312:
 
 /* Line 1806 of yacc.c  */
-#line 1168 "parser.y"
+#line 1177 "parser.y"
     { parser->quasi_level--; }
     break;
 
   case 313:
 
 /* Line 1806 of yacc.c  */
-#line 1169 "parser.y"
+#line 1178 "parser.y"
     { parser->quasi_level++;
                                   (yyval.val) = rl(rlc(list(sys_unquote_s, (yyvsp[(3) - (3)].val), nao), (yyvsp[(3) - (3)].val)),
                                           num(parser->lineno)); }
@@ -5785,14 +5794,14 @@ yyreduce:
   case 314:
 
 /* Line 1806 of yacc.c  */
-#line 1172 "parser.y"
+#line 1181 "parser.y"
     { parser->quasi_level--; }
     break;
 
   case 315:
 
 /* Line 1806 of yacc.c  */
-#line 1173 "parser.y"
+#line 1182 "parser.y"
     { parser->quasi_level++;
                                   (yyval.val) = rl(rlc(list(sys_splice_s, (yyvsp[(3) - (3)].val), nao), (yyvsp[(3) - (3)].val)),
                                           num(parser->lineno)); }
@@ -5801,14 +5810,14 @@ yyreduce:
   case 316:
 
 /* Line 1806 of yacc.c  */
-#line 1176 "parser.y"
+#line 1185 "parser.y"
     { parser_circ_def(parser, (yyvsp[(1) - (1)].val), unique_s); }
     break;
 
   case 317:
 
 /* Line 1806 of yacc.c  */
-#line 1177 "parser.y"
+#line 1186 "parser.y"
     { parser_circ_def(parser, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
                                   (yyval.val) = (yyvsp[(3) - (3)].val); }
     break;
@@ -5816,35 +5825,35 @@ yyreduce:
   case 318:
 
 /* Line 1806 of yacc.c  */
-#line 1179 "parser.y"
+#line 1188 "parser.y"
     { (yyval.val) = parser_circ_ref(parser, (yyvsp[(1) - (1)].val)); }
     break;
 
   case 319:
 
 /* Line 1806 of yacc.c  */
-#line 1182 "parser.y"
+#line 1191 "parser.y"
     { (yyval.val) = uref_helper(parser, (yyvsp[(2) - (2)].val)); }
     break;
 
   case 320:
 
 /* Line 1806 of yacc.c  */
-#line 1183 "parser.y"
+#line 1192 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 321:
 
 /* Line 1806 of yacc.c  */
-#line 1185 "parser.y"
+#line 1194 "parser.y"
     { (yyval.val) = ifnign(symhlpr((yyvsp[(1) - (1)].lexeme), t)); }
     break;
 
   case 322:
 
 /* Line 1806 of yacc.c  */
-#line 1186 "parser.y"
+#line 1195 "parser.y"
     { (yyval.val) = cons(var_s, cons((yyvsp[(1) - (1)].val), nil));
                                   rl((yyval.val), num(parser->lineno)); }
     break;
@@ -5852,119 +5861,119 @@ yyreduce:
   case 323:
 
 /* Line 1806 of yacc.c  */
-#line 1188 "parser.y"
+#line 1197 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 324:
 
 /* Line 1806 of yacc.c  */
-#line 1189 "parser.y"
+#line 1198 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 325:
 
 /* Line 1806 of yacc.c  */
-#line 1190 "parser.y"
+#line 1199 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 326:
 
 /* Line 1806 of yacc.c  */
-#line 1191 "parser.y"
+#line 1200 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 327:
 
 /* Line 1806 of yacc.c  */
-#line 1192 "parser.y"
+#line 1201 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 328:
 
 /* Line 1806 of yacc.c  */
-#line 1193 "parser.y"
+#line 1202 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 329:
 
 /* Line 1806 of yacc.c  */
-#line 1194 "parser.y"
+#line 1203 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 330:
 
 /* Line 1806 of yacc.c  */
-#line 1195 "parser.y"
+#line 1204 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 331:
 
 /* Line 1806 of yacc.c  */
-#line 1196 "parser.y"
+#line 1205 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 332:
 
 /* Line 1806 of yacc.c  */
-#line 1197 "parser.y"
+#line 1206 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 333:
 
 /* Line 1806 of yacc.c  */
-#line 1198 "parser.y"
+#line 1207 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 334:
 
 /* Line 1806 of yacc.c  */
-#line 1199 "parser.y"
+#line 1208 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 335:
 
 /* Line 1806 of yacc.c  */
-#line 1200 "parser.y"
+#line 1209 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 336:
 
 /* Line 1806 of yacc.c  */
-#line 1201 "parser.y"
+#line 1210 "parser.y"
     { (yyval.val) = rl((yyvsp[(2) - (2)].val), num((yyvsp[(1) - (2)].lineno))); }
     break;
 
   case 337:
 
 /* Line 1806 of yacc.c  */
-#line 1202 "parser.y"
+#line 1211 "parser.y"
     { (yyval.val) = rl(cons(quasilist_s, (yyvsp[(2) - (2)].val)), num((yyvsp[(1) - (2)].lineno))); }
     break;
 
   case 338:
 
 /* Line 1806 of yacc.c  */
-#line 1203 "parser.y"
+#line 1212 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 339:
 
 /* Line 1806 of yacc.c  */
-#line 1204 "parser.y"
+#line 1213 "parser.y"
     { (yyval.val) = rl(rlc(list(quote_s, (yyvsp[(2) - (2)].val), nao), (yyvsp[(2) - (2)].val)),
                                           num(parser->lineno)); }
     break;
@@ -5972,14 +5981,14 @@ yyreduce:
   case 340:
 
 /* Line 1806 of yacc.c  */
-#line 1206 "parser.y"
+#line 1215 "parser.y"
     { parser->quasi_level++; }
     break;
 
   case 341:
 
 /* Line 1806 of yacc.c  */
-#line 1207 "parser.y"
+#line 1216 "parser.y"
     { parser->quasi_level--;
                                   (yyval.val) = rl(rlc(list(sys_qquote_s, (yyvsp[(3) - (3)].val), nao), (yyvsp[(3) - (3)].val)),
                                           num(parser->lineno)); }
@@ -5988,14 +5997,14 @@ yyreduce:
   case 342:
 
 /* Line 1806 of yacc.c  */
-#line 1210 "parser.y"
+#line 1219 "parser.y"
     { parser->quasi_level--; }
     break;
 
   case 343:
 
 /* Line 1806 of yacc.c  */
-#line 1211 "parser.y"
+#line 1220 "parser.y"
     { parser->quasi_level++;
                                   (yyval.val) = rl(rlc(list(sys_unquote_s, (yyvsp[(3) - (3)].val), nao), (yyvsp[(3) - (3)].val)),
                                           num(parser->lineno)); }
@@ -6004,14 +6013,14 @@ yyreduce:
   case 344:
 
 /* Line 1806 of yacc.c  */
-#line 1214 "parser.y"
+#line 1223 "parser.y"
     { parser->quasi_level--; }
     break;
 
   case 345:
 
 /* Line 1806 of yacc.c  */
-#line 1215 "parser.y"
+#line 1224 "parser.y"
     { parser->quasi_level++;
                                   (yyval.val) = rl(rlc(list(sys_splice_s, (yyvsp[(3) - (3)].val), nao), (yyvsp[(3) - (3)].val)),
                                           num(parser->lineno)); }
@@ -6020,7 +6029,7 @@ yyreduce:
   case 346:
 
 /* Line 1806 of yacc.c  */
-#line 1218 "parser.y"
+#line 1227 "parser.y"
     { uses_or2;
                                   (yyval.val) = rlc(list(rcons_s, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val), nao),
                                             or2((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val))); }
@@ -6029,7 +6038,7 @@ yyreduce:
   case 347:
 
 /* Line 1806 of yacc.c  */
-#line 1222 "parser.y"
+#line 1231 "parser.y"
     { uses_or2;
                                   (yyval.val) = rlc(list(rcons_s, (yyvsp[(1) - (4)].val),
                                                           uref_helper(parser, (yyvsp[(4) - (4)].val)),
@@ -6040,7 +6049,7 @@ yyreduce:
   case 348:
 
 /* Line 1806 of yacc.c  */
-#line 1228 "parser.y"
+#line 1237 "parser.y"
     { uses_or2;
                                   (yyval.val) = rlc(list(rcons_s, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val), nao),
                                             or2((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val))); }
@@ -6049,7 +6058,7 @@ yyreduce:
   case 349:
 
 /* Line 1806 of yacc.c  */
-#line 1232 "parser.y"
+#line 1241 "parser.y"
     { uses_or2;
                                   (yyval.val) = rlc(list(rcons_s, (yyvsp[(1) - (4)].val),
                                                           uref_helper(parser, (yyvsp[(4) - (4)].val)),
@@ -6060,14 +6069,14 @@ yyreduce:
   case 350:
 
 /* Line 1806 of yacc.c  */
-#line 1237 "parser.y"
+#line 1246 "parser.y"
     { (yyval.val) = qref_helper(parser, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); }
     break;
 
   case 351:
 
 /* Line 1806 of yacc.c  */
-#line 1238 "parser.y"
+#line 1247 "parser.y"
     { (yyval.val) = qref_helper(parser,
                                                    cons(t, cons((yyvsp[(1) - (3)].val), nil)),
                                                         (yyvsp[(3) - (3)].val)); }
@@ -6076,28 +6085,28 @@ yyreduce:
   case 352:
 
 /* Line 1806 of yacc.c  */
-#line 1241 "parser.y"
+#line 1250 "parser.y"
     { (yyval.val) = uref_helper(parser, (yyvsp[(2) - (2)].val)); }
     break;
 
   case 353:
 
 /* Line 1806 of yacc.c  */
-#line 1242 "parser.y"
+#line 1251 "parser.y"
     { (yyval.val) = uoref_helper(parser, (yyvsp[(2) - (2)].val)); }
     break;
 
   case 354:
 
 /* Line 1806 of yacc.c  */
-#line 1243 "parser.y"
+#line 1252 "parser.y"
     { parser_circ_def(parser, (yyvsp[(1) - (1)].val), unique_s); }
     break;
 
   case 355:
 
 /* Line 1806 of yacc.c  */
-#line 1244 "parser.y"
+#line 1253 "parser.y"
     { parser_circ_def(parser, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
                                   (yyval.val) = (yyvsp[(3) - (3)].val); }
     break;
@@ -6105,49 +6114,49 @@ yyreduce:
   case 356:
 
 /* Line 1806 of yacc.c  */
-#line 1246 "parser.y"
+#line 1255 "parser.y"
     { (yyval.val) = parser_circ_ref(parser, (yyvsp[(1) - (1)].val)); }
     break;
 
   case 357:
 
 /* Line 1806 of yacc.c  */
-#line 1249 "parser.y"
+#line 1258 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 358:
 
 /* Line 1806 of yacc.c  */
-#line 1250 "parser.y"
+#line 1259 "parser.y"
     { (yyval.val) = nil; }
     break;
 
   case 359:
 
 /* Line 1806 of yacc.c  */
-#line 1253 "parser.y"
+#line 1262 "parser.y"
     { (yyval.val) = uref_helper(parser, (yyvsp[(2) - (2)].val)); }
     break;
 
   case 360:
 
 /* Line 1806 of yacc.c  */
-#line 1254 "parser.y"
+#line 1263 "parser.y"
     { (yyval.val) = uoref_helper(parser, (yyvsp[(2) - (2)].val)); }
     break;
 
   case 361:
 
 /* Line 1806 of yacc.c  */
-#line 1255 "parser.y"
+#line 1264 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 362:
 
 /* Line 1806 of yacc.c  */
-#line 1258 "parser.y"
+#line 1267 "parser.y"
     { (yyval.val) = regex_compile((yyvsp[(2) - (3)].val), nil);
                                   end_of_regex(scnr);
                                   rl((yyval.val), num(parser->lineno)); }
@@ -6156,7 +6165,7 @@ yyreduce:
   case 363:
 
 /* Line 1806 of yacc.c  */
-#line 1261 "parser.y"
+#line 1270 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("regex"));
                                   end_of_regex(scnr); }
@@ -6165,7 +6174,7 @@ yyreduce:
   case 364:
 
 /* Line 1806 of yacc.c  */
-#line 1267 "parser.y"
+#line 1276 "parser.y"
     { (yyval.val) = regex_compile((yyvsp[(2) - (3)].val), nil);
                                   end_of_regex(scnr);
                                   rl((yyval.val), num(parser->lineno)); }
@@ -6174,7 +6183,7 @@ yyreduce:
   case 365:
 
 /* Line 1806 of yacc.c  */
-#line 1271 "parser.y"
+#line 1280 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("regex"));
                                   end_of_regex(scnr); }
@@ -6183,7 +6192,7 @@ yyreduce:
   case 366:
 
 /* Line 1806 of yacc.c  */
-#line 1276 "parser.y"
+#line 1285 "parser.y"
     { (yyval.val) = if3(cdr((yyvsp[(1) - (1)].val)),
                                                    cons(compound_s, (yyvsp[(1) - (1)].val)),
                                                    car((yyvsp[(1) - (1)].val))); }
@@ -6192,84 +6201,84 @@ yyreduce:
   case 367:
 
 /* Line 1806 of yacc.c  */
-#line 1279 "parser.y"
+#line 1288 "parser.y"
     { (yyval.val) = list(or_s, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val), nao); }
     break;
 
   case 368:
 
 /* Line 1806 of yacc.c  */
-#line 1280 "parser.y"
+#line 1289 "parser.y"
     { (yyval.val) = list(and_s, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val), nao); }
     break;
 
   case 369:
 
 /* Line 1806 of yacc.c  */
-#line 1281 "parser.y"
+#line 1290 "parser.y"
     { (yyval.val) = list(compl_s, (yyvsp[(2) - (2)].val), nao); }
     break;
 
   case 370:
 
 /* Line 1806 of yacc.c  */
-#line 1282 "parser.y"
+#line 1291 "parser.y"
     { (yyval.val) = nil; }
     break;
 
   case 371:
 
 /* Line 1806 of yacc.c  */
-#line 1285 "parser.y"
+#line 1294 "parser.y"
     { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); }
     break;
 
   case 372:
 
 /* Line 1806 of yacc.c  */
-#line 1286 "parser.y"
+#line 1295 "parser.y"
     { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)); }
     break;
 
   case 373:
 
 /* Line 1806 of yacc.c  */
-#line 1287 "parser.y"
+#line 1296 "parser.y"
     { (yyval.val) = list((yyvsp[(1) - (3)].val), list(compl_s, (yyvsp[(3) - (3)].val), nao), nao); }
     break;
 
   case 374:
 
 /* Line 1806 of yacc.c  */
-#line 1290 "parser.y"
+#line 1299 "parser.y"
     { (yyval.val) = list(zeroplus_s, (yyvsp[(1) - (2)].val), nao); }
     break;
 
   case 375:
 
 /* Line 1806 of yacc.c  */
-#line 1291 "parser.y"
+#line 1300 "parser.y"
     { (yyval.val) = list(oneplus_s, (yyvsp[(1) - (2)].val), nao); }
     break;
 
   case 376:
 
 /* Line 1806 of yacc.c  */
-#line 1292 "parser.y"
+#line 1301 "parser.y"
     { (yyval.val) = list(optional_s, (yyvsp[(1) - (2)].val), nao); }
     break;
 
   case 377:
 
 /* Line 1806 of yacc.c  */
-#line 1293 "parser.y"
+#line 1302 "parser.y"
     { (yyval.val) = list(nongreedy_s, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val), nao); }
     break;
 
   case 378:
 
 /* Line 1806 of yacc.c  */
-#line 1294 "parser.y"
+#line 1303 "parser.y"
     { if (first((yyvsp[(2) - (3)].val)) == chr('^'))
                                   { if (rest((yyvsp[(2) - (3)].val)))
                                       (yyval.val) = cons(cset_s, rest((yyvsp[(2) - (3)].val)));
@@ -6282,14 +6291,14 @@ yyreduce:
   case 379:
 
 /* Line 1806 of yacc.c  */
-#line 1301 "parser.y"
+#line 1310 "parser.y"
     { (yyval.val) = cons(set_s, nil); }
     break;
 
   case 380:
 
 /* Line 1806 of yacc.c  */
-#line 1302 "parser.y"
+#line 1311 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("regex character class")); }
     break;
@@ -6297,56 +6306,56 @@ yyreduce:
   case 381:
 
 /* Line 1806 of yacc.c  */
-#line 1304 "parser.y"
+#line 1313 "parser.y"
     { (yyval.val) = wild_s; }
     break;
 
   case 382:
 
 /* Line 1806 of yacc.c  */
-#line 1305 "parser.y"
+#line 1314 "parser.y"
     { (yyval.val) = chr(']'); }
     break;
 
   case 383:
 
 /* Line 1806 of yacc.c  */
-#line 1306 "parser.y"
+#line 1315 "parser.y"
     { (yyval.val) = chr('-'); }
     break;
 
   case 384:
 
 /* Line 1806 of yacc.c  */
-#line 1307 "parser.y"
+#line 1316 "parser.y"
     { (yyval.val) = chr((yyvsp[(1) - (1)].chr)); }
     break;
 
   case 385:
 
 /* Line 1806 of yacc.c  */
-#line 1308 "parser.y"
+#line 1317 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 386:
 
 /* Line 1806 of yacc.c  */
-#line 1309 "parser.y"
+#line 1318 "parser.y"
     { (yyval.val) = list(compound_s, string_own((yyvsp[(1) - (1)].lexeme)), nao); }
     break;
 
   case 387:
 
 /* Line 1806 of yacc.c  */
-#line 1310 "parser.y"
+#line 1319 "parser.y"
     { (yyval.val) = (yyvsp[(2) - (3)].val); }
     break;
 
   case 388:
 
 /* Line 1806 of yacc.c  */
-#line 1311 "parser.y"
+#line 1320 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("regex subexpression")); }
     break;
@@ -6354,133 +6363,133 @@ yyreduce:
   case 389:
 
 /* Line 1806 of yacc.c  */
-#line 1315 "parser.y"
+#line 1324 "parser.y"
     { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); }
     break;
 
   case 390:
 
 /* Line 1806 of yacc.c  */
-#line 1316 "parser.y"
+#line 1325 "parser.y"
     { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)); }
     break;
 
   case 391:
 
 /* Line 1806 of yacc.c  */
-#line 1319 "parser.y"
+#line 1328 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 392:
 
 /* Line 1806 of yacc.c  */
-#line 1320 "parser.y"
+#line 1329 "parser.y"
     { (yyval.val) = chr((yyvsp[(1) - (1)].chr)); }
     break;
 
   case 393:
 
 /* Line 1806 of yacc.c  */
-#line 1321 "parser.y"
+#line 1330 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 394:
 
 /* Line 1806 of yacc.c  */
-#line 1324 "parser.y"
+#line 1333 "parser.y"
     { (yyval.val) = cons(chr((yyvsp[(1) - (3)].chr)), chr((yyvsp[(3) - (3)].chr))); }
     break;
 
   case 395:
 
 /* Line 1806 of yacc.c  */
-#line 1326 "parser.y"
+#line 1335 "parser.y"
     { (yyval.chr) = '?'; }
     break;
 
   case 396:
 
 /* Line 1806 of yacc.c  */
-#line 1327 "parser.y"
+#line 1336 "parser.y"
     { (yyval.chr) = '.'; }
     break;
 
   case 397:
 
 /* Line 1806 of yacc.c  */
-#line 1328 "parser.y"
+#line 1337 "parser.y"
     { (yyval.chr) = '*'; }
     break;
 
   case 398:
 
 /* Line 1806 of yacc.c  */
-#line 1329 "parser.y"
+#line 1338 "parser.y"
     { (yyval.chr) = '+'; }
     break;
 
   case 399:
 
 /* Line 1806 of yacc.c  */
-#line 1330 "parser.y"
+#line 1339 "parser.y"
     { (yyval.chr) = '('; }
     break;
 
   case 400:
 
 /* Line 1806 of yacc.c  */
-#line 1331 "parser.y"
+#line 1340 "parser.y"
     { (yyval.chr) = ')'; }
     break;
 
   case 401:
 
 /* Line 1806 of yacc.c  */
-#line 1332 "parser.y"
+#line 1341 "parser.y"
     { (yyval.chr) = '|'; }
     break;
 
   case 402:
 
 /* Line 1806 of yacc.c  */
-#line 1333 "parser.y"
+#line 1342 "parser.y"
     { (yyval.chr) = '~'; }
     break;
 
   case 403:
 
 /* Line 1806 of yacc.c  */
-#line 1334 "parser.y"
+#line 1343 "parser.y"
     { (yyval.chr) = '&'; }
     break;
 
   case 404:
 
 /* Line 1806 of yacc.c  */
-#line 1335 "parser.y"
+#line 1344 "parser.y"
     { (yyval.chr) = '%'; }
     break;
 
   case 405:
 
 /* Line 1806 of yacc.c  */
-#line 1336 "parser.y"
+#line 1345 "parser.y"
     { (yyval.chr) = '/'; }
     break;
 
   case 406:
 
 /* Line 1806 of yacc.c  */
-#line 1337 "parser.y"
+#line 1346 "parser.y"
     { (yyval.chr) = (yyvsp[(1) - (1)].chr); }
     break;
 
   case 407:
 
 /* Line 1806 of yacc.c  */
-#line 1340 "parser.y"
+#line 1349 "parser.y"
     { switch ((yyvsp[(1) - (1)].chr))
                                   { case 's':
                                       (yyval.val) = space_k; break;
@@ -6499,7 +6508,7 @@ yyreduce:
   case 409:
 
 /* Line 1806 of yacc.c  */
-#line 1355 "parser.y"
+#line 1364 "parser.y"
     { yyerr("newline expected after directive");
                           yyerrok; }
     break;
@@ -6507,14 +6516,14 @@ yyreduce:
   case 410:
 
 /* Line 1806 of yacc.c  */
-#line 1359 "parser.y"
+#line 1368 "parser.y"
     { (yyval.val) = null_string; }
     break;
 
   case 411:
 
 /* Line 1806 of yacc.c  */
-#line 1360 "parser.y"
+#line 1369 "parser.y"
     { (yyval.val) = (yyvsp[(2) - (3)].val);
                                   rl((yyval.val), num(parser->lineno)); }
     break;
@@ -6522,7 +6531,7 @@ yyreduce:
   case 412:
 
 /* Line 1806 of yacc.c  */
-#line 1362 "parser.y"
+#line 1371 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("string literal")); }
     break;
@@ -6530,7 +6539,7 @@ yyreduce:
   case 413:
 
 /* Line 1806 of yacc.c  */
-#line 1366 "parser.y"
+#line 1375 "parser.y"
     { wchar_t ch;
                                   val str = string_own((yyvsp[(2) - (2)].lexeme));
                                   const wchar_t *cstr = c_str(str);
@@ -6549,7 +6558,7 @@ yyreduce:
   case 414:
 
 /* Line 1806 of yacc.c  */
-#line 1379 "parser.y"
+#line 1388 "parser.y"
     { (yyval.val) = chr((yyvsp[(2) - (2)].chr));
                                   end_of_char(scnr); }
     break;
@@ -6557,7 +6566,7 @@ yyreduce:
   case 415:
 
 /* Line 1806 of yacc.c  */
-#line 1381 "parser.y"
+#line 1390 "parser.y"
     { free((yyvsp[(2) - (2)].lexeme));
                                    yyerrorf(scnr,
                                             lit("invalid UTF-8 used as character name"),
@@ -6567,7 +6576,7 @@ yyreduce:
   case 416:
 
 /* Line 1806 of yacc.c  */
-#line 1385 "parser.y"
+#line 1394 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar,
                                              lit("character literal")); }
@@ -6576,14 +6585,14 @@ yyreduce:
   case 417:
 
 /* Line 1806 of yacc.c  */
-#line 1390 "parser.y"
+#line 1399 "parser.y"
     { (yyval.val) = null_string; }
     break;
 
   case 418:
 
 /* Line 1806 of yacc.c  */
-#line 1391 "parser.y"
+#line 1400 "parser.y"
     { (yyval.val) = cons(quasi_s, (yyvsp[(2) - (3)].val));
                                   rlc((yyval.val), (yyvsp[(2) - (3)].val));
                                   rl((yyval.val), num(parser->lineno)); }
@@ -6592,7 +6601,7 @@ yyreduce:
   case 419:
 
 /* Line 1806 of yacc.c  */
-#line 1394 "parser.y"
+#line 1403 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("quasistring")); }
     break;
@@ -6600,7 +6609,7 @@ yyreduce:
   case 420:
 
 /* Line 1806 of yacc.c  */
-#line 1398 "parser.y"
+#line 1407 "parser.y"
     { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil);
                                           rl((yyval.val), num(parser->lineno)); }
     break;
@@ -6608,7 +6617,7 @@ yyreduce:
   case 421:
 
 /* Line 1806 of yacc.c  */
-#line 1400 "parser.y"
+#line 1409 "parser.y"
     { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val));
                                           rl((yyval.val), num(parser->lineno)); }
     break;
@@ -6616,21 +6625,21 @@ yyreduce:
   case 422:
 
 /* Line 1806 of yacc.c  */
-#line 1404 "parser.y"
+#line 1413 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 423:
 
 /* Line 1806 of yacc.c  */
-#line 1405 "parser.y"
+#line 1414 "parser.y"
     { (yyval.val) = (yyvsp[(1) - (1)].val); }
     break;
 
   case 424:
 
 /* Line 1806 of yacc.c  */
-#line 1406 "parser.y"
+#line 1415 "parser.y"
     { (yyval.val) = cons(var_s, cons((yyvsp[(1) - (1)].val), nil));
                                   rl((yyval.val), num(parser->lineno)); }
     break;
@@ -6638,7 +6647,7 @@ yyreduce:
   case 425:
 
 /* Line 1806 of yacc.c  */
-#line 1408 "parser.y"
+#line 1417 "parser.y"
     { if (integerp((yyvsp[(2) - (2)].val)) || symbolp((yyvsp[(2) - (2)].val)))
                                     (yyval.val) = rlcp_tree(cons(var_s, cons((yyvsp[(2) - (2)].val), nil)),
                                                    (yyvsp[(2) - (2)].val));
@@ -6649,14 +6658,14 @@ yyreduce:
   case 426:
 
 /* Line 1806 of yacc.c  */
-#line 1415 "parser.y"
+#line 1424 "parser.y"
     { (yyval.val) = mkstring(one, chr((yyvsp[(1) - (1)].chr))); }
     break;
 
   case 427:
 
 /* Line 1806 of yacc.c  */
-#line 1416 "parser.y"
+#line 1425 "parser.y"
     { val ch = mkstring(one, chr((yyvsp[(1) - (2)].chr)));
                                   (yyval.val) = string_extend(ch, (yyvsp[(2) - (2)].val)); }
     break;
@@ -6664,63 +6673,63 @@ yyreduce:
   case 428:
 
 /* Line 1806 of yacc.c  */
-#line 1418 "parser.y"
+#line 1427 "parser.y"
     { (yyval.val) = string_own((yyvsp[(1) - (1)].lexeme)); }
     break;
 
   case 429:
 
 /* Line 1806 of yacc.c  */
-#line 1419 "parser.y"
+#line 1428 "parser.y"
     { (yyval.val) = string_extend(string_own((yyvsp[(1) - (2)].lexeme)), (yyvsp[(2) - (2)].val)); }
     break;
 
   case 430:
 
 /* Line 1806 of yacc.c  */
-#line 1422 "parser.y"
+#line 1431 "parser.y"
     { (yyval.val) = mkstring(one, chr((yyvsp[(1) - (1)].chr))); }
     break;
 
   case 431:
 
 /* Line 1806 of yacc.c  */
-#line 1423 "parser.y"
+#line 1432 "parser.y"
     { (yyval.val) = string_extend((yyvsp[(1) - (2)].val), chr((yyvsp[(2) - (2)].chr))); }
     break;
 
   case 432:
 
 /* Line 1806 of yacc.c  */
-#line 1424 "parser.y"
+#line 1433 "parser.y"
     { (yyval.val) = string_own((yyvsp[(1) - (1)].lexeme)); }
     break;
 
   case 433:
 
 /* Line 1806 of yacc.c  */
-#line 1425 "parser.y"
+#line 1434 "parser.y"
     { (yyval.val) = string_extend((yyvsp[(1) - (2)].val), string_own((yyvsp[(2) - (2)].lexeme))); }
     break;
 
   case 434:
 
 /* Line 1806 of yacc.c  */
-#line 1428 "parser.y"
+#line 1437 "parser.y"
     { (yyval.val) = nil; }
     break;
 
   case 435:
 
 /* Line 1806 of yacc.c  */
-#line 1429 "parser.y"
+#line 1438 "parser.y"
     { (yyval.val) = (yyvsp[(2) - (2)].val); }
     break;
 
   case 436:
 
 /* Line 1806 of yacc.c  */
-#line 1430 "parser.y"
+#line 1439 "parser.y"
     { val word = (yyvsp[(1) - (2)].val);
                                   (yyval.val) = rlc(cons(word, (yyvsp[(2) - (2)].val)), (yyvsp[(1) - (2)].val)); }
     break;
@@ -6728,7 +6737,7 @@ yyreduce:
   case 437:
 
 /* Line 1806 of yacc.c  */
-#line 1432 "parser.y"
+#line 1441 "parser.y"
     { (yyval.val) = nil;
                                   yybadtok(yychar, lit("word list")); }
     break;
@@ -6736,21 +6745,21 @@ yyreduce:
   case 438:
 
 /* Line 1806 of yacc.c  */
-#line 1436 "parser.y"
+#line 1445 "parser.y"
     { (yyval.val) = nil; }
     break;
 
   case 439:
 
 /* Line 1806 of yacc.c  */
-#line 1437 "parser.y"
+#line 1446 "parser.y"
     { (yyval.val) = (yyvsp[(2) - (2)].val); }
     break;
 
   case 440:
 
 /* Line 1806 of yacc.c  */
-#line 1438 "parser.y"
+#line 1447 "parser.y"
     { val qword = cons(quasi_s, (yyvsp[(1) - (2)].val));
                                    (yyval.val) = rlc(cons(qword, nil), (yyvsp[(1) - (2)].val)); }
     break;
@@ -6758,7 +6767,7 @@ yyreduce:
   case 441:
 
 /* Line 1806 of yacc.c  */
-#line 1442 "parser.y"
+#line 1451 "parser.y"
     { val qword = cons(quasi_s, (yyvsp[(1) - (3)].val));
                                    (yyval.val) = rlc(cons(qword, (yyvsp[(3) - (3)].val)), (yyvsp[(1) - (3)].val)); }
     break;
@@ -6766,7 +6775,7 @@ yyreduce:
   case 442:
 
 /* Line 1806 of yacc.c  */
-#line 1446 "parser.y"
+#line 1455 "parser.y"
     { (yyval.val) = make_buf(zero, nil, nil);
                                            end_of_buflit(scnr); }
     break;
@@ -6774,7 +6783,7 @@ yyreduce:
   case 443:
 
 /* Line 1806 of yacc.c  */
-#line 1448 "parser.y"
+#line 1457 "parser.y"
     { end_of_buflit(scnr);
                                            buf_trim((yyvsp[(2) - (3)].val));
                                            (yyval.val) = (yyvsp[(2) - (3)].val); }
@@ -6783,7 +6792,7 @@ yyreduce:
   case 444:
 
 /* Line 1806 of yacc.c  */
-#line 1451 "parser.y"
+#line 1460 "parser.y"
     { yyerr("unterminated buffer literal");
                                            end_of_buflit(scnr);
                                            yyerrok; }
@@ -6792,7 +6801,7 @@ yyreduce:
   case 445:
 
 /* Line 1806 of yacc.c  */
-#line 1456 "parser.y"
+#line 1465 "parser.y"
     { buf_put_u8((yyvsp[(1) - (2)].val), length_buf((yyval.val)), (yyvsp[(2) - (2)].val));
                                           (yyval.val) = (yyvsp[(1) - (2)].val); }
     break;
@@ -6800,7 +6809,7 @@ yyreduce:
   case 446:
 
 /* Line 1806 of yacc.c  */
-#line 1458 "parser.y"
+#line 1467 "parser.y"
     { (yyval.val) = make_buf(zero, nil, num_fast(512));
                                           buf_put_u8((yyval.val), zero, (yyvsp[(1) - (1)].val)); }
     break;
@@ -6808,14 +6817,14 @@ yyreduce:
   case 447:
 
 /* Line 1806 of yacc.c  */
-#line 1462 "parser.y"
+#line 1471 "parser.y"
     { (yyval.val) = num((yyvsp[(1) - (2)].chr) << 4 | (yyvsp[(2) - (2)].chr)); }
     break;
 
   case 448:
 
 /* Line 1806 of yacc.c  */
-#line 1463 "parser.y"
+#line 1472 "parser.y"
     { (yyval.val) = zero;
                                           yyerr("unpaired digit in buffer literal");
                                           yyerrok; }
@@ -6824,119 +6833,119 @@ yyreduce:
   case 449:
 
 /* Line 1806 of yacc.c  */
-#line 1470 "parser.y"
+#line 1479 "parser.y"
     { (yyval.val) = mkexp(all_s, nil, num(parser->lineno)); }
     break;
 
   case 450:
 
 /* Line 1806 of yacc.c  */
-#line 1471 "parser.y"
+#line 1480 "parser.y"
     { (yyval.val) = mkexp(some_s, nil, num(parser->lineno)); }
     break;
 
   case 451:
 
 /* Line 1806 of yacc.c  */
-#line 1472 "parser.y"
+#line 1481 "parser.y"
     { (yyval.val) = mkexp(none_s, nil, num(parser->lineno)); }
     break;
 
   case 452:
 
 /* Line 1806 of yacc.c  */
-#line 1473 "parser.y"
+#line 1482 "parser.y"
     { (yyval.val) = mkexp(maybe_s, nil, num(parser->lineno)); }
     break;
 
   case 453:
 
 /* Line 1806 of yacc.c  */
-#line 1474 "parser.y"
+#line 1483 "parser.y"
     { (yyval.val) = mkexp(cases_s, nil, num(parser->lineno)); }
     break;
 
   case 454:
 
 /* Line 1806 of yacc.c  */
-#line 1475 "parser.y"
+#line 1484 "parser.y"
     { (yyval.val) = mkexp(and_s, nil, num(parser->lineno)); }
     break;
 
   case 455:
 
 /* Line 1806 of yacc.c  */
-#line 1476 "parser.y"
+#line 1485 "parser.y"
     { (yyval.val) = mkexp(or_s, nil, num(parser->lineno)); }
     break;
 
   case 456:
 
 /* Line 1806 of yacc.c  */
-#line 1477 "parser.y"
+#line 1486 "parser.y"
     { (yyval.val) = mkexp(try_s, nil, num(parser->lineno)); }
     break;
 
   case 457:
 
 /* Line 1806 of yacc.c  */
-#line 1478 "parser.y"
+#line 1487 "parser.y"
     { (yyval.val) = mkexp(finally_s, nil, num(parser->lineno)); }
     break;
 
   case 458:
 
 /* Line 1806 of yacc.c  */
-#line 1480 "parser.y"
+#line 1489 "parser.y"
     { (yyval.val) = mkexp(block_s, (yyvsp[(2) - (3)].val), nil); }
     break;
 
   case 459:
 
 /* Line 1806 of yacc.c  */
-#line 1482 "parser.y"
+#line 1491 "parser.y"
     { (yyval.val) = mkexp(choose_s, (yyvsp[(2) - (3)].val), nil); }
     break;
 
   case 460:
 
 /* Line 1806 of yacc.c  */
-#line 1484 "parser.y"
+#line 1493 "parser.y"
     { (yyval.val) = mkexp(collect_s, (yyvsp[(2) - (3)].val), nil); }
     break;
 
   case 461:
 
 /* Line 1806 of yacc.c  */
-#line 1486 "parser.y"
+#line 1495 "parser.y"
     { (yyval.val) = mkexp(coll_s, (yyvsp[(2) - (3)].val), nil); }
     break;
 
   case 462:
 
 /* Line 1806 of yacc.c  */
-#line 1488 "parser.y"
+#line 1497 "parser.y"
     { (yyval.val) = mkexp(gather_s, (yyvsp[(2) - (3)].val), nil); }
     break;
 
   case 463:
 
 /* Line 1806 of yacc.c  */
-#line 1490 "parser.y"
+#line 1499 "parser.y"
     { (yyval.val) = mkexp(define_s, (yyvsp[(2) - (3)].val), nil); }
     break;
 
   case 464:
 
 /* Line 1806 of yacc.c  */
-#line 1492 "parser.y"
+#line 1501 "parser.y"
     { (yyval.val) = mkexp(catch_s, (yyvsp[(2) - (3)].val), nil); }
     break;
 
   case 465:
 
 /* Line 1806 of yacc.c  */
-#line 1494 "parser.y"
+#line 1503 "parser.y"
     { (yyval.val) = mkexp(if_s,
                                                          cons((yyvsp[(2) - (5)].val),
                                                               cons((yyvsp[(3) - (5)].val), (yyvsp[(4) - (5)].val))),
@@ -6946,14 +6955,14 @@ yyreduce:
   case 466:
 
 /* Line 1806 of yacc.c  */
-#line 1499 "parser.y"
+#line 1508 "parser.y"
     { yyerr("@(output) doesn't nest"); }
     break;
 
 
 
 /* Line 1806 of yacc.c  */
-#line 6987 "y.tab.c"
+#line 6996 "y.tab.c"
       default: break;
     }
   /* User semantic actions sometimes alter yychar, and that requires
@@ -7184,7 +7193,7 @@ yyreturn:
 
 
 /* Line 2067 of yacc.c  */
-#line 1503 "parser.y"
+#line 1512 "parser.y"
 
 
 const int have_yydebug = YYDEBUG;