From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 17 Jul 2011 17:18:38 +0000 (-0700)
Subject: Insert const AFTER qualified type, to qualify pointers.
X-Git-Tag: mit-scheme-pucked-9.2.12~685
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e9e273045266a3ada061671b5b76fb5156e19339;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)