X-Git-Url: https://svn.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/871f0359e3948f2172b0582ae49222805b7806d4..14e4f8cd6102d273c520c2d2e0168a5221a7daeb:/interpretor/parser.mly

diff --git a/interpretor/parser.mly b/interpretor/parser.mly
index a9b470e..9e9b151 100644
--- a/interpretor/parser.mly
+++ b/interpretor/parser.mly
@@ -3,7 +3,7 @@
 %}
 
 %token <string> CONST
-%token <string> IDENT
+%token <Types.symbol> IDENT
 %token LPAR RPAR SEQ SPLIT MERGE PAR REC EOF POINT
 %right SPLIT MERGE
 %right SEQ
@@ -17,7 +17,7 @@ main:  faust_exp EOF                  { $1 };
 faust_exp: CONST                      { Const(N (int_of_string $1)) }
     | CONST POINT                     { Const(R (float_of_string $1)) }
     | CONST POINT CONST               { Const(R (float_of_string ($1 ^ "." ^ $3))) }
-    | IDENT                           { Ident(symbol_of_string $1) }
+    | IDENT                           { Ident($1) }
     | LPAR faust_exp RPAR             { $2 }
     | faust_exp PAR faust_exp         { Par($1,$3) }
     | faust_exp SPLIT faust_exp       { Split($1,$3) }