Fixed c flags to allow compilation with 3.1 for me, and made work wit…

…h newer racket.

build.rkt

@@ -3,12 +3,12 @@
 
 (define (build)
   (define launcher "/usr/bin/env")
-  (define compiler '("g++"))
+  (define compiler '("clang"))
   (define os (system-type 'os))
   (define shared-library-flags
     (case os
      ((unix) '("-shared"))
-     ((macosx) '("-dynamiclib" "-undefined" "suppress" "-flat_namespace"))))
+     ((macosx) '("-dynamiclib" "-lLLVM-3.1" "-lstdc++"))))
   (define architecture-flags
     (case os
       ((unix) '("-m32"))
@@ -37,7 +37,7 @@
     (close-output-port in)
     (close-input-port out)
     (subprocess-wait process)
-   (unless (= (subprocess-status process) 0) (error 'g++ "Returned non zero exit code"))))
+   (unless (= (subprocess-status process) 0) (error 'c-compiler "Returned non zero exit code"))))
 
 (define (llvm-config flags)
  (define (remove-blanks lst)

private/ffi/lib.rkt

@@ -5,11 +5,12 @@
 
 
 (require/typed ffi/unsafe
-  (opaque FFI-Lib ffi-lib?)
+  (#:opaque FFI-Lib ffi-lib?)
+  (#:opaque CType ctype?)
   ;very specific type for this use case
-  (get-ffi-obj (Symbol FFI-Lib Any -> (-> Any)))
-  (_cprocedure ((Listof Any) Any -> Any))
-  (_void Any)
+  (get-ffi-obj (Symbol FFI-Lib CType -> (-> Any)))
+  (_cprocedure ((Listof CType) CType -> CType))
+  (_void CType)
   (ffi-lib (Path -> FFI-Lib)))
 
 (require (only-in ffi/unsafe _fun (-> ffi:->)))