Commit this temporary fix

TODO.md

@@ -19,6 +19,9 @@ DONE -experiment with storing metadata via ItemIds on AST nodes (cf. https://rus
   -look at https://gitlab.haskell.org/ghc/ghc/wikis/pattern-synonyms
                                 2) the non-value-returning, default one like in rustc (cf. https://github.com/rust-unofficial/patterns/blob/master/patterns/visitor.md)
 
+-parser error - should report subset of AST parsed *so far*
+  - what if you used python 'def' syntax to define a function? what error message makes sense here?
+
 ## Reduction
  - make a good type for actual language builtins to avoid string comparisons
 

schala-lang/language/src/reduced_ast.rs

@@ -188,12 +188,21 @@ impl<'a> Reducer<'a> {
     //TODO this probably needs to change
     let FullyQualifiedSymbolName(ref v) = sym_name;
     let name = v.last().unwrap().name.clone();
-    match symbol_table.lookup_by_fqsn(&sym_name) {
+
-      Some(Symbol { spec: SymbolSpec::DataConstructor { index, type_args, type_name}, .. }) => Expr::Constructor {
+    let Symbol { local_name, spec, .. } = match symbol_table.lookup_by_fqsn(&sym_name) {
-        type_name: type_name.clone(),
+      Some(s) => s,
-        name: name.clone(),
+      //None => return Expr::ReductionError(format!("Symbol {:?} not found", sym_name)),
-        tag: index.clone(),
+      None => return Expr::Sym(name.clone())
-        arity: type_args.len(),
+    };
+
+    match spec {
+      SymbolSpec::DataConstructor { index, type_args, type_name} => {
+        Expr::Constructor {
+          type_name: type_name.clone(),
+          name: name.clone(),
+          tag: index.clone(),
+          arity: type_args.len(),
+        }
       },
       _ => Expr::Sym(name.clone()),
     }