From fc1ddbbc8c979bf0dc67ec9bfcb95ac0e18e6161 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Sun, 24 Jan 2010 09:28:05 +0100
Subject: kernel tests: modernize guard tests

---
 lib/kernel/test/cleanup.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/kernel/test/cleanup.erl')

diff --git a/lib/kernel/test/cleanup.erl b/lib/kernel/test/cleanup.erl
index 6e1a1edeac..6df5c4aff4 100644
--- a/lib/kernel/test/cleanup.erl
+++ b/lib/kernel/test/cleanup.erl
@@ -31,7 +31,7 @@ cleanup(_) ->
     ?line case nodes() of
 	      [] ->
 		  ok;
-	      Nodes when list(Nodes) ->
+	      Nodes when is_list(Nodes) ->
 		  Kill = fun(Node) -> spawn(Node, erlang, halt, []) end,
 		  ?line lists:foreach(Kill, Nodes),
 		  ?line test_server:fail({nodes_left, Nodes})
-- 
cgit v1.2.3