From 5453a326851fca24d2c826e4581430b1296223aa Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Thu, 20 May 2021 22:54:34 +0200
Subject: [PATCH] wip

---
 src/babashka/utils.clj | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/babashka/utils.clj b/src/babashka/utils.clj
index dd748138..3ca6bc54 100644
--- a/src/babashka/utils.clj
+++ b/src/babashka/utils.clj
@@ -1,9 +1,11 @@
 (ns babashka.utils)
 
-(defmacro when-graal [& body]
-  (when (resolve 'babashka.impl.Graal)
-    `(do ~@body)))
+(defmacro if-graal [then else]
+  (if (resolve 'babashka.impl.Graal)
+    ~then
+    ~else))
 
 (defn set-env [name value]
-  (when-graal
-      (babashka.impl.Graal/setEnv name value)))
+  (if-graal
+      (babashka.impl.Graal/setEnv name value)
+    (throw (UnsupportedOperationException. "set-env is only available in the native image."))))