From 5de40bc7989241ccd5ead3c370fd451b73285c1c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Joa=CC=83o=20Santos?= <joao.santos@miniclip.com>
Date: Wed, 7 Aug 2019 10:52:11 +0100
Subject: [PATCH] Add uniform_s operations

---
 src/rand_compat.erl | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/src/rand_compat.erl b/src/rand_compat.erl
index cdd80a2..145163b 100644
--- a/src/rand_compat.erl
+++ b/src/rand_compat.erl
@@ -24,7 +24,9 @@
 -export([seed/3,
          seed/1,
          uniform/0,
-         uniform/1]).
+         uniform/1,
+         uniform_s/1,
+         uniform_s/2]).
 
 -ifdef(rand_module).
 seed(SValue) ->
@@ -57,3 +59,19 @@ uniform(N) ->
 uniform(N) ->
     random:uniform(N).
 -endif.
+
+-ifdef(rand_module).
+uniform_s(State) ->
+    rand:uniform_s(State).
+-else.
+uniform_s(State0) ->
+    random:uniform_s(State0).
+-endif.
+
+-ifdef(rand_module).
+uniform_s(N, State) ->
+    rand:uniform_s(N, State).
+-else.
+uniform_s(N, State0) ->
+    random:uniform_s(N, State0).
+-endif.
\ No newline at end of file