Refactoring in faustexp.ml.

[Faustine.git] / interpretor / parser.ml

diff --git a/interpretor/parser.ml b/interpretor/parser.ml
index feec7e2..1d2850c 100644 (file)
--- a/interpretor/parser.ml
+++ b/interpretor/parser.ml
@@ -1,6 +1,6 @@
 type token =
   | CONST of (string)
 type token =
   | CONST of (string)

-  | IDENT of (string)
+  | IDENT of (Types.symbol)

   | LPAR
   | RPAR
   | SEQ
   | LPAR
   | RPAR
   | SEQ


@@ -188,10 +188,10 @@ let yyact = [|
 # 189 "parser.ml"
                : 'faust_exp))
 ; (fun __caml_parser_env ->
 # 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"
     Obj.repr(
 # 20 "parser.mly"

-                                      ( Ident(symbol_of_string _1) )
+                                      ( Ident(_1) )

 # 196 "parser.ml"
                : 'faust_exp))
 ; (fun __caml_parser_env ->
 # 196 "parser.ml"
                : 'faust_exp))
 ; (fun __caml_parser_env ->