# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801803727 0
# Node ID 637671248a31b04ab38995036c066d13629bf249
# Parent  4179378fa41032bc0f5225938b25b4e3cb5f39c0
(Frandom): Use EMACS_INT, not int.
Use NULL, not 0, as arg of `time'.

diff -r 4179378fa410 -r 637671248a31 src/fns.c
--- a/src/fns.c	Mon May 29 21:04:07 1995 +0000
+++ b/src/fns.c	Tue May 30 03:15:27 1995 +0000
@@ -60,11 +60,12 @@
   (limit)
      Lisp_Object limit;
 {
-  int val;
+  EMACS_INT val;
+  Lisp_Object lispy_val;
   unsigned long denominator;
 
   if (EQ (limit, Qt))
-    seed_random (getpid () + time (0));
+    seed_random (getpid () + time (NULL));
   if (NATNUMP (limit) && XFASTINT (limit) != 0)
     {
       /* Try to take our random number from the higher bits of VAL,
@@ -81,7 +82,8 @@
     }
   else
     val = get_random ();
-  return make_number (val);
+  XSETINT (lispy_val, val);
+  return lispy_val;
 }
 
 /* Random data-structure functions */