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

Merge remote-tracking branches 'juped/no-begin' and 'ohaitch/fix-tscn-chronolock'

Browse Source 
Deprecates the |begin command (closes #567)
Fixes /=== syntax in dojo always locking to current time (closes #565)
This commit is contained in:
Raymond Pasco 2015-11-20 00:33:31 -05:00
commit 53c52b64eb
3 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ape/dojo.hoon
View File

@ -142,8 +142,10 @@
==
::
;~ pfix tis
%+ dp-variable ;~(pose sym (cold %dir cen))
;~(pfix ace dp-source)
;~ pose
(dp-variable (cold %dir cen) ;~(pfix ace :(stag 0 %ex dp-rood)))
(dp-variable sym ;~(pfix ace dp-source))
==
==
::
;~ pfix fas
@ -219,7 +221,18 @@
++ dp-path (tope he-beam) :: ++path
++ dp-server (stag 0 (most fas sym)) :: ++dojo-server
++ dp-twig tall:(vang | dp-path) :: ++twig
++ dp-poor poor:(vang | (tope dir)) :: (list ++twig)
++ dp-rood :: 'dir' twig
=> (vang | (tope dir))
;~ pose
rood
::
=- ;~(pfix cen (stag %clsg -)) :: XX refactor ++scat
%+ sear |=([a=@ud b=tyke] (posh ~ ~ a b))
;~ pose
porc
(cook |=(a=(list) [(lent a) ~]) (star cen))
==
==
++ dp-value :: ++dojo-source
;~ pose
(stag %ex dp-twig)

8
gen/hood/begin.hoon
View File

@ -13,9 +13,15 @@
[sole .]
:- %ask
|= $: [now=@da eny=@uvI bec=beak]
[arg=_(scug *@ ~[his=*@p tic=*@p]) ~]
[arg=_(scug *@ ~[his=*@p tic=*@p])]
safety=?(%on %off)
==
^- (sole-result (cask begs))
?. =(safety %off)
%+ sole-yo
:- %leaf
"|begin is deprecated, please invoke urbit with -w [name] -t [ticket]"
sole-no
=- ?~ arg -
=+ (fun.q.q his.arg)
?~ +.arg -

2
sur/sole.hoon
View File

@ -102,7 +102,7 @@
[p=*(list tank) q=[%| p=[pul %get ~ ~] q=fun]] ::
:: ::
++ sole-no :: empty result
[p=*(list tank) q=~] ::
[p=*(list tank) q=[%& ~]] ::
:: ::
++ sole-go :: parse by rule
|* [sef=_rule fun=$+(* *)] ::