Verified Commit b8afec75 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Slight change of chat check

parent c014a07b

msg.fs

+3 −1
Original line number Diff line number Diff line
@@ -2022,6 +2022,8 @@ $B $E 2Value chat-bufs# 


: chats# ( -- n )

    0 [: msg:peers[] $[]# 1 min + ;] group#map ;

: chat-keys# ( -- n )

    0 chat-keys [: @/2 nip 0<> - ;] $[]map ;



: wait-chat ( -- )

    chat-keys [: @/2 dup 0= IF  2drop  EXIT  THEN
@@ -2057,7 +2059,7 @@ $B $E 2Value chat-bufs# 
      2dup pk-peek?  IF  chat-connect  ELSE  2drop  THEN ;] $[]map ;



: ?wait-chat ( -- addr u ) #0. /chat:/chats

    BEGIN  chats# 0= WHILE  wait-chat chat-connects  REPEAT

    BEGIN  chats# 0= chat-keys# 0> and WHILE  wait-chat chat-connects  REPEAT

    msg-group$ $@ ; \ stub



scope{ /chat