From adb264d08ac8417d3f760c39c3e4ba1543a39500 Mon Sep 17 00:00:00 2001
From: Anders Svensson <anders@erlang.org>
Date: Mon, 4 Feb 2013 16:59:16 +0100
Subject: Add exprecs '#new-'/1 clause taking list argument

As an inverse to '#get-'/1 in the preceding commit.
---
 lib/diameter/src/compiler/diameter_exprecs.erl | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'lib/diameter/src')

diff --git a/lib/diameter/src/compiler/diameter_exprecs.erl b/lib/diameter/src/compiler/diameter_exprecs.erl
index b5149aa324..cc8458efa1 100644
--- a/lib/diameter/src/compiler/diameter_exprecs.erl
+++ b/lib/diameter/src/compiler/diameter_exprecs.erl
@@ -61,8 +61,10 @@
 %%   '#info-'(r, Info) ->
 %%       '#info-r'(Info).
 %%
+%%   '#new-'([r | Vals]) -> '#new-r'(Vals);
 %%   '#new-'(r) -> #r{}.
-%%   '#new-'(r, Vals) -> '#new-r'(Vals)
+%%
+%%   '#new-'(r, Vals) -> '#new-r'(Vals).
 %%
 %%   '#new-r'() -> #r{}.
 %%   '#new-r'(Vals) -> '#set-r'(Vals, #r{}).
@@ -193,12 +195,15 @@ fname(Op, Rname) ->
 
 '#new-/1'(Exports) ->
     {?function, fname(new), 1,
-     lists:map(fun 'new-'/1, Exports) ++ [?BADARG(1)]}.
+     lists:flatmap(fun 'new-'/1, Exports) ++ [?BADARG(1)]}.
 
 'new-'(R) ->
-    {?clause, [?ATOM(R)],
-     [],
-     [{?record, R, []}]}.
+    [{?clause, [?ATOM(R)],
+      [],
+      [{?record, R, []}]},
+     {?clause, [{?cons, ?ATOM(R), ?VAR('Vals')}],
+      [],
+      [?CALL(fname(new, R), [?VAR('Vals')])]}].
 
 '#new-/2'(Exports) ->
     {?function, fname(new), 2,
-- 
cgit v1.2.3