+rec_field_assignments:
+ | ID EQ exp
+ {
+ let id = $1 in
+ let exp = $3 in
+ sprintf "%S = %s" id exp
+ }
+ | ID EQ exp COMMA rec_field_assignments
+ {
+ let id = $1 in
+ let exp = $3 in
+ let rec_field_assignments = $5 in
+ sprintf "%S = %s, %s" id exp rec_field_assignments
+ }
+