Fixed a bug causing pspp to crash when computed variables had no format

[pspp-builds.git] / src / random.c

diff --git a/src/random.c b/src/random.c
index 20a70fae6ee3cb8f1303fa04b00a02f0a8709aaf..cae3f9e70a3fb9f0f05411bfa3114509d9fd768c 100644 (file)
--- a/src/random.c
+++ b/src/random.c
@@ -49,12 +49,13 @@ rng_create (void)
   static time_t t=0;
 
   rng = xmalloc (sizeof *rng);
-  if (t == 0 || set_seed == NOT_LONG)
+  if (t == 0 || set_seed_used)
   {
     if (set_seed == NOT_LONG) 
       time (&t);
     else
       t = set_seed;
+    set_seed_used=0;
   }
   else
     t++;