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

Support | syntax for hood stuff.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-06-01 13:46:22 -07:00
parent 4a8fd21963
commit c9e785bb48
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
base/ape/dojo/core.hook
View File

@ -166,8 +166,16 @@
++ dp-command :: ++dojo-command ++ dp-command :: ++dojo-command
%+ knee *dojo-command |. ~+ %+ knee *dojo-command |. ~+
;~ pose ;~ pose
%+ stag %poke ;~ pfix bar
%+ cook
|= [a=path b=dojo-config]
^- dojo-command
[%poke [our.hid %hood] [0 %ge [0 [%cat %hood a]] b]]
;~(plug (most fas sym) dp-config)
==
::
;~ pfix col ;~ pfix col
%+ stag %poke
%+ cook %+ cook
|= [a=goal b=(each dojo-source (trel term path dojo-config))] |= [a=goal b=(each dojo-source (trel term path dojo-config))]
^- (pair goal dojo-source) ^- (pair goal dojo-source)
@ -256,7 +264,6 @@
== ==
:: ::
++ dp-config :: ++dojo-config ++ dp-config :: ++dojo-config
%+ cook |=(a=dojo-config a)
;~ plug ;~ plug
(star ;~(pfix ace dp-value)) (star ;~(pfix ace dp-value))
%+ cook %+ cook