From 426561a8b3ff5b812da9ee696057d7654400befc Mon Sep 17 00:00:00 2001
From: Gareth Rees <gdr@ravenbrook.com>
Date: Thu, 20 Feb 2014 14:45:10 +0000
Subject: [PATCH] Avoid "discard qualifiers" error from xcode.

Copied from Perforce
 Change: 184401
 ServerID: perforce.ravenbrook.com
---
 mps/example/scheme/scheme-advanced.c | 4 ++--
 mps/example/scheme/scheme.c          | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/mps/example/scheme/scheme-advanced.c b/mps/example/scheme/scheme-advanced.c
index f4c62b07ae2..3837a8b2c8f 100644
--- a/mps/example/scheme/scheme-advanced.c
+++ b/mps/example/scheme/scheme-advanced.c
@@ -510,7 +510,7 @@ static obj_t make_symbol(obj_t name)
   return obj;
 }
 
-static obj_t make_string(size_t length, char string[])
+static obj_t make_string(size_t length, const char *string)
 {
   obj_t obj;
   mps_addr_t addr;
@@ -973,7 +973,7 @@ static obj_t intern_string(obj_t name)
 }
 
 
-static obj_t intern(char *string)
+static obj_t intern(const char *string)
 {
   return intern_string(make_string(strlen(string), string));
 }
diff --git a/mps/example/scheme/scheme.c b/mps/example/scheme/scheme.c
index 9a5fb204b15..4b825581bc1 100644
--- a/mps/example/scheme/scheme.c
+++ b/mps/example/scheme/scheme.c
@@ -502,7 +502,7 @@ static obj_t make_symbol(size_t length, const char string[])
   return obj;
 }
 
-static obj_t make_string(size_t length, char string[])
+static obj_t make_string(size_t length, const char *string)
 {
   obj_t obj;
   mps_addr_t addr;