inline-rename.opp.exp 339 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12
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 a
%token <int> T

%type <int> a
%%

a:
| x = c x0 = c
    {let y =
  let x = x0 in
13
                    ( x )
14
in
15
                ( x + y )}
16 17 18

c:
| x = T
19
    {         ( x )}
20 21 22 23 24

%%