From f75fc15cdfd9d6727b7c8489abfc2165ca0f114b Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Wed, 19 Dec 2018 02:27:10 -0800
Subject: [PATCH] Updated to be more fault tolerant with "-q" flag

---
 tools/format.nom | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/tools/format.nom b/tools/format.nom
index 8355176..0f09834 100755
--- a/tools/format.nom
+++ b/tools/format.nom
@@ -21,11 +21,20 @@ for $filename in $filenames:
         barf "File does not exist: \$filename"
     $leading_indent = ($file|matching "[\n]*([ ]*)")
     $code = (NomsuCode from ($Source $filename 1 (size of $file)) $file)
-    $tree = ($code parsed)
-    $formatted = "
-        \$leading_indent\((($tree as nomsu)|text)|with "\n" -> "\n\$leading_indent")"
+    try:
+        $tree = ($code parsed)
+    ..and if it barfs $msg:
+        if $(COMMAND LINE ARGS)."-q":
+            $formatted = $file
+        ..else:
+            say $msg
+
+    if ($tree and (not $formatted)):
+        $formatted = "
+            \$leading_indent\((($tree as nomsu)|text)|with "\n" -> "\n\$leading_indent")"
     
-    if $(COMMAND LINE ARGS)."-i":
-        write $formatted to file $filename
-    ..else:
-        say $formatted inline
+    if $formatted:
+        if $(COMMAND LINE ARGS)."-i":
+            write $formatted to file $filename
+        ..else:
+            say $formatted inline