diff options
Diffstat (limited to 'src/edit_genserv.erl')
| -rw-r--r-- | src/edit_genserv.erl | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/edit_genserv.erl b/src/edit_genserv.erl index 0ec5557..6c2aab0 100644 --- a/src/edit_genserv.erl +++ b/src/edit_genserv.erl @@ -1,16 +1,8 @@ -%%%---------------------------------------------------------------------- -%%% File : edit_genserv.erl -%%% Author : Luke Gorrie <luke@bluetail.com> -%%% Purpose : Generic utility functions for servers. -%%% Created : 28 Apr 2001 by Luke Gorrie <luke@bluetail.com> -%%%---------------------------------------------------------------------- - %% This is a library for writing servers. The idea is to have a less %% abstract gen_server, in which the protocols are exposed and the %% servers still use 'receive' to get requests with pattern matching. -module(edit_genserv). --author('luke@bluetail.com'). -export([start_link/4, call/2, call/3, reply/2, cast/2]). @@ -19,7 +11,7 @@ %% Returns: {ok, Pid} | {error, Reason} start_link(Name, M, F, A) -> case whereis(Name) of - Pid when pid(Pid) -> + Pid when is_pid(Pid) -> {error, {already_started, Pid}}; undefined -> Pid = spawn_link(M, F, A), |