From 0896611c9210d15db5fa0c9329d3cb75e2c4b663 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Tue, 12 Jun 2018 23:31:38 +0000 Subject: net: snake.rkt: Update fresh-goos. * net/ricketyspace/ror/six/snake.rkt (fresh-goos): Update function. --- net/ricketyspace/ror/six/snake.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/net/ricketyspace/ror/six/snake.rkt b/net/ricketyspace/ror/six/snake.rkt index 24e5cea..7472609 100644 --- a/net/ricketyspace/ror/six/snake.rkt +++ b/net/ricketyspace/ror/six/snake.rkt @@ -148,7 +148,7 @@ (define (gen-goos n) (cond [(= n 0) empty] [else (cons (fresh-goo) (gen-goos (- n 1)))])) - (let ((n (random 4))) + (let ((n (random 3))) (gen-goos n))) ;; keys -- cgit v1.2.3