ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

Improved %reload.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-05-08 17:47:34 -07:00
parent e3a33cfe87
commit d1299681a2
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
arvo/ford.hoon
View File

@ -58,12 +58,11 @@
|= pax=path
^- (unit beam)
?. ?=([* * * *] pax) ~
;~ bind
%+ bind (slaw %p i.pax)
%+ biff (slaw %p i.pax)
|= who=ship
%+ bind (slaw %tas i.t.pax)
%+ biff (slaw %tas i.t.pax)
|= dex=desk
%+ bind (slay i.t.t.pax)
%+ biff (slay i.t.t.pax)
|= cis=coin
?. ?=([%$ case] cis) ~
`(unit beam)`[~ who dex `case`p.cis (flop t.t.t.pax)]
@ -456,7 +455,7 @@
^? :: opaque core
|% ::
++ beat :: process move
|= [wru=(unit writ) tea=wire hen=duct fav=curd]
|= [wru=(unit writ) tea=wire hen=duct fav=card]
^- [p=(list move) q=vane]
?~ wru ~|(%beat-whom !!)
=^ mos lex
@ -486,7 +485,7 @@
..$(+>- *axle)
::
++ scry
|= [our=ship ren=@tas who=ship syd=disc lot=coin tyl=path]
|= [our=ship ren=@tas who=ship syd=desk lot=coin tyl=path]
^- (unit)
~
::

6
arvo/hoon.hoon
View File

@ -8190,10 +8190,10 @@
++ ruck :: update vase
|= [pax=path txt=@ta]
^+ +>
=+ arg=`vase`[vin.vil ~2000.1.1 0 =>(~ |+(* ~))]
=+ rig=(slam ves arg)
=+ arg=[~2000.1.1 0 =>(~ |+(* ~))]
=+ rig=(slym ves arg)
=+ rev=(slam (slap bud (rain pax txt)) `vase`[viz.vil bud])
=+ syg=(slam rev arg)
=+ syg=(slym rev arg)
=+ ole=(slap rig [%cnzy %stay])
=+ [vol=(slap rig [%cnzy %vern]) vew=(slap syg [%cnzy %vern])]
?> =(stub -.q.vew)