~ chicken-core (chicken-5) e95b024a109a0c4800699f30881a303b80bf1639

commit e95b024a109a0c4800699f30881a303b80bf1639
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jul 19 22:31:06 2015 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Jul 19 22:31:06 2015 +0200

    updated specialization-test for use of C_values

diff --git a/tests/specialization-test-1.scm b/tests/specialization-test-1.scm
index ff82d981..4570681b 100644
--- a/tests/specialization-test-1.scm
+++ b/tests/specialization-test-1.scm
@@ -49,11 +49,12 @@ return n;}
 ;; Ensure a foreign-primitive returning multiple values with C_values()
 ;; isn't specialized to a single result.
 (let ((result (receive ((foreign-primitive ()
-			  "C_values(4,"
-			  "         C_SCHEME_UNDEFINED,"
-			  "         C_k,"
-			  "         C_fix(1),"
-			  "         C_fix(2));")))))
+			  "C_word av[ 4 ];"
+			  "av[ 0 ] = C_SCHEME_UNDEFINED;"
+			  "av[ 1 ] = C_k;"
+			  "av[ 2 ] = C_fix(1);"
+			  "av[ 3 ] = C_fix(2);"
+			  "C_values(4, av);")))))
   (assert (equal? '(1 2) result)))
 
 ;; dropped conditional branch is ignored