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

doc

Browse source
This commit is contained in:
Michiel Borkent 2020-04-12 21:19:22 +02:00
parent 865f724f56
commit db2281659c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/which.clj
View file

@ -2,7 +2,7 @@
(require '[clojure.java.io :as io]) (require '[clojure.java.io :as io])
(defn where [executable] (defn which [executable]
(let [path (System/getenv "PATH") (let [path (System/getenv "PATH")
paths (.split path (System/getProperty "path.separator"))] paths (.split path (System/getProperty "path.separator"))]
(loop [paths paths] (loop [paths paths]
@ -14,4 +14,4 @@
(recur (rest paths)))))))) (recur (rest paths))))))))
(when-let [executable (first *command-line-args*)] (when-let [executable (first *command-line-args*)]
(println (where executable))) (println (which executable)))