RosettaCodeData/Task/Fork/Pop11/fork.pop11

8 lines
133 B
Plaintext

lvars ress;
if sys_fork(false) ->> ress then
;;; parent
printf(ress, 'Child pid = %p\n');
else
printf('In child\n');
endif;