freeze

VALUE
rb_str_freeze(VALUE str)
{
 if (OBJ_FROZEN(str)) return str;
 rb_str_resize(str, RSTRING_LEN(str));
 return rb_obj_freeze(str);
}