X-Git-Url: https://svn.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/e1705e136ab823be2e76e63728db1a5359d5d443..4d5f39ea1ae1eff1d8eadf7875851be467e40a47:/interpretor/parser.ml

diff --git a/interpretor/parser.ml b/interpretor/parser.ml
index feec7e2..1d2850c 100644
--- a/interpretor/parser.ml
+++ b/interpretor/parser.ml
@@ -1,6 +1,6 @@
 type token =
   | CONST of (string)
-  | IDENT of (string)
+  | IDENT of (Types.symbol)
   | LPAR
   | RPAR
   | SEQ
@@ -188,10 +188,10 @@ let yyact = [|
 # 189 "parser.ml"
                : 'faust_exp))
 ; (fun __caml_parser_env ->
-    let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
+    let _1 = (Parsing.peek_val __caml_parser_env 0 : Types.symbol) in
     Obj.repr(
 # 20 "parser.mly"
-                                      ( Ident(symbol_of_string _1) )
+                                      ( Ident(_1) )
 # 196 "parser.ml"
                : 'faust_exp))
 ; (fun __caml_parser_env ->