branch: externals/gnugo
commit 95f956ef95468b0d8ed7d5f3f48ff4a311c7e12d
Author: Paul Eggert <egg...@cs.ucla.edu>
Commit: Paul Eggert <egg...@cs.ucla.edu>
Improve scoring seed randomization
* packages/gnugo/gnugo.el (gnugo-close-game):
Use more-random scoring seed.
---
gnugo.el | 6 +-----
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index dd5baea..6ddb519 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -849,11 +849,7 @@ For all other values of RSEL, do nothing and return nil."
(defun gnugo-close-game (end-time resign)
(gnugo-put :game-end-time end-time)
- (gnugo-put :scoring-seed
- (if (fboundp 'time-convert)
- (logand (time-convert end-time 'integer) #xffffff)
- (let ((now (or end-time (current-time))))
- (logior (ash (logand (car now) 255) 16) (cadr now)))))
+ (gnugo-put :scoring-seed (logand (random t) #xffffff))
(gnugo-put :game-over
(cl-flet
;; Q: What form does a game-over "group" take?
