5 lines
127 B
Text
5 lines
127 B
Text
|
(let (pid (fork (println "Hello from child")))
|
||
|
|
(cond
|
||
|
|
((nil? pid) (throw-error "Unable to fork"))
|
||
|
|
('t (wait-pid pid))))
|