~ chicken-core (chicken-5) 01fcd00e47063b5ef7464422fbd51cb793f121e6

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

    reverse order when pushing callback arguments

diff --git a/c-backend.scm b/c-backend.scm
index 25296e1a..c0ee9d15 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -1069,8 +1069,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 #\))