From e665d9725c4bb02f4c18d16527367f424cb880fa Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Wed, 20 Mar 2019 15:55:57 -0700
Subject: Auto-updated to 7.0.0 syntax and removed some shims.

---
 lib/tools/parse.nom | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'lib/tools/parse.nom')

diff --git a/lib/tools/parse.nom b/lib/tools/parse.nom
index 89af6f6..7224901 100755
--- a/lib/tools/parse.nom
+++ b/lib/tools/parse.nom
@@ -1,5 +1,6 @@
-#!/usr/bin/env nomsu -V6.15.13.8
-#
+#!/usr/bin/env nomsu -V7.0.0
+
+###
     Tool to print out a parse tree of files in an easy-to-read format. Usage:
     nomsu tools/parse.nom file1 file2 directory1 ...        
     
@@ -42,9 +43,9 @@ use "commandline"
         "a Syntax Tree":
             $body = ([: for $bit in $: add ($bit as xml)], joined with " ")
             if ($.type == "Action"):
-                return "<Action name=\"\(($, get stub) as xml)\">\$body</Action>"
+                return "<Action name=\"\(($, get stub) as xml)\">\($body)</Action>"
             ..else:
-                return "<\($.type)>\$body</\($.type)>"
+                return "<\($.type)>\($body)</\($.type)>"
         
         "Text":
             return
@@ -73,7 +74,7 @@ command line program with $args:
         $file = (read file $filename)
         unless $file:
             fail "File does not exist: \$filename"
-        $nomsu = (NomsuCode from (Source $filename 1 (#$file)) $file)
+        $nomsu = (NomsuCode from (Source $filename 1 #$file) $file)
         $tree = ($nomsu parsed)
         when:
             ($args.x or $args.xml):
-- 
cgit v1.2.3