From 6adf208ee66e8ed6d68730dda8b79f5f3c476332 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Thu, 19 Jun 2003 01:36:01 +0000
Subject: [PATCH] (parallel): For no forms, use `(values)' not `(begin)'.

---
 ice-9/threads.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ice-9/threads.scm b/ice-9/threads.scm
index ace701981..e71da9a0c 100644
--- a/ice-9/threads.scm
+++ b/ice-9/threads.scm
@@ -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)