Allow multiple chained applications

Author: mkantor

src/end-to-end.test.ts

@@ -61,6 +61,7 @@ testCases(endToEnd, code => code)('end-to-end tests', [
   ['{ (a: A) (b: B) }', either.makeRight({ a: 'A', b: 'B' })],
   ['({ ((a): :(b)) ((b): B) })', either.makeRight({ a: 'B', b: 'B' })],
   ['{ (a: :(")")), (")": (B)) }', either.makeRight({ a: 'B', ')': 'B' })],
+  [':match({ a: A })({ tag: a, value: {} })', either.makeRight('A')],
   [
     `{
         "static data":"blah blah blah"

src/language/parsing/molecule.ts

@@ -87,15 +87,23 @@ const sugaredFunction: Parser<PartialMolecule> =
 const sugaredApply: Parser<PartialMolecule> = parser.map(
   parser.sequence([
     parser.oneOf([sugaredLookup, parser.lazy(() => sugaredFunction)]),
-    parser.literal('('),
-    parser.lazy(() => propertyValue),
-    parser.literal(')'),
+    parser.oneOrMore(
+      parser.sequence([
+        parser.literal('('),
+        parser.lazy(() => propertyValue),
+        parser.literal(')'),
+      ]),
+    ),
   ]),
-  ([f, _, argument]) => ({
-    0: '@apply',
-    function: f,
-    argument,
-  }),
+  ([f, multipleArguments]) =>
+    multipleArguments.reduce<PartialMolecule>(
+      (expression, [_1, argument, _2]) => ({
+        0: '@apply',
+        function: expression,
+        argument,
+      }),
+      f,
+    ),
 )
 
 const propertyKey = atomParser