- (define workers
- (range 1 (add1 num_workers)))
- (define threads
- (map (λ (id) (thread (make-worker id f))) workers))
- (define results
- (dispatch workers xs '()))
+ (define workers (range num_workers))
+ (define threads (map (λ (id) (thread (make-worker id f))) workers))
+ (define results (dispatch workers xs '()))