1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-19 21:02:01 +03:00

Didn't mean to chek in a broken helm.

This commit is contained in:
C. Guy Yarvin 2015-05-09 15:35:57 -07:00
parent e7791411cb
commit fa5f5dc786

View File

@ -13,13 +13,11 @@
bur=(unit (pair ship mace)) :: requesting ticket bur=(unit (pair ship mace)) :: requesting ticket
hoc=(map bone helm-session) :: consoles hoc=(map bone helm-session) :: consoles
== :: == ::
++ helm-house ,[%1 (list helm-room)]
++
++ helm-session :: ++ helm-session ::
$: say=sole-share :: $: say=sole-share ::
mud=(unit (sole-dialog ,@ud)) :: mud=(unit (sole-dialog ,@ud)) ::
== :: == ::
++ funk (pair ,@ ,@) ::
++ begs ,[his=@p tic=@p eny=@t ges=gens] :: begin data ++ begs ,[his=@p tic=@p eny=@t ges=gens] :: begin data
++ suss ,[term @tas @da] :: config report ++ suss ,[term @tas @da] :: config report
++ helm-wish :: ++ helm-wish ::
@ -56,8 +54,8 @@
[(flop moz) %_(+> hoc (~(put by hoc) ost +<+))] :: [(flop moz) %_(+> hoc (~(put by hoc) ost +<+))] ::
:: :: :: ::
++ he-wish-start ++ he-wish-start
|= [who=ship dap=term] |= dap=term
%_(+> moz :_(moz [ost %conf /start [our.hid dap] %load who %base])) %_(+> moz :_(moz [ost %conf /start [our.hid dap] %load our.hid %main]))
:: ::
++ he-wish-reset ++ he-wish-reset
^+ . ^+ .
@ -148,8 +146,8 @@
he-abet:(he-wish-reload:(hake ost src) all) he-abet:(he-wish-reload:(hake ost src) all)
:: ::
++ poke-helm-start ++ poke-helm-start
|= [from who=ship dap=term] |= [from dap=term]
he-abet:(he-wish-start:(hake ost src) who dap) he-abet:(he-wish-start:(hake ost src) dap)
:: ::
++ poke-helm-begin ++ poke-helm-begin
|= [from begs] |= [from begs]
@ -177,10 +175,9 @@
:: ::
++ onto ++ onto
|= [then saw=(each suss tang)] |= [then saw=(each suss tang)]
^- (quip move +>)
:_ +> :_ ~ :_ +> :_ ~
?- -.saw ?- -.saw
%| [ost %flog ~ %crud `@tas`-.way `tang`p.saw] %| [ost %pass ~ %flog %crud `@tas`-.way `tang`p.saw]
%& [ost %flog ~ %text "<{<p.saw>}>"] %& [ost %pass ~ %flog %text "<{<p.saw>}>"]
== ==
-- --