def do_make_struct_field_mutator(mutator, field, field_name):
if field_name is values.w_false:
return values_struct.W_StructFieldMutator(mutator, field.value, None)
if not isinstance(field_name, values.W_Symbol):
raise SchemeException(
"make-struct-field-mutator: expected symbol or #f as argument 2")
return values_struct.W_StructFieldMutator(mutator, field.value, field_name)
def make_mutator(mut, i):
sym = values.W_Symbol.make("<internal-mutator>")
return values_struct.W_StructFieldMutator(mut, i, sym)
def make_mutator(mut, i):
idx = values.W_Fixnum(i)
sym = values.W_Symbol.make("<internal-mutator>")
return values_struct.W_StructFieldMutator(mut, idx, sym)
