diff --git a/build/src/fork.bqn b/build/src/fork.bqn index 4855aac6..2f5e3dd9 100644 --- a/build/src/fork.bqn +++ b/build/src/fork.bqn @@ -17,7 +17,7 @@ Pipe ← { 𝕊: readfd‿writefd ⇐ BiDiFork ← { 𝕊: p1 ← Pipe@ p2 ← Pipe@ - pid ⇐ Libc_fork@ + pid ⇐ Libc_fork⟨⟩ ! pid≥0 parent ⇐ pid=0 CloseWR ← {! ¬∨´ Libc_close¨ {𝕨.writefd‿𝕩.readfd}´ ⌽⍟parent 𝕩}