diff options
| author | Björn Gustavsson <[email protected]> | 2011-02-23 13:03:17 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-02-23 13:03:17 +0100 |
| commit | 88994f8e203dc6bf31968cad0bc70b6789a15a0b (patch) | |
| tree | 23ca9855ede99f96630c6d873c0fc2d48cc9fb20 /erts/emulator/test/pseudoknot_SUITE.erl | |
| parent | 84884b96de521491d34a19b1b3497d3d76549126 (diff) | |
| download | otp-88994f8e203dc6bf31968cad0bc70b6789a15a0b.tar.gz otp-88994f8e203dc6bf31968cad0bc70b6789a15a0b.tar.bz2 otp-88994f8e203dc6bf31968cad0bc70b6789a15a0b.zip | |
emulator tests: Eliminate some compiler warnings
Diffstat (limited to 'erts/emulator/test/pseudoknot_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/pseudoknot_SUITE.erl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/erts/emulator/test/pseudoknot_SUITE.erl b/erts/emulator/test/pseudoknot_SUITE.erl index f0668dd287..5a7cdcecd5 100644 --- a/erts/emulator/test/pseudoknot_SUITE.erl +++ b/erts/emulator/test/pseudoknot_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2010. All Rights Reserved. +%% Copyright Ericsson AB 2001-2011. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -3294,13 +3294,13 @@ most_distant_atom(Sols) -> maximum(map(sol_most_distant_atom, Sols)). maximum([H|T]) -> - max(T,H). + max1(T,H). -max([H|T],M) when is_float(H), is_float(M), H > M -> - max(T,H); -max([_|T],M) -> - max(T,M); -max([],M) -> M. +max1([H|T],M) when is_float(H), is_float(M), H > M -> + max1(T,H); +max1([_|T],M) -> + max1(T,M); +max1([],M) -> M. map(_Func,[]) -> []; map(Func,[H|T]) -> |