~ chicken-core (chicken-5) c781b2516c4c1df19ebf4f0d49f991ffe37ea6cc

commit c781b2516c4c1df19ebf4f0d49f991ffe37ea6cc
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Aug 22 18:17:07 2015 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat Aug 22 19:37:27 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