threads messaging

  0 VALUE rss-checker-lt

  :NONAME
   DROP
   BEGIN
     LAMBDA{
       S" rss get" ECHO
       rss-gets
       DUP STR@ rss-checker-lt ltsend
       STRFREE
       S" rss-getter done" ECHO
     } 
     CATCH ?DUP IF . S" rss-getter failed !" ECHO THEN
     \ 5 seconds PAUSE
      5 minutes PAUSE
   AGAIN
   ; VALUE rss-getter

  :NONAME
    DROP
    BEGIN
     LAMBDA{
       my-msgbox-size CR ." My msgbox size : " .
       START{
         ltreceive=>
         2DUP ['] check-forum CATCH ?DUP IF . 2DROP S" forum check error" ECHO THEN
       }EMERGE
     } 
     CATCH ?DUP IF . S" rss-checker failed !" ECHO THEN
    AGAIN
  ; VALUE rss-checker

  ..: ON-CONNECT 
    0 rss-checker create-lt TO rss-checker-lt
    0 rss-getter create-lt DROP ;..