ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-04 21:33:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

add $now /_ @odor horn, closing #34

Browse Source
This commit is contained in:
Anton Dyudin 2016-04-18 15:37:13 -07:00
parent 08e0d6dabc
commit 0ed4f56935
3 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
arvo/ford.hoon
View File

@ -642,6 +642,7 @@
[~ u=(^case a)] [~ u=(^case a)]
nuck:so nuck:so
:: ::
++ mota ;~(pfix pat mota:vez) :: atom odor
++ hath (sear plex (stag %conl poor)):vez :: hood path ++ hath (sear plex (stag %conl poor)):vez :: hood path
++ have (sear tome ;~(pfix fas hath)) :: hood beam ++ have (sear tome ;~(pfix fas hath)) :: hood beam
++ hith :: static path ++ hith :: static path
@ -716,7 +717,7 @@
(stag %lin ;~(pfix pam lin:read)) (stag %lin ;~(pfix pam lin:read))
(stag %man ;~(pfix tar man:read)) (stag %man ;~(pfix tar man:read))
(stag %nap ;~(pfix cab day:read)) (stag %nap ;~(pfix cab day:read))
(stag %now ;~(pfix pat day:read)) (stag %nod ;~(pfix cab now:read))
(stag %saw ;~(pfix sem saw:read)) (stag %saw ;~(pfix sem saw:read))
(stag %see ;~(pfix col see:read)) (stag %see ;~(pfix col see:read))
(stag %sic ;~(pfix ket sic:read)) (stag %sic ;~(pfix ket sic:read))
@ -770,6 +771,10 @@
=< ;~(sfix (star (sear . day)) gap duz) =< ;~(sfix (star (sear . day)) gap duz)
|= a/^horn ^- (unit {term ^horn}) |= a/^horn ^- (unit {term ^horn})
?+(-.a ~ $dub `[p.a q.a]) ?+(-.a ~ $dub `[p.a q.a])
::
++ now
%+ rail ;~((glue cab) mota day)
;~(pfix gap ;~(plug mota day))
:: ::
++ saw ++ saw
%+ rail %+ rail
@ -1561,6 +1566,10 @@
$now $now
%+ cope (chad cof bax %da p.hon) %+ cope (chad cof bax %da p.hon)
(flux |=(a/vase noun+a)) (flux |=(a/vase noun+a))
::
$nod
%+ cope (chad cof bax p.hon q.hon)
(flux |=(a/vase noun+a))
:: ::
$nap $nap
%+ cope (chai cof bax p.hon) %+ cope (chai cof bax p.hon)

3
arvo/zuse.hoon
View File

@ -2235,7 +2235,8 @@
{$lin p/(list mark) q/horn} :: /& translates {$lin p/(list mark) q/horn} :: /& translates
{$man p/(map knot horn)} :: /* hetero map {$man p/(map knot horn)} :: /* hetero map
{$nap p/horn} :: /_ homo map {$nap p/horn} :: /_ homo map
{$now p/horn} :: /@ list by @da {$now p/horn} :: DEPRECATED
{$nod p/term q/horn} :: /_ @ list by odor
{$saw p/twig q/horn} :: /; operate on {$saw p/twig q/horn} :: /; operate on
{$see p/hops q/horn} :: /: relative to {$see p/hops q/horn} :: /: relative to
{$sic p/twig q/horn} :: /^ cast {$sic p/twig q/horn} :: /^ cast

2
ren/tree/comments.hoon
View File

@ -2,7 +2,7 @@
:::: /hoon/comments/tree/ren :::: /hoon/comments/tree/ren
:: ::
/? 310 /? 310
/: /%/comments /@ /&elem&/md/ :: XX descend horn /: /%/comments /_ @da /&elem&/md/
:: ::
:::: ::::
:: ::