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

More debugging.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-12-09 13:59:08 -08:00
parent 26e5692f90
commit a8d8d5e136
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
arvo/hoon.hoon
View File

@ -9601,6 +9601,7 @@
:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: volume 3, Arvo models and skeleton :::::: :::::: :::::: volume 3, Arvo models and skeleton ::::::
:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
!:
~% %arvo + ~ ~% %arvo + ~
|% |%
++ arch ,[p=@uvI q=(unit ,@uvI) r=(map ,@ta ,~)] :: fundamental node ++ arch ,[p=@uvI q=(unit ,@uvI) r=(map ,@ta ,~)] :: fundamental node
@ -9708,7 +9709,7 @@
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 3bE, Arvo core :: :: section 3bE, Arvo core ::
:: ::
++ vent !: :: vane core ++ vent :: vane core
|= [lal=@tas vil=vile bud=vase ves=vase] |= [lal=@tas vil=vile bud=vase ves=vase]
~% %vent +>+ ~ ~% %vent +>+ ~
|% |%

9
main/app/rodeo/core.hook
View File

@ -161,6 +161,8 @@
|= [her=ship pax=path] |= [her=ship pax=path]
^+ +> ^+ +>
~& [%ra-subscribe pax] ~& [%ra-subscribe pax]
?: ?=(~ pax)
ra-house(general (~(put in general) ost))
?: ?=([%am @ ~] pax) ?: ?=([%am @ ~] pax)
=+ pur=(~(get by parties) i.t.pax) =+ pur=(~(get by parties) i.t.pax)
?~ pur ?~ pur
@ -176,8 +178,6 @@
?. ?=([%fm *] pax) ?. ?=([%fm *] pax)
~& [%bad-subscribe pax] ~& [%bad-subscribe pax]
(ra-evil %radio-bad-path) (ra-evil %radio-bad-path)
?: =(~ t.pax)
ra-house(general (~(put in general) ost))
?. &(?=([@ *] t.pax) ((sane %tas) i.t.pax)) ?. &(?=([@ *] t.pax) ((sane %tas) i.t.pax))
~& [%bad-subscribe pax] ~& [%bad-subscribe pax]
(ra-evil %radio-bad-path) (ra-evil %radio-bad-path)
@ -489,10 +489,7 @@
|= old=(unit (unit house)) |= old=(unit (unit house))
^- [(list move) _+>] ^- [(list move) _+>]
~& %rodeo-prep ~& %rodeo-prep
?> ?=(^ old) [~ +>]
?^ u.old
[~ +>(+<+ u.u.old)]
ra-abet:(~(ra-apply ra 0 ~) our.hid %design %main `[~ [%| ~]])
:: ::
++ pull ++ pull
|= ost=bone |= ost=bone