diff options
| author | rsiddharth <s@ricketyspace.net> | 2018-06-08 04:22:52 +0000 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2018-06-08 04:22:52 +0000 |
| commit | 94d76800276532ad766c42fdb238e626a6ee1ac7 (patch) | |
| tree | 1c18bde1bb826844f502ac5b46d1e7d1b45afc72 | |
| parent | cc8638ba0248542a11e6094640543e12e01b4e17 (diff) | |
net: snake.rkt: Update next-pit.
* net/ricketyspace/ror/six/snake.rkt
(next-pit): Update function.
| -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) |