Refactoring of file beam.ml.

[Faustine.git] / interpretor / parser.mly

diff --git a/interpretor/parser.mly b/interpretor/parser.mly
index a9b470e74f3ef4408c94f3099ecc7342369b39d2..9e9b151aed6164c29fbf90fd3e85afe6f99b938d 100644 (file)
--- 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) }