RosettaCodeData/Task/Fork/Pop11/fork.pop11
2023-07-01 13:44:08 -04:00

7 lines
133 B
Text

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