From a6a9ee713b04095b2766e308ba52d5868eec56ee Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 18 Aug 2011 11:31:10 -0700 Subject: [PATCH] Insert const AFTER qualified type, to qualify pointers. --- src/ffi/generator.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/ffi/generator.scm b/src/ffi/generator.scm index 4c0ce2443..bc4ae126a 100644 --- 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) -- 2.25.1