3632

Follow-up to commit 3628.

1 files changed, 7 insertions, 0 deletions

diff --git a/017parse_tree.cc b/017parse_tree.cc
index 50499a7c..6d84f898 100644
--- a/017parse_tree.cc
+++ b/017parse_tree.cc
@@ -79,6 +79,7 @@ string_tree* parse_string_tree(istream& in) {
   }
   in.get();  // skip ')'
   assert(*curr == NULL);
+  if (result == NULL) return result;
   if (result->right == NULL) return result;
   // standardize the final element to always be on the right if it's an atom
   // (a b c) => (a b . c) in s-expression parlance
@@ -106,6 +107,12 @@ container bar [
 ]
 +parse:   product: {1: ("foo" ("address" "array" "character") ("bar" "number"))}
 
+:(scenario dilated_empty_tree)
+def main [
+  {1: number, foo: ()} <- copy 34
+]
++parse:   product: {1: "number", "foo": ()}
+
 :(scenario dilated_singleton_tree)
 def main [
   {1: number, foo: (bar)} <- copy 34