diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-12-05 22:20:54 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-12-05 22:20:54 +0100 |
| commit | a01d09ca4730de4987d67e73a8ee895f77f57f9c (patch) | |
| tree | e9f667f874572a51988225a45ab698ce079059a9 /src/parser.mly | |
| parent | 6973d36261d8030c4836a8e25a0e95c19476978e (diff) | |
| download | LPC-Projet-a01d09ca4730de4987d67e73a8ee895f77f57f9c.tar.gz LPC-Projet-a01d09ca4730de4987d67e73a8ee895f77f57f9c.zip | |
Added tests, corrected two failed tests.
Diffstat (limited to 'src/parser.mly')
| -rw-r--r-- | src/parser.mly | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/parser.mly b/src/parser.mly index 39fdf7d..a079886 100644 --- a/src/parser.mly +++ b/src/parser.mly @@ -109,12 +109,13 @@ member: ; cls_proto: -| ident = typed_var +| ident = typed_qvar LPAREN args = separated_list(COMMA, typed_var) RPAREN - { { - p_ret_type = Some(fst ident); - p_name = snd ident; - p_class = None; + { + let (vt, vc, vn) = ident in { + p_ret_type = Some(vt); + p_name = vn; + p_class = vc; p_args = args; p_loc = $startpos, $endpos } } | cls = TIDENT |