Forgot to handle boolean in variadic arguments call

Author: ktakashi

src/pffi/compat.chezscheme.sls

@@ -271,6 +271,7 @@
 				  "Unsuported number" arg))))
 			 ((or (string? arg) (bytevector? arg) (pointer? arg))
 			  'void*)
+			 ((boolean? arg) 'boolean)
 			 (else
 			  (assertion-violation 'name
 			   "Unsuported Scheme object" arg))))

src/pffi/compat.mzscheme.sls

@@ -233,6 +233,7 @@
 					      "Complex number not supported"
 					      arg))))
 	    ((cpointer? arg) _pointer)
+	    ((boolean? arg) _stdbool)
 	    (else (assertion-violation 'make-c-function
 				       "Unsupported argument" arg))))
     (if after

tests/test.scm

@@ -324,7 +324,9 @@
 
 ;; varargs
 (let ((sum (foreign-procedure test-lib int sum (int ___))))
-  (test-equal "variadic argument" 10 (sum 4 1 2 3 4)))
+  (test-equal "variadic argument (1)" 10 (sum 4 1 2 3 4))
+  ;; #t = 1 :)
+  (test-equal "variadic argument (2)" 10 (sum 4 #t 2 3 4)))
 
 ;; typedef
 (let ((id-str (foreign-procedure test-lib ppp id_str (ppp))))