[racket-users] future question

The following runs 100% of my CPU, but when I uncomment the when-clause nothing happens (0% CPU)

(processor-count) yields 8 on my PC.

#lang racket

(define sema (make-semaphore 1))

(define (make-th i)

(λ ()

(let loop ((a 0))

#;(when (zero? (modulo a #e1e6))

(semaphore-wait sema)

"do what you have to do without disturbing other futures"

(semaphore-post sema))

(loop (add1 a)))))

(for ((i (in-range (processor-count)))) (future (make-th i)))

(sleep 10)

(exit)

Can’t I use semaphores in futures? Help please.

I have used semaphores earlier without trouble.

Jos (Jacob J. A. Koot)

PS My version:

Welcome to DrRacket, version 8.2 [cs].

Language: racket [custom]; memory limit: 6000 MB.

--
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 [email protected].
To view this discussion on the web visit https://groups.google.com/d/msgid/racket-users/2E9C7601-1AC5-42A3-BA23-0B759791CD1B%40hxcore.ol.

Reply via email to