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 !!)
%a q.p.q.don
%c (lurk ((hard (list)) src) p.q.don)
%d (lure src p.q.don)
==
::
%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
|= don=udon ^- udon
:- p.don