clean code

Author: ProgramingIsTheFuture

source/Compiler.ml

@@ -60,11 +60,6 @@ end
 let ( let* ) = Output.bind
 
 module Operators = struct
-  type 'a t =
-    | Number of float * float
-    | Str of string * string
-    | Obj of (string * 'a) list * (string * 'a) list
-
   let not (json : Json.t) =
     match json with
     | `Bool false | `Null -> Output.return (`Bool true)

source/Parser.mly

@@ -11,7 +11,7 @@
 %token <bool> BOOL
 %token NULL
 %token <string> IDENTIFIER
-%token RANGE ABS ADDFUN
+%token RANGE
 %token IF THEN ELSE ELIF END
 %token DOT
 %token RECURSE
@@ -132,10 +132,6 @@ term:
       | x :: y :: z :: [] -> Range (x, Some y, Some z)
       | _ -> failwith "too many arguments for function range"
     }
-  | ABS
-    { Fun (Abs) }
-  | ADDFUN
-    { Fun (Add) }
   | f = FUNCTION; CLOSE_PARENT;
     { failwith (f ^ "(), should contain a body") }
   | f = FUNCTION; cb = sequence_expr; CLOSE_PARENT;
@@ -198,6 +194,8 @@ term:
       | "nan" -> Nan
       | "is_nan" -> IsNan
       | "not" -> Not
+      | "abs" -> Fun (Abs)
+      | "add" -> Fun (Add)
       (* TODO: remove failwiths once we have implemented the functions *)
       | "if" -> failwith @@ Console.Errors.not_implemented f
       | "then" -> failwith @@ Console.Errors.not_implemented f

source/Tokenizer.ml

@@ -45,8 +45,6 @@ type token =
   | ELSE
   | ELIF
   | END
-  | ABS
-  | ADDFUN
   | EOF
 [@@deriving show]
 
@@ -107,8 +105,6 @@ let rec tokenize buf =
   | "else" -> Ok ELSE
   | "elif" -> Ok ELIF
   | "end" -> Ok END
-  | "abs" -> Ok ABS
-  | "add" -> Ok ADDFUN
   | dot -> Ok DOT
   | ".." -> Ok RECURSE
   | '"' -> string buf