diff options
| author | Hans Bolinder <[email protected]> | 2015-11-30 16:38:42 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2016-02-17 12:58:19 +0100 |
| commit | 6285f2874977e033d02b3c0b77da78e35e771961 (patch) | |
| tree | fe8a5d13ab678425e40a60117519c6a641a07dfc | |
| parent | c6135114e691a8c2f21f4d79f2566b87300857d5 (diff) | |
| download | otp-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.erl | 6 |
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. |