From 4159d81c4bf65fa72288bd9fd7bc4958418cdb44 Mon Sep 17 00:00:00 2001
From: ProgramSnail <PurpureBacterium@yandex.ru>
Date: Sat, 29 Jul 2023 14:49:02 +0300
Subject: [PATCH] example fixes

---
 corpus/test.langexp | 45 ++++++++++++++++++++++++---------------------
 1 file changed, 24 insertions(+), 21 deletions(-)

diff --git a/corpus/test.langexp b/corpus/test.langexp
index c093bfa..b9e7510 100644
--- a/corpus/test.langexp
+++ b/corpus/test.langexp
@@ -224,7 +224,7 @@ parse_number : Unit! = {
 
 : function, that return result ('!' not used on calls)
 : useful when tuples returned
-result_func! 'a 'b -> 'c -> 'd = ?? 'a == 0 => error "some error" !!=> 'c := 'a, 'd := 'b, ()
+result_func! 'a 'b -> 'c -> 'd = ?? 'a == 0 => error "some error" !!=> ('c := 'a, 'd := 'b, ());
 
 --------------------------------------------------------------------------------
 
@@ -1211,7 +1211,7 @@ result_func! 'a 'b -> 'c -> 'd = ?? 'a == 0 => error "some error" !!=> 'c := 'a,
           (name_expression
             (argument_name_identifier))))))
   (empty_lines)
-  (ERROR
+  (function_definition
     (definition_info
       (info)
       (info))
@@ -1220,24 +1220,27 @@ result_func! 'a 'b -> 'c -> 'd = ?? 'a == 0 => error "some error" !!=> 'c := 'a,
     (argument_name_identifier)
     (argument_name_identifier)
     (argument_name_identifier)
-    (comma_expression
-      (condition
-        (operator_expression
-          (name_expression
-            (argument_name_identifier))
-          (operator)
-          (number_literal))
-        (name_expression
-          (simple_name_identifier)
-          (string_literal))
-        (name_expression
-          (argument_name_identifier)))
-      (ERROR
-        (argument_name_identifier))
-      (match
+    (condition
+      (operator_expression
         (name_expression
           (argument_name_identifier))
-        (case
-          (name_expression
-            (argument_name_identifier)))))
-    (unit_literal)))
+        (operator)
+        (number_literal))
+      (name_expression
+        (simple_name_identifier)
+        (string_literal))
+      (comma_expression
+        (comma_expression
+          (match
+            (name_expression
+              (argument_name_identifier))
+            (case
+              (name_expression
+                (argument_name_identifier))))
+          (match
+            (name_expression
+              (argument_name_identifier))
+            (case
+              (name_expression
+                (argument_name_identifier)))))
+        (unit_literal)))))