~ chicken-core (chicken-5) 046f8de162ef51fe14662717b035c61d60e0d5f2

commit 046f8de162ef51fe14662717b035c61d60e0d5f2
Author:     felix <felix@y.(none)>
AuthorDate: Fri Aug 20 17:09:35 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Fri Aug 20 17:09:35 2010 +0200

    trivial changes

diff --git a/c-platform.scm b/c-platform.scm
index 50f7d1bc..dcaaaf8f 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -500,7 +500,7 @@
 
 (let ()
   (define (rewrite-c-w-v db classargs cont callargs)
-   ;; (call-with-values <var1> <var2>) -> (let ((k (lambda (r) (<var2> <k0> r)))) (<var1> k))
+   ;; (call-with-values <var1> <var2>) -> (let ((k (lambda (r) [<var2> <k0> r]))) [<var1> k])
    ;; - if <var2> is a known lambda of a single argument
    (and (= 2 (length callargs))
 	(let ((arg1 (car callargs))
@@ -512,7 +512,7 @@
 		 (and (eq? '##core#lambda (node-class val))
 		      (let ((llist (third (node-parameters val))))
 			(and (proper-list? llist)
-			     (= 2 (length (third (node-parameters val))))
+			     (= 2 (length llist))
 			     (let ((tmp (gensym))
 				   (tmpk (gensym 'r)) )
 			       (debugging 'o "removing single-valued `call-with-values'" (node-parameters val))