From 43834ad19f4f2154e4d9ab7f5e7f2d47a03d7b85 Mon Sep 17 00:00:00 2001
From: Philip McGrath <philip@philipmcgrath.com>
Date: Wed, 27 Oct 2021 17:58:37 -0400
Subject: [PATCH] =?UTF-8?q?fix=20symbol->string=20to=20return=20immutable?=
 =?UTF-8?q?=20strings=20(R6RS=20=C2=A75.10)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

The report says that:

> the strings returned by `symbol->string` … are immutable objects …
> An attempt to store a new value into a location referred to by an
> immutable object should raise an exception with condition type
> `&assertion`.
---
 r6rs-lib/rnrs/base-6.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/r6rs-lib/rnrs/base-6.rkt b/r6rs-lib/rnrs/base-6.rkt
index 0b5f4dc..9324039 100644
--- a/r6rs-lib/rnrs/base-6.rkt
+++ b/r6rs-lib/rnrs/base-6.rkt
@@ -11,6 +11,8 @@
          (for-syntax r6rs/private/reconstruct)
          (prefix-in r5rs: r5rs)
          (only-in r6rs/private/readtable rx:number)
+         (only-in racket/symbol
+                  [symbol->immutable-string r6rs:symbol->string])
          scheme/bool)
 
 (provide 
@@ -129,7 +131,7 @@
 
  ;; 11.10
  symbol? (rename-out [r6rs:symbol=? symbol=?])
- string->symbol symbol->string
+ string->symbol (rename-out [r6rs:symbol->string symbol->string])
  
  ;; 11.11
  char? char=? char<? char>? char<=? char>=?