Neo compiles.

This commit is contained in:
C. Guy Yarvin 2017-04-21 18:44:06 -07:00
parent 935056be37
commit 34ddcd8d1c

View File

@ -1,12 +1,12 @@
:: :: :: :: :: ::
:::: /hoon/ames/arvo :::::: vane prelude :::: /hoon/xmas/arvo :::::: vane prelude
!: :: :: !: :: ::
=+ our=~zod :: XX placeholder =+ our=~zod :: XX placeholder
|= pit/vase :: kernel vase |= pit/vase :: kernel vase
=> =~ :: => =~ ::
=, xmas =, xmas
:: :: :: :: :: ::
:::: :::::: ames structures :::: :::::: xmas structures
:: :: :: :: :: ::
:: ::
=* pipe channel:able:jael :: secure channel =* pipe channel:able:jael :: secure channel
@ -153,7 +153,7 @@
?> =(our q.p.kec) ?> =(our q.p.kec)
=+ buh=(~(get by pol) p.p.kec) =+ buh=(~(get by pol) p.p.kec)
?~ buh ?~ buh
~& [%ames-from p.p.kec] ~& [%xmas-from p.p.kec]
=+ nut=(fall (~(get by ech) p.p.kec) *mute) =+ nut=(fall (~(get by ech) p.p.kec) *mute)
%_ +>.$ %_ +>.$
fex [[%veil p.p.kec] fex] fex [[%veil p.p.kec] fex]
@ -164,7 +164,7 @@
$mess $mess
=+ buh=(~(get by pol) p.job) =+ buh=(~(get by pol) p.job)
?~ buh ?~ buh
~& [%ames-unto p.job] ~& [%xmas-unto p.job]
=+ nut=(fall (~(get by ech) p.job) *mute) =+ nut=(fall (~(get by ech) p.job) *mute)
%_ +>.$ %_ +>.$
fex [[%veil p.job] fex] fex [[%veil p.job] fex]