diff --git a/src/racket/src/module.c b/src/racket/src/module.c index 60ef7a7e42..a6e7bd915c 100644 --- a/src/racket/src/module.c +++ b/src/racket/src/module.c @@ -2937,7 +2937,7 @@ static Scheme_Object *make_resolved_module_path_obj(Scheme_Object *o) #if defined(MZ_USE_PLACES) if (SCHEME_SYMBOLP(o)) { - newo = scheme_make_sized_offset_byte_string(SCHEME_SYM_VAL(o), 0, SCHEME_SYM_LEN(o), 1); + newo = scheme_make_sized_offset_byte_string(o, SCHEME_SYMSTR_OFFSET(o), SCHEME_SYM_LEN(o), 1); } else { newo = o; diff --git a/src/racket/src/places.c b/src/racket/src/places.c index 456f5710a2..94b505e03e 100644 --- a/src/racket/src/places.c +++ b/src/racket/src/places.c @@ -806,7 +806,7 @@ Scheme_Object *scheme_places_deep_copy_worker(Scheme_Object *so, Scheme_Hash_Tab scheme_log_abort("cannot copy uninterned symbol"); abort(); } else { - new_so = scheme_make_sized_offset_byte_string(SCHEME_SYM_VAL(so), 0, SCHEME_SYM_LEN(so), 1); + new_so = scheme_make_sized_offset_byte_string(so, SCHEME_SYMSTR_OFFSET(so), SCHEME_SYM_LEN(so), 1); new_so->type = scheme_serialized_symbol_type; } break; diff --git a/src/racket/src/struct.c b/src/racket/src/struct.c index c1fd60f9b4..8ced80b2c8 100644 --- a/src/racket/src/struct.c +++ b/src/racket/src/struct.c @@ -4653,7 +4653,7 @@ static Scheme_Object *make_prefab_key(Scheme_Struct_Type *type) #if defined(MZ_USE_PLACES) if (SCHEME_SYMBOLP(type->name)) { Scheme_Object *newname; - newname = scheme_make_sized_offset_byte_string(SCHEME_SYM_VAL(type->name), 0, SCHEME_SYM_LEN(type->name), 1); + newname = scheme_make_sized_offset_byte_string(type->name, SCHEME_SYMSTR_OFFSET(type->name), SCHEME_SYM_LEN(type->name), 1); key = scheme_make_pair(newname, key); } else { @@ -4748,7 +4748,7 @@ Scheme_Struct_Type *scheme_lookup_prefab_type(Scheme_Object *key, int field_coun #if defined(MZ_USE_PLACES) if (SCHEME_SYMBOLP(key)) { Scheme_Object *newname; - newname = scheme_make_sized_offset_byte_string(SCHEME_SYM_VAL(key), 0, SCHEME_SYM_LEN(key), 1); + newname = scheme_make_sized_offset_byte_string(key, SCHEME_SYMSTR_OFFSET(key), SCHEME_SYM_LEN(key), 1); key = scheme_make_pair(newname, scheme_null); } if (SCHEME_BYTE_STRINGP(key))