This commit is contained in:
Philip Monk 2019-03-20 14:52:05 -07:00
parent 4fc3f63791
commit 0dc6e6990e
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -383,7 +383,7 @@
::
++ check-file-touched
|= [her=ship des=desk]
%+ porcelain-test
%+ stateless-test
(cat 3 'check-file-touched-' (scot %p her))
|_ now=@da
++ start
@ -392,12 +392,11 @@
:: ergos (and dojo because we can't guarantee an ergo if the desk
:: is already mounted)
::
[(dojo her "|mount /={(trip des)}=") ..start]
(dojo her "|mount /={(trip des)}=")
::
++ route
|= [who=ship uf=unix-effect]
^- (quip ph-event _..start)
:_ ..start
^- (list ph-event)
?. ?| (is-ergo her who uf)
(is-dojo-output her who uf ">=")
==
@ -421,14 +420,13 @@
::
++ reload-vane
|= [her=ship vane=term]
%+ porcelain-test
%+ stateless-test
:((cury cat 3) 'reload-vane-' (scot %p her) '-' vane)
|_ now=@da
++ start
^- (pair (list ph-event) _..start)
^- (list ph-event)
=/ pax
/(scot %p our)/home/(scot %da now)/sys/vane/[vane]/hoon
:_ ..start
%- zing
:~ (dojo her "|mount /=home=")
(insert-file her %home pax .^(@t %cx pax))
@ -437,8 +435,7 @@
::
++ route
|= [who=ship uf=unix-effect]
^- (quip ph-event _..start)
`..start
~
--
::
++ scry-aqua