From cc8638ba0248542a11e6094640543e12e01b4e17 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Fri, 8 Jun 2018 04:21:30 +0000
Subject: net: snake.rkt: Add grow-size.

* net/ricketyspace/ror/six/snake.rkt (grow-size): New function.
---
 net/ricketyspace/ror/six/snake.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/net/ricketyspace/ror/six/snake.rkt b/net/ricketyspace/ror/six/snake.rkt
index 2931375..abe0a28 100644
--- a/net/ricketyspace/ror/six/snake.rkt
+++ b/net/ricketyspace/ror/six/snake.rkt
@@ -88,6 +88,10 @@
 (define (close? s g)
   (posn=? s (goo-loc g)))
 
+(define (grow-size sn size)
+  (cond [(= size 0) sn]
+        [else (grow-size (grow sn) (- size 1))]))
+
 (define (grow sn)
   (snake (snake-dir sn)
          (cons (next-head sn) (snake-segs sn))))
-- 
cgit v1.2.3