Processus Exemple de lien -module (makelink). -export ([create/0, supervisor/0]). create () -> PID = spawn (?MODULE, supervisor, []), link (PID). supervisor () -> process_flag (trap_exit, true), receive {'EXIT', _, normal} -> io:format ("Goodbye~n"); {'EXIT', _, _} -> io:format ("Did you crash? :)~n") end.