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