~ chicken-core (chicken-5) fde5d35ae39b385d633503eae5b0578aa17470c7

commit fde5d35ae39b385d633503eae5b0578aa17470c7
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jan 25 21:49:36 2015 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Jan 25 21:49:36 2015 +0100

    Use non-destructive split-at in chicken-syntax.scm

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index a73ae540..244651ef 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -797,7 +797,7 @@
 				       `(,%>= ,lvar ,a2) )
 				   `(,%eq? ,lvar ,a2) ) )
 			    ,(receive (vars1 vars2)
-				 (split-at! (take vars argc) mincount)
+				 (split-at (take vars argc) mincount)
 			       (let ((bindings
 				      (let build ((vars2 vars2) (vrest rvar))
 					(if (null? vars2)