ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-07 07:30:23 +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 |= pax=path
^- (unit beam) ^- (unit beam)
?. ?=([* * * *] pax) ~ ?. ?=([* * * *] pax) ~
;~ bind %+ biff (slaw %p i.pax)
%+ bind (slaw %p i.pax)
|= who=ship |= who=ship
%+ bind (slaw %tas i.t.pax) %+ biff (slaw %tas i.t.pax)
|= dex=desk |= dex=desk
%+ bind (slay i.t.t.pax) %+ biff (slay i.t.t.pax)
|= cis=coin |= cis=coin
?. ?=([%$ case] cis) ~ ?. ?=([%$ case] cis) ~
`(unit beam)`[~ who dex `case`p.cis (flop t.t.t.pax)] `(unit beam)`[~ who dex `case`p.cis (flop t.t.t.pax)]
@ -456,7 +455,7 @@
^? :: opaque core ^? :: opaque core
|% :: |% ::
++ beat :: process move ++ 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] ^- [p=(list move) q=vane]
?~ wru ~|(%beat-whom !!) ?~ wru ~|(%beat-whom !!)
=^ mos lex =^ mos lex
@ -486,7 +485,7 @@
..$(+>- *axle) ..$(+>- *axle)
:: ::
++ scry ++ 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) ^- (unit)
~ ~
:: ::

6
arvo/hoon.hoon
View File

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