diff options
| -rw-r--r-- | net/ricketyspace/ror/six/snake.rkt | 3 |
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) |