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}
++ 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}

6
sys/vane/eyre.hoon
View File

@ -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)} ^+ +>.$

12
sys/vane/ford.hoon
View File

@ -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 {<p.kas>}")
%+ 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