diff options
| author | Felix Lange <fjl@twurst.com> | 2011-10-14 05:45:42 +0200 |
|---|---|---|
| committer | Felix Lange <fjl@twurst.com> | 2011-10-14 05:45:42 +0200 |
| commit | bd5145368593e09460d4461256ee4f934b2ebf26 (patch) | |
| tree | 471852782d61d64bede27d67552eb79af0a598aa /src/edit_genserv.erl | |
| parent | 90640c1aed302fd83a500bb9ccdfb6cf7b481112 (diff) | |
| download | ermacs-fork-bd5145368593e09460d4461256ee4f934b2ebf26.tar.gz | |
remove cruft
cruft includes:
- module header comments (yikes..)
- author attributes (sorry luke)
- old guard tests
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), |