From ecd44290433fe5abdaf11e093d43d5819d05c8bb Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Tue, 3 Dec 2013 10:26:20 -0800
Subject: [PATCH] New room with iterative push.

---
 main/bin/room.hoon | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/main/bin/room.hoon b/main/bin/room.hoon
index 3686e2e08..7f3731253 100644
--- a/main/bin/room.hoon
+++ b/main/bin/room.hoon
@@ -144,12 +144,19 @@
 =.  wak  est
 =<  `bowl`[~ ~ hope vent]
 |%
+++  care
+  |=  [you=@p meg=(list zong) mor=(list gift)]
+  =+  len=(lent meg)
+  |-  ^-  (list gift)
+  ?:  =(0 len)  mor
+  =+  hob=(min len 256)
+  :-  [%sq you %oy /re (scag hob meg)]
+  $(meg (slag hob meg), len (sub len hob))
+::
 ++  cede
   |=  cub=chub
   ^-  (list gift)
-  ?~  cub  ~
-  =+  mor=$(cub t.cub)
-  ?~(q.i.cub mor [[%sq p.i.cub %oy /re q.i.cub] mor])
+  ?~(cub ~ (care p.i.cub q.i.cub $(cub t.cub)))
 ::
 ++  hope
   ^-  (list slip)