@googlegroups.comSubject: Re: [racket-users] future question Hi, you are looking for make-fsempahore[1] and related: ===#lang racket (define sema (make-fsemaphore 1)) (define (make-th i) (λ () (let loop ((a 0))(when (zero? (modulo a #e1e6)) (fsemaphore-wait sema) "do what you have to do without distu
Hi,
you are looking for make-fsempahore[1] and related:
===
#lang racket
(define sema (make-fsemaphore 1))
(define (make-th i)
(λ ()
(let loop ((a 0))
(when (zero? (modulo a #e1e6))
(fsemaphore-wait sema)
"do what you have to do without disturbing other futures"
(fsemaphore-post
2 matches
Mail list logo