- fixed function cast in ikarus-ffi.

- added "make check" rule in the scheme directory.

scheme/Makefile.am

@@ -52,3 +52,5 @@ MAINTAINERCLEANFILES=last-revision
 ikarus.boot: $(EXTRA_DIST) ikarus.config.ss
 	../src/ikarus -b ./ikarus.boot.$(sizeofvoidp).prebuilt --r6rs-script makefile.ss
 
+check: ikarus.boot
+	../src/ikarus -b ikarus.boot --r6rs-script run-tests.ss

scheme/Makefile.in

@@ -386,6 +386,9 @@ ikarus.config.ss: Makefile last-revision ../config.h
 
 ikarus.boot: $(EXTRA_DIST) ikarus.config.ss
 	../src/ikarus -b ./ikarus.boot.$(sizeofvoidp).prebuilt --r6rs-script makefile.ss
+
+check: ikarus.boot
+	../src/ikarus -b ikarus.boot --r6rs-script run-tests.ss
 # Tell versions [3.59,3.63) of GNU make to not export all variables.
 # Otherwise a system limit (for SysV at least) may be exceeded.
 .NOEXPORT:

scheme/last-revision

@@ -1 +1 @@
-1654
+1655

src/ikarus-ffi.c

@@ -322,7 +322,7 @@ ikrt_ffi_call(ikptr data, ikptr argsvec, ikpcb* pcb)  {
   ikptr typevec = ref(data, off_vector_data + 2 * wordsize);
   ikptr rtype   = ref(data, off_vector_data + 3 * wordsize);
   ffi_cif* cif = (ffi_cif*) ref(cifptr, off_pointer_data);
-  void(*fn)() = (void*) ref(funptr, off_pointer_data);
+  void(*fn)() = (void (*)()) ref(funptr, off_pointer_data);
   int n = unfix(ref(argsvec, off_vector_length));
   void** avalues = alloc(sizeof(void*), n+1);
   int i;