anchor.diff:          let libs = libs moduleType
           io {
               let! oFiles = compileFunctions path tb moduleType
  -            do! gccCompileToDynamicLibrary libs oFiles dylibName
  +            do! compileToDynamicLibrary libs oFiles dylibName
               return! cleanObjectFiles path }
           |> IO.run
   
  
positive.code: #endif
  "
  
  let rec findCall call = function
      | SpecificCall <@ C @> (_, _, exprList) -> (<@@ C @@>, exprList.[0])
      | SpecificCall <@ CExtern @> (_, _, exprList) -> (<@@ CExtern @@>, exprList.[0])
  
negative.code: 
          let! pinvokeMeth = definePInvokeMethod meth.Name dllName name returnType parameters tb
  
          return! compileC flags cFile oFile code }
  
      let compileToStaticLibrary aFile oFiles = io {
          let args = sprintf "rcs %s %s" aFile oFiles
          do! startAr args }
  
      let compileToDynamicLibrary libs oFiles dylibName = io {
          let args = sprintf "-arch i386 -dynamiclib -headerpad_max_install_names -undefined dynamic_lookup -compatibility_version 1.0 -current_version 1.0 %s %s -o %s " libs oFiles dylibName
          do! startClang args }
  
      let compileFunctions path tb moduleType = io {
          let! functions = Type.moduleFunctions moduleType |> List.map (compileFunction path tb)
  