Commits

Antoine Pietri  committed 71d0a5c

removed unused function 'get_func'

  • Participants
  • Parent commits 80acc63

Comments (0)

Files changed (1)

   | "-" -> -i
   | op  -> failwith ("Unknown operator " ^ op)
 
-let rec get_func f = function
-  | [] -> raise Not_found
-  | x :: xs when x.Ast.fname = f -> x
-  | x :: xs -> get_func f xs
-
 let rec eval_expr env lf = function
   | Ast.Int(n) -> n
   | Ast.Var(v) -> Hashtbl.find env v