From fc1e649e3613f18dec8514921d0439ddcca73bdb Mon Sep 17 00:00:00 2001
From: Raimo Niskanen <raimo@erlang.org>
Date: Fri, 19 Feb 2016 09:39:46 +0100
Subject: Add reply([Reply])

---
 lib/stdlib/src/gen_statem.erl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/stdlib/src/gen_statem.erl')

diff --git a/lib/stdlib/src/gen_statem.erl b/lib/stdlib/src/gen_statem.erl
index 3da4443f13..8aa8afd091 100644
--- a/lib/stdlib/src/gen_statem.erl
+++ b/lib/stdlib/src/gen_statem.erl
@@ -389,9 +389,12 @@ call(ServerRef, Request, Timeout) ->
     end.
 
 %% Reply from a state machine callback to whom awaits in call/2
--spec reply(ReplyOperation :: reply_operation()) -> ok.
+-spec reply([reply_operation()] | reply_operation()) -> ok.
 reply({reply,{_To,_Tag}=Client,Reply}) ->
-    reply(Client, Reply).
+    reply(Client, Reply);
+reply(Replies) when is_list(Replies) ->
+    [reply(Reply) || Reply <- Replies],
+    ok.
 %%
 -spec reply(Client :: client(), Reply :: term()) -> ok.
 reply({To,Tag}, Reply) ->
-- 
cgit v1.2.3