Fix partial application syntax : <(x)> instead of (<x>).
This commit is contained in:
parent
de49540a76
commit
b786cbe4ec
|
@ -125,9 +125,9 @@ rule token = parse
|
||||||
| [' ' '\t'] + { token lexbuf }
|
| [' ' '\t'] + { token lexbuf }
|
||||||
| "." {DOT}
|
| "." {DOT}
|
||||||
| "(" {LPAREN}
|
| "(" {LPAREN}
|
||||||
| "(<" {LPAREN_LESS}
|
| "<(" {LESS_LPAREN}
|
||||||
| ")" {RPAREN}
|
| ")" {RPAREN}
|
||||||
| ">)" {GREATER_RPAREN}
|
| ")>" {RPAREN_GREATER}
|
||||||
| "*" { STAR }
|
| "*" { STAR }
|
||||||
| "{" {LBRACE}
|
| "{" {LBRACE}
|
||||||
| "}" {RBRACE}
|
| "}" {RBRACE}
|
||||||
|
|
|
@ -9,7 +9,7 @@ open Hept_parsetree
|
||||||
|
|
||||||
%}
|
%}
|
||||||
|
|
||||||
%token DOT LPAREN LPAREN_LESS RPAREN GREATER_RPAREN LBRACE RBRACE COLON COLONCOLON SEMICOL
|
%token DOT LPAREN LESS_LPAREN RPAREN RPAREN_GREATER LBRACE RBRACE COLON COLONCOLON SEMICOL
|
||||||
%token EQUAL EQUALEQUAL LESS_GREATER BARBAR COMMA BAR ARROW LET TEL
|
%token EQUAL EQUALEQUAL LESS_GREATER BARBAR COMMA BAR ARROW LET TEL
|
||||||
%token <string> Constructor
|
%token <string> Constructor
|
||||||
%token <string> IDENT
|
%token <string> IDENT
|
||||||
|
@ -513,12 +513,12 @@ _exp:
|
||||||
{ mk_call Econcat [$1; $3] }
|
{ mk_call Econcat [$1; $3] }
|
||||||
/*Iterators*/
|
/*Iterators*/
|
||||||
| it=iterator DOUBLE_LESS n=simple_exp DOUBLE_GREATER q=qualname
|
| it=iterator DOUBLE_LESS n=simple_exp DOUBLE_GREATER q=qualname
|
||||||
pargs=delim_slist(COMMA, LPAREN_LESS, GREATER_RPAREN, exp)
|
pargs=delim_slist(COMMA, LESS_LPAREN, RPAREN_GREATER, exp)
|
||||||
LPAREN args=exps RPAREN
|
LPAREN args=exps RPAREN
|
||||||
{ mk_iterator_call it q [] n pargs args }
|
{ mk_iterator_call it q [] n pargs args }
|
||||||
| it=iterator DOUBLE_LESS n=simple_exp DOUBLE_GREATER
|
| it=iterator DOUBLE_LESS n=simple_exp DOUBLE_GREATER
|
||||||
LPAREN q=qualname DOUBLE_LESS sa=array_exp_list DOUBLE_GREATER RPAREN
|
LPAREN q=qualname DOUBLE_LESS sa=array_exp_list DOUBLE_GREATER RPAREN
|
||||||
pargs=delim_slist(COMMA, LPAREN_LESS, GREATER_RPAREN, exp)
|
pargs=delim_slist(COMMA, LESS_LPAREN, RPAREN_GREATER, exp)
|
||||||
LPAREN args=exps RPAREN
|
LPAREN args=exps RPAREN
|
||||||
{ mk_iterator_call it q sa n pargs args }
|
{ mk_iterator_call it q sa n pargs args }
|
||||||
/*Records operators */
|
/*Records operators */
|
||||||
|
|
Loading…
Reference in a new issue