From fc1655e028a93290f5d6a6e99cec56fa9dbaf0bb Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Tue, 8 Jan 2019 16:34:41 -0800
Subject: [PATCH] Made separate versions of (sh> ...) and (=sh ...) for
 versions that care or don't care about the output.

---
 lib/os.nom | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/os.nom b/lib/os.nom
index 2e4cd86..3445e8d 100644
--- a/lib/os.nom
+++ b/lib/os.nom
@@ -17,7 +17,7 @@ externally (nomsu files for $path) means:
         if $files:
             return $files
 
-externally (sh> $cmd) means:
+externally (=sh $cmd) means:
     lua> ("
         local result = io.popen(\$cmd)
         local contents = result:read("*a")
@@ -25,10 +25,12 @@ externally (sh> $cmd) means:
         return contents
     ")
 
+external $(sh> $) = $os.execute
+
 test:
     read file "lib/os.nom"
 
-externally (read file $filename) means (=lua "Files.read(\$filename)")
+externally (read file $filename) means (=lua "Files.read(\$filename, true)")
 externally [
     write to file $filename $text, to file $filename write $text
     write $text to file $filename