diff options
| author | Björn Gustavsson <[email protected]> | 2011-02-23 13:18:28 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-02-23 13:25:52 +0100 |
| commit | c347415765f4e30e38e49f5bd369f48523ef935e (patch) | |
| tree | 5b19c0a50acc4337257e7292e832a06d1cd0beb5 /lib/compiler/test/guard_SUITE.erl | |
| parent | 88994f8e203dc6bf31968cad0bc70b6789a15a0b (diff) | |
| download | otp-c347415765f4e30e38e49f5bd369f48523ef935e.tar.gz otp-c347415765f4e30e38e49f5bd369f48523ef935e.tar.bz2 otp-c347415765f4e30e38e49f5bd369f48523ef935e.zip | |
compiler: Eliminate some warnings
Diffstat (limited to 'lib/compiler/test/guard_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/guard_SUITE.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/compiler/test/guard_SUITE.erl b/lib/compiler/test/guard_SUITE.erl index 7201edf4ac..482564a32b 100644 --- a/lib/compiler/test/guard_SUITE.erl +++ b/lib/compiler/test/guard_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 @@ -111,8 +111,8 @@ const_cond(Config) when is_list(Config) -> const_cond(T, Sz) -> case T of _X when false -> never; - _X when tuple(T), eq == eq, tuple_size(T) == Sz -> ok; - _X when tuple(T), eq == leq, tuple_size(T) =< Sz -> ok; + _X when is_tuple(T), eq == eq, tuple_size(T) == Sz -> ok; + _X when is_tuple(T), eq == leq, tuple_size(T) =< Sz -> ok; _X -> error end. |