Add exprecs '#get-'/1 for transforming records into lists

The generated '#get-'/1 has one clause for each exported record r, whose
definition is equivalent to the following.

  '#get-'(#r{} = Rec) ->
      [r | lists:zip(record_info(r, fields), tl(tuple_to_list(Rec)))];

The record name at the head of the list is the same format that diameter
accepts for outgoing message.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib/diameter/src/compiler/diameter_forms.hrl b/lib/diameter/src/compiler/diameter_forms.hrl
index 4cd86c32aa..1a0f3492ea 100644
--- a/lib/diameter/src/compiler/diameter_forms.hrl
+++ b/lib/diameter/src/compiler/diameter_forms.hrl
@@ -36,6 +36,7 @@
 -define(clause,       ?F(clause)).
 -define(function,     ?F(function)).
 -define(call,         ?F(call)).
+-define(cons,         ?F(cons)).
 -define('fun',        ?F('fun')).
 -define(generate,     ?F(generate)).
 -define(lc,           ?F(lc)).