1 files changed, 5 insertions, 0 deletions
diff --git a/rand.c b/rand.c
index b28398ba..ca78c8ad 100644
--- a/rand.c
+++ b/rand.c
@@ -241,6 +241,11 @@ invalid:
       modulus, nao);
 }
 
+val rand(val modulus, val state)
+{
+  return random(state, modulus);
+}
+
 void rand_init(void)
 {
   prot1(&random_state);