The GNU Modula-2 front end to GCC

ulm-lib-gm2/sys/SysFork

DEFINITION MODULE SysFork;

   (* IF pid = 0 THEN son ELSE father END *)


   PROCEDURE Fork(VAR pid: CARDINAL) : BOOLEAN;

END SysFork.