stopped cross-ship building with ourselves

This commit is contained in:
Isaac Visintainer 2018-11-19 11:34:11 -08:00 committed by ixv
parent 8ead43f82c
commit b036a2bbe7
2 changed files with 13 additions and 6 deletions

View File

@ -2,13 +2,15 @@
:::: /hoon/urb/ren
::
/? 309
/= inner
/+ landscape
/= full-page
/^ manx
/|
/, /web/collections /collections-elem/
/ /!hymn/
/, /web/collections /; landscape /collections-elem/
/web/pages /!hymn/
/ /; landscape /!hymn/
==
::
/: /===/web/404 /!hymn/
/: /===/web/404 /; landscape /!hymn/
==
inner
full-page

View File

@ -1544,7 +1544,12 @@
$away [%& %html logout-page:xml]
?($beam $spur)
=^ payload mef process-payload
=+ ext=(fall p.pok %x-urb)
=/ ext %+ fall p.pok
?: ?=(%spur -.hem)
%urb
?: =(our p.p.hem)
%urb
%x-urb
=+ bem=?-(-.hem $beam p.hem, $spur [-.top (weld p.hem s.top)])
~| bad-beam+q.bem
?< =([~ 0] (sky [151 %noun] %cw (en-beam bem(+ ~, r [%da now]))))