From 4ded5e10a2bdfdce0fb3a6aeb97d3b7046098912 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Fri, 12 Apr 2019 13:46:46 -0400
Subject: [PATCH] Update cook tool to export shell function.

---
 tools/cook.janet | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/tools/cook.janet b/tools/cook.janet
index 5c6dddbd..68e49a32 100644
--- a/tools/cook.janet
+++ b/tools/cook.janet
@@ -8,14 +8,16 @@
 (def- objext (if is-win ".obj" ".o"))
 (def- modext (if is-win ".dll" ".so"))
 
-(defn- shell
+(def prefix (or (os/getenv "PREFIX") "/usr/local"))
+
+(defn shell
   "Do a shell command"
   [& args]
-  (print ;args)
-  (def res (os/shell (string ;args)))
+  (def cmd (string ;args))
+  (print cmd)
+  (def res (os/shell cmd))
   (unless (zero? res)
-    (print "Error executing command: " ;args)
-    (os/exit res)))
+    (error "command exited with status " res)))
 
 (defn- rm
   "Remove a directory and all sub directories."