From e68e38e42f91940de00524f60f11bfc64a89a44a Mon Sep 17 00:00:00 2001
From: Cesar Roux Dit Buisson <cr1013@imperial.ac.uk>
Date: Wed, 9 Sep 2015 16:19:05 +0100
Subject: [PATCH] Use functional style in not_already_created and correct
 equality

---
 generator/js_of_ast.ml   | 2 +-
 generator/tests/types.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/generator/js_of_ast.ml b/generator/js_of_ast.ml
index 2df877b..8a5f5f1 100755
--- a/generator/js_of_ast.ml
+++ b/generator/js_of_ast.ml
@@ -291,7 +291,7 @@ let find_module_path mod_list =
   in module_list := []; res
 
 and not_already_created mod_name =
-  not @@ List.exists (fun x -> x == mod_name) !module_created
+  not @@ List.exists ((=) mod_name) !module_created
 
 (**
  * Main part
diff --git a/generator/tests/types.ml b/generator/tests/types.ml
index 4d01c9a..f1ea841 100644
--- a/generator/tests/types.ml
+++ b/generator/tests/types.ml
@@ -1,4 +1,4 @@
-open Cascade
+open Stack
 open Calc
 
 type exprone =
-- 
GitLab