X-Git-Url: https://svn.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/871f0359e3948f2172b0582ae49222805b7806d4..14e4f8cd6102d273c520c2d2e0168a5221a7daeb:/interpretor/parser.ml?ds=sidebyside

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 ->