From a01d09ca4730de4987d67e73a8ee895f77f57f9c Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Thu, 5 Dec 2013 22:20:54 +0100
Subject: Added tests, corrected two failed tests.

---
 src/parser.mly | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/parser.mly')

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
-- 
cgit v1.2.3