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

%- stack trace annotation

Browse Source
This commit is contained in:
Anton Dyudin 2015-03-06 17:15:51 -08:00
parent f92d84c7a1
commit 404b8cedf7
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
arvo/hoon.hoon
View File

@ -2083,8 +2083,8 @@
:: ::
+- get :: grab value by key +- get :: grab value by key
~/ %get ~/ %get
|* b=* |= b=*
|- ^- ?(~ [~ u=_?>(?=(^ a) q.n.a)]) ^- $|(~ [~ u=_?>(?=(^ a) q.n.a)])
?~ a ?~ a
~ ~
?: =(b p.n.a) ?: =(b p.n.a)
@ -6131,7 +6131,12 @@
[i.p.gen $(p.gen t.p.gen)] [i.p.gen $(p.gen t.p.gen)]
:: ::
[%cncb *] [%ktls [%cnzz p.gen] %cnts p.gen q.gen] [%cncb *] [%ktls [%cnzz p.gen] %cnts p.gen q.gen]
[%cncl *] [%cnsg [%$ ~] p.gen q.gen] [%cncl *]
=+ rem=[%cnsg [%$ ~] p.gen q.gen]
?. ?=([%zpcb ^ %cnzz @ ~] p.gen) rem
=> .(p.gen `[@ ^ @ p=@tas ~]`p.gen)
:+ %sgzp [[%dtzz %tas 'slam'] [%dtzz %tas p.p.gen]]
rem
[%cndt *] [%cnhp q.gen [p.gen ~]] [%cndt *] [%cnhp q.gen [p.gen ~]]
[%cnkt *] [%cnhp p.gen q.gen r.gen s.gen ~] [%cnkt *] [%cnhp p.gen q.gen r.gen s.gen ~]
[%cnls *] [%cnhp p.gen q.gen r.gen ~] [%cnls *] [%cnhp p.gen q.gen r.gen ~]