Fix, and actually seed random state again
This commit is contained in:
parent
36ff5f887c
commit
910556a7af
|
@ -23,9 +23,10 @@
|
||||||
(syscaller-free-fiber (λ () (put-message state+ (%state))))
|
(syscaller-free-fiber (λ () (put-message state+ (%state))))
|
||||||
#f)
|
#f)
|
||||||
(define (switch-turn!)
|
(define (switch-turn!)
|
||||||
($ %my-turn? (not %my-turn?))
|
(let ((new-turn (not ($ %my-turn?))))
|
||||||
(when ($ %my-turn?) (signal-turn))
|
($ %my-turn? new-turn)
|
||||||
#f)
|
(when new-turn (signal-turn))
|
||||||
|
#f))
|
||||||
(when first? (signal-turn))
|
(when first? (signal-turn))
|
||||||
(methods
|
(methods
|
||||||
;; The peer is telling us about the turn it took.
|
;; The peer is telling us about the turn it took.
|
||||||
|
|
|
@ -15,6 +15,8 @@
|
||||||
#:use-module (goblins ocapn netlayer onion)
|
#:use-module (goblins ocapn netlayer onion)
|
||||||
#:export (make-initiator make-joiner))
|
#:export (make-initiator make-joiner))
|
||||||
|
|
||||||
|
(random-state-from-platform)
|
||||||
|
|
||||||
;; Module for simple console-based UI (no curses)
|
;; Module for simple console-based UI (no curses)
|
||||||
|
|
||||||
;; A single run of the loop for a bespoke REPL for playing the game
|
;; A single run of the loop for a bespoke REPL for playing the game
|
||||||
|
|
Loading…
Reference in New Issue