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

Now with perfect ++feel.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-24 13:14:59 -08:00
parent 16659a3a21
commit 148b3b5b88
2 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
arvo/hoon.hoon
View File

@ -8039,19 +8039,6 @@
?^ zem
:+ %& [`axe lon]
[%| (peg 2 p.u.zem) [[ref(p.q %gold) q.u.zem] ~ ~]]
=+ foo=$(ref p.ref, axe (peg axe 3))
=- ?: |(?=($| -.foo) =(foo bar))
foo
:: ~& [%old foo]
:: ~& [%new bar]
~& [%ref ref]
=+ ^- sax/axis
|- ^- axis
?~ p.p.foo 1
(peg $(p.p.foo t.p.p.foo) ?~(i.p.p.foo 1 u.i.p.p.foo))
~& [%foo-axis vet sax (cap sax) (mas sax) (park(sut ref) way sax) way p.q.ref]
foo
^= bar
=+ ^- {sam/? con/?}
?: ?=($gold p.q.ref) [& &]
?- way

7
arvo/zuse.hoon
View File

@ -82,7 +82,7 @@
?~ pon !!
(out.s.u.pon (exp.s.u.pon q.r.u.pon (sit.s.u.pon a)))
--
|%
|% :: opaque object
++ as
=> |%
++ haul :: revealing haul
@ -204,7 +204,8 @@
=+ b=((hard {p/@ q/@}) (cue a))
..nu(mos (mul p.b q.b), pon [~ (ersa p.b q.b)])
--
--
-- ::
::
++ bruw :: create keypair
|= {a/@ b/@} :: width seed
^- acru
@ -1560,7 +1561,7 @@
|% ++ pit |+({a/@ b/@} ^?(..nu)) :: from [width seed]
++ nol |+(a/@ ^?(..nu)) :: from naked ring
++ com |+(a/@ ^?(..nu)) :: from naked pass
-- ::
-- ::
-- ::
++ aeon @ud ::
++ agon (map {p/ship q/desk} {p/@ud q/@ud r/waks}) :: mergepts