Insert const AFTER qualified type, to qualify pointers.

diff --git a/src/ffi/generator.scm b/src/ffi/generator.scm
index 4c0ce24438ecbf1e8ba2920fab3fbcb52d54a5a8..bc4ae126a149475941659d461779a6ab175de6af 100644 (file)
--- a/src/ffi/generator.scm
+++ b/src/ffi/generator.scm
@@ -317,8 +317,8 @@ Scm_"name" (void)
         (string-append (decl-string (ctype-pointer/target-type ctype))
                        " *"))
        ((ctype/const? ctype)
-        (string-append "const "
-                       (decl-string (ctype-const/qualified-type ctype))))
+        (string-append (decl-string (ctype-const/qualified-type ctype))
+                       " const"))
        ((ctype/struct-name? ctype)
         (string-append "struct " (symbol-name (ctype-struct/name ctype))))
        ((ctype/union-name? ctype)