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

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

Browse source
This commit is contained in:
Kevin Ryde 2003-06-19 01:36:01 +00:00
parent 67116e5e84
commit 6adf208ee6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/threads.scm
View file

@ -182,7 +182,7 @@ of applying P-PROC on ARGLISTS."
%thread-handler))) %thread-handler)))
(define-macro (parallel . forms) (define-macro (parallel . forms)
(cond ((null? forms) '(begin)) (cond ((null? forms) '(values))
((null? (cdr forms)) (car forms)) ((null? (cdr forms)) (car forms))
(else (else
(let ((vars (map (lambda (f) (let ((vars (map (lambda (f)