From f8349b1aa7718acab58662f100ee89fd011169c9 Mon Sep 17 00:00:00 2001 From: "C. Guy Yarvin" Date: Tue, 19 Sep 2017 17:35:45 -0700 Subject: [PATCH] Correct ^ conversion. --- lib/twitter.hoon | 2 +- sur/twitter.hoon | 2 +- sys/vane/eyre.hoon | 6 +++--- sys/vane/ford.hoon | 12 ++++++------ 4 files changed, 11 insertions(+), 11 deletions(-) diff --git a/lib/twitter.hoon b/lib/twitter.hoon index 18448ba33e..83d71e2631 100644 --- a/lib/twitter.hoon +++ b/lib/twitter.hoon @@ -149,7 +149,7 @@ :- (hep-to-cab -.p) ?+ -.p p.p :: usually plain text ?($source-id $target-id) (tid:print p.p) - ?($id $name $user-id) (lid:print p.p) + ?($id $name $user-id) (lid:print p.p) $screen-name (lsc:print p.p) == -- diff --git a/sur/twitter.hoon b/sur/twitter.hoon index f23fe187d0..c209cfd5ce 100644 --- a/sur/twitter.hoon +++ b/sur/twitter.hoon @@ -40,7 +40,7 @@ ++ is {$id p/lid} ++ la {$lat p/lat} ++ lo {$long p/lon} - ++ na {$ktts p/lid} + ++ na {$name p/lid} ++ os {$source-screen-name p/scr} ++ pl {$place-id p/pla} ++ qq {$q p/@t} diff --git a/sys/vane/eyre.hoon b/sys/vane/eyre.hoon index aa198d6a65..ac9a59172a 100644 --- a/sys/vane/eyre.hoon +++ b/sys/vane/eyre.hoon @@ -1047,7 +1047,7 @@ :: (give-html:abet 200 ~ (redir:xml url)) ?. ?=($mime p.cay) =+ bek=(norm-beak -:(need (de-beam (need (puck p.tee))))) - (exec-live ac+q.tee bek [%flag [p.sih `~] %kthp %mime [%$ cay]]) + (exec-live ac+q.tee bek [%flag [p.sih `~] %cast %mime [%$ cay]]) (give-mime q.tee p.sih cay) :: {$ac ^} @@ -1110,13 +1110,13 @@ :: ++ back :: %ford bounce |= {tea/whir mar/mark cay/cage} - (execute tea (norm-beak -.top) [%kthp mar $+cay]) + (execute tea (norm-beak -.top) [%cast mar $+cay]) :: ++ cast-thou |= {mar/mark cay/cage} ?: ?=($httr mar) (give-sigh %& cay) %^ execute si+~ (norm-beak -.top) - [%alts [%kthp mar $+cay] [%kthp %recoverable-error $+cay] ~] + [%alts [%cast mar $+cay] [%cast %recoverable-error $+cay] ~] :: ++ del-deps |= {a/@uvH b/(each duct ixor)} ^+ +>.$ diff --git a/sys/vane/ford.hoon b/sys/vane/ford.hoon index d7928f4a7c..0b18e5a2ad 100644 --- a/sys/vane/ford.hoon +++ b/sys/vane/ford.hoon @@ -546,8 +546,8 @@ ?~ for (flaw cof leaf+"bad mark ++grad" ~) %+ make cof ^- silk :+ %diff - [%kthp u.for [%$ cay]] - [%kthp u.for [%$ coy]] + [%cast u.for [%$ cay]] + [%cast u.for [%$ coy]] ?. (slab %form p.gar) (flaw cof leaf+"no ++form:grad" ~) ?. (slab %diff p.gar) @@ -1304,7 +1304,7 @@ (cope (maul cof q.gat q.sam) faun) == :: - $kthp + $cast %+ cool |.(leaf+"ford: cast {}") %+ cope $(kas q.kas) %- tabl-run @@ -1602,7 +1602,7 @@ ?~ p.hon (fine cof cay) %+ cope $(p.hon t.p.hon) |= {cof/cafe cay/cage} - (cope (make cof %kthp i.p.hon $+cay) flay) + (cope (make cof %cast i.p.hon $+cay) flay) :: $man %+ cope @@ -1799,7 +1799,7 @@ ?@ q.gar =+ for=((sand %tas) q.gar) ?~ for (flaw cof leaf+"bad mark ++grad" ~) - (make cof `silk`[%kthp p.cay %pact [%kthp u.for %$ cay] %$ coy]) + (make cof `silk`[%cast p.cay %pact [%cast u.for %$ cay] %$ coy]) ?. (slab %form p.gar) (flaw cof leaf+"no ++form:grad" ~) =+ for=((soft @tas) q:(slap gar [%limb %form])) @@ -1843,7 +1843,7 @@ =. mow :_ mow :^ hen %pass (camp-wire van ren bem) - [%f %exec our ~ bek %kthp ((hard mark) -.s.bem) %$ cag] + [%f %exec our ~ bek %cast ((hard mark) -.s.bem) %$ cag] ..zo :: ++ resm :: take %made