Add search on PATH for async execute example

This commit is contained in:
Josef Pospíšil 2021-12-09 11:57:21 +01:00
parent 6d9286a202
commit 04e499c97f
1 changed files with 1 additions and 1 deletions

View File

@ -1,6 +1,6 @@
(defn dowork [name n]
(print name " starting work...")
(os/execute [(dyn :executable) "-e" (string "(os/sleep " n ")")])
(os/execute [(dyn :executable) "-e" (string "(os/sleep " n ")")] :p)
(print name " finished work!"))
# Will be done in parallel