diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-08-16 19:30:33 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-08-16 19:30:33 -0700 |
| commit | 93edcde038209335122964432bd35dee0c2ecb04 (patch) | |
| tree | b6e9490e2e7c45480c429afc876a7ca815622594 /y.tab.c.shipped | |
| parent | ae2dc9643abab6b6f15e2f5fa6c8596e0010494e (diff) | |
| download | txr-93edcde038209335122964432bd35dee0c2ecb04.tar.gz txr-93edcde038209335122964432bd35dee0c2ecb04.tar.bz2 txr-93edcde038209335122964432bd35dee0c2ecb04.zip | |
license: reformat to fit 80 columns.
* Makefile, alloca.h, args.c, args.h, arith.c, arith.h, buf.c,
buf.h, chksum.c, chksum.h, chksums/crc32.c, chksums/crc32.h,
combi.c, combi.h, debug.c, debug.h, eval.c, eval.h, ffi.c,
ffi.h, filter.c, filter.h, ftw.c, ftw.h, gc.c, gc.h, glob.c,
glob.h, hash.c, hash.h, itypes.c, itypes.h, jmp.S, lib.c,
lib.h, lisplib.c, lisplib.h, match.c, match.h, parser.c,
parser.h, parser.l, parser.y, rand.c, rand.h, regex.c,
regex.h, signal.c, signal.h, socket.c, socket.h,
stdlib/asm.tl, stdlib/awk.tl, stdlib/build.tl,
stdlib/compiler.tl, stdlib/constfun.tl, stdlib/conv.tl,
stdlib/copy-file.tl, stdlib/debugger.tl, stdlib/defset.tl,
stdlib/doloop.tl, stdlib/each-prod.tl, stdlib/error.tl,
stdlib/except.tl, stdlib/ffi.tl, stdlib/getopts.tl,
stdlib/getput.tl, stdlib/hash.tl, stdlib/ifa.tl,
stdlib/keyparams.tl, stdlib/match.tl, stdlib/op.tl,
stdlib/optimize.tl, stdlib/package.tl, stdlib/param.tl,
stdlib/path-test.tl, stdlib/pic.tl, stdlib/place.tl,
stdlib/pmac.tl, stdlib/quips.tl, stdlib/save-exe.tl,
stdlib/socket.tl, stdlib/stream-wrap.tl, stdlib/struct.tl,
stdlib/tagbody.tl, stdlib/termios.tl, stdlib/trace.tl,
stdlib/txr-case.tl, stdlib/type.tl, stdlib/vm-param.tl,
stdlib/with-resources.tl, stdlib/with-stream.tl,
stdlib/yield.tl, stream.c, stream.h, struct.c, struct.h,
strudel.c, strudel.h, sysif.c, sysif.h, syslog.c, syslog.h,
termios.c, termios.h, time.c, time.h, tree.c, tree.h, txr.c,
txr.h, unwind.c, unwind.h, utf8.c, utf8.h, vm.c, vm.h, vmop.h:
License reformatted.
* lex.yy.c.shipped, y.tab.c.shipped, y.tab.h.shipped: Updated.
Diffstat (limited to 'y.tab.c.shipped')
| -rw-r--r-- | y.tab.c.shipped | 1055 |
1 files changed, 528 insertions, 527 deletions
diff --git a/y.tab.c.shipped b/y.tab.c.shipped index aee82674..34fc7b4b 100644 --- a/y.tab.c.shipped +++ b/y.tab.c.shipped @@ -47,23 +47,24 @@ * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions are met: * - * 1. Redistributions of source code must retain the above copyright notice, this - * list of conditions and the following disclaimer. + * 1. Redistributions of source code must retain the above copyright notice, + * this list of conditions and the following disclaimer. * * 2. Redistributions in binary form must reproduce the above copyright notice, * this list of conditions and the following disclaimer in the documentation * and/or other materials provided with the distribution. * - * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED - * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE - * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR - * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER - * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, - * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE - * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. */ #include <stddef.h> @@ -139,7 +140,7 @@ INLINE val expand_form_ver(val form, int ver) /* Line 268 of yacc.c */ -#line 173 "y.tab.c" +#line 174 "y.tab.c" /* Enabling traces. */ #ifndef YYDEBUG @@ -320,7 +321,7 @@ typedef union YYSTYPE { /* Line 293 of yacc.c */ -#line 107 "parser.y" +#line 108 "parser.y" wchar_t *lexeme; union obj *val; @@ -330,7 +331,7 @@ typedef union YYSTYPE /* Line 293 of yacc.c */ -#line 364 "y.tab.c" +#line 365 "y.tab.c" } YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1 # define yystype YYSTYPE /* obsolescent; will be withdrawn */ @@ -342,7 +343,7 @@ typedef union YYSTYPE /* Line 343 of yacc.c */ -#line 376 "y.tab.c" +#line 377 "y.tab.c" #ifdef short # undef short @@ -830,53 +831,53 @@ static const yytype_int16 yyrhs[] = /* YYRLINE[YYN] -- source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { - 0, 175, 175, 176, 179, 178, 182, 181, 184, 191, - 198, 198, 201, 208, 217, 217, 220, 220, 223, 223, - 226, 227, 228, 231, 231, 234, 234, 237, 237, 240, - 241, 242, 247, 248, 249, 252, 253, 256, 257, 260, - 261, 262, 263, 264, 265, 266, 267, 268, 269, 272, - 273, 274, 275, 278, 280, 284, 287, 293, 295, 299, - 301, 305, 307, 311, 322, 327, 330, 335, 344, 356, - 361, 365, 366, 367, 370, 376, 388, 393, 394, 397, - 398, 401, 404, 405, 406, 409, 432, 436, 449, 452, - 457, 460, 463, 464, 467, 469, 474, 475, 483, 485, - 488, 489, 492, 494, 496, 507, 510, 518, 521, 530, - 533, 535, 537, 539, 540, 542, 543, 544, 545, 548, - 554, 557, 558, 559, 562, 567, 571, 573, 575, 580, - 588, 593, 598, 604, 609, 610, 613, 616, 622, 626, - 628, 631, 643, 648, 650, 653, 656, 659, 664, 665, - 668, 669, 670, 673, 679, 684, 688, 692, 701, 705, - 712, 719, 722, 734, 737, 741, 752, 755, 758, 761, - 762, 764, 767, 769, 772, 773, 774, 775, 778, 780, - 782, 783, 785, 788, 791, 795, 798, 801, 809, 812, - 818, 824, 831, 832, 833, 834, 835, 836, 840, 845, - 848, 852, 855, 856, 858, 860, 863, 868, 877, 882, - 885, 890, 895, 899, 908, 912, 923, 927, 931, 935, - 940, 944, 960, 964, 966, 966, 970, 971, 972, 973, - 975, 976, 982, 983, 989, 989, 994, 994, 999, 999, - 1002, 1003, 1005, 1007, 1011, 1013, 1016, 1020, 1029, 1031, - 1035, 1042, 1053, 1054, 1056, 1059, 1063, 1067, 1068, 1074, - 1075, 1076, 1077, 1081, 1086, 1090, 1095, 1099, 1103, 1104, - 1105, 1109, 1110, 1111, 1114, 1117, 1118, 1121, 1123, 1128, - 1131, 1131, 1135, 1135, 1139, 1139, 1142, 1142, 1145, 1148, - 1150, 1154, 1156, 1162, 1163, 1165, 1166, 1167, 1168, 1169, - 1170, 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1178, 1179, - 1180, 1181, 1183, 1183, 1187, 1187, 1191, 1191, 1195, 1195, - 1198, 1201, 1202, 1204, 1205, 1207, 1208, 1209, 1210, 1211, - 1212, 1213, 1214, 1215, 1216, 1217, 1218, 1219, 1220, 1221, - 1222, 1223, 1225, 1225, 1229, 1229, 1233, 1233, 1237, 1240, - 1246, 1250, 1256, 1257, 1260, 1261, 1262, 1262, 1265, 1268, - 1269, 1272, 1273, 1274, 1277, 1280, 1285, 1289, 1295, 1298, - 1299, 1300, 1301, 1304, 1305, 1306, 1309, 1310, 1311, 1312, - 1313, 1320, 1321, 1323, 1324, 1325, 1326, 1327, 1328, 1329, - 1330, 1334, 1335, 1338, 1339, 1340, 1343, 1345, 1346, 1347, - 1348, 1349, 1350, 1351, 1352, 1353, 1354, 1355, 1356, 1359, - 1373, 1374, 1378, 1379, 1381, 1385, 1398, 1400, 1404, 1409, - 1410, 1413, 1417, 1419, 1423, 1424, 1425, 1427, 1434, 1435, - 1437, 1438, 1441, 1442, 1443, 1444, 1447, 1448, 1449, 1451, - 1455, 1456, 1457, 1459, 1465, 1467, 1470, 1475, 1477, 1481, - 1482, 1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, - 1498, 1500, 1502, 1504, 1506, 1508, 1510, 1512, 1517 + 0, 176, 176, 177, 180, 179, 183, 182, 185, 192, + 199, 199, 202, 209, 218, 218, 221, 221, 224, 224, + 227, 228, 229, 232, 232, 235, 235, 238, 238, 241, + 242, 243, 248, 249, 250, 253, 254, 257, 258, 261, + 262, 263, 264, 265, 266, 267, 268, 269, 270, 273, + 274, 275, 276, 279, 281, 285, 288, 294, 296, 300, + 302, 306, 308, 312, 323, 328, 331, 336, 345, 357, + 362, 366, 367, 368, 371, 377, 389, 394, 395, 398, + 399, 402, 405, 406, 407, 410, 433, 437, 450, 453, + 458, 461, 464, 465, 468, 470, 475, 476, 484, 486, + 489, 490, 493, 495, 497, 508, 511, 519, 522, 531, + 534, 536, 538, 540, 541, 543, 544, 545, 546, 549, + 555, 558, 559, 560, 563, 568, 572, 574, 576, 581, + 589, 594, 599, 605, 610, 611, 614, 617, 623, 627, + 629, 632, 644, 649, 651, 654, 657, 660, 665, 666, + 669, 670, 671, 674, 680, 685, 689, 693, 702, 706, + 713, 720, 723, 735, 738, 742, 753, 756, 759, 762, + 763, 765, 768, 770, 773, 774, 775, 776, 779, 781, + 783, 784, 786, 789, 792, 796, 799, 802, 810, 813, + 819, 825, 832, 833, 834, 835, 836, 837, 841, 846, + 849, 853, 856, 857, 859, 861, 864, 869, 878, 883, + 886, 891, 896, 900, 909, 913, 924, 928, 932, 936, + 941, 945, 961, 965, 967, 967, 971, 972, 973, 974, + 976, 977, 983, 984, 990, 990, 995, 995, 1000, 1000, + 1003, 1004, 1006, 1008, 1012, 1014, 1017, 1021, 1030, 1032, + 1036, 1043, 1054, 1055, 1057, 1060, 1064, 1068, 1069, 1075, + 1076, 1077, 1078, 1082, 1087, 1091, 1096, 1100, 1104, 1105, + 1106, 1110, 1111, 1112, 1115, 1118, 1119, 1122, 1124, 1129, + 1132, 1132, 1136, 1136, 1140, 1140, 1143, 1143, 1146, 1149, + 1151, 1155, 1157, 1163, 1164, 1166, 1167, 1168, 1169, 1170, + 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1180, + 1181, 1182, 1184, 1184, 1188, 1188, 1192, 1192, 1196, 1196, + 1199, 1202, 1203, 1205, 1206, 1208, 1209, 1210, 1211, 1212, + 1213, 1214, 1215, 1216, 1217, 1218, 1219, 1220, 1221, 1222, + 1223, 1224, 1226, 1226, 1230, 1230, 1234, 1234, 1238, 1241, + 1247, 1251, 1257, 1258, 1261, 1262, 1263, 1263, 1266, 1269, + 1270, 1273, 1274, 1275, 1278, 1281, 1286, 1290, 1296, 1299, + 1300, 1301, 1302, 1305, 1306, 1307, 1310, 1311, 1312, 1313, + 1314, 1321, 1322, 1324, 1325, 1326, 1327, 1328, 1329, 1330, + 1331, 1335, 1336, 1339, 1340, 1341, 1344, 1346, 1347, 1348, + 1349, 1350, 1351, 1352, 1353, 1354, 1355, 1356, 1357, 1360, + 1374, 1375, 1379, 1380, 1382, 1386, 1399, 1401, 1405, 1410, + 1411, 1414, 1418, 1420, 1424, 1425, 1426, 1428, 1435, 1436, + 1438, 1439, 1442, 1443, 1444, 1445, 1448, 1449, 1450, 1452, + 1456, 1457, 1458, 1460, 1466, 1468, 1471, 1476, 1478, 1482, + 1483, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, 1498, + 1499, 1501, 1503, 1505, 1507, 1509, 1511, 1513, 1518 }; #endif @@ -3192,14 +3193,14 @@ yyreduce: case 2: /* Line 1806 of yacc.c */ -#line 175 "parser.y" +#line 176 "parser.y" { set_syntax_tree(parser, (yyvsp[(1) - (1)].val)); } break; case 3: /* Line 1806 of yacc.c */ -#line 176 "parser.y" +#line 177 "parser.y" { set_syntax_tree(parser, (yyvsp[(2) - (2)].val)); end_of_regex(scnr); } break; @@ -3207,35 +3208,35 @@ yyreduce: case 4: /* Line 1806 of yacc.c */ -#line 179 "parser.y" +#line 180 "parser.y" { set_syntax_tree(parser, (yyvsp[(2) - (2)].val)); YYACCEPT; } break; case 5: /* Line 1806 of yacc.c */ -#line 180 "parser.y" +#line 181 "parser.y" { internal_error("notreached"); } break; case 6: /* Line 1806 of yacc.c */ -#line 182 "parser.y" +#line 183 "parser.y" { set_syntax_tree(parser, (yyvsp[(2) - (2)].val)); YYACCEPT; } break; case 7: /* Line 1806 of yacc.c */ -#line 183 "parser.y" +#line 184 "parser.y" { internal_error("notreached"); } break; case 8: /* Line 1806 of yacc.c */ -#line 184 "parser.y" +#line 185 "parser.y" { if (yychar == YYEOF) { parser->syntax_tree = nao; YYACCEPT; @@ -3248,7 +3249,7 @@ yyreduce: case 9: /* Line 1806 of yacc.c */ -#line 191 "parser.y" +#line 192 "parser.y" { if (yychar == YYEOF) { parser->syntax_tree = nao; YYACCEPT; @@ -3261,7 +3262,7 @@ yyreduce: case 10: /* Line 1806 of yacc.c */ -#line 198 "parser.y" +#line 199 "parser.y" { set_syntax_tree(parser, (yyvsp[(2) - (2)].val)); YYACCEPT; } break; @@ -3269,14 +3270,14 @@ yyreduce: case 11: /* Line 1806 of yacc.c */ -#line 200 "parser.y" +#line 201 "parser.y" { internal_error("notreached"); } break; case 12: /* Line 1806 of yacc.c */ -#line 201 "parser.y" +#line 202 "parser.y" { if (yychar == YYEOF) { parser->syntax_tree = nao; YYACCEPT; @@ -3289,7 +3290,7 @@ yyreduce: case 13: /* Line 1806 of yacc.c */ -#line 208 "parser.y" +#line 209 "parser.y" { parser->syntax_tree = nil; if (parser->errors >= 8) YYABORT; @@ -3300,14 +3301,14 @@ yyreduce: case 14: /* Line 1806 of yacc.c */ -#line 217 "parser.y" +#line 218 "parser.y" { parser->ignore = 1; } break; case 15: /* Line 1806 of yacc.c */ -#line 218 "parser.y" +#line 219 "parser.y" { parser->ignore = 0; (yyval.val) = nao; } break; @@ -3315,14 +3316,14 @@ yyreduce: case 16: /* Line 1806 of yacc.c */ -#line 220 "parser.y" +#line 221 "parser.y" { parser->ignore = 1; } break; case 17: /* Line 1806 of yacc.c */ -#line 221 "parser.y" +#line 222 "parser.y" { parser->ignore = 0; (yyval.val) = nao; } break; @@ -3330,14 +3331,14 @@ yyreduce: case 18: /* Line 1806 of yacc.c */ -#line 223 "parser.y" +#line 224 "parser.y" { parser->ignore = 1; } break; case 19: /* Line 1806 of yacc.c */ -#line 224 "parser.y" +#line 225 "parser.y" { parser->ignore = 0; (yyval.val) = nao; } break; @@ -3345,35 +3346,35 @@ yyreduce: case 20: /* Line 1806 of yacc.c */ -#line 226 "parser.y" +#line 227 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 21: /* Line 1806 of yacc.c */ -#line 227 "parser.y" +#line 228 "parser.y" { (yyval.val) = uref_helper(parser, (yyvsp[(2) - (2)].val)); } break; case 22: /* Line 1806 of yacc.c */ -#line 228 "parser.y" +#line 229 "parser.y" { (yyval.val) = uoref_helper(parser, (yyvsp[(2) - (2)].val)); } break; case 23: /* Line 1806 of yacc.c */ -#line 231 "parser.y" +#line 232 "parser.y" { parser->ignore = 1; } break; case 24: /* Line 1806 of yacc.c */ -#line 232 "parser.y" +#line 233 "parser.y" { parser->ignore = 0; (yyval.val) = nao; } break; @@ -3381,14 +3382,14 @@ yyreduce: case 25: /* Line 1806 of yacc.c */ -#line 234 "parser.y" +#line 235 "parser.y" { parser->ignore = 1; } break; case 26: /* Line 1806 of yacc.c */ -#line 235 "parser.y" +#line 236 "parser.y" { parser->ignore = 0; (yyval.val) = nao; } break; @@ -3396,14 +3397,14 @@ yyreduce: case 27: /* Line 1806 of yacc.c */ -#line 237 "parser.y" +#line 238 "parser.y" { parser->ignore = 1; } break; case 28: /* Line 1806 of yacc.c */ -#line 238 "parser.y" +#line 239 "parser.y" { parser->ignore = 0; (yyval.val) = nao; } break; @@ -3411,140 +3412,140 @@ yyreduce: case 29: /* Line 1806 of yacc.c */ -#line 240 "parser.y" +#line 241 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 30: /* Line 1806 of yacc.c */ -#line 241 "parser.y" +#line 242 "parser.y" { (yyval.val) = uref_helper(parser, (yyvsp[(2) - (2)].val)); } break; case 31: /* Line 1806 of yacc.c */ -#line 242 "parser.y" +#line 243 "parser.y" { (yyval.val) = uoref_helper(parser, (yyvsp[(2) - (2)].val)); } break; case 32: /* Line 1806 of yacc.c */ -#line 247 "parser.y" +#line 248 "parser.y" { internal_error("notreached"); } break; case 33: /* Line 1806 of yacc.c */ -#line 248 "parser.y" +#line 249 "parser.y" { internal_error("notreached"); } break; case 34: /* Line 1806 of yacc.c */ -#line 249 "parser.y" +#line 250 "parser.y" { internal_error("notreached"); } break; case 35: /* Line 1806 of yacc.c */ -#line 252 "parser.y" +#line 253 "parser.y" { (yyval.val) = check_parse_time_action(cons((yyvsp[(1) - (1)].val), nil)); } break; case 36: /* Line 1806 of yacc.c */ -#line 253 "parser.y" +#line 254 "parser.y" { (yyval.val) = check_parse_time_action(cons((yyvsp[(2) - (2)].val), (yyvsp[(1) - (2)].val))); } break; case 37: /* Line 1806 of yacc.c */ -#line 256 "parser.y" +#line 257 "parser.y" { (yyval.val) = us_nreverse((yyvsp[(1) - (1)].val)); } break; case 38: /* Line 1806 of yacc.c */ -#line 257 "parser.y" +#line 258 "parser.y" { (yyval.val) = nil; } break; case 39: /* Line 1806 of yacc.c */ -#line 260 "parser.y" +#line 261 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 40: /* Line 1806 of yacc.c */ -#line 261 "parser.y" +#line 262 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 41: /* Line 1806 of yacc.c */ -#line 262 "parser.y" +#line 263 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 42: /* Line 1806 of yacc.c */ -#line 263 "parser.y" +#line 264 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 43: /* Line 1806 of yacc.c */ -#line 264 "parser.y" +#line 265 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 44: /* Line 1806 of yacc.c */ -#line 265 "parser.y" +#line 266 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 45: /* Line 1806 of yacc.c */ -#line 266 "parser.y" +#line 267 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 46: /* Line 1806 of yacc.c */ -#line 267 "parser.y" +#line 268 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 47: /* Line 1806 of yacc.c */ -#line 268 "parser.y" +#line 269 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 48: /* Line 1806 of yacc.c */ -#line 269 "parser.y" +#line 270 "parser.y" { (yyval.val) = list(define_transform(parser, (yyvsp[(1) - (1)].val)), nao); rlc(car((yyval.val)), (yyvsp[(1) - (1)].val)); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } @@ -3553,35 +3554,35 @@ yyreduce: case 49: /* Line 1806 of yacc.c */ -#line 272 "parser.y" +#line 273 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 50: /* Line 1806 of yacc.c */ -#line 273 "parser.y" +#line 274 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 51: /* Line 1806 of yacc.c */ -#line 274 "parser.y" +#line 275 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; case 52: /* Line 1806 of yacc.c */ -#line 275 "parser.y" +#line 276 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 53: /* Line 1806 of yacc.c */ -#line 278 "parser.y" +#line 279 "parser.y" { (yyval.val) = list(all_s, (yyvsp[(3) - (3)].val), nao); rl((yyval.val), num((yyvsp[(1) - (3)].lineno))); } break; @@ -3589,7 +3590,7 @@ yyreduce: case 54: /* Line 1806 of yacc.c */ -#line 280 "parser.y" +#line 281 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("all clause")); } break; @@ -3597,7 +3598,7 @@ yyreduce: case 55: /* Line 1806 of yacc.c */ -#line 285 "parser.y" +#line 286 "parser.y" { (yyval.val) = list(some_s, (yyvsp[(5) - (5)].val), (yyvsp[(2) - (5)].val), nao); rl((yyval.val), num((yyvsp[(1) - (5)].lineno))); } break; @@ -3605,7 +3606,7 @@ yyreduce: case 56: /* Line 1806 of yacc.c */ -#line 289 "parser.y" +#line 290 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("some clause")); } break; @@ -3613,7 +3614,7 @@ yyreduce: case 57: /* Line 1806 of yacc.c */ -#line 293 "parser.y" +#line 294 "parser.y" { (yyval.val) = list(none_s, (yyvsp[(3) - (3)].val), nao); rl((yyval.val), num((yyvsp[(1) - (3)].lineno))); } break; @@ -3621,7 +3622,7 @@ yyreduce: case 58: /* Line 1806 of yacc.c */ -#line 295 "parser.y" +#line 296 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("none clause")); } break; @@ -3629,7 +3630,7 @@ yyreduce: case 59: /* Line 1806 of yacc.c */ -#line 299 "parser.y" +#line 300 "parser.y" { (yyval.val) = list(maybe_s, (yyvsp[(3) - (3)].val), nao); rl((yyval.val), num((yyvsp[(1) - (3)].lineno))); } break; @@ -3637,7 +3638,7 @@ yyreduce: case 60: /* Line 1806 of yacc.c */ -#line 301 "parser.y" +#line 302 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("maybe clause")); } break; @@ -3645,7 +3646,7 @@ yyreduce: case 61: /* Line 1806 of yacc.c */ -#line 305 "parser.y" +#line 306 "parser.y" { (yyval.val) = list(cases_s, (yyvsp[(3) - (3)].val), nao); rl((yyval.val), num((yyvsp[(1) - (3)].lineno))); } break; @@ -3653,7 +3654,7 @@ yyreduce: case 62: /* Line 1806 of yacc.c */ -#line 307 "parser.y" +#line 308 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("cases clause")); } break; @@ -3661,7 +3662,7 @@ yyreduce: case 63: /* Line 1806 of yacc.c */ -#line 313 "parser.y" +#line 314 "parser.y" { val name = first((yyvsp[(2) - (7)].val)); if (gt(length((yyvsp[(2) - (7)].val)), one)) yyerr("block: takes zero or no arguments"); @@ -3676,7 +3677,7 @@ yyreduce: case 64: /* Line 1806 of yacc.c */ -#line 323 "parser.y" +#line 324 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("block clause")); } break; @@ -3684,7 +3685,7 @@ yyreduce: case 65: /* Line 1806 of yacc.c */ -#line 328 "parser.y" +#line 329 "parser.y" { (yyval.val) = list(choose_s, (yyvsp[(5) - (5)].val), (yyvsp[(2) - (5)].val), nao); rl((yyval.val), num((yyvsp[(1) - (5)].lineno))); } break; @@ -3692,7 +3693,7 @@ yyreduce: case 66: /* Line 1806 of yacc.c */ -#line 331 "parser.y" +#line 332 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("choose clause")); } break; @@ -3700,7 +3701,7 @@ yyreduce: case 67: /* Line 1806 of yacc.c */ -#line 337 "parser.y" +#line 338 "parser.y" { val args = match_expand_keyword_args((yyvsp[(2) - (7)].val)); (yyval.val) = list(gather_s, append2(mapcar(pa_12_1(func_n2(cons), nil), @@ -3712,7 +3713,7 @@ yyreduce: case 68: /* Line 1806 of yacc.c */ -#line 348 "parser.y" +#line 349 "parser.y" { val args = match_expand_keyword_args((yyvsp[(2) - (12)].val)); (yyval.val) = list(gather_s, append2(mapcar(pa_12_1(func_n2(cons), nil), @@ -3725,7 +3726,7 @@ yyreduce: case 69: /* Line 1806 of yacc.c */ -#line 357 "parser.y" +#line 358 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("gather clause")); } break; @@ -3733,35 +3734,35 @@ yyreduce: case 70: /* Line 1806 of yacc.c */ -#line 362 "parser.y" +#line 363 "parser.y" { (yyval.val) = if2((yyvsp[(1) - (2)].val), cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val))); } break; case 71: /* Line 1806 of yacc.c */ -#line 365 "parser.y" +#line 366 "parser.y" { (yyval.val) = (yyvsp[(3) - (3)].val); } break; case 72: /* Line 1806 of yacc.c */ -#line 366 "parser.y" +#line 367 "parser.y" { (yyval.val) = (yyvsp[(3) - (3)].val); } break; case 73: /* Line 1806 of yacc.c */ -#line 367 "parser.y" +#line 368 "parser.y" { (yyval.val) = nil; } break; case 74: /* Line 1806 of yacc.c */ -#line 371 "parser.y" +#line 372 "parser.y" { val args = match_expand_keyword_args((yyvsp[(2) - (7)].val)); (yyval.val) = list(car((yyvsp[(1) - (7)].val)), (yyvsp[(5) - (7)].val), nil, args, @@ -3772,7 +3773,7 @@ yyreduce: case 75: /* Line 1806 of yacc.c */ -#line 379 "parser.y" +#line 380 "parser.y" { val args = match_expand_keyword_args((yyvsp[(2) - (12)].val)); if (nilp((yyvsp[(10) - (12)].val))) yyerr("empty until/last in collect"); @@ -3787,7 +3788,7 @@ yyreduce: case 76: /* Line 1806 of yacc.c */ -#line 389 "parser.y" +#line 390 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("collect clause")); } break; @@ -3795,63 +3796,63 @@ yyreduce: case 77: /* Line 1806 of yacc.c */ -#line 393 "parser.y" +#line 394 "parser.y" { (yyval.val) = cons(collect_s, num((yyvsp[(1) - (1)].lineno))); } break; case 78: /* Line 1806 of yacc.c */ -#line 394 "parser.y" +#line 395 "parser.y" { (yyval.val) = cons(repeat_s, num((yyvsp[(1) - (1)].lineno))); } break; case 79: /* Line 1806 of yacc.c */ -#line 397 "parser.y" +#line 398 "parser.y" { (yyval.val) = cons(num((yyvsp[(1) - (1)].lineno)), until_s); } break; case 80: /* Line 1806 of yacc.c */ -#line 398 "parser.y" +#line 399 "parser.y" { (yyval.val) = cons(num((yyvsp[(1) - (1)].lineno)), last_s); } break; case 81: /* Line 1806 of yacc.c */ -#line 401 "parser.y" +#line 402 "parser.y" { (yyval.val) = if2((yyvsp[(1) - (2)].val), cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val))); } break; case 82: /* Line 1806 of yacc.c */ -#line 404 "parser.y" +#line 405 "parser.y" { (yyval.val) = nil; } break; case 83: /* Line 1806 of yacc.c */ -#line 405 "parser.y" +#line 406 "parser.y" { (yyval.val) = (yyvsp[(3) - (3)].val); } break; case 84: /* Line 1806 of yacc.c */ -#line 406 "parser.y" +#line 407 "parser.y" { (yyval.val) = (yyvsp[(3) - (3)].val); } break; case 85: /* Line 1806 of yacc.c */ -#line 413 "parser.y" +#line 414 "parser.y" { if (opt_compat && opt_compat <= 136) { val xexp = expand_meta((yyvsp[(2) - (9)].val), nil); val req = rlc(cons(require_s, xexp), (yyvsp[(2) - (9)].val)); @@ -3876,14 +3877,14 @@ yyreduce: case 86: /* Line 1806 of yacc.c */ -#line 433 "parser.y" +#line 434 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("if clause")); } break; case 87: /* Line 1806 of yacc.c */ -#line 438 "parser.y" +#line 439 "parser.y" { if (opt_compat && opt_compat <= 136) { val xexp = expand_meta((yyvsp[(2) - (6)].val), nil); val req = rlc(cons(require_s, xexp), (yyvsp[(2) - (6)].val)); @@ -3900,14 +3901,14 @@ yyreduce: case 88: /* Line 1806 of yacc.c */ -#line 449 "parser.y" +#line 450 "parser.y" { (yyval.val) = nil; } break; case 89: /* Line 1806 of yacc.c */ -#line 453 "parser.y" +#line 454 "parser.y" { if (opt_compat && opt_compat <= 136) { (yyval.val) = (yyvsp[(3) - (3)].val); } else @@ -3917,35 +3918,35 @@ yyreduce: case 90: /* Line 1806 of yacc.c */ -#line 457 "parser.y" +#line 458 "parser.y" { (yyval.val) = nil; } break; case 91: /* Line 1806 of yacc.c */ -#line 460 "parser.y" +#line 461 "parser.y" { (yyval.val) = (yyvsp[(1) - (2)].val); } break; case 92: /* Line 1806 of yacc.c */ -#line 463 "parser.y" +#line 464 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 93: /* Line 1806 of yacc.c */ -#line 464 "parser.y" +#line 465 "parser.y" { (yyval.val) = nil; } break; case 94: /* Line 1806 of yacc.c */ -#line 467 "parser.y" +#line 468 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; @@ -3953,7 +3954,7 @@ yyreduce: case 95: /* Line 1806 of yacc.c */ -#line 469 "parser.y" +#line 470 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)); rlc((yyval.val), (yyvsp[(1) - (2)].val)); } break; @@ -3961,14 +3962,14 @@ yyreduce: case 96: /* Line 1806 of yacc.c */ -#line 474 "parser.y" +#line 475 "parser.y" { (yyval.val) = rl(string_own((yyvsp[(1) - (1)].lexeme)), num(parser->lineno)); } break; case 97: /* Line 1806 of yacc.c */ -#line 475 "parser.y" +#line 476 "parser.y" { if ((yyvsp[(1) - (1)].lexeme)[0] == ' ' && (yyvsp[(1) - (1)].lexeme)[1] == 0) { val spaces = list(oneplus_s, chr(' '), nao); @@ -3982,7 +3983,7 @@ yyreduce: case 98: /* Line 1806 of yacc.c */ -#line 483 "parser.y" +#line 484 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); rl((yyval.val), num(parser->lineno)); } break; @@ -3990,28 +3991,28 @@ yyreduce: case 99: /* Line 1806 of yacc.c */ -#line 485 "parser.y" +#line 486 "parser.y" { (yyval.val) = null_string; } break; case 100: /* Line 1806 of yacc.c */ -#line 488 "parser.y" +#line 489 "parser.y" { (yyval.val) = rlc(cons((yyvsp[(1) - (1)].val), nil), (yyvsp[(1) - (1)].val)); } break; case 101: /* Line 1806 of yacc.c */ -#line 489 "parser.y" +#line 490 "parser.y" { (yyval.val) = rlc(cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)), (yyvsp[(2) - (2)].val)); } break; case 102: /* Line 1806 of yacc.c */ -#line 492 "parser.y" +#line 493 "parser.y" { (yyval.val) = rlc(cons(text_s, (yyvsp[(1) - (1)].val)), (yyvsp[(1) - (1)].val)); (yyval.val) = rlc(optimize_text((yyval.val)), (yyval.val)); } break; @@ -4019,7 +4020,7 @@ yyreduce: case 103: /* Line 1806 of yacc.c */ -#line 494 "parser.y" +#line 495 "parser.y" { (yyval.val) = rl((yyvsp[(1) - (1)].val), num(parser->lineno)); match_reg_elem((yyval.val)); } break; @@ -4027,7 +4028,7 @@ yyreduce: case 104: /* Line 1806 of yacc.c */ -#line 496 "parser.y" +#line 497 "parser.y" { val sym = first((yyvsp[(1) - (1)].val)); if (sym == do_s || sym == require_s) (yyval.val) = rlc(cons(sym, @@ -4044,7 +4045,7 @@ yyreduce: case 105: /* Line 1806 of yacc.c */ -#line 507 "parser.y" +#line 508 "parser.y" { val args = match_expand_keyword_args((yyvsp[(2) - (5)].val)); (yyval.val) = list(coll_s, (yyvsp[(4) - (5)].val), nil, args, nao); rl((yyval.val), num((yyvsp[(1) - (5)].lineno))); } @@ -4053,7 +4054,7 @@ yyreduce: case 106: /* Line 1806 of yacc.c */ -#line 512 "parser.y" +#line 513 "parser.y" { val args = match_expand_keyword_args((yyvsp[(2) - (9)].val)); (yyval.val) = list(coll_s, (yyvsp[(4) - (9)].val), cons(cdr((yyvsp[(5) - (9)].val)), cons((yyvsp[(6) - (9)].val), (yyvsp[(8) - (9)].val))), @@ -4065,7 +4066,7 @@ yyreduce: case 107: /* Line 1806 of yacc.c */ -#line 518 "parser.y" +#line 519 "parser.y" { val args = match_expand_keyword_args((yyvsp[(2) - (5)].val)); (yyval.val) = list(rep_s, (yyvsp[(4) - (5)].val), nil, args, nao); rl((yyval.val), num((yyvsp[(1) - (5)].lineno))); } @@ -4074,7 +4075,7 @@ yyreduce: case 108: /* Line 1806 of yacc.c */ -#line 524 "parser.y" +#line 525 "parser.y" { val args = match_expand_keyword_args((yyvsp[(2) - (9)].val)); (yyval.val) = list(rep_s, (yyvsp[(4) - (9)].val), cons(cdr((yyvsp[(5) - (9)].val)), cons((yyvsp[(6) - (9)].val), (yyvsp[(8) - (9)].val))), @@ -4086,7 +4087,7 @@ yyreduce: case 109: /* Line 1806 of yacc.c */ -#line 530 "parser.y" +#line 531 "parser.y" { (yyval.val) = list(block_s, car((yyvsp[(2) - (5)].val)), cons((yyvsp[(4) - (5)].val), nil), nao); rl((yyval.val), num((yyvsp[(1) - (5)].lineno))); } @@ -4095,7 +4096,7 @@ yyreduce: case 110: /* Line 1806 of yacc.c */ -#line 533 "parser.y" +#line 534 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("coll clause")); } break; @@ -4103,7 +4104,7 @@ yyreduce: case 111: /* Line 1806 of yacc.c */ -#line 535 "parser.y" +#line 536 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("rep clause")); } break; @@ -4111,7 +4112,7 @@ yyreduce: case 112: /* Line 1806 of yacc.c */ -#line 537 "parser.y" +#line 538 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("rep clause")); } break; @@ -4119,42 +4120,42 @@ yyreduce: case 113: /* Line 1806 of yacc.c */ -#line 539 "parser.y" +#line 540 "parser.y" { (yyval.val) = rl(list(all_s, t, (yyvsp[(2) - (2)].val), nao), num((yyvsp[(1) - (2)].lineno))); } break; case 114: /* Line 1806 of yacc.c */ -#line 541 "parser.y" +#line 542 "parser.y" { (yyval.val) = rl(list(some_s, t, (yyvsp[(4) - (4)].val), (yyvsp[(2) - (4)].val), nao), num((yyvsp[(1) - (4)].lineno))); } break; case 115: /* Line 1806 of yacc.c */ -#line 542 "parser.y" +#line 543 "parser.y" { (yyval.val) = rl(list(none_s, t, (yyvsp[(2) - (2)].val), nao), num((yyvsp[(1) - (2)].lineno))); } break; case 116: /* Line 1806 of yacc.c */ -#line 543 "parser.y" +#line 544 "parser.y" { (yyval.val) = rl(list(maybe_s, t, (yyvsp[(2) - (2)].val), nao), num((yyvsp[(1) - (2)].lineno))); } break; case 117: /* Line 1806 of yacc.c */ -#line 544 "parser.y" +#line 545 "parser.y" { (yyval.val) = rl(list(cases_s, t, (yyvsp[(2) - (2)].val), nao), num((yyvsp[(1) - (2)].lineno))); } break; case 118: /* Line 1806 of yacc.c */ -#line 546 "parser.y" +#line 547 "parser.y" { (yyval.val) = list(choose_s, t, (yyvsp[(4) - (4)].val), (yyvsp[(2) - (4)].val), nao); rl((yyval.val), num((yyvsp[(1) - (4)].lineno))); } break; @@ -4162,7 +4163,7 @@ yyreduce: case 119: /* Line 1806 of yacc.c */ -#line 549 "parser.y" +#line 550 "parser.y" { (yyval.val) = list(define_s, t, (yyvsp[(4) - (5)].val), (yyvsp[(2) - (5)].val), nao); rl((yyval.val), num((yyvsp[(1) - (5)].lineno))); match_reg_params(second((yyvsp[(2) - (5)].val))); } @@ -4171,35 +4172,35 @@ yyreduce: case 120: /* Line 1806 of yacc.c */ -#line 554 "parser.y" +#line 555 "parser.y" { (yyval.val) = if2((yyvsp[(1) - (2)].val), cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val))); } break; case 121: /* Line 1806 of yacc.c */ -#line 557 "parser.y" +#line 558 "parser.y" { (yyval.val) = nil; } break; case 122: /* Line 1806 of yacc.c */ -#line 558 "parser.y" +#line 559 "parser.y" { (yyval.val) = (yyvsp[(2) - (2)].val); } break; case 123: /* Line 1806 of yacc.c */ -#line 559 "parser.y" +#line 560 "parser.y" { (yyval.val) = (yyvsp[(2) - (2)].val); } break; case 124: /* Line 1806 of yacc.c */ -#line 564 "parser.y" +#line 565 "parser.y" { (yyval.val) = list(define_s, (yyvsp[(2) - (7)].val), (yyvsp[(5) - (7)].val), nao); rl((yyval.val), num((yyvsp[(1) - (7)].lineno))); match_reg_params(second((yyvsp[(2) - (7)].val))); } @@ -4208,7 +4209,7 @@ yyreduce: case 125: /* Line 1806 of yacc.c */ -#line 569 "parser.y" +#line 570 "parser.y" { (yyval.val) = list(define_s, nil, (yyvsp[(4) - (6)].val), nao); rl((yyval.val), num((yyvsp[(1) - (6)].lineno))); } break; @@ -4216,7 +4217,7 @@ yyreduce: case 126: /* Line 1806 of yacc.c */ -#line 571 "parser.y" +#line 572 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("define directive")); } break; @@ -4224,14 +4225,14 @@ yyreduce: case 127: /* Line 1806 of yacc.c */ -#line 574 "parser.y" +#line 575 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("define")); } break; case 128: /* Line 1806 of yacc.c */ -#line 576 "parser.y" +#line 577 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("define")); } break; @@ -4239,7 +4240,7 @@ yyreduce: case 129: /* Line 1806 of yacc.c */ -#line 583 "parser.y" +#line 584 "parser.y" { (yyval.val) = list(try_s, flatten(mapcar(func_n1(second), (yyvsp[(4) - (6)].val))), @@ -4250,7 +4251,7 @@ yyreduce: case 130: /* Line 1806 of yacc.c */ -#line 589 "parser.y" +#line 590 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("try clause")); } break; @@ -4258,7 +4259,7 @@ yyreduce: case 131: /* Line 1806 of yacc.c */ -#line 595 "parser.y" +#line 596 "parser.y" { (yyval.val) = cons(list(catch_s, cons(t, nil), (yyvsp[(4) - (5)].val), nao), (yyvsp[(5) - (5)].val)); rl((yyval.val), num((yyvsp[(1) - (5)].lineno))); } @@ -4267,7 +4268,7 @@ yyreduce: case 132: /* Line 1806 of yacc.c */ -#line 600 "parser.y" +#line 601 "parser.y" { (yyval.val) = cons(list(catch_s, (yyvsp[(2) - (6)].val), (yyvsp[(5) - (6)].val), nao), (yyvsp[(6) - (6)].val)); process_catch_exprs((yyvsp[(2) - (6)].val)); @@ -4277,7 +4278,7 @@ yyreduce: case 133: /* Line 1806 of yacc.c */ -#line 605 "parser.y" +#line 606 "parser.y" { (yyval.val) = cons(list(finally_s, nil, (yyvsp[(3) - (3)].val), nao), nil); @@ -4287,14 +4288,14 @@ yyreduce: case 134: /* Line 1806 of yacc.c */ -#line 609 "parser.y" +#line 610 "parser.y" { (yyval.val) = nil; } break; case 135: /* Line 1806 of yacc.c */ -#line 611 "parser.y" +#line 612 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("catch clause")); } break; @@ -4302,7 +4303,7 @@ yyreduce: case 136: /* Line 1806 of yacc.c */ -#line 614 "parser.y" +#line 615 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("catch clause")); } break; @@ -4310,7 +4311,7 @@ yyreduce: case 137: /* Line 1806 of yacc.c */ -#line 617 "parser.y" +#line 618 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("finally clause")); } break; @@ -4318,7 +4319,7 @@ yyreduce: case 138: /* Line 1806 of yacc.c */ -#line 624 "parser.y" +#line 625 "parser.y" { (yyval.val) = nil; yyerr("obsolete output syntax: trailing material"); } break; @@ -4326,21 +4327,21 @@ yyreduce: case 139: /* Line 1806 of yacc.c */ -#line 627 "parser.y" +#line 628 "parser.y" { (yyval.val) = rl(list(output_s, nao), num((yyvsp[(1) - (5)].lineno))); } break; case 140: /* Line 1806 of yacc.c */ -#line 630 "parser.y" +#line 631 "parser.y" { (yyval.val) = rl(list(output_s, (yyvsp[(4) - (6)].val), nao), num((yyvsp[(1) - (6)].lineno))); } break; case 141: /* Line 1806 of yacc.c */ -#line 633 "parser.y" +#line 634 "parser.y" { cons_bind (dest, rest, (yyvsp[(2) - (7)].val)); val dest_ex = expand_form_ver(dest, 166); val args = if3(dest_ex == dest, @@ -4356,7 +4357,7 @@ yyreduce: case 142: /* Line 1806 of yacc.c */ -#line 645 "parser.y" +#line 646 "parser.y" { (yyval.val) = nil; yyerr("invalid combination of old and " "new syntax in output directive"); } @@ -4365,7 +4366,7 @@ yyreduce: case 143: /* Line 1806 of yacc.c */ -#line 648 "parser.y" +#line 649 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("output directive")); } break; @@ -4373,7 +4374,7 @@ yyreduce: case 144: /* Line 1806 of yacc.c */ -#line 651 "parser.y" +#line 652 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("output clause")); } break; @@ -4381,7 +4382,7 @@ yyreduce: case 145: /* Line 1806 of yacc.c */ -#line 654 "parser.y" +#line 655 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("output clause")); } break; @@ -4389,7 +4390,7 @@ yyreduce: case 146: /* Line 1806 of yacc.c */ -#line 657 "parser.y" +#line 658 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("output clause")); } break; @@ -4397,7 +4398,7 @@ yyreduce: case 147: /* Line 1806 of yacc.c */ -#line 660 "parser.y" +#line 661 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("output clause")); } break; @@ -4405,42 +4406,42 @@ yyreduce: case 148: /* Line 1806 of yacc.c */ -#line 664 "parser.y" +#line 665 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); } break; case 149: /* Line 1806 of yacc.c */ -#line 665 "parser.y" +#line 666 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)); } break; case 150: /* Line 1806 of yacc.c */ -#line 668 "parser.y" +#line 669 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); } break; case 151: /* Line 1806 of yacc.c */ -#line 669 "parser.y" +#line 670 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); } break; case 152: /* Line 1806 of yacc.c */ -#line 670 "parser.y" +#line 671 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 153: /* Line 1806 of yacc.c */ -#line 676 "parser.y" +#line 677 "parser.y" { (yyval.val) = repeat_rep_helper(repeat_s, (yyvsp[(2) - (8)].val), (yyvsp[(5) - (8)].val), (yyvsp[(6) - (8)].val)); rl((yyval.val), num((yyvsp[(1) - (8)].lineno))); } @@ -4449,7 +4450,7 @@ yyreduce: case 154: /* Line 1806 of yacc.c */ -#line 680 "parser.y" +#line 681 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("repeat clause")); } break; @@ -4457,7 +4458,7 @@ yyreduce: case 155: /* Line 1806 of yacc.c */ -#line 686 "parser.y" +#line 687 "parser.y" { (yyval.val) = cons(cons(single_s, (yyvsp[(3) - (4)].val)), (yyvsp[(4) - (4)].val)); rl((yyval.val), num((yyvsp[(1) - (4)].lineno))); } break; @@ -4465,7 +4466,7 @@ yyreduce: case 156: /* Line 1806 of yacc.c */ -#line 690 "parser.y" +#line 691 "parser.y" { (yyval.val) = cons(cons(first_s, (yyvsp[(3) - (4)].val)), (yyvsp[(4) - (4)].val)); rl((yyval.val), num((yyvsp[(1) - (4)].lineno))); } break; @@ -4473,7 +4474,7 @@ yyreduce: case 157: /* Line 1806 of yacc.c */ -#line 694 "parser.y" +#line 695 "parser.y" { if ((yyvsp[(2) - (6)].val)) yyerrorf(scnr, lit("last: in output, " @@ -4486,7 +4487,7 @@ yyreduce: case 158: /* Line 1806 of yacc.c */ -#line 703 "parser.y" +#line 704 "parser.y" { (yyval.val) = cons(cons(empty_s, (yyvsp[(3) - (4)].val)), (yyvsp[(4) - (4)].val)); rl((yyval.val), num((yyvsp[(1) - (4)].lineno))); } break; @@ -4494,7 +4495,7 @@ yyreduce: case 159: /* Line 1806 of yacc.c */ -#line 708 "parser.y" +#line 709 "parser.y" { (yyval.val) = cons(cons(mod_s, cons(expand_forms_ver((yyvsp[(2) - (6)].val), 166), (yyvsp[(5) - (6)].val))), (yyvsp[(6) - (6)].val)); @@ -4504,7 +4505,7 @@ yyreduce: case 160: /* Line 1806 of yacc.c */ -#line 715 "parser.y" +#line 716 "parser.y" { (yyval.val) = cons(cons(modlast_s, cons(expand_forms_ver((yyvsp[(2) - (6)].val), 166), (yyvsp[(5) - (6)].val))), (yyvsp[(6) - (6)].val)); @@ -4514,14 +4515,14 @@ yyreduce: case 161: /* Line 1806 of yacc.c */ -#line 719 "parser.y" +#line 720 "parser.y" { (yyval.val) = nil; } break; case 162: /* Line 1806 of yacc.c */ -#line 726 "parser.y" +#line 727 "parser.y" { val expr = expand((yyvsp[(2) - (9)].val), nil); val ifs = (yyvsp[(5) - (9)].val); val branch = cons(cons(expr, ifs), nil); @@ -4535,7 +4536,7 @@ yyreduce: case 163: /* Line 1806 of yacc.c */ -#line 735 "parser.y" +#line 736 "parser.y" { (yyval.val) = nil; yyerr("if requires expression"); } break; @@ -4543,14 +4544,14 @@ yyreduce: case 164: /* Line 1806 of yacc.c */ -#line 738 "parser.y" +#line 739 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("if clause")); } break; case 165: /* Line 1806 of yacc.c */ -#line 744 "parser.y" +#line 745 "parser.y" { val expr = expand(car((yyvsp[(2) - (6)].val)), nil); val elifs = (yyvsp[(5) - (6)].val); val branch = cons(cons(expr, elifs), nil); @@ -4564,49 +4565,49 @@ yyreduce: case 166: /* Line 1806 of yacc.c */ -#line 752 "parser.y" +#line 753 "parser.y" { (yyval.val) = nil; } break; case 167: /* Line 1806 of yacc.c */ -#line 757 "parser.y" +#line 758 "parser.y" { (yyval.val) = cons(cons(t, (yyvsp[(3) - (3)].val)), nil); } break; case 168: /* Line 1806 of yacc.c */ -#line 758 "parser.y" +#line 759 "parser.y" { (yyval.val) = nil; } break; case 169: /* Line 1806 of yacc.c */ -#line 761 "parser.y" +#line 762 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 170: /* Line 1806 of yacc.c */ -#line 762 "parser.y" +#line 763 "parser.y" { (yyval.val) = nil; } break; case 171: /* Line 1806 of yacc.c */ -#line 764 "parser.y" +#line 765 "parser.y" { (yyval.val) = (yyvsp[(1) - (2)].val); } break; case 172: /* Line 1806 of yacc.c */ -#line 767 "parser.y" +#line 768 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); rl((yyval.val), num(parser->lineno)); } break; @@ -4614,42 +4615,42 @@ yyreduce: case 173: /* Line 1806 of yacc.c */ -#line 769 "parser.y" +#line 770 "parser.y" { (yyval.val) = nil; } break; case 174: /* Line 1806 of yacc.c */ -#line 772 "parser.y" +#line 773 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); } break; case 175: /* Line 1806 of yacc.c */ -#line 773 "parser.y" +#line 774 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)); } break; case 176: /* Line 1806 of yacc.c */ -#line 774 "parser.y" +#line 775 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); } break; case 177: /* Line 1806 of yacc.c */ -#line 775 "parser.y" +#line 776 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)); } break; case 178: /* Line 1806 of yacc.c */ -#line 778 "parser.y" +#line 779 "parser.y" { (yyval.val) = string_own((yyvsp[(1) - (1)].lexeme)); rl((yyval.val), num(parser->lineno)); } break; @@ -4657,7 +4658,7 @@ yyreduce: case 179: /* Line 1806 of yacc.c */ -#line 780 "parser.y" +#line 781 "parser.y" { (yyval.val) = string_own((yyvsp[(1) - (1)].lexeme)); rl((yyval.val), num(parser->lineno)); } break; @@ -4665,14 +4666,14 @@ yyreduce: case 180: /* Line 1806 of yacc.c */ -#line 782 "parser.y" +#line 783 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 181: /* Line 1806 of yacc.c */ -#line 783 "parser.y" +#line 784 "parser.y" { (yyval.val) = rlc(list(expr_s, expand((yyvsp[(1) - (1)].val), nil), nao), (yyvsp[(1) - (1)].val)); } break; @@ -4680,14 +4681,14 @@ yyreduce: case 182: /* Line 1806 of yacc.c */ -#line 785 "parser.y" +#line 786 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 183: /* Line 1806 of yacc.c */ -#line 789 "parser.y" +#line 790 "parser.y" { (yyval.val) = repeat_rep_helper(rep_s, (yyvsp[(2) - (6)].val), (yyvsp[(4) - (6)].val), (yyvsp[(5) - (6)].val)); rl((yyval.val), num((yyvsp[(1) - (6)].lineno))); } break; @@ -4695,7 +4696,7 @@ yyreduce: case 184: /* Line 1806 of yacc.c */ -#line 791 "parser.y" +#line 792 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("rep clause")); } break; @@ -4703,7 +4704,7 @@ yyreduce: case 185: /* Line 1806 of yacc.c */ -#line 796 "parser.y" +#line 797 "parser.y" { (yyval.val) = cons(cons(single_s, (yyvsp[(2) - (3)].val)), (yyvsp[(3) - (3)].val)); rl((yyval.val), num((yyvsp[(1) - (3)].lineno))); } break; @@ -4711,7 +4712,7 @@ yyreduce: case 186: /* Line 1806 of yacc.c */ -#line 799 "parser.y" +#line 800 "parser.y" { (yyval.val) = cons(cons(first_s, (yyvsp[(2) - (3)].val)), (yyvsp[(3) - (3)].val)); rl((yyval.val), num((yyvsp[(1) - (3)].lineno))); } break; @@ -4719,7 +4720,7 @@ yyreduce: case 187: /* Line 1806 of yacc.c */ -#line 802 "parser.y" +#line 803 "parser.y" { if ((yyvsp[(2) - (5)].val)) yyerrorf(scnr, lit("last: in output, " @@ -4732,7 +4733,7 @@ yyreduce: case 188: /* Line 1806 of yacc.c */ -#line 810 "parser.y" +#line 811 "parser.y" { (yyval.val) = cons(cons(empty_s, (yyvsp[(2) - (3)].val)), (yyvsp[(3) - (3)].val)); rl((yyval.val), num((yyvsp[(1) - (3)].lineno))); } break; @@ -4740,7 +4741,7 @@ yyreduce: case 189: /* Line 1806 of yacc.c */ -#line 814 "parser.y" +#line 815 "parser.y" { (yyval.val) = cons(cons(mod_s, cons(expand_forms_ver((yyvsp[(2) - (5)].val), 166), (yyvsp[(4) - (5)].val))), (yyvsp[(5) - (5)].val)); @@ -4750,7 +4751,7 @@ yyreduce: case 190: /* Line 1806 of yacc.c */ -#line 820 "parser.y" +#line 821 "parser.y" { (yyval.val) = cons(cons(modlast_s, cons(expand_forms_ver((yyvsp[(2) - (5)].val), 166), (yyvsp[(4) - (5)].val))), (yyvsp[(5) - (5)].val)); @@ -4760,49 +4761,49 @@ yyreduce: case 191: /* Line 1806 of yacc.c */ -#line 824 "parser.y" +#line 825 "parser.y" { (yyval.val) = nil; } break; case 192: /* Line 1806 of yacc.c */ -#line 831 "parser.y" +#line 832 "parser.y" { (yyval.val) = list(var_s, symhlpr((yyvsp[(1) - (1)].lexeme), nil), nao); } break; case 193: /* Line 1806 of yacc.c */ -#line 832 "parser.y" +#line 833 "parser.y" { (yyval.val) = list(var_s, symhlpr((yyvsp[(2) - (3)].lexeme), nil), nao); } break; case 194: /* Line 1806 of yacc.c */ -#line 833 "parser.y" +#line 834 "parser.y" { (yyval.val) = list(var_s, symhlpr((yyvsp[(2) - (4)].lexeme), nil), (yyvsp[(3) - (4)].val), nao); } break; case 195: /* Line 1806 of yacc.c */ -#line 834 "parser.y" +#line 835 "parser.y" { (yyval.val) = list(var_s, symhlpr((yyvsp[(2) - (2)].lexeme), nil), (yyvsp[(1) - (2)].val), nao); } break; case 196: /* Line 1806 of yacc.c */ -#line 835 "parser.y" +#line 836 "parser.y" { (yyval.val) = list(var_s, symhlpr((yyvsp[(3) - (4)].lexeme), nil), (yyvsp[(1) - (4)].val), nao); } break; case 197: /* Line 1806 of yacc.c */ -#line 836 "parser.y" +#line 837 "parser.y" { (yyval.val) = nil; free((yyvsp[(3) - (5)].lexeme)); yyerr("longest match " @@ -4812,7 +4813,7 @@ yyreduce: case 198: /* Line 1806 of yacc.c */ -#line 840 "parser.y" +#line 841 "parser.y" { (yyval.val) = nil; free((yyvsp[(3) - (5)].lexeme)); yyerr("longest match " @@ -4823,7 +4824,7 @@ yyreduce: case 199: /* Line 1806 of yacc.c */ -#line 845 "parser.y" +#line 846 "parser.y" { (yyval.val) = nil; free((yyvsp[(1) - (2)].lexeme)); yybadtok(yychar, lit("variable spec")); } @@ -4832,7 +4833,7 @@ yyreduce: case 200: /* Line 1806 of yacc.c */ -#line 848 "parser.y" +#line 849 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("variable spec")); } break; @@ -4840,21 +4841,21 @@ yyreduce: case 201: /* Line 1806 of yacc.c */ -#line 852 "parser.y" +#line 853 "parser.y" { (yyval.val) = list(t, nao); } break; case 202: /* Line 1806 of yacc.c */ -#line 855 "parser.y" +#line 856 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); } break; case 203: /* Line 1806 of yacc.c */ -#line 856 "parser.y" +#line 857 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); } break; @@ -4862,7 +4863,7 @@ yyreduce: case 204: /* Line 1806 of yacc.c */ -#line 858 "parser.y" +#line 859 "parser.y" { (yyval.val) = rlc(cons(expand_meta((yyvsp[(1) - (1)].val), nil), nil), (yyvsp[(1) - (1)].val)); } break; @@ -4870,14 +4871,14 @@ yyreduce: case 205: /* Line 1806 of yacc.c */ -#line 860 "parser.y" +#line 861 "parser.y" { (yyval.val) = cons(symhlpr((yyvsp[(1) - (1)].lexeme), nil), nil); } break; case 206: /* Line 1806 of yacc.c */ -#line 863 "parser.y" +#line 864 "parser.y" { val expr = symhlpr((yyvsp[(1) - (1)].lexeme), nil); if (!opt_compat || opt_compat > 128) expr = expand(expr, nil); @@ -4888,7 +4889,7 @@ yyreduce: case 207: /* Line 1806 of yacc.c */ -#line 869 "parser.y" +#line 870 "parser.y" { if (opt_compat && opt_compat <= 128) { (yyval.val) = list(var_s, expand_meta((yyvsp[(2) - (4)].val), nil), @@ -4902,7 +4903,7 @@ yyreduce: case 208: /* Line 1806 of yacc.c */ -#line 877 "parser.y" +#line 878 "parser.y" { (yyval.val) = nil; free((yyvsp[(1) - (2)].lexeme)); yybadtok(yychar, lit("variable spec")); } @@ -4911,7 +4912,7 @@ yyreduce: case 209: /* Line 1806 of yacc.c */ -#line 883 "parser.y" +#line 884 "parser.y" { (yyval.val) = list(var_s, (yyvsp[(3) - (5)].val), (yyvsp[(4) - (5)].val), nao); rl((yyval.val), num(parser->lineno)); } break; @@ -4919,7 +4920,7 @@ yyreduce: case 210: /* Line 1806 of yacc.c */ -#line 885 "parser.y" +#line 886 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("variable spec")); } break; @@ -4927,7 +4928,7 @@ yyreduce: case 211: /* Line 1806 of yacc.c */ -#line 890 "parser.y" +#line 891 "parser.y" { if (parser->quasi_level > 0 && unquotes_occur((yyvsp[(2) - (2)].val), 0)) (yyval.val) = rlc(cons(vector_lit_s, cons((yyvsp[(2) - (2)].val), nil)), (yyvsp[(2) - (2)].val)); @@ -4938,7 +4939,7 @@ yyreduce: case 212: /* Line 1806 of yacc.c */ -#line 895 "parser.y" +#line 896 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("unassigned/reserved # notation")); } break; @@ -4946,7 +4947,7 @@ yyreduce: case 213: /* Line 1806 of yacc.c */ -#line 899 "parser.y" +#line 900 "parser.y" { if (parser->ignore) (yyval.val) = nil; else if (parser->quasi_level > 0 && @@ -4961,7 +4962,7 @@ yyreduce: case 214: /* Line 1806 of yacc.c */ -#line 908 "parser.y" +#line 909 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("hash literal")); } break; @@ -4969,7 +4970,7 @@ yyreduce: case 215: /* Line 1806 of yacc.c */ -#line 912 "parser.y" +#line 913 "parser.y" { if (parser->ignore) { (yyval.val) = nil; } else if ((parser->quasi_level > 0 && @@ -4986,7 +4987,7 @@ yyreduce: case 216: /* Line 1806 of yacc.c */ -#line 923 "parser.y" +#line 924 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("struct literal")); } break; @@ -4994,7 +4995,7 @@ yyreduce: case 217: /* Line 1806 of yacc.c */ -#line 927 "parser.y" +#line 928 "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))); @@ -5004,7 +5005,7 @@ yyreduce: case 218: /* Line 1806 of yacc.c */ -#line 931 "parser.y" +#line 932 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("range literal")); } break; @@ -5012,7 +5013,7 @@ yyreduce: case 219: /* Line 1806 of yacc.c */ -#line 935 "parser.y" +#line 936 "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)), @@ -5023,7 +5024,7 @@ yyreduce: case 220: /* Line 1806 of yacc.c */ -#line 940 "parser.y" +#line 941 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("tree node literal")); } break; @@ -5031,7 +5032,7 @@ yyreduce: case 221: /* Line 1806 of yacc.c */ -#line 944 "parser.y" +#line 945 "parser.y" { if (parser->ignore) { (yyval.val) = nil; } else if (parser->quasi_level > 0 && @@ -5053,7 +5054,7 @@ yyreduce: case 222: /* Line 1806 of yacc.c */ -#line 960 "parser.y" +#line 961 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("tree node literal")); } break; @@ -5061,7 +5062,7 @@ yyreduce: case 223: /* Line 1806 of yacc.c */ -#line 964 "parser.y" +#line 965 "parser.y" { (yyval.val) = list(json_s, quote_s, (yyvsp[(2) - (2)].val), nao); end_of_json(scnr); } break; @@ -5069,14 +5070,14 @@ yyreduce: case 224: /* Line 1806 of yacc.c */ -#line 966 "parser.y" +#line 967 "parser.y" { parser->quasi_level++; } break; case 225: /* Line 1806 of yacc.c */ -#line 967 "parser.y" +#line 968 "parser.y" { parser->quasi_level--; end_of_json(scnr); (yyval.val) = list(json_s, sys_qquote_s, (yyvsp[(4) - (4)].val), nao); } @@ -5085,28 +5086,28 @@ yyreduce: case 226: /* Line 1806 of yacc.c */ -#line 970 "parser.y" +#line 971 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 227: /* Line 1806 of yacc.c */ -#line 971 "parser.y" +#line 972 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 228: /* Line 1806 of yacc.c */ -#line 972 "parser.y" +#line 973 "parser.y" { (yyval.val) = null_string; } break; case 229: /* Line 1806 of yacc.c */ -#line 973 "parser.y" +#line 974 "parser.y" { (yyval.val) = (yyvsp[(2) - (3)].val); rl((yyval.val), num(parser->lineno)); } break; @@ -5114,14 +5115,14 @@ yyreduce: case 230: /* Line 1806 of yacc.c */ -#line 975 "parser.y" +#line 976 "parser.y" { (yyval.val) = vector(zero, nil); } break; case 231: /* Line 1806 of yacc.c */ -#line 977 "parser.y" +#line 978 "parser.y" { (yyval.val) = if3(vectorp((yyvsp[(2) - (4)].val)), (yyvsp[(2) - (4)].val), rl(cons(vector_lit_s, @@ -5132,14 +5133,14 @@ yyreduce: case 232: /* Line 1806 of yacc.c */ -#line 982 "parser.y" +#line 983 "parser.y" { (yyval.val) = make_hash(hash_weak_none, t); } break; case 233: /* Line 1806 of yacc.c */ -#line 984 "parser.y" +#line 985 "parser.y" { (yyval.val) = if3(hashp((yyvsp[(2) - (4)].val)), (yyvsp[(2) - (4)].val), rl(cons(hash_lit_s, @@ -5150,14 +5151,14 @@ yyreduce: case 234: /* Line 1806 of yacc.c */ -#line 989 "parser.y" +#line 990 "parser.y" { parser->quasi_level--; } break; case 235: /* Line 1806 of yacc.c */ -#line 990 "parser.y" +#line 991 "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)), @@ -5167,14 +5168,14 @@ yyreduce: case 236: /* Line 1806 of yacc.c */ -#line 994 "parser.y" +#line 995 "parser.y" { parser->quasi_level--; } break; case 237: /* Line 1806 of yacc.c */ -#line 995 "parser.y" +#line 996 "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)), @@ -5184,14 +5185,14 @@ yyreduce: case 238: /* Line 1806 of yacc.c */ -#line 999 "parser.y" +#line 1000 "parser.y" { parser_circ_def(parser, (yyvsp[(1) - (1)].val), unique_s); } break; case 239: /* Line 1806 of yacc.c */ -#line 1000 "parser.y" +#line 1001 "parser.y" { parser_circ_def(parser, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); (yyval.val) = (yyvsp[(3) - (3)].val); } break; @@ -5199,14 +5200,14 @@ yyreduce: case 240: /* Line 1806 of yacc.c */ -#line 1002 "parser.y" +#line 1003 "parser.y" { (yyval.val) = parser_circ_ref(parser, (yyvsp[(1) - (1)].val)); } break; case 241: /* Line 1806 of yacc.c */ -#line 1003 "parser.y" +#line 1004 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("JSON string")); } break; @@ -5214,7 +5215,7 @@ yyreduce: case 242: /* Line 1806 of yacc.c */ -#line 1005 "parser.y" +#line 1006 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("JSON array")); } break; @@ -5222,7 +5223,7 @@ yyreduce: case 243: /* Line 1806 of yacc.c */ -#line 1007 "parser.y" +#line 1008 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("JSON hash")); } break; @@ -5230,7 +5231,7 @@ yyreduce: case 244: /* Line 1806 of yacc.c */ -#line 1011 "parser.y" +#line 1012 "parser.y" { if (!parser->read_bad_json) yyerr("trailing comma in JSON array"); } break; @@ -5238,7 +5239,7 @@ yyreduce: case 246: /* Line 1806 of yacc.c */ -#line 1016 "parser.y" +#line 1017 "parser.y" { (yyval.val) = if3(parser->quasi_level > 0 && unquotes_occur((yyvsp[(1) - (1)].val), 0), cons((yyvsp[(1) - (1)].val), nil), @@ -5248,7 +5249,7 @@ yyreduce: case 247: /* Line 1806 of yacc.c */ -#line 1020 "parser.y" +#line 1021 "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 && @@ -5263,7 +5264,7 @@ yyreduce: case 248: /* Line 1806 of yacc.c */ -#line 1029 "parser.y" +#line 1030 "parser.y" { yyerr("missing comma in JSON array"); (yyval.val) = (yyvsp[(1) - (2)].val); } break; @@ -5271,7 +5272,7 @@ yyreduce: case 249: /* Line 1806 of yacc.c */ -#line 1031 "parser.y" +#line 1032 "parser.y" { yybadtok(yychar, lit("JSON array")); (yyval.val) = (yyvsp[(1) - (2)].val); } break; @@ -5279,7 +5280,7 @@ yyreduce: case 250: /* Line 1806 of yacc.c */ -#line 1035 "parser.y" +#line 1036 "parser.y" { if (parser->quasi_level > 0 && (unquotes_occur((yyvsp[(1) - (3)].val), 0) || unquotes_occur((yyvsp[(3) - (3)].val), 0))) @@ -5292,7 +5293,7 @@ yyreduce: case 251: /* Line 1806 of yacc.c */ -#line 1043 "parser.y" +#line 1044 "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 && @@ -5308,28 +5309,28 @@ yyreduce: case 252: /* Line 1806 of yacc.c */ -#line 1053 "parser.y" +#line 1054 "parser.y" { yyerr("missing colon in JSON hash"); } break; case 253: /* Line 1806 of yacc.c */ -#line 1055 "parser.y" +#line 1056 "parser.y" { yyerr("missing comma in JSON hash"); } break; case 254: /* Line 1806 of yacc.c */ -#line 1056 "parser.y" +#line 1057 "parser.y" { yybadtok(yychar, lit("JSON hash")); } break; case 255: /* Line 1806 of yacc.c */ -#line 1059 "parser.y" +#line 1060 "parser.y" { if ((yyvsp[(1) - (1)].lexeme)[0] == ':' && (yyvsp[(1) - (1)].lexeme)[1] == 0) { (yyval.val) = nil; } else @@ -5339,21 +5340,21 @@ yyreduce: case 256: /* Line 1806 of yacc.c */ -#line 1063 "parser.y" +#line 1064 "parser.y" { (yyval.val) = nil; } break; case 257: /* Line 1806 of yacc.c */ -#line 1067 "parser.y" +#line 1068 "parser.y" { (yyval.val) = rl((yyvsp[(2) - (3)].val), num((yyvsp[(1) - (3)].lineno))); } break; case 258: /* Line 1806 of yacc.c */ -#line 1068 "parser.y" +#line 1069 "parser.y" { val a = car((yyvsp[(3) - (4)].val)); val ur = uref_helper(parser, a); if (ur == a) @@ -5365,28 +5366,28 @@ yyreduce: case 259: /* Line 1806 of yacc.c */ -#line 1074 "parser.y" +#line 1075 "parser.y" { (yyval.val) = nil; } break; case 260: /* Line 1806 of yacc.c */ -#line 1075 "parser.y" +#line 1076 "parser.y" { (yyval.val) = (yyvsp[(3) - (4)].val); } break; case 261: /* Line 1806 of yacc.c */ -#line 1076 "parser.y" +#line 1077 "parser.y" { (yyval.val) = (yyvsp[(3) - (4)].val); } break; case 262: /* Line 1806 of yacc.c */ -#line 1077 "parser.y" +#line 1078 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("expression")); } break; @@ -5394,7 +5395,7 @@ yyreduce: case 263: /* Line 1806 of yacc.c */ -#line 1081 "parser.y" +#line 1082 "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 @@ -5405,7 +5406,7 @@ yyreduce: case 264: /* Line 1806 of yacc.c */ -#line 1086 "parser.y" +#line 1087 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("meta expression")); } break; @@ -5413,7 +5414,7 @@ yyreduce: case 265: /* Line 1806 of yacc.c */ -#line 1090 "parser.y" +#line 1091 "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 @@ -5424,7 +5425,7 @@ yyreduce: case 266: /* Line 1806 of yacc.c */ -#line 1095 "parser.y" +#line 1096 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("meta expression")); } break; @@ -5432,7 +5433,7 @@ yyreduce: case 267: /* Line 1806 of yacc.c */ -#line 1099 "parser.y" +#line 1100 "parser.y" { val a = car((yyvsp[(3) - (4)].val)); val ur = uref_helper(parser, a); (yyval.val) = rlcp_tree(cons(dwim_s, @@ -5442,21 +5443,21 @@ yyreduce: case 268: /* Line 1806 of yacc.c */ -#line 1103 "parser.y" +#line 1104 "parser.y" { (yyval.val) = rl(cons(dwim_s, (yyvsp[(2) - (3)].val)), num((yyvsp[(1) - (3)].lineno))); } break; case 269: /* Line 1806 of yacc.c */ -#line 1104 "parser.y" +#line 1105 "parser.y" { (yyval.val) = rl(cons(dwim_s, nil), num((yyvsp[(1) - (2)].lineno))); } break; case 270: /* Line 1806 of yacc.c */ -#line 1105 "parser.y" +#line 1106 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("DWIM expression")); } break; @@ -5464,28 +5465,28 @@ yyreduce: case 274: /* Line 1806 of yacc.c */ -#line 1114 "parser.y" +#line 1115 "parser.y" { (yyval.val) = rlc(expand_meta((yyvsp[(1) - (1)].val), nil), (yyvsp[(1) - (1)].val)); } break; case 275: /* Line 1806 of yacc.c */ -#line 1117 "parser.y" +#line 1118 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 276: /* Line 1806 of yacc.c */ -#line 1118 "parser.y" +#line 1119 "parser.y" { (yyval.val) = nil; } break; case 277: /* Line 1806 of yacc.c */ -#line 1121 "parser.y" +#line 1122 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val)->c.cdr; (yyvsp[(1) - (1)].val)->c.cdr = nil; } break; @@ -5493,7 +5494,7 @@ yyreduce: case 278: /* Line 1806 of yacc.c */ -#line 1124 "parser.y" +#line 1125 "parser.y" { (yyval.val) = (yyvsp[(1) - (3)].val)->c.cdr; (yyvsp[(1) - (3)].val)->c.cdr = (yyvsp[(3) - (3)].val); } break; @@ -5501,7 +5502,7 @@ yyreduce: case 279: /* Line 1806 of yacc.c */ -#line 1128 "parser.y" +#line 1129 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rlc((yyval.val), (yyvsp[(1) - (1)].val)); (yyval.val)->c.cdr = (yyval.val); } @@ -5510,14 +5511,14 @@ yyreduce: case 280: /* Line 1806 of yacc.c */ -#line 1131 "parser.y" +#line 1132 "parser.y" { parser->ignore = 1; } break; case 281: /* Line 1806 of yacc.c */ -#line 1132 "parser.y" +#line 1133 "parser.y" { parser->ignore = 0; (yyval.val) = cons(nil, nil); (yyval.val)->c.cdr = (yyval.val); } @@ -5526,14 +5527,14 @@ yyreduce: case 282: /* Line 1806 of yacc.c */ -#line 1135 "parser.y" +#line 1136 "parser.y" { parser->ignore = 1; } break; case 283: /* Line 1806 of yacc.c */ -#line 1136 "parser.y" +#line 1137 "parser.y" { parser->ignore = 0; (yyval.val) = cons(nil, nil); (yyval.val)->c.cdr = (yyval.val); } @@ -5542,14 +5543,14 @@ yyreduce: case 284: /* Line 1806 of yacc.c */ -#line 1139 "parser.y" +#line 1140 "parser.y" { parser->ignore = 1; } break; case 285: /* Line 1806 of yacc.c */ -#line 1140 "parser.y" +#line 1141 "parser.y" { parser->ignore = 0; (yyval.val) = (yyvsp[(1) - (4)].val); } break; @@ -5557,14 +5558,14 @@ yyreduce: case 286: /* Line 1806 of yacc.c */ -#line 1142 "parser.y" +#line 1143 "parser.y" { parser->ignore = 1; } break; case 287: /* Line 1806 of yacc.c */ -#line 1143 "parser.y" +#line 1144 "parser.y" { parser->ignore = 0; (yyval.val) = (yyvsp[(1) - (5)].val); } break; @@ -5572,7 +5573,7 @@ yyreduce: case 288: /* Line 1806 of yacc.c */ -#line 1145 "parser.y" +#line 1146 "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); } @@ -5581,7 +5582,7 @@ yyreduce: case 289: /* Line 1806 of yacc.c */ -#line 1148 "parser.y" +#line 1149 "parser.y" { (yyval.val) = lastcons(rl((yyvsp[(2) - (2)].val), num((yyvsp[(1) - (2)].lineno)))); (yyval.val)->c.cdr = (yyvsp[(2) - (2)].val); } break; @@ -5589,7 +5590,7 @@ yyreduce: case 290: /* Line 1806 of yacc.c */ -#line 1151 "parser.y" +#line 1152 "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); } @@ -5598,7 +5599,7 @@ yyreduce: case 291: /* Line 1806 of yacc.c */ -#line 1154 "parser.y" +#line 1155 "parser.y" { (yyval.val) = lastcons(rl((yyvsp[(2) - (2)].val), num((yyvsp[(1) - (2)].lineno)))); (yyval.val)->c.cdr = (yyvsp[(2) - (2)].val); } break; @@ -5606,7 +5607,7 @@ yyreduce: case 292: /* Line 1806 of yacc.c */ -#line 1157 "parser.y" +#line 1158 "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); } @@ -5615,14 +5616,14 @@ yyreduce: case 293: /* Line 1806 of yacc.c */ -#line 1162 "parser.y" +#line 1163 "parser.y" { (yyval.val) = ifnign(symhlpr((yyvsp[(1) - (1)].lexeme), t)); } break; case 294: /* Line 1806 of yacc.c */ -#line 1163 "parser.y" +#line 1164 "parser.y" { (yyval.val) = cons(var_s, cons((yyvsp[(1) - (1)].val), nil)); rl((yyval.val), num(parser->lineno)); } break; @@ -5630,119 +5631,119 @@ yyreduce: case 295: /* Line 1806 of yacc.c */ -#line 1165 "parser.y" +#line 1166 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 296: /* Line 1806 of yacc.c */ -#line 1166 "parser.y" +#line 1167 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 297: /* Line 1806 of yacc.c */ -#line 1167 "parser.y" +#line 1168 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 298: /* Line 1806 of yacc.c */ -#line 1168 "parser.y" +#line 1169 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 299: /* Line 1806 of yacc.c */ -#line 1169 "parser.y" +#line 1170 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 300: /* Line 1806 of yacc.c */ -#line 1170 "parser.y" +#line 1171 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 301: /* Line 1806 of yacc.c */ -#line 1171 "parser.y" +#line 1172 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 302: /* Line 1806 of yacc.c */ -#line 1172 "parser.y" +#line 1173 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 303: /* Line 1806 of yacc.c */ -#line 1173 "parser.y" +#line 1174 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 304: /* Line 1806 of yacc.c */ -#line 1174 "parser.y" +#line 1175 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 305: /* Line 1806 of yacc.c */ -#line 1175 "parser.y" +#line 1176 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 306: /* Line 1806 of yacc.c */ -#line 1176 "parser.y" +#line 1177 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 307: /* Line 1806 of yacc.c */ -#line 1177 "parser.y" +#line 1178 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 308: /* Line 1806 of yacc.c */ -#line 1178 "parser.y" +#line 1179 "parser.y" { (yyval.val) = rl((yyvsp[(2) - (2)].val), num((yyvsp[(1) - (2)].lineno))); } break; case 309: /* Line 1806 of yacc.c */ -#line 1179 "parser.y" +#line 1180 "parser.y" { (yyval.val) = rl(cons(quasilist_s, (yyvsp[(2) - (2)].val)), num((yyvsp[(1) - (2)].lineno))); } break; case 310: /* Line 1806 of yacc.c */ -#line 1180 "parser.y" +#line 1181 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 311: /* Line 1806 of yacc.c */ -#line 1181 "parser.y" +#line 1182 "parser.y" { (yyval.val) = rl(rlc(list(quote_s, (yyvsp[(2) - (2)].val), nao), (yyvsp[(2) - (2)].val)), num(parser->lineno)); } break; @@ -5750,14 +5751,14 @@ yyreduce: case 312: /* Line 1806 of yacc.c */ -#line 1183 "parser.y" +#line 1184 "parser.y" { parser->quasi_level++; } break; case 313: /* Line 1806 of yacc.c */ -#line 1184 "parser.y" +#line 1185 "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)); } @@ -5766,14 +5767,14 @@ yyreduce: case 314: /* Line 1806 of yacc.c */ -#line 1187 "parser.y" +#line 1188 "parser.y" { parser->quasi_level--; } break; case 315: /* Line 1806 of yacc.c */ -#line 1188 "parser.y" +#line 1189 "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)); } @@ -5782,14 +5783,14 @@ yyreduce: case 316: /* Line 1806 of yacc.c */ -#line 1191 "parser.y" +#line 1192 "parser.y" { parser->quasi_level--; } break; case 317: /* Line 1806 of yacc.c */ -#line 1192 "parser.y" +#line 1193 "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)); } @@ -5798,14 +5799,14 @@ yyreduce: case 318: /* Line 1806 of yacc.c */ -#line 1195 "parser.y" +#line 1196 "parser.y" { parser_circ_def(parser, (yyvsp[(1) - (1)].val), unique_s); } break; case 319: /* Line 1806 of yacc.c */ -#line 1196 "parser.y" +#line 1197 "parser.y" { parser_circ_def(parser, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); (yyval.val) = (yyvsp[(3) - (3)].val); } break; @@ -5813,35 +5814,35 @@ yyreduce: case 320: /* Line 1806 of yacc.c */ -#line 1198 "parser.y" +#line 1199 "parser.y" { (yyval.val) = parser_circ_ref(parser, (yyvsp[(1) - (1)].val)); } break; case 321: /* Line 1806 of yacc.c */ -#line 1201 "parser.y" +#line 1202 "parser.y" { (yyval.val) = uref_helper(parser, (yyvsp[(2) - (2)].val)); } break; case 322: /* Line 1806 of yacc.c */ -#line 1202 "parser.y" +#line 1203 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 323: /* Line 1806 of yacc.c */ -#line 1204 "parser.y" +#line 1205 "parser.y" { (yyval.val) = ifnign(symhlpr((yyvsp[(1) - (1)].lexeme), t)); } break; case 324: /* Line 1806 of yacc.c */ -#line 1205 "parser.y" +#line 1206 "parser.y" { (yyval.val) = cons(var_s, cons((yyvsp[(1) - (1)].val), nil)); rl((yyval.val), num(parser->lineno)); } break; @@ -5849,119 +5850,119 @@ yyreduce: case 325: /* Line 1806 of yacc.c */ -#line 1207 "parser.y" +#line 1208 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 326: /* Line 1806 of yacc.c */ -#line 1208 "parser.y" +#line 1209 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 327: /* Line 1806 of yacc.c */ -#line 1209 "parser.y" +#line 1210 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 328: /* Line 1806 of yacc.c */ -#line 1210 "parser.y" +#line 1211 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 329: /* Line 1806 of yacc.c */ -#line 1211 "parser.y" +#line 1212 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 330: /* Line 1806 of yacc.c */ -#line 1212 "parser.y" +#line 1213 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 331: /* Line 1806 of yacc.c */ -#line 1213 "parser.y" +#line 1214 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 332: /* Line 1806 of yacc.c */ -#line 1214 "parser.y" +#line 1215 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 333: /* Line 1806 of yacc.c */ -#line 1215 "parser.y" +#line 1216 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 334: /* Line 1806 of yacc.c */ -#line 1216 "parser.y" +#line 1217 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 335: /* Line 1806 of yacc.c */ -#line 1217 "parser.y" +#line 1218 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 336: /* Line 1806 of yacc.c */ -#line 1218 "parser.y" +#line 1219 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 337: /* Line 1806 of yacc.c */ -#line 1219 "parser.y" +#line 1220 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 338: /* Line 1806 of yacc.c */ -#line 1220 "parser.y" +#line 1221 "parser.y" { (yyval.val) = rl((yyvsp[(2) - (2)].val), num((yyvsp[(1) - (2)].lineno))); } break; case 339: /* Line 1806 of yacc.c */ -#line 1221 "parser.y" +#line 1222 "parser.y" { (yyval.val) = rl(cons(quasilist_s, (yyvsp[(2) - (2)].val)), num((yyvsp[(1) - (2)].lineno))); } break; case 340: /* Line 1806 of yacc.c */ -#line 1222 "parser.y" +#line 1223 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 341: /* Line 1806 of yacc.c */ -#line 1223 "parser.y" +#line 1224 "parser.y" { (yyval.val) = rl(rlc(list(quote_s, (yyvsp[(2) - (2)].val), nao), (yyvsp[(2) - (2)].val)), num(parser->lineno)); } break; @@ -5969,14 +5970,14 @@ yyreduce: case 342: /* Line 1806 of yacc.c */ -#line 1225 "parser.y" +#line 1226 "parser.y" { parser->quasi_level++; } break; case 343: /* Line 1806 of yacc.c */ -#line 1226 "parser.y" +#line 1227 "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)); } @@ -5985,14 +5986,14 @@ yyreduce: case 344: /* Line 1806 of yacc.c */ -#line 1229 "parser.y" +#line 1230 "parser.y" { parser->quasi_level--; } break; case 345: /* Line 1806 of yacc.c */ -#line 1230 "parser.y" +#line 1231 "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)); } @@ -6001,14 +6002,14 @@ yyreduce: case 346: /* Line 1806 of yacc.c */ -#line 1233 "parser.y" +#line 1234 "parser.y" { parser->quasi_level--; } break; case 347: /* Line 1806 of yacc.c */ -#line 1234 "parser.y" +#line 1235 "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)); } @@ -6017,7 +6018,7 @@ yyreduce: case 348: /* Line 1806 of yacc.c */ -#line 1237 "parser.y" +#line 1238 "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))); } @@ -6026,7 +6027,7 @@ yyreduce: case 349: /* Line 1806 of yacc.c */ -#line 1241 "parser.y" +#line 1242 "parser.y" { uses_or2; (yyval.val) = rlc(list(rcons_s, (yyvsp[(1) - (4)].val), uref_helper(parser, (yyvsp[(4) - (4)].val)), @@ -6037,7 +6038,7 @@ yyreduce: case 350: /* Line 1806 of yacc.c */ -#line 1247 "parser.y" +#line 1248 "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))); } @@ -6046,7 +6047,7 @@ yyreduce: case 351: /* Line 1806 of yacc.c */ -#line 1251 "parser.y" +#line 1252 "parser.y" { uses_or2; (yyval.val) = rlc(list(rcons_s, (yyvsp[(1) - (4)].val), uref_helper(parser, (yyvsp[(4) - (4)].val)), @@ -6057,14 +6058,14 @@ yyreduce: case 352: /* Line 1806 of yacc.c */ -#line 1256 "parser.y" +#line 1257 "parser.y" { (yyval.val) = qref_helper(parser, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); } break; case 353: /* Line 1806 of yacc.c */ -#line 1257 "parser.y" +#line 1258 "parser.y" { (yyval.val) = qref_helper(parser, cons(t, cons((yyvsp[(1) - (3)].val), nil)), (yyvsp[(3) - (3)].val)); } @@ -6073,28 +6074,28 @@ yyreduce: case 354: /* Line 1806 of yacc.c */ -#line 1260 "parser.y" +#line 1261 "parser.y" { (yyval.val) = uref_helper(parser, (yyvsp[(2) - (2)].val)); } break; case 355: /* Line 1806 of yacc.c */ -#line 1261 "parser.y" +#line 1262 "parser.y" { (yyval.val) = uoref_helper(parser, (yyvsp[(2) - (2)].val)); } break; case 356: /* Line 1806 of yacc.c */ -#line 1262 "parser.y" +#line 1263 "parser.y" { parser_circ_def(parser, (yyvsp[(1) - (1)].val), unique_s); } break; case 357: /* Line 1806 of yacc.c */ -#line 1263 "parser.y" +#line 1264 "parser.y" { parser_circ_def(parser, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); (yyval.val) = (yyvsp[(3) - (3)].val); } break; @@ -6102,49 +6103,49 @@ yyreduce: case 358: /* Line 1806 of yacc.c */ -#line 1265 "parser.y" +#line 1266 "parser.y" { (yyval.val) = parser_circ_ref(parser, (yyvsp[(1) - (1)].val)); } break; case 359: /* Line 1806 of yacc.c */ -#line 1268 "parser.y" +#line 1269 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 360: /* Line 1806 of yacc.c */ -#line 1269 "parser.y" +#line 1270 "parser.y" { (yyval.val) = nil; } break; case 361: /* Line 1806 of yacc.c */ -#line 1272 "parser.y" +#line 1273 "parser.y" { (yyval.val) = uref_helper(parser, (yyvsp[(2) - (2)].val)); } break; case 362: /* Line 1806 of yacc.c */ -#line 1273 "parser.y" +#line 1274 "parser.y" { (yyval.val) = uoref_helper(parser, (yyvsp[(2) - (2)].val)); } break; case 363: /* Line 1806 of yacc.c */ -#line 1274 "parser.y" +#line 1275 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 364: /* Line 1806 of yacc.c */ -#line 1277 "parser.y" +#line 1278 "parser.y" { (yyval.val) = regex_compile((yyvsp[(2) - (3)].val), nil); end_of_regex(scnr); rl((yyval.val), num(parser->lineno)); } @@ -6153,7 +6154,7 @@ yyreduce: case 365: /* Line 1806 of yacc.c */ -#line 1280 "parser.y" +#line 1281 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("regex")); end_of_regex(scnr); } @@ -6162,7 +6163,7 @@ yyreduce: case 366: /* Line 1806 of yacc.c */ -#line 1286 "parser.y" +#line 1287 "parser.y" { (yyval.val) = regex_compile((yyvsp[(2) - (3)].val), nil); end_of_regex(scnr); rl((yyval.val), num(parser->lineno)); } @@ -6171,7 +6172,7 @@ yyreduce: case 367: /* Line 1806 of yacc.c */ -#line 1290 "parser.y" +#line 1291 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("regex")); end_of_regex(scnr); } @@ -6180,7 +6181,7 @@ yyreduce: case 368: /* Line 1806 of yacc.c */ -#line 1295 "parser.y" +#line 1296 "parser.y" { (yyval.val) = if3(cdr((yyvsp[(1) - (1)].val)), cons(compound_s, (yyvsp[(1) - (1)].val)), car((yyvsp[(1) - (1)].val))); } @@ -6189,84 +6190,84 @@ yyreduce: case 369: /* Line 1806 of yacc.c */ -#line 1298 "parser.y" +#line 1299 "parser.y" { (yyval.val) = list(or_s, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val), nao); } break; case 370: /* Line 1806 of yacc.c */ -#line 1299 "parser.y" +#line 1300 "parser.y" { (yyval.val) = list(and_s, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val), nao); } break; case 371: /* Line 1806 of yacc.c */ -#line 1300 "parser.y" +#line 1301 "parser.y" { (yyval.val) = list(compl_s, (yyvsp[(2) - (2)].val), nao); } break; case 372: /* Line 1806 of yacc.c */ -#line 1301 "parser.y" +#line 1302 "parser.y" { (yyval.val) = nil; } break; case 373: /* Line 1806 of yacc.c */ -#line 1304 "parser.y" +#line 1305 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); } break; case 374: /* Line 1806 of yacc.c */ -#line 1305 "parser.y" +#line 1306 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)); } break; case 375: /* Line 1806 of yacc.c */ -#line 1306 "parser.y" +#line 1307 "parser.y" { (yyval.val) = list((yyvsp[(1) - (3)].val), list(compl_s, (yyvsp[(3) - (3)].val), nao), nao); } break; case 376: /* Line 1806 of yacc.c */ -#line 1309 "parser.y" +#line 1310 "parser.y" { (yyval.val) = list(zeroplus_s, (yyvsp[(1) - (2)].val), nao); } break; case 377: /* Line 1806 of yacc.c */ -#line 1310 "parser.y" +#line 1311 "parser.y" { (yyval.val) = list(oneplus_s, (yyvsp[(1) - (2)].val), nao); } break; case 378: /* Line 1806 of yacc.c */ -#line 1311 "parser.y" +#line 1312 "parser.y" { (yyval.val) = list(optional_s, (yyvsp[(1) - (2)].val), nao); } break; case 379: /* Line 1806 of yacc.c */ -#line 1312 "parser.y" +#line 1313 "parser.y" { (yyval.val) = list(nongreedy_s, (yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val), nao); } break; case 380: /* Line 1806 of yacc.c */ -#line 1313 "parser.y" +#line 1314 "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))); @@ -6279,14 +6280,14 @@ yyreduce: case 381: /* Line 1806 of yacc.c */ -#line 1320 "parser.y" +#line 1321 "parser.y" { (yyval.val) = cons(set_s, nil); } break; case 382: /* Line 1806 of yacc.c */ -#line 1321 "parser.y" +#line 1322 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("regex character class")); } break; @@ -6294,56 +6295,56 @@ yyreduce: case 383: /* Line 1806 of yacc.c */ -#line 1323 "parser.y" +#line 1324 "parser.y" { (yyval.val) = wild_s; } break; case 384: /* Line 1806 of yacc.c */ -#line 1324 "parser.y" +#line 1325 "parser.y" { (yyval.val) = chr(']'); } break; case 385: /* Line 1806 of yacc.c */ -#line 1325 "parser.y" +#line 1326 "parser.y" { (yyval.val) = chr('-'); } break; case 386: /* Line 1806 of yacc.c */ -#line 1326 "parser.y" +#line 1327 "parser.y" { (yyval.val) = chr((yyvsp[(1) - (1)].chr)); } break; case 387: /* Line 1806 of yacc.c */ -#line 1327 "parser.y" +#line 1328 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 388: /* Line 1806 of yacc.c */ -#line 1328 "parser.y" +#line 1329 "parser.y" { (yyval.val) = list(compound_s, string_own((yyvsp[(1) - (1)].lexeme)), nao); } break; case 389: /* Line 1806 of yacc.c */ -#line 1329 "parser.y" +#line 1330 "parser.y" { (yyval.val) = (yyvsp[(2) - (3)].val); } break; case 390: /* Line 1806 of yacc.c */ -#line 1330 "parser.y" +#line 1331 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("regex subexpression")); } break; @@ -6351,133 +6352,133 @@ yyreduce: case 391: /* Line 1806 of yacc.c */ -#line 1334 "parser.y" +#line 1335 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); } break; case 392: /* Line 1806 of yacc.c */ -#line 1335 "parser.y" +#line 1336 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)); } break; case 393: /* Line 1806 of yacc.c */ -#line 1338 "parser.y" +#line 1339 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 394: /* Line 1806 of yacc.c */ -#line 1339 "parser.y" +#line 1340 "parser.y" { (yyval.val) = chr((yyvsp[(1) - (1)].chr)); } break; case 395: /* Line 1806 of yacc.c */ -#line 1340 "parser.y" +#line 1341 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 396: /* Line 1806 of yacc.c */ -#line 1343 "parser.y" +#line 1344 "parser.y" { (yyval.val) = cons(chr((yyvsp[(1) - (3)].chr)), chr((yyvsp[(3) - (3)].chr))); } break; case 397: /* Line 1806 of yacc.c */ -#line 1345 "parser.y" +#line 1346 "parser.y" { (yyval.chr) = '?'; } break; case 398: /* Line 1806 of yacc.c */ -#line 1346 "parser.y" +#line 1347 "parser.y" { (yyval.chr) = '.'; } break; case 399: /* Line 1806 of yacc.c */ -#line 1347 "parser.y" +#line 1348 "parser.y" { (yyval.chr) = '*'; } break; case 400: /* Line 1806 of yacc.c */ -#line 1348 "parser.y" +#line 1349 "parser.y" { (yyval.chr) = '+'; } break; case 401: /* Line 1806 of yacc.c */ -#line 1349 "parser.y" +#line 1350 "parser.y" { (yyval.chr) = '('; } break; case 402: /* Line 1806 of yacc.c */ -#line 1350 "parser.y" +#line 1351 "parser.y" { (yyval.chr) = ')'; } break; case 403: /* Line 1806 of yacc.c */ -#line 1351 "parser.y" +#line 1352 "parser.y" { (yyval.chr) = '|'; } break; case 404: /* Line 1806 of yacc.c */ -#line 1352 "parser.y" +#line 1353 "parser.y" { (yyval.chr) = '~'; } break; case 405: /* Line 1806 of yacc.c */ -#line 1353 "parser.y" +#line 1354 "parser.y" { (yyval.chr) = '&'; } break; case 406: /* Line 1806 of yacc.c */ -#line 1354 "parser.y" +#line 1355 "parser.y" { (yyval.chr) = '%'; } break; case 407: /* Line 1806 of yacc.c */ -#line 1355 "parser.y" +#line 1356 "parser.y" { (yyval.chr) = '/'; } break; case 408: /* Line 1806 of yacc.c */ -#line 1356 "parser.y" +#line 1357 "parser.y" { (yyval.chr) = (yyvsp[(1) - (1)].chr); } break; case 409: /* Line 1806 of yacc.c */ -#line 1359 "parser.y" +#line 1360 "parser.y" { switch ((yyvsp[(1) - (1)].chr)) { case 's': (yyval.val) = space_k; break; @@ -6496,7 +6497,7 @@ yyreduce: case 411: /* Line 1806 of yacc.c */ -#line 1374 "parser.y" +#line 1375 "parser.y" { yyerr("newline expected after directive"); yyerrok; } break; @@ -6504,14 +6505,14 @@ yyreduce: case 412: /* Line 1806 of yacc.c */ -#line 1378 "parser.y" +#line 1379 "parser.y" { (yyval.val) = null_string; } break; case 413: /* Line 1806 of yacc.c */ -#line 1379 "parser.y" +#line 1380 "parser.y" { (yyval.val) = (yyvsp[(2) - (3)].val); rl((yyval.val), num(parser->lineno)); } break; @@ -6519,7 +6520,7 @@ yyreduce: case 414: /* Line 1806 of yacc.c */ -#line 1381 "parser.y" +#line 1382 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("string literal")); } break; @@ -6527,7 +6528,7 @@ yyreduce: case 415: /* Line 1806 of yacc.c */ -#line 1385 "parser.y" +#line 1386 "parser.y" { wchar_t ch; val str = string_own((yyvsp[(2) - (2)].lexeme)); const wchar_t *cstr = c_str(str, nil); @@ -6546,7 +6547,7 @@ yyreduce: case 416: /* Line 1806 of yacc.c */ -#line 1398 "parser.y" +#line 1399 "parser.y" { (yyval.val) = chr((yyvsp[(2) - (2)].chr)); end_of_char(scnr); } break; @@ -6554,7 +6555,7 @@ yyreduce: case 417: /* Line 1806 of yacc.c */ -#line 1400 "parser.y" +#line 1401 "parser.y" { free((yyvsp[(2) - (2)].lexeme)); yyerrorf(scnr, lit("invalid UTF-8 used as character name"), @@ -6564,7 +6565,7 @@ yyreduce: case 418: /* Line 1806 of yacc.c */ -#line 1404 "parser.y" +#line 1405 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("character literal")); } @@ -6573,14 +6574,14 @@ yyreduce: case 419: /* Line 1806 of yacc.c */ -#line 1409 "parser.y" +#line 1410 "parser.y" { (yyval.val) = null_string; } break; case 420: /* Line 1806 of yacc.c */ -#line 1410 "parser.y" +#line 1411 "parser.y" { (yyval.val) = cons(quasi_s, (yyvsp[(2) - (3)].val)); rlc((yyval.val), (yyvsp[(2) - (3)].val)); rl((yyval.val), num(parser->lineno)); } @@ -6589,7 +6590,7 @@ yyreduce: case 421: /* Line 1806 of yacc.c */ -#line 1413 "parser.y" +#line 1414 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("quasistring")); } break; @@ -6597,7 +6598,7 @@ yyreduce: case 422: /* Line 1806 of yacc.c */ -#line 1417 "parser.y" +#line 1418 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (1)].val), nil); rl((yyval.val), num(parser->lineno)); } break; @@ -6605,7 +6606,7 @@ yyreduce: case 423: /* Line 1806 of yacc.c */ -#line 1419 "parser.y" +#line 1420 "parser.y" { (yyval.val) = cons((yyvsp[(1) - (2)].val), (yyvsp[(2) - (2)].val)); rl((yyval.val), num(parser->lineno)); } break; @@ -6613,21 +6614,21 @@ yyreduce: case 424: /* Line 1806 of yacc.c */ -#line 1423 "parser.y" +#line 1424 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 425: /* Line 1806 of yacc.c */ -#line 1424 "parser.y" +#line 1425 "parser.y" { (yyval.val) = (yyvsp[(1) - (1)].val); } break; case 426: /* Line 1806 of yacc.c */ -#line 1425 "parser.y" +#line 1426 "parser.y" { (yyval.val) = cons(var_s, cons((yyvsp[(1) - (1)].val), nil)); rl((yyval.val), num(parser->lineno)); } break; @@ -6635,7 +6636,7 @@ yyreduce: case 427: /* Line 1806 of yacc.c */ -#line 1427 "parser.y" +#line 1428 "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)); @@ -6646,14 +6647,14 @@ yyreduce: case 428: /* Line 1806 of yacc.c */ -#line 1434 "parser.y" +#line 1435 "parser.y" { (yyval.val) = mkstring(one, chr((yyvsp[(1) - (1)].chr))); } break; case 429: /* Line 1806 of yacc.c */ -#line 1435 "parser.y" +#line 1436 "parser.y" { val ch = mkstring(one, chr((yyvsp[(1) - (2)].chr))); (yyval.val) = string_extend(ch, (yyvsp[(2) - (2)].val)); } break; @@ -6661,63 +6662,63 @@ yyreduce: case 430: /* Line 1806 of yacc.c */ -#line 1437 "parser.y" +#line 1438 "parser.y" { (yyval.val) = string_own((yyvsp[(1) - (1)].lexeme)); } break; case 431: /* Line 1806 of yacc.c */ -#line 1438 "parser.y" +#line 1439 "parser.y" { (yyval.val) = string_extend(string_own((yyvsp[(1) - (2)].lexeme)), (yyvsp[(2) - (2)].val)); } break; case 432: /* Line 1806 of yacc.c */ -#line 1441 "parser.y" +#line 1442 "parser.y" { (yyval.val) = mkstring(one, chr((yyvsp[(1) - (1)].chr))); } break; case 433: /* Line 1806 of yacc.c */ -#line 1442 "parser.y" +#line 1443 "parser.y" { (yyval.val) = string_extend((yyvsp[(1) - (2)].val), chr((yyvsp[(2) - (2)].chr))); } break; case 434: /* Line 1806 of yacc.c */ -#line 1443 "parser.y" +#line 1444 "parser.y" { (yyval.val) = string_own((yyvsp[(1) - (1)].lexeme)); } break; case 435: /* Line 1806 of yacc.c */ -#line 1444 "parser.y" +#line 1445 "parser.y" { (yyval.val) = string_extend((yyvsp[(1) - (2)].val), string_own((yyvsp[(2) - (2)].lexeme))); } break; case 436: /* Line 1806 of yacc.c */ -#line 1447 "parser.y" +#line 1448 "parser.y" { (yyval.val) = nil; } break; case 437: /* Line 1806 of yacc.c */ -#line 1448 "parser.y" +#line 1449 "parser.y" { (yyval.val) = (yyvsp[(2) - (2)].val); } break; case 438: /* Line 1806 of yacc.c */ -#line 1449 "parser.y" +#line 1450 "parser.y" { val word = (yyvsp[(1) - (2)].val); (yyval.val) = rlc(cons(word, (yyvsp[(2) - (2)].val)), (yyvsp[(1) - (2)].val)); } break; @@ -6725,7 +6726,7 @@ yyreduce: case 439: /* Line 1806 of yacc.c */ -#line 1451 "parser.y" +#line 1452 "parser.y" { (yyval.val) = nil; yybadtok(yychar, lit("word list")); } break; @@ -6733,21 +6734,21 @@ yyreduce: case 440: /* Line 1806 of yacc.c */ -#line 1455 "parser.y" +#line 1456 "parser.y" { (yyval.val) = nil; } break; case 441: /* Line 1806 of yacc.c */ -#line 1456 "parser.y" +#line 1457 "parser.y" { (yyval.val) = (yyvsp[(2) - (2)].val); } break; case 442: /* Line 1806 of yacc.c */ -#line 1457 "parser.y" +#line 1458 "parser.y" { val qword = cons(quasi_s, (yyvsp[(1) - (2)].val)); (yyval.val) = rlc(cons(qword, nil), (yyvsp[(1) - (2)].val)); } break; @@ -6755,7 +6756,7 @@ yyreduce: case 443: /* Line 1806 of yacc.c */ -#line 1461 "parser.y" +#line 1462 "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; @@ -6763,7 +6764,7 @@ yyreduce: case 444: /* Line 1806 of yacc.c */ -#line 1465 "parser.y" +#line 1466 "parser.y" { (yyval.val) = make_buf(zero, nil, nil); end_of_buflit(scnr); } break; @@ -6771,7 +6772,7 @@ yyreduce: case 445: /* Line 1806 of yacc.c */ -#line 1467 "parser.y" +#line 1468 "parser.y" { end_of_buflit(scnr); buf_trim((yyvsp[(2) - (3)].val)); (yyval.val) = (yyvsp[(2) - (3)].val); } @@ -6780,7 +6781,7 @@ yyreduce: case 446: /* Line 1806 of yacc.c */ -#line 1470 "parser.y" +#line 1471 "parser.y" { yyerr("unterminated buffer literal"); end_of_buflit(scnr); yyerrok; } @@ -6789,7 +6790,7 @@ yyreduce: case 447: /* Line 1806 of yacc.c */ -#line 1475 "parser.y" +#line 1476 "parser.y" { buf_put_u8((yyvsp[(1) - (2)].val), length_buf((yyval.val)), (yyvsp[(2) - (2)].val)); (yyval.val) = (yyvsp[(1) - (2)].val); } break; @@ -6797,7 +6798,7 @@ yyreduce: case 448: /* Line 1806 of yacc.c */ -#line 1477 "parser.y" +#line 1478 "parser.y" { (yyval.val) = make_buf(zero, nil, num_fast(512)); buf_put_u8((yyval.val), zero, (yyvsp[(1) - (1)].val)); } break; @@ -6805,14 +6806,14 @@ yyreduce: case 449: /* Line 1806 of yacc.c */ -#line 1481 "parser.y" +#line 1482 "parser.y" { (yyval.val) = num((yyvsp[(1) - (2)].chr) << 4 | (yyvsp[(2) - (2)].chr)); } break; case 450: /* Line 1806 of yacc.c */ -#line 1482 "parser.y" +#line 1483 "parser.y" { (yyval.val) = zero; yyerr("unpaired digit in buffer literal"); yyerrok; } @@ -6821,119 +6822,119 @@ yyreduce: case 451: /* Line 1806 of yacc.c */ -#line 1489 "parser.y" +#line 1490 "parser.y" { (yyval.val) = mkexp(all_s, nil, num(parser->lineno)); } break; case 452: /* Line 1806 of yacc.c */ -#line 1490 "parser.y" +#line 1491 "parser.y" { (yyval.val) = mkexp(some_s, nil, num(parser->lineno)); } break; case 453: /* Line 1806 of yacc.c */ -#line 1491 "parser.y" +#line 1492 "parser.y" { (yyval.val) = mkexp(none_s, nil, num(parser->lineno)); } break; case 454: /* Line 1806 of yacc.c */ -#line 1492 "parser.y" +#line 1493 "parser.y" { (yyval.val) = mkexp(maybe_s, nil, num(parser->lineno)); } break; case 455: /* Line 1806 of yacc.c */ -#line 1493 "parser.y" +#line 1494 "parser.y" { (yyval.val) = mkexp(cases_s, nil, num(parser->lineno)); } break; case 456: /* Line 1806 of yacc.c */ -#line 1494 "parser.y" +#line 1495 "parser.y" { (yyval.val) = mkexp(and_s, nil, num(parser->lineno)); } break; case 457: /* Line 1806 of yacc.c */ -#line 1495 "parser.y" +#line 1496 "parser.y" { (yyval.val) = mkexp(or_s, nil, num(parser->lineno)); } break; case 458: /* Line 1806 of yacc.c */ -#line 1496 "parser.y" +#line 1497 "parser.y" { (yyval.val) = mkexp(try_s, nil, num(parser->lineno)); } break; case 459: /* Line 1806 of yacc.c */ -#line 1497 "parser.y" +#line 1498 "parser.y" { (yyval.val) = mkexp(finally_s, nil, num(parser->lineno)); } break; case 460: /* Line 1806 of yacc.c */ -#line 1499 "parser.y" +#line 1500 "parser.y" { (yyval.val) = mkexp(block_s, (yyvsp[(2) - (3)].val), nil); } break; case 461: /* Line 1806 of yacc.c */ -#line 1501 "parser.y" +#line 1502 "parser.y" { (yyval.val) = mkexp(choose_s, (yyvsp[(2) - (3)].val), nil); } break; case 462: /* Line 1806 of yacc.c */ -#line 1503 "parser.y" +#line 1504 "parser.y" { (yyval.val) = mkexp(collect_s, (yyvsp[(2) - (3)].val), nil); } break; case 463: /* Line 1806 of yacc.c */ -#line 1505 "parser.y" +#line 1506 "parser.y" { (yyval.val) = mkexp(coll_s, (yyvsp[(2) - (3)].val), nil); } break; case 464: /* Line 1806 of yacc.c */ -#line 1507 "parser.y" +#line 1508 "parser.y" { (yyval.val) = mkexp(gather_s, (yyvsp[(2) - (3)].val), nil); } break; case 465: /* Line 1806 of yacc.c */ -#line 1509 "parser.y" +#line 1510 "parser.y" { (yyval.val) = mkexp(define_s, (yyvsp[(2) - (3)].val), nil); } break; case 466: /* Line 1806 of yacc.c */ -#line 1511 "parser.y" +#line 1512 "parser.y" { (yyval.val) = mkexp(catch_s, (yyvsp[(2) - (3)].val), nil); } break; case 467: /* Line 1806 of yacc.c */ -#line 1513 "parser.y" +#line 1514 "parser.y" { (yyval.val) = mkexp(if_s, cons((yyvsp[(2) - (5)].val), cons((yyvsp[(3) - (5)].val), (yyvsp[(4) - (5)].val))), @@ -6943,14 +6944,14 @@ yyreduce: case 468: /* Line 1806 of yacc.c */ -#line 1518 "parser.y" +#line 1519 "parser.y" { yyerr("@(output) doesn't nest"); } break; /* Line 1806 of yacc.c */ -#line 6984 "y.tab.c" +#line 6985 "y.tab.c" default: break; } /* User semantic actions sometimes alter yychar, and that requires @@ -7181,7 +7182,7 @@ yyreturn: /* Line 2067 of yacc.c */ -#line 1522 "parser.y" +#line 1523 "parser.y" const int have_yydebug = YYDEBUG; |