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

Revive ++ja.

Browse Source
This commit is contained in:
Jared Hance 2014-07-03 14:07:21 -04:00
parent 408529e7f3
commit 1f5ca20c6e
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
arvo/hoon.hoon
View File

@ -1926,8 +1926,8 @@
::
+- add :: adds key-list pair
|* [b=* c=*]
=+ d=(get(a +>) b)
(~(put by a) [d c])
=+ d=(get(+< a) b)
(~(put by a) b [c d])
--
::
++ ju :: jug engine

5
arvo/zuse.hoon
View File

@ -946,10 +946,7 @@
^- (map path (list miso))
%+ reel hoe
|= [rak=tako hom=(map path (list miso))]
%+ ~(put by hom) p.rak :: todo use jar (++ja)
=+ vue=(~(get by hom) p.rak)
:- q.rak
?~ vue ~ u.vue
%+ ~(add ja hom) p.rak q.rak
::
++ alot :: alot:ze
|= yop=(map path (list miso)) :: construct, inverse alda