summaryrefslogtreecommitdiffstats
path: root/net
diff options
context:
space:
mode:
authorrsiddharth <s@ricketyspace.net>2018-06-08 04:22:52 +0000
committerrsiddharth <s@ricketyspace.net>2018-06-08 04:22:52 +0000
commit94d76800276532ad766c42fdb238e626a6ee1ac7 (patch)
tree1c18bde1bb826844f502ac5b46d1e7d1b45afc72 /net
parentcc8638ba0248542a11e6094640543e12e01b4e17 (diff)
net: snake.rkt: Update next-pit.
* net/ricketyspace/ror/six/snake.rkt (next-pit): Update function.
Diffstat (limited to 'net')
-rw-r--r--net/ricketyspace/ror/six/snake.rkt3
1 files changed, 2 insertions, 1 deletions
diff --git a/net/ricketyspace/ror/six/snake.rkt b/net/ricketyspace/ror/six/snake.rkt
index abe0a28..d894de5 100644
--- a/net/ricketyspace/ror/six/snake.rkt
+++ b/net/ricketyspace/ror/six/snake.rkt
@@ -51,7 +51,8 @@
(define dinged (pit-dinged w))
(define goo-to-eat (can-eat snake goos))
(if goo-to-eat
- (pit (grow snake) (age-goo (eat goos goo-to-eat)) (+ 1 dinged))
+ (pit (grow-size snake (goo-type goo-to-eat))
+ (age-goo (eat goos goo-to-eat)) (+ 1 dinged))
(pit (slither snake) (age-goo goos) dinged)))
(define (direct-snake w ke)