luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

wip

Browse source
This commit is contained in:
Michiel Borkent 2021-05-20 22:54:34 +02:00
parent c802c1c852
commit 5453a32685
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/babashka/utils.clj
View file

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