Removed redundant duty args

This commit is contained in:
Anton Dyudin 2014-09-09 12:46:42 -07:00 committed by Anton Dyudin
parent f79aa14786
commit f4adae2471

View File

@ -1125,7 +1125,7 @@
?> ?=(%way pez.u.pup) ?> ?=(%way pez.u.pup)
$(yov t.yov, q.rey (~(put by q.rey) i.yov u.pup(pez noz))) $(yov t.yov, q.rey (~(put by q.rey) i.yov u.pup(pez noz)))
:: ::
++ duty |= [our=ship nap=@ud you=ship orx=oryx] :: interface script ++ duty |= [nap=@ud you=ship] :: interface script
^- cord ^- cord
%^ cat 3 %^ cat 3
%- crip %- crip
@ -1133,9 +1133,9 @@
:~ :~
[%ship (jape |1:<our>)] [%ship (jape |1:<our>)]
[%port (jone nap)] [%port (jone nap)]
[%oryx %s orx.ced]
[%auto %b %&] [%auto %b %&]
[%user (jape |1:<you>)] [%user (jape |1:<you>)]
[%oryx %s orx]
== ==
''' '''
window.urb.seqn_u = 0 window.urb.seqn_u = 0
@ -2036,7 +2036,7 @@
++ hark ++ hark
|= num=@ud |= num=@ud
^- [(unit pimp) _+>] ^- [(unit pimp) _+>]
=. +>.$ abet:(busk:(yule %nil) num _@ ~ %& %js !>((duty our nap you orx.ced))) =. +>.$ abet:(busk:(yule %nil) num _@ ~ %& %js !>((duty nap you)))
[`(need (~(get by q.rey) num)) +>.$] [`(need (~(get by q.rey) num)) +>.$]
:: ::
++ harp ++ harp