Programming Erlang 8.11 Problem #1

ch8prob1.erl

%% Write a function start(AnAtom, Fun) to register 
%% AnAtom as spawn(Fun). Make sure your program 
%% works correctly in the case when two parallel 
%% processes simultaneously evaluate start/2. In 
%% this case, you must guarantee that one of 
%% these processes succeeds and the other fails.

-module(ch8prob1).
-export([start/2]).

start(AnAtom, Fun) ->    
    try register(AnAtom, spawn(Fun)) of
        true -> true
    catch
        error:X -> {error, X}
    end.

This is my solution for Programming Erlang Chapter 8, problem #1. It assumes that register/2 is guaranteed atomic within the system.