- sprintf "%S = %s, %s" $1 $3 $5
- }
-
-fun_call:
- | id unit
- {
- sprintf "fun_call[%s, %s]" $1 $2
- }
- | id LPAREN fun_args RPAREN
- {
- sprintf "fun_call[%s, %s]" $1 $3
+ let id_1 = $1 in
+ let id_2 = $3 in
+ let tyfield = sprintf "%s : %s" id_1 id_2 in
+ let tyfields = $5 in
+ sprintf "%s, %s" tyfield tyfields