diff --git a/arvo/ford.hoon b/arvo/ford.hoon index eccce1047..183385080 100644 --- a/arvo/ford.hoon +++ b/arvo/ford.hoon @@ -642,6 +642,7 @@ [~ u=(^case a)] nuck:so :: + ++ mota ;~(pfix pat mota:vez) :: atom odor ++ hath (sear plex (stag %conl poor)):vez :: hood path ++ have (sear tome ;~(pfix fas hath)) :: hood beam ++ hith :: static path @@ -716,7 +717,7 @@ (stag %lin ;~(pfix pam lin:read)) (stag %man ;~(pfix tar man: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 %see ;~(pfix col see:read)) (stag %sic ;~(pfix ket sic:read)) @@ -770,6 +771,10 @@ =< ;~(sfix (star (sear . day)) gap duz) |= a/^horn ^- (unit {term ^horn}) ?+(-.a ~ $dub `[p.a q.a]) + :: + ++ now + %+ rail ;~((glue cab) mota day) + ;~(pfix gap ;~(plug mota day)) :: ++ saw %+ rail @@ -1561,6 +1566,10 @@ $now %+ cope (chad cof bax %da p.hon) (flux |=(a/vase noun+a)) + :: + $nod + %+ cope (chad cof bax p.hon q.hon) + (flux |=(a/vase noun+a)) :: $nap %+ cope (chai cof bax p.hon) diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon index 239a30ece..f3138184b 100644 --- a/arvo/zuse.hoon +++ b/arvo/zuse.hoon @@ -2235,7 +2235,8 @@ {$lin p/(list mark) q/horn} :: /& translates {$man p/(map knot horn)} :: /* hetero 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 {$see p/hops q/horn} :: /: relative to {$sic p/twig q/horn} :: /^ cast diff --git a/ren/tree/comments.hoon b/ren/tree/comments.hoon index a51fb6647..c8b801554 100644 --- a/ren/tree/comments.hoon +++ b/ren/tree/comments.hoon @@ -2,7 +2,7 @@ :::: /hoon/comments/tree/ren :: /? 310 -/: /%/comments /@ /&elem&/md/ :: XX descend horn +/: /%/comments /_ @da /&elem&/md/ :: :::: ::