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

Apply tree diffs

Browse Source
This commit is contained in:
Steve Dee 2014-04-15 18:25:40 -07:00
parent c899e40277
commit 69ef62338b
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
arvo/hoon.hoon
View File

@ -3861,6 +3861,7 @@
?+ -.q.don ~|(%unsupported !!) ?+ -.q.don ~|(%unsupported !!)
%a q.p.q.don %a q.p.q.don
%c (lurk ((hard (list)) src) p.q.don) %c (lurk ((hard (list)) src) p.q.don)
%d (lure src p.q.don)
== ==
:: ::
%c %c
@ -3872,6 +3873,15 @@
== ==
== ==
:: ::
++ lure :: apply tree diff
|= [a=* b=upas]
^- *
?^ -.b
[$(b -.b) $(b +.b)]
?+ -.b ~|(%unsupported !!)
%0 .*(a [0 p.b])
%1 .*(a [1 p.b])
==
++ limp :: invert patch ++ limp :: invert patch
|= don=udon ^- udon |= don=udon ^- udon
:- p.don :- p.don