[17/29] twig commit: updated refs/heads/import to 2d56280

[da...@apache.org]

Update obsolete function guards


Project: http://git-wip-us.apache.org/repos/asf/couchdb-twig/repo
Commit: http://git-wip-us.apache.org/repos/asf/couchdb-twig/commit/eaa15f1f
Tree: http://git-wip-us.apache.org/repos/asf/couchdb-twig/tree/eaa15f1f
Diff: http://git-wip-us.apache.org/repos/asf/couchdb-twig/diff/eaa15f1f

Branch: refs/heads/import
Commit: eaa15f1f2dd9a277311ee07ec532e50e4ef7fccd
Parents: c4d7baf
Author: Adam Kocoloski <ad...@cloudant.com>
Authored: Tue Mar 8 22:12:05 2011 -0500
Committer: Adam Kocoloski <ad...@cloudant.com>
Committed: Tue Mar 8 22:12:05 2011 -0500

----------------------------------------------------------------------
 src/trunc_io.erl | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/couchdb-twig/blob/eaa15f1f/src/trunc_io.erl
----------------------------------------------------------------------
diff --git a/src/trunc_io.erl b/src/trunc_io.erl
index d3d5bb4..cfa6c97 100644
--- a/src/trunc_io.erl
+++ b/src/trunc_io.erl
@@ -48,13 +48,13 @@ fprint(T, Max) ->
 %% 
 safe(What, Len) ->
     case catch print(What, Len) of
-	{L, Used} when list(L) -> {L, Used};
+	{L, Used} when is_list(L) -> {L, Used};
 	_ -> {"unable to print" ++ io_lib:write(What, 99)}
     end.	     
 
 %% Returns {List, Length}
 print(_, Max) when Max < 0 -> {"...", 3};
-print(Tuple, Max) when tuple(Tuple) -> 
+print(Tuple, Max) when is_tuple(Tuple) ->
     {TC, Len} = tuple_contents(Tuple, Max-2),
     {[${, TC, $}], Len + 2};
 
@@ -63,43 +63,43 @@ print(Tuple, Max) when tuple(Tuple) ->
 %% arbitrarily long bignum. Let's assume that won't happen unless someone
 %% is being malicious.
 %%
-print(Atom, _Max) when atom(Atom) ->
+print(Atom, _Max) when is_atom(Atom) ->
     L = atom_to_list(Atom),
     {L, length(L)};
 
 print(<<>>, _Max) ->
     {"<<>>", 4};
 
-print(Binary, Max) when binary(Binary) ->
+print(Binary, Max) when is_binary(Binary) ->
     B = binary_to_list(Binary, 1, lists:min([Max, size(Binary)])),
     {L, Len} = alist_start(B, Max-4),
     {["<<", L, ">>"], Len};
 
-print(Float, _Max) when float(Float) ->
+print(Float, _Max) when is_float(Float) ->
     L = float_to_list(Float),
     {L, length(L)};
 
-print(Fun, _Max) when function(Fun) ->
+print(Fun, _Max) when is_function(Fun) ->
     L = erlang:fun_to_list(Fun),
     {L, length(L)};
 
-print(Integer, _Max) when integer(Integer) ->
+print(Integer, _Max) when is_integer(Integer) ->
     L = integer_to_list(Integer),
     {L, length(L)};
 
-print(Pid, _Max) when pid(Pid) ->
+print(Pid, _Max) when is_pid(Pid) ->
     L = pid_to_list(Pid),
     {L, length(L)};
 
-print(Ref, _Max) when reference(Ref) ->
+print(Ref, _Max) when is_reference(Ref) ->
     L = erlang:ref_to_list(Ref),
     {L, length(L)};
 
-print(Port, _Max) when port(Port) ->
+print(Port, _Max) when is_port(Port) ->
     L = erlang:port_to_list(Port),
     {L, length(L)};
 
-print(List, Max) when list(List) ->
+print(List, Max) when is_list(List) ->
     alist_start(List, Max).
 
 %% Returns {List, Length}