mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-28 07:50:20 +02:00
(parallel): For no forms, use (values)' not
(begin)'.
This commit is contained in:
parent
67116e5e84
commit
6adf208ee6
1 changed files with 1 additions and 1 deletions
|
@ -182,7 +182,7 @@ of applying P-PROC on ARGLISTS."
|
|||
%thread-handler)))
|
||||
|
||||
(define-macro (parallel . forms)
|
||||
(cond ((null? forms) '(begin))
|
||||
(cond ((null? forms) '(values))
|
||||
((null? (cdr forms)) (car forms))
|
||||
(else
|
||||
(let ((vars (map (lambda (f)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue