Fix some header files in the FFI.

diff --git a/src/ffi/ffi-test.c.stay b/src/ffi/ffi-test.c.stay
index 033715697969394e2923ebc94f243ea84f6a0ad6..8cd9d30d4064abc4efabcc29960568baeefdd2b8 100644 (file)
--- a/src/ffi/ffi-test.c.stay
+++ b/src/ffi/ffi-test.c.stay
@@ -2,6 +2,10 @@
 
 /* A test library; used to test the C/Unix FFI. */
 
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
 #include "ffi-test.h"
 
 static void *callback_data;

diff --git a/src/ffi/ffi-test.h b/src/ffi/ffi-test.h
index f8e5aebcc643427b206f195d24bda72d01016c0b..2154379258d7ef3ba3cb250594fb286ed23f46b7 100644 (file)
--- a/src/ffi/ffi-test.h
+++ b/src/ffi/ffi-test.h
@@ -2,9 +2,6 @@
 
 /* Header for a test library; used to test the C/Unix FFI. */
 
-#include <string.h>
-#include <stdio.h>
-
 typedef struct {
 
   char first;

diff --git a/src/ffi/generator.scm b/src/ffi/generator.scm
index f1f2627697057b79fb22b4c6e910027231c4382d..4c0ce24438ecbf1e8ba2920fab3fbcb52d54a5a8 100644 (file)
--- a/src/ffi/generator.scm
+++ b/src/ffi/generator.scm
@@ -495,6 +495,8 @@ Scm_"name" ("arglist")
 /* Prefix */
 "prefix"
 /* End Prefix */
+
+#include <stdio.h>
 " (basics-grovel-func) (enums-grovel-func includes)))
       (flush-output)
       (let* ((structs (gen-struct-grovel-funcs includes))