From 45cbc7d9730e8d4991c58b804dec47dd83827ec4 Mon Sep 17 00:00:00 2001
From: Chris Casinghino <ccasinghino@janestreet.com>
Date: Tue, 26 Jul 2022 12:16:59 -0400
Subject: [PATCH] Turn "include functor" extension on by default (#38)

---
 testsuite/tests/typing-modules/include_functor_disabled.ml | 1 +
 utils/clflags.ml                                           | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/testsuite/tests/typing-modules/include_functor_disabled.ml b/testsuite/tests/typing-modules/include_functor_disabled.ml
index cd72864a798..bbaa3308a15 100644
--- a/testsuite/tests/typing-modules/include_functor_disabled.ml
+++ b/testsuite/tests/typing-modules/include_functor_disabled.ml
@@ -1,4 +1,5 @@
 (* TEST
+  flags = "-disable-all-extensions"
    * expect
 *)
 
diff --git a/utils/clflags.ml b/utils/clflags.ml
index 833a51f60c7..b69ef9ba9f5 100644
--- a/utils/clflags.ml
+++ b/utils/clflags.ml
@@ -379,7 +379,7 @@ module Extension = struct
   type t = Comprehensions | Local | Include_functor
 
   let all = [ Comprehensions; Local; Include_functor ]
-  let default_extensions = [ Local ]
+  let default_extensions = [ Local; Include_functor ]
 
   let extensions = ref ([] : t list)   (* -extension *)
   let equal (a : t) (b : t) = (a = b)