From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Thu, 18 Aug 2011 18:31:10 +0000 (-0700)
Subject: Insert const AFTER qualified type, to qualify pointers.
X-Git-Tag: release-9.2.0~347^2~2^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a6a9ee713b04095b2766e308ba52d5868eec56ee;p=mit-scheme.git

Insert const AFTER qualified type, to qualify pointers.
---

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)