Hello,

When i try to connect on smtp.google.com on port 587 (submission) through tcp-connect, it works perfectly ; but if instead of 587 i put 666 (for example) it stucks cause the server dont answer.

So after reading fews hours the doc, I didn't found a native solution to implement this, so I programmed a thing like this :

#lang racket

(define (foo)
  (let* ([a (thread (λ ()
(let-values ([(p-in p-out) (tcp-connect "google.com" 80)])
                        (kill-thread b))))]
         [b (thread (λ ()
                      (sleep 2)
                      (printf "I'll kill you !")
                      (kill-thread a)))])
    (void)))

The only problem is that b have to be defined before killing him.. :p . Someone can help me to make it working ? Or have a better idea to do implement what i need ?

Thanks in advance.

--
You received this message because you are subscribed to the Google Groups "Racket 
Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

Reply via email to