fa69849fe310

Reseed random state on world gen
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 07 Aug 2016 01:10:52 +0000
parents 634f61cb60ba
children 94af6897af93
branches/tags (none)
files silt.lisp

Changes

--- a/silt.lisp	Sun Aug 07 00:44:44 2016 +0000
+++ b/silt.lisp	Sun Aug 07 01:10:52 2016 +0000
@@ -999,6 +999,7 @@
   (state-generate))
 
 (defun state-generate ()
+  (setf *random-state* (make-random-state t))
   (render-generate)
   (clear-entities)
   (manage-screen)