aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/src/qlc_pt.erl
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2015-08-21 08:27:43 +0200
committerHans Bolinder <[email protected]>2015-08-21 08:27:43 +0200
commit378f70052f13ae607eebd5aebd7e978dc48a4c53 (patch)
tree2adcefdc15890c404b85fa497682ec378cc2edd4 /lib/stdlib/src/qlc_pt.erl
parent25be5551705cf64f2ecc7be5f6c64c9c908e2938 (diff)
parent6633afcb23e36c77cab56f18a4d327b368513e48 (diff)
downloadotp-378f70052f13ae607eebd5aebd7e978dc48a4c53.tar.gz
otp-378f70052f13ae607eebd5aebd7e978dc48a4c53.tar.bz2
otp-378f70052f13ae607eebd5aebd7e978dc48a4c53.zip
Merge branch 'maint'
* maint: stdlib: fix a qlc bug introduced in 18.0
Diffstat (limited to 'lib/stdlib/src/qlc_pt.erl')
-rw-r--r--lib/stdlib/src/qlc_pt.erl8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/stdlib/src/qlc_pt.erl b/lib/stdlib/src/qlc_pt.erl
index 4e81e2c2dd..9577d17a85 100644
--- a/lib/stdlib/src/qlc_pt.erl
+++ b/lib/stdlib/src/qlc_pt.erl
@@ -428,7 +428,13 @@ compile_errors(FormsNoShadows) ->
end.
compile_forms(Forms0, Options) ->
- Forms = [F || F <- Forms0, element(1, F) =/= eof] ++ [{eof,anno0()}],
+ Exclude = fun(eof) -> true;
+ (warning) -> true;
+ (error) -> true;
+ (_) -> false
+ end,
+ Forms = ([F || F <- Forms0, not Exclude(element(1, F))]
+ ++ [{eof,anno0()}]),
try
case compile:noenv_forms(Forms, compile_options(Options)) of
{ok, _ModName, Ws0} ->