diff options
| author | Anders Svensson <[email protected]> | 2017-08-18 11:00:57 +0200 |
|---|---|---|
| committer | Anders Svensson <[email protected]> | 2017-08-18 11:00:57 +0200 |
| commit | 770454f0a32fbc0714c6762ed3e4d761b799814f (patch) | |
| tree | dc5613f518bc50e768fb03336cdc5b96685bb58f /lib/diameter/src/compiler/diameter_exprecs.erl | |
| parent | 91318cd5576a3283cd0dbc263e846fad55010f89 (diff) | |
| parent | f392006644991074d2c4d5055773409c5e0503d7 (diff) | |
| download | otp-770454f0a32fbc0714c6762ed3e4d761b799814f.tar.gz otp-770454f0a32fbc0714c6762ed3e4d761b799814f.tar.bz2 otp-770454f0a32fbc0714c6762ed3e4d761b799814f.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/diameter/src/compiler/diameter_exprecs.erl')
| -rw-r--r-- | lib/diameter/src/compiler/diameter_exprecs.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/diameter/src/compiler/diameter_exprecs.erl b/lib/diameter/src/compiler/diameter_exprecs.erl index 9a0cb6baf2..143dede037 100644 --- a/lib/diameter/src/compiler/diameter_exprecs.erl +++ b/lib/diameter/src/compiler/diameter_exprecs.erl @@ -110,9 +110,9 @@ %% parse_transform/2 parse_transform(Forms, _Options) -> - Rs = [R || {attribute, _, record, R} <- Forms], - Es = lists:append([E || {attribute, _, export_records, E} <- Forms]), {H,T} = lists:splitwith(fun is_head/1, Forms), + Rs = [R || {attribute, _, record, R} <- H], + Es = lists:append([E || {attribute, _, export_records, E} <- H]), H ++ [a_export(Es) | f_accessors(Es, Rs)] ++ T. is_head(T) -> |