dump-runlisp-image.c: Initialize the random number generator a bit.

[runlisp] / dump-runlisp-image.c

diff --git a/dump-runlisp-image.c b/dump-runlisp-image.c
index 7bd9ebaa7eeb5f5fe671dcb4749e4a2e996abf6f..97f854d7c649b5023d3a5bc69b87795a1c77e65b 100644 (file)
--- a/dump-runlisp-image.c
+++ b/dump-runlisp-image.c
@@ -1408,6 +1408,7 @@ int main(int argc, char *argv[])
   /* Initial setup. */
   set_progname(argv[0]);
   init_config();
   /* Initial setup. */
   set_progname(argv[0]);
   init_config();

+  srand(time(0));

 
   /* Parse the options. */
   optprog = (/*unconst*/ char *)progname;
 
   /* Parse the options. */
   optprog = (/*unconst*/ char *)progname;