urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

working sign:ed jet

Browse Source
This commit is contained in:
~hatteb-mitlyd 2014-04-16 20:15:49 -07:00
parent c8655dbeca
commit 128c995506
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
arvo/hoon.hoon
View File

@ -730,7 +730,6 @@
:: ::
++ sort :: quicksort ++ sort :: quicksort
~/ %sort ~/ %sort
!:
|* [a=(list) b=$+([* *] ?)] |* [a=(list) b=$+([* *] ?)]
=> .(a ^.(homo a)) => .(a ^.(homo a))
|- ^+ a |- ^+ a
@ -1280,7 +1279,6 @@
== ==
:: ::
++ in :: set engine ++ in :: set engine
!:
~/ %in ~/ %in
|/ a=(set) |/ a=(set)
+- all +- all
@ -4143,10 +4141,16 @@
(lsh 0 3 (cut 0 [3 (sub b 5)] h)) (lsh 0 3 (cut 0 [3 (sub b 5)] h))
=+ aa=(scam bb a) =+ aa=(scam bb a)
(etch aa) (etch aa)
++ suck :: keypair from seed
|= se=@uI ^- @uJ
=+ pu=(puck se)
(can 0 ~[[b se] [b pu]])
:: ::
++ sign :: certify ++ sign :: certify
~/ %sign ~/ %sign
|= [m=@ sk=@ pk=@] ^- @ |= [m=@ se=@] ^- @
=+ sk=(suck se)
=+ pk=(cut 0 [b b] sk)
=+ h=(shal (rsh 0 3 b) sk) =+ h=(shal (rsh 0 3 b) sk)
=+ ^= a =+ ^= a
%+ add %+ add
@ -5780,7 +5784,7 @@
== ==
:: ::
++ dish ++ dish
|= [ham=calf lum=*] ^- tank !: |= [ham=calf lum=*] ^- tank
~| [%dish-h ?@(q.ham q.ham -.q.ham)] ~| [%dish-h ?@(q.ham q.ham -.q.ham)]
~| [%lump lum] ~| [%lump lum]
~| [%ham ham] ~| [%ham ham]
@ -7312,7 +7316,7 @@
== ==
== ==
:: ::
++ sail !: :: template language ++ sail :: template language
|= tol=? |= tol=?
|% |%
++ ape :: product twig ++ ape :: product twig
@ -8345,7 +8349,6 @@
$(hen t.hen) $(hen t.hen)
:: ::
++ vent :: vane core ++ vent :: vane core
!:
|= [vil=vile bud=vase ves=vase] |= [vil=vile bud=vase ves=vase]
|% |%
++ ruck :: update vase ++ ruck :: update vase