From 7c9d6a2e516dbe21da380e9f4e84b53bf2282cf4 Mon Sep 17 00:00:00 2001
From: ~hatteb-mitlyd <anthony@tlon.io>
Date: Sat, 19 Apr 2014 14:17:35 -0700
Subject: [PATCH] have puck bail for seeds larger than 32 bytes

also add size-odors
---
 arvo/hoon.hoon | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index 24cf6d8c4..ac5686fa0 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -4447,7 +4447,8 @@
   |%
   ++  puck                                                ::  public key
     ~/  %puck
-    |=  sk=@  ^-  @
+    |=  sk=@I  ^-  @
+    ?:  (gth (met 3 sk) 32)  !!
     =+  h=(shal (rsh 0 3 b) sk)
     =+  ^=  a
         %+  add
@@ -4456,7 +4457,7 @@
     =+  aa=(scam bb a)
     (etch aa)
   ++  suck                                                ::  keypair from seed
-    |=  se=@uI  ^-  @uJ
+    |=  se=@I  ^-  @uJ
     =+  pu=(puck se)
     (can 0 ~[[b se] [b pu]])
   ::