removed union_type and object_type and replaced them with binary_expr…

…ession and object

src/AST.ts

@@ -49,12 +49,10 @@ export type list_tag =
   | "predefined_type"
   | "literal_type"
   | "tuple_type"
-  | "object_type"
   | "pair"
   | "object"
   | "array_pattern"
   | "object_pattern"
-  | "union_type"
   | "slice"
   | "ERROR";
 
@@ -83,12 +81,10 @@ export const list_tags: { [k in list_tag]: list_tag } = {
   predefined_type: "predefined_type",
   literal_type: "literal_type",
   tuple_type: "tuple_type",
-  object_type: "object_type",
   pair: "pair",
   object: "object",
   object_pattern: "object_pattern",
   array_pattern: "array_pattern",
-  union_type: "union_type",
   ERROR: "ERROR",
 };
 

src/ASTVis.tsx

@@ -14,7 +14,7 @@ const colormap: { [k in AST.atom_tag]: string } = {
   number: "magenta",
   type_identifier: "orange",
   jsx_text: "teal",
-  string_fragment: "cyan",
+  string: "cyan",
   regex_pattern: "magenta",
   other: "grey",
   ERROR: "red",

src/expander.ts

@@ -454,7 +454,7 @@ function find_form(loc: Loc): ffrv {
         const { tag } = loc.t;
         const action = list_handlers_table[tag];
         if (action === undefined) {
-          throw new Error(`no stop_table entry for ${tag}`);
+          debug(loc, `no stop_table entry for ${tag}`);
         }
         switch (action) {
           case "descend":

src/parser-loader.ts

@@ -75,6 +75,12 @@ function absurdly(node: Parser.SyntaxNode): AST {
           return { type: "list", tag: "required_parameter", content: array_to_ll(ls) };
         }
       }
+      case "union_type": {
+        return { type: "list", tag: "binary_expression", content: array_to_ll(ls) };
+      }
+      case "object_type": {
+        return { type: "list", tag: "object", content: array_to_ll(ls) };
+      }
       case "arrow_function": {
         if (ls.length === 3) {
           const fmls = ls[0];