From 9c128c49fa91998fc0b650c9c5904a3cd3be22f0 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 5 Nov 2009 06:54:52 +0900
Subject: [PATCH] removing unintended immutability check from OP_STRING_REF

---
 eval.c | 2 --
 1 file changed, 2 deletions(-)

diff --git a/eval.c b/eval.c
index 86ab276f..04124004 100644
--- a/eval.c
+++ b/eval.c
@@ -1474,8 +1474,6 @@ sexp sexp_vm (sexp ctx, sexp proc) {
   case OP_STRING_REF:
     if (! sexp_stringp(_ARG1))
       sexp_raise("string-ref: not a string", sexp_list1(ctx, _ARG1));
-    else if (sexp_immutablep(_ARG1))
-      sexp_raise("string-ref: immutable string", sexp_list1(ctx, _ARG1));
     else if (! sexp_fixnump(_ARG2))
       sexp_raise("string-ref: not an integer", sexp_list1(ctx, _ARG2));
     i = sexp_unbox_fixnum(_ARG2);