ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-29 12:15:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

found old -stop arm

Browse Source
This commit is contained in:
Anton Dyudin 2015-10-02 13:55:34 -07:00
parent 8f9222a7fc
commit 50d96e77a9
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ape/dojo.hoon
View File

@ -238,11 +238,7 @@
++ dy :: project work
|_ dojo-project ::
++ dy-abet +>(poy `+<) :: resolve
++ dy-amok :: terminate
?~ pux +>(poy ~)
%. [%txt "! cancel {<u.pux>}"]
he-diff:(he-card(poy ~) %exec u.pux our.hid ~)
::
++ dy-amok +>(poy ~) :: terminate
++ dy-ford :: send work to ford
|= [way=wire kas=silk]
^+ +>+>
@ -258,7 +254,8 @@
++ dy-stop :: stop work
^+ +>
?~ pux +>
(he-card(poy ~) %exec u.pux our.hid ~)
%. [%txt "! cancel {<u.pux>}"]
he-diff:(he-card(poy ~) %exec u.pux our.hid ~)
::
++ dy-slam :: call by ford
|= [way=wire gat=vase sam=vase]
@ -713,11 +710,7 @@
dy-make(cud `[nex (~(got by job) nex)])
--
::
++ he-baxp :: exit out of project
|= ~ ^+ +>
?~ poy he-pine
he-pine:~(dy-amok dy u.poy)
::
++ he-baxp |=(~ he-pine:he-stop) :: exit out of project
++ he-dope :: sole user of ++dp
|= txt=tape ::
^- (each (unit (each dojo-command tape)) hair) :: prefix/result