simplify /~/am handling

This commit is contained in:
Anton Dyudin 2016-09-09 16:28:49 -07:00
parent 96a191ea4b
commit c784e64b6c

View File

@ -153,7 +153,7 @@
{$js $~} {$js $~}
{$json $~} {$json $~}
{$try him/ship paz/(unit cord)} {$try him/ship paz/(unit cord)}
{$xen ses/hole rem/pork} {$xen ses/hole $~}
== ==
:: ::
++ pest :: result ++ pest :: result
@ -1169,7 +1169,7 @@
p:(need (puck src)) :: allow state=usr_other-data p:(need (puck src)) :: allow state=usr_other-data
:: ::
$at [%auth %at pok(q but)] $at [%auth %at pok(q but)]
$am ?~(but !! [%auth %xen i.but pok(q t.but)]) $am ?~(but !! [%auth %xen i.but ~])
$as $as
:+ %auth %get :+ %auth %get
~| bad-ship+?~(but ~ i.but) ~| bad-ship+?~(but ~ i.but)