have puck bail for seeds larger than 32 bytes

also add size-odors
This commit is contained in:
~hatteb-mitlyd 2014-04-19 14:17:35 -07:00
parent 77b65f5ab4
commit 7c9d6a2e51

View File

@ -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]])
::