aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2015-11-30 16:38:42 +0100
committerHans Bolinder <[email protected]>2016-02-17 12:58:19 +0100
commit6285f2874977e033d02b3c0b77da78e35e771961 (patch)
treefe8a5d13ab678425e40a60117519c6a641a07dfc
parentc6135114e691a8c2f21f4d79f2566b87300857d5 (diff)
downloadotp-6285f2874977e033d02b3c0b77da78e35e771961.tar.gz
otp-6285f2874977e033d02b3c0b77da78e35e771961.tar.bz2
otp-6285f2874977e033d02b3c0b77da78e35e771961.zip
stdlib: Update qlc_pt to handle typed record fields
-rw-r--r--lib/stdlib/src/qlc_pt.erl6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/stdlib/src/qlc_pt.erl b/lib/stdlib/src/qlc_pt.erl
index 9f69cd5003..e4b9768b12 100644
--- a/lib/stdlib/src/qlc_pt.erl
+++ b/lib/stdlib/src/qlc_pt.erl
@@ -1914,9 +1914,9 @@ expand_pattern_records(P, State) ->
expand_expr_records(E, State) ->
RecordDefs = State#state.records,
A = anno1(),
- Forms = RecordDefs ++ [{function,A,foo,0,[{clause,A,[],[],[pe(E)]}]}],
- [{function,_,foo,0,[{clause,_,[],[],[NE]}]}] =
- erl_expand_records:module(Forms, [no_strict_record_tests]),
+ Forms0 = RecordDefs ++ [{function,A,foo,0,[{clause,A,[],[],[pe(E)]}]}],
+ Forms = erl_expand_records:module(Forms0, [no_strict_record_tests]),
+ {function,_,foo,0,[{clause,_,[],[],[NE]}]} = lists:last(Forms),
NE.
%% Partial evaluation.