1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 16:30:19 +02:00

(parallel): For no forms, use (values)' not (begin)'.

This commit is contained in:
Kevin Ryde 2003-06-19 01:36:01 +00:00
parent 67116e5e84
commit 6adf208ee6

View file

@ -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)