From 5d4aadda5f63b6734b98dedf681598f065117b7a Mon Sep 17 00:00:00 2001 From: Tuncer Ayaz Date: Fri, 19 Aug 2011 17:34:40 +0200 Subject: yecc: optimize werror/1 --- lib/parsetools/src/yecc.erl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/parsetools/src/yecc.erl b/lib/parsetools/src/yecc.erl index e51de0da2e..354d56527d 100644 --- a/lib/parsetools/src/yecc.erl +++ b/lib/parsetools/src/yecc.erl @@ -421,8 +421,8 @@ infile(Parent, Infilex, Options) -> Parent ! {self(), yecc_ret(St)}. werror(St) -> - member(warnings_as_errors, St#yecc.options) - andalso length(St#yecc.warnings) > 0. + St#yecc.warnings =/= [] + andalso member(warnings_as_errors, St#yecc.options). outfile(St0) -> case file:open(St0#yecc.outfile, [write, delayed_write]) of -- cgit v1.2.3