#NEWLINE# @ expose ( 'make-struct-field-accessor' , [ values_struct . W_StructAccessor , values . W_Fixnum , default ( values . W_Object , values . w_false ) ] ) #NEWLINE# def do_make_struct_field_accessor( accessor , field , field_name ) : #NEWLINE# #INDENT# if ( field is values . w_false ) : #NEWLINE# #INDENT# return values_struct . W_StructFieldAccessor ( accessor , field . value , None ) #NEWLINE# #UNINDENT# if ( not isinstance ( field_name , values . W_Symbol ) ) : #NEWLINE# #INDENT# raise SchemeException ( 'make-struct-field-accessor: expected symbol or #f as argument 2' ) #NEWLINE# #UNINDENT# return values_struct . W_StructFieldAccessor ( accessor , field . value , field_name )