From 78c109da0a33108a72ea580b8ba4c01aa32dbe2c Mon Sep 17 00:00:00 2001
From: Tuncer Ayaz <tuncer.ayaz@gmail.com>
Date: Fri, 19 Aug 2011 17:34:48 +0200
Subject: leex: optimize werror/1

---
 lib/parsetools/src/leex.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/parsetools')

diff --git a/lib/parsetools/src/leex.erl b/lib/parsetools/src/leex.erl
index 3e226229f8..cdf20461d9 100644
--- a/lib/parsetools/src/leex.erl
+++ b/lib/parsetools/src/leex.erl
@@ -282,8 +282,8 @@ do_error_return(St, Es, Ws) ->
     end.
 
 werror(St) ->
-    member(warnings_as_errors, St#leex.opts)
-        andalso length(St#leex.warnings) > 0.
+    St#leex.warnings =/= []
+	andalso member(warnings_as_errors, St#leex.opts).
 
 pack_errors([{File,_} | _] = Es) ->
     [{File, flatmap(fun({_,E}) -> [E] end, sort(Es))}];
-- 
cgit v1.2.3