From 0750d642624b2262afdb4dd17b275a16e96971b5 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Wed, 20 Sep 2017 05:02:53 -0700
Subject: Updated all the code to work with the latest nomsu.

---
 examples/parser_tests.nom | 63 ++++++++++++-----------------------------------
 1 file changed, 16 insertions(+), 47 deletions(-)

(limited to 'examples/parser_tests.nom')

diff --git a/examples/parser_tests.nom b/examples/parser_tests.nom
index 5cf64d3..b1eb23b 100644
--- a/examples/parser_tests.nom
+++ b/examples/parser_tests.nom
@@ -1,48 +1,38 @@
 require "lib/core.nom"
 
-test: say "foo" ..yields ".."
+test: say "foo"
+..yields ".."
     |Call [say %]:
     |    "foo"
 
-test: say (4) ..yields ".."
+test: say (foo)
+..yields ".."
     |Call [say %]:
-    |    4
+    |    Call [foo]!
 
 test:
-    rule: fart ..=: say "poot"
+    rule [fart] =: say "poot"
 ..yields ".."
     |Call [rule % = %]:
-    |    Thunk:
+    |    List:
     |        Call [fart]!
     |    Thunk:
     |        Call [say %]:
     |            "poot"
 
-test:
-    rule: doublefart ..=:
-        say "poot"
-        say "poot"
+test: say (subexpressions work)
 ..yields ".."
-    |Call [rule % = %]:
-    |    Thunk:
-    |        Call [doublefart]!
-    |    Thunk:
-    |        Call [say %]:
-    |            "poot"
-    |        Call [say %]:
-    |            "poot"
-
-test: say (subexpressions work) ..yields ".."
     |Call [say %]:
     |    Call [subexpressions work]!
 
-test: say ["lists", "work"] ..yields ".."
+test: say ["lists", "work"]
+..yields ".."
     |Call [say %]:
     |    List:
     |        "lists"
     |        "work"
 
-test: say [] ..yields ".."
+test (: say []) yields ".."
     |Call [say %]:
     |    <Empty List>
 
@@ -71,28 +61,6 @@ test:
     |        3
     |        4
 
-test:
-    say both..
-        "hello"
-        and "world"
-..yields ".."
-    |Call [say both % and %]:
-    |    "hello"
-    |    "world"
-
-test:
-    say both ..
-        "a list:"
-        and [..]
-            1,2,(three),(4)
-..yields ".."
-    |Call [say both % and %]:
-    |    "a list:"
-    |    List:
-    |        1
-    |        2
-    |        Call [three]!
-    |        4
 
 test:
     if 1: yes
@@ -106,7 +74,7 @@ test:
     |        Call [no]!
 
 test:
-    if 1: yes ..else: no
+    if 1 (: yes) else: no
 ..yields ".."
     |Call [if % % else %]:
     |    1
@@ -173,10 +141,11 @@ test: say (1 + (-(2 * 3)))
 test:
     if %x:
         x
-    ..else: if %y:
-        y
     ..else:
-        z
+        if %y:
+            y
+        ..else:
+            z
 ..yields ".."
     |Call [if % % else %]:
     |    Var[x]
-- 
cgit v1.2.3