[ ffi ] Fix missing structure declarations in scheme ffi

src/Compiler/Scheme/Chez.idr

@@ -365,7 +365,7 @@ mkStruct (CFStruct n flds)
     showFld : (String, CFType) -> Core Builder
     showFld (n, ty) = pure $ "[" ++ fromString n ++ " " ++ !(cftySpec emptyFC ty) ++ "]"
 mkStruct (CFIORes t) = mkStruct t
-mkStruct (CFFun a b) = do ignore (mkStruct a); mkStruct b
+mkStruct (CFFun a b) = do [| mkStruct a ++ mkStruct b |]
 mkStruct _ = pure ""
 
 schFgnDef : {auto c : Ref Ctxt Defs} ->

src/Compiler/Scheme/Gambit.idr

@@ -328,7 +328,7 @@ mkStruct (CFStruct n flds)
     showFld : (String, CFType) -> Core Builder
     showFld (n, ty) = pure $ "(" ++ fromString n ++ " " ++ !(cftySpec emptyFC ty) ++ ")"
 mkStruct (CFIORes t) = mkStruct t
-mkStruct (CFFun a b) = do ignore (mkStruct a); mkStruct b
+mkStruct (CFFun a b) = [| mkStruct a ++ mkStruct b |]
 mkStruct _ = pure ""
 
 schFgnDef : {auto c : Ref Ctxt Defs} ->

src/Compiler/Scheme/Racket.idr

@@ -311,7 +311,7 @@ mkStruct (CFStruct n flds)
     showFld : (String, CFType) -> Core Builder
     showFld (n, ty) = pure $ "[" ++ fromString n ++ " " ++ !(cftySpec emptyFC ty) ++ "]"
 mkStruct (CFIORes t) = mkStruct t
-mkStruct (CFFun a b) = do ignore (mkStruct a); mkStruct b
+mkStruct (CFFun a b) = [| mkStruct a ++ mkStruct b |]
 mkStruct _ = pure ""
 
 schFgnDef : {auto f : Ref Done (List String) } ->

tests/allschemes/ffi001/Struct.idr

@@ -0,0 +1,13 @@
+import System.FFI
+
+PtrAST : Type
+PtrAST = Struct "AST" [("value", AnyPtr)]
+
+%foreign "C:freeAST,foo"
+prim_freeAST : (PtrAST -> Int) -> PrimIO ()
+
+freeAST : HasIO io => (PtrAST -> Int) -> io ()
+freeAST ast = primIO $ prim_freeAST ast
+
+main : IO ()
+main = freeAST (\x => 1)

tests/allschemes/ffi001/run

@@ -0,0 +1,4 @@
+. ../../testutils.sh
+
+# Previously reported: unrecognized foreign-callable argument ftype name AST
+idris2 -c Struct.idr -o out </dev/null