remove warning printf to kinda close #361

This commit is contained in:
Anton Dyudin 2015-07-14 13:45:19 -07:00
parent 58472ff37a
commit 0ff792a69d
2 changed files with 4 additions and 3 deletions

View File

@ -1429,7 +1429,8 @@
++ poll
|= a=@u ^+ ..ix
?: =(a p.eve)
?^ ude ~&(e/ix/wait/replaced=p.u.ude abet(u.ude [hen &]))
?^ ude :: ~& e/ix/wait/replaced=p.u.ude :: XX needs %thud handling
abet(u.ude [hen &])
=. era (add ~s30 now)
(pass-note:abet(ude [~ hen &]) of//[ire] [%b %wait era])
?: (gth a p.eve) ~|(seq-high/cur=p.eve !!)

View File

@ -7,11 +7,11 @@
::::
!:
=> |%
++ begs ,[his=@p tic=@p yen=@uw ges=gens]
++ begs ,[his=@p tic=@p yen=@t ges=gens]
++ scug |*([a=@ b=(pole)] ?~(b ~ ?~(a ~ [-.b $(b +.b, a (dec a))])))
--
|= $: [now=@da eny=@uvI bec=beak]
[arg=_(scug *@ *[his=@p tic=@p ~]) ~]
[arg=_(scug *@ ~[his=*@p tic=*@p]) ~]
==
^- (sole-result (cask begs))
=- ?~ arg -