urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-02 08:55:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

Correct ^ conversion.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-09-19 17:35:45 -07:00
parent 60a1104891
commit f8349b1aa7
4 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sur/twitter.hoon
View File

@ -40,7 +40,7 @@
++ is {$id p/lid} ++ is {$id p/lid}
++ la {$lat p/lat} ++ la {$lat p/lat}
++ lo {$long p/lon} ++ lo {$long p/lon}
++ na {$ktts p/lid} ++ na {$name p/lid}
++ os {$source-screen-name p/scr} ++ os {$source-screen-name p/scr}
++ pl {$place-id p/pla} ++ pl {$place-id p/pla}
++ qq {$q p/@t} ++ qq {$q p/@t}

6
sys/vane/eyre.hoon
View File

@ -1047,7 +1047,7 @@
:: (give-html:abet 200 ~ (redir:xml url)) :: (give-html:abet 200 ~ (redir:xml url))
?. ?=($mime p.cay) ?. ?=($mime p.cay)
=+ bek=(norm-beak -:(need (de-beam (need (puck p.tee))))) =+ 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) (give-mime q.tee p.sih cay)
:: ::
{$ac ^} {$ac ^}
@ -1110,13 +1110,13 @@
:: ::
++ back :: %ford bounce ++ back :: %ford bounce
|= {tea/whir mar/mark cay/cage} |= {tea/whir mar/mark cay/cage}
(execute tea (norm-beak -.top) [%kthp mar $+cay]) (execute tea (norm-beak -.top) [%cast mar $+cay])
:: ::
++ cast-thou ++ cast-thou
|= {mar/mark cay/cage} |= {mar/mark cay/cage}
?: ?=($httr mar) (give-sigh %& cay) ?: ?=($httr mar) (give-sigh %& cay)
%^ execute si+~ (norm-beak -.top) %^ execute si+~ (norm-beak -.top)
[%alts [%kthp mar $+cay] [%kthp %recoverable-error $+cay] ~] [%alts [%cast mar $+cay] [%cast %recoverable-error $+cay] ~]
:: ::
++ del-deps ++ del-deps
|= {a/@uvH b/(each duct ixor)} ^+ +>.$ |= {a/@uvH b/(each duct ixor)} ^+ +>.$

12
sys/vane/ford.hoon
View File

@ -546,8 +546,8 @@
?~ for (flaw cof leaf+"bad mark ++grad" ~) ?~ for (flaw cof leaf+"bad mark ++grad" ~)
%+ make cof ^- silk %+ make cof ^- silk
:+ %diff :+ %diff
[%kthp u.for [%$ cay]] [%cast u.for [%$ cay]]
[%kthp u.for [%$ coy]] [%cast u.for [%$ coy]]
?. (slab %form p.gar) ?. (slab %form p.gar)
(flaw cof leaf+"no ++form:grad" ~) (flaw cof leaf+"no ++form:grad" ~)
?. (slab %diff p.gar) ?. (slab %diff p.gar)
@ -1304,7 +1304,7 @@
(cope (maul cof q.gat q.sam) faun) (cope (maul cof q.gat q.sam) faun)
== ==
:: ::
$kthp $cast
%+ cool |.(leaf+"ford: cast {<p.kas>}") %+ cool |.(leaf+"ford: cast {<p.kas>}")
%+ cope $(kas q.kas) %+ cope $(kas q.kas)
%- tabl-run %- tabl-run
@ -1602,7 +1602,7 @@
?~ p.hon (fine cof cay) ?~ p.hon (fine cof cay)
%+ cope $(p.hon t.p.hon) %+ cope $(p.hon t.p.hon)
|= {cof/cafe cay/cage} |= {cof/cafe cay/cage}
(cope (make cof %kthp i.p.hon $+cay) flay) (cope (make cof %cast i.p.hon $+cay) flay)
:: ::
$man $man
%+ cope %+ cope
@ -1799,7 +1799,7 @@
?@ q.gar ?@ q.gar
=+ for=((sand %tas) q.gar) =+ for=((sand %tas) q.gar)
?~ for (flaw cof leaf+"bad mark ++grad" ~) ?~ 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) ?. (slab %form p.gar)
(flaw cof leaf+"no ++form:grad" ~) (flaw cof leaf+"no ++form:grad" ~)
=+ for=((soft @tas) q:(slap gar [%limb %form])) =+ for=((soft @tas) q:(slap gar [%limb %form]))
@ -1843,7 +1843,7 @@
=. mow =. mow
:_ mow :_ mow
:^ hen %pass (camp-wire van ren bem) :^ 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 ..zo
:: ::
++ resm :: take %made ++ resm :: take %made