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

reset after a dojo crash, just maybe fixing #295

Browse Source
This commit is contained in:
Anton Dyudin 2015-09-01 17:56:19 -07:00 committed by Philip C Monk
parent 41553bd749
commit ad4364d413
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ape/dojo.hoon
View File

@ -664,6 +664,14 @@
%det (he-stir +.act) %det (he-stir +.act)
%ret (he-done (tufa buf.say)) %ret (he-done (tufa buf.say))
== ==
::
++ he-lame :: handle error
|= [wut=term why=tang]
^+ +>
%- (slog (flop `tang`[>%dojo-lame wut< why]))
?^ poy
he-pine:~(dy-amok dy u.poy)
he-pine :: XX give mean to original keystroke
-- --
:: ::
++ peer-sole ++ peer-sole
@ -698,6 +706,10 @@
|= [way=wire dep=@uvH reg=gage] |= [way=wire dep=@uvH reg=gage]
he-abet:(~(he-made he [[ost.hid ~] (~(got by hoc) ost.hid)]) way dep reg) he-abet:(~(he-made he [[ost.hid ~] (~(got by hoc) ost.hid)]) way dep reg)
:: ::
++ lame
|= [wut=term why=tang]
he-abet:(~(he-lame he [[ost.hid ~] (~(got by hoc) ost.hid)]) wut why)
::
++ unto ++ unto
|= [way=wire cit=cuft] |= [way=wire cit=cuft]
he-abet:(~(he-unto he [[ost.hid ~] (~(got by hoc) ost.hid)]) cit) he-abet:(~(he-unto he [[ost.hid ~] (~(got by hoc) ost.hid)]) cit)