From 56e3a0c48ca2b641f77f7e73cce94dc3b133e142 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 20 Mar 2019 16:41:44 -0700 Subject: Restoring `(foo) syntax to \(foo) --- lib/tools/find.nom | 5 ++--- lib/tools/tutorial.nom | 11 +++++------ 2 files changed, 7 insertions(+), 9 deletions(-) (limited to 'lib/tools') diff --git a/lib/tools/find.nom b/lib/tools/find.nom index e3ef185..3e26ef4 100755 --- a/lib/tools/find.nom +++ b/lib/tools/find.nom @@ -1,5 +1,4 @@ #!/usr/bin/env nomsu -V7.0.0 - ### This is a tool to find syntax trees matching a pattern. "*" is a wildcard that will match any subtree, and "**" is a wildcard that will match any @@ -43,7 +42,7 @@ command line program with $args: for $ in (1 to #$patt): if ($patt.$ is syntax tree): - if ($patt.$ == `$multi_wildcard): return (yes) + if ($patt.$ == \$multi_wildcard): return (yes) unless ($tree.$ matches $patt.$): return (no) ..else: unless ($tree.$ == $patt.$): return (no) @@ -99,4 +98,4 @@ command line program with $args: ..else: sort $results by $ -> $.line for $ in $results: - say $.text + say $.text \ No newline at end of file diff --git a/lib/tools/tutorial.nom b/lib/tools/tutorial.nom index 035443e..ac0c675 100755 --- a/lib/tools/tutorial.nom +++ b/lib/tools/tutorial.nom @@ -1,5 +1,4 @@ #!/usr/bin/env nomsu -V7.0.0 - ### This is a Nomsu tutorial. @@ -15,9 +14,9 @@ use "shell" ") [, ???] all compile to - `( - at `("Text" tree with "\((this tree).source)") fail - `"Incomplete code: This needs to be filled in." + \( + at \("Text" tree with "\((this tree).source)") fail + \"Incomplete code: This needs to be filled in." ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ @@ -398,7 +397,7 @@ command line program with $args: $tree = $tree, with $ ->: - if ($ == `()): + if ($ == \()): return ("Text" tree with (filename of ($i - 1), with "%.nom$" -> "")) run $tree @@ -541,4 +540,4 @@ command line program with $args: \\(^\("ᴗ" if $(COLOR ENABLED) else "_")^)/ - ") + ") \ No newline at end of file -- cgit v1.2.3