~ chicken-core (chicken-5) e7a91d05c472905d875ac002b096ea6df74e111b

commit e7a91d05c472905d875ac002b096ea6df74e111b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Feb 8 10:15:12 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Feb 8 10:15:12 2011 +0100

    yeah, should we?

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 0777d8dd..20c9e822 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -1000,6 +1000,7 @@
 		    `(##core#lambda
 		      (,@rvars . ,rv)
 		      (,%apply ,(car rvals) ,@(cdr rvals) ,rv) ) )
+		  ;;XXX should we drop the begin?
 		  `(##core#lambda ,rvars ((##core#begin ,(car rvals)) ,@(cdr rvals)) ) ) )
 	    (cond ((c %<> (car xs))
 		   (let ([v (r (gensym))])