split-public-symbol-with-renaming.opp.exp 436 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
Warning: you are using the standard library and/or the %inline keyword. We
recommend switching on --infer in order to avoid obscure type error messages.
%start main
%token A
%token B
%token EOF
%type <unit> main
%%

liste_A_:
  _1 = A _2 = A _3 = liste_A_
    {                               ()}
| 
    {let _1 =
               ()
in
                      ()}

main:
  _1 = liste_A_ _2 = B _3 = EOF
    {                     ()}

%%