summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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)