More debugging.

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

View File

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

View File

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