mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

* threads.scm (parallel, letpar): Rewritten.

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-01-24 10:32:13 +00:00
parent 361d631fb7
commit c2950e36ef
2 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,3 +1,7 @@
2003-01-24 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* threads.scm (parallel, letpar): Rewritten.
2003-01-23 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* threads.scm (par-mapper, n-par-map, n-par-for-each): Use

22
ice-9/threads.scm
View file

@ -165,16 +165,22 @@
(cond ((null? forms) '(begin))
((null? (cdr forms)) (car forms))
(else
`(apply values
(map future-ref
(list ,@(map (lambda (form) `(future ,form)) forms)))))))
(let ((vars (map (lambda (f)
(make-symbol "f"))
forms)))
`((lambda ,vars
(values ,@(map (lambda (v) `(future-ref ,v)) vars)))
,@(map (lambda (form) `(future ,form)) forms))))))
(define-macro (letpar bindings . body)
`(call-with-values
(lambda ()
(parallel ,@(map cadr bindings)))
(lambda ,(map car bindings)
,@body)))
(cond ((or (null? bindings) (null? (cdr bindings)))
`(let ,bindings ,@body))
(else
(let ((vars (map car bindings)))
`((lambda ,vars
((lambda ,vars ,@body)
,@(map (lambda (v) `(future-ref ,v)) vars)))
,@(map (lambda (b) `(future ,(cadr b))) bindings))))))
(define-macro (make-thread proc . args)
`(call-with-new-thread