Source code cleanup.

funclang-taddeus/series5/ass13.ml

@@ -8,7 +8,7 @@ let rec eval exp =
         | (Not, Bool b) -> Bool (not b)
         | _ -> raise (Failure "Unknown unary operator")
     in
-    let eval_binop binop = match binop with
+    let eval_binop = function
           (op, Num a, Num b) ->
             (* Arithmethic or relational operation is possible on numbers *)
             (match op with