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

arvo: adds errors to |me

Browse Source
This commit is contained in:
Joe Bryan 2020-02-09 20:07:37 -08:00
parent 25a983ad44
commit b118147700
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
pkg/arvo/sys/arvo.hoon
View File

@ -384,6 +384,47 @@
=^ yed sac (~(spot wa sac) 3 xav) =^ yed sac (~(spot wa sac) 3 xav)
=^ hil sac (refine-card yed) =^ hil sac (refine-card yed)
[[%slip vane hil] sac] [[%slip vane hil] sac]
::
[%gave goof=^ card]
=/ =goof
=/ mote -.goof.q.vax
?> ?& ?=(@ mote)
((sane %tas) mote)
==
[mote ;;(tang +.goof.q.vax)]
::
:: yed: vase containing card
:: hil: card as mill
::
=^ xav sac (~(spot wa sac) 3 vax)
=^ yed sac (~(spot wa sac) 3 xav)
=^ hil sac (refine-card yed)
[[%gave goof hil] sac]
::
[%hurl goof=^ wire=* vane=term card]
=/ =goof
=/ mote -.goof.q.vax
?> ?& ?=(@ mote)
((sane %tas) mote)
==
[mote ;;(tang +.goof.q.vax)]
=/ =wire
~> %mean.'bad-wire'
:: XX used to be a nest-check and clam, seemed excessive
::
;;(wire wire.q.vax)
=/ vane
~> %mean.'bad-vane-label'
?> ((sane %tas) vane.q.vax)
vane.q.vax
::
:: yed: vase containing card
:: hil: card as mill
::
=^ xav sac (~(spot wa sac) 15 vax)
=^ yed sac (~(spot wa sac) 3 xav)
=^ hil sac (refine-card yed)
[[%hurl goof wire vane hil] sac]
== ==
:: +refine-card: card from vase (was +song) :: +refine-card: card from vase (was +song)
:: ::