Allow actions without containing list

Type check atom state as early as possible

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/stdlib/test/gen_statem_SUITE.erl b/lib/stdlib/test/gen_statem_SUITE.erl
index 09b309c36f..0429c0e5f4 100644
--- a/lib/stdlib/test/gen_statem_SUITE.erl
+++ b/lib/stdlib/test/gen_statem_SUITE.erl
@@ -1178,7 +1178,7 @@ idle({call,From}, {delayed_answer,T}, Data) ->
     end;
 idle({call,From}, {timeout,Time}, _Data) ->
     {next_state,timeout,{From,Time},
-     [{timeout,Time,idle}]};
+     {timeout,Time,idle}};
 idle(Type, Content, Data) ->
     case handle_common_events(Type, Content, idle, Data) of
 	undefined ->
@@ -1220,7 +1220,7 @@ timeout3(_, _, Data) ->
 
 wfor_conf({call,From}, confirm, Data) ->
     {next_state,connected,Data,
-     [{reply,From,yes}]};
+     {reply,From,yes}};
 wfor_conf(cast, {ping,_,_}, _) ->
     {keep_state_and_data,[postpone]};
 wfor_conf(cast, confirm, Data) ->
@@ -1241,7 +1241,7 @@ wfor_conf(Type, Content, Data) ->
 
 connected({call,From}, {msg,Ref}, Data) ->
     {keep_state,Data,
-     [{reply,From,{ack,Ref}}]};
+     {reply,From,{ack,Ref}}};
 connected(cast, {msg,From,Ref}, Data) ->
     From ! {ack,Ref},
     {keep_state,Data};