~ chicken-core (chicken-5) 56d308e88139e63f1da0be6aefdebd9fd1b4dfc3

commit 56d308e88139e63f1da0be6aefdebd9fd1b4dfc3
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Aug 22 18:16:32 2015 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat Aug 22 19:37:26 2015 +0200

    reverse order when pushing callback arguments

diff --git a/c-backend.scm b/c-backend.scm
index 83ae3f03..25b7050d 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -1091,8 +1091,8 @@
 	  (lambda (v t)
 	    (gen #t "x=" (foreign-result-conversion t "a") v ");"
 		 #t "C_save(x);") )
-	  vlist 
-	  argtypes)
+	  (reverse vlist)
+	  (reverse argtypes))
 	 (unless (eq? 'void rtype)
 	   (gen #t "return " (foreign-argument-conversion rtype)) )
 	 (gen "C_callback_wrapper((void *)" id #\, n #\))