fix using Base.Experimental.@compiler_options in old Julia versions

Author: thautwarm

src/AbstractPatterns/AbstractPatterns.jl

@@ -1,9 +1,5 @@
 module AbstractPatterns
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
-
 export spec_gen, RedyFlavoured, TypeObject
 export and, or, literal, and, wildcard, decons, guard, effect
 export PatternCompilationError, Target, PatternImpl, PComp
@@ -16,6 +12,10 @@ export P_svec, P_svec3
 export SimpleCachablePre, see_captured_vars, see_captured_vars!
 export CFGSpec, CFGJump, CFGLabel, CFGItem, init_cfg
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 mutable struct CFGSpec
     exp::Expr
 end

src/AbstractPatterns/impl/BasicPatterns.jl

@@ -1,7 +1,7 @@
 module BasicPatterns
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
 end
 
 using MLStyle.AbstractPatterns

src/AbstractPatterns/impl/RedyFlavoured.jl

@@ -1,12 +1,12 @@
 module RedyFlavoured
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
-
 using MLStyle.AbstractPatterns
 using MLStyle.Err: PatternCompilationError
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 Config = NamedTuple{(:type, :ln)}
 Scope = ChainDict{Symbol, Symbol}
 ViewCache = ChainDict{Pair{TypeObject, Any}, Tuple{Symbol, Bool}}

src/DataType.jl

@@ -1,16 +1,15 @@
 module DataType
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
-
-
 using MLStyle
 using MLStyle.MatchImpl
 using MLStyle.Qualification
 using MLStyle.Record: as_record
 using MLStyle.ExprTools
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 UNREACHABLE = nothing
 export @data
 @nospecialize

src/ExprTools.jl

@@ -1,14 +1,13 @@
 module ExprTools
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
-
-
 using MLStyle.MatchCore
 export take_type_parameters!, get_type_parameters, get_type_parameters_ordered
 export @reexport
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 @nospecialize
 function take_type_parameters!(syms, ex)::Nothing
     @sswitch ex begin

src/MatchCore.jl

@@ -1,13 +1,12 @@
 module MatchCore
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
-
-
 using MLStyle
 using MLStyle.Err
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 export @sswitch, ellipsis_split, backend, P_partial_struct_decons
 using MLStyle.AbstractPatterns
 using MLStyle.AbstractPatterns.BasicPatterns

src/MatchImpl.jl

@@ -1,7 +1,7 @@
 module MatchImpl
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
 end
 
 export is_enum,

src/Modules/AST.jl

@@ -1,7 +1,7 @@
 module AST
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
 end
 
 using MLStyle

src/Modules/Cond.jl

@@ -1,11 +1,11 @@
 module Cond
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
-
 using MLStyle
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 export @cond
 @nospecialize
 function cond(cases, source, mod::Module)

src/Pervasives.jl

@@ -1,9 +1,5 @@
 module Pervasives
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
-
 using MLStyle
 using MLStyle.AbstractPatterns
 using MLStyle.AbstractPatterns
@@ -12,6 +8,10 @@ struct Do end
 struct GuardBy end
 export Many, Do, GuardBy
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 @nospecialize
 function MLStyle.pattern_uncall(
     ::typeof(:),

src/Qualification.jl

@@ -1,6 +1,6 @@
 module Qualification
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
 end
 
 export deprecate_qualifier_macro

src/Record.jl

@@ -1,7 +1,4 @@
 module Record
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
 
 using MLStyle
 using MLStyle.MatchCore
@@ -10,6 +7,10 @@ using MLStyle.AbstractPatterns
 using MLStyle.AbstractPatterns.BasicPatterns
 using MLStyle.Qualification
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 export @as_record, record_def
 
 @nospecialize

src/StandardPatterns/Active.jl

@@ -1,8 +1,8 @@
 # Active patterns
 module Active
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
 end
 
 using MLStyle

src/StandardPatterns/LambdaCases.jl

@@ -1,13 +1,13 @@
 module LambdaCases
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
-
 using MLStyle
 using MLStyle.Sugars
 using MLStyle.AbstractPatterns: init_cfg
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 export gen_lambda, @λ
 @nospecialize
 """

src/StandardPatterns/WhenCases.jl

@@ -1,13 +1,13 @@
 module WhenCases
 
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
-end
-
 using MLStyle
 using MLStyle.Sugars: Q
 using MLStyle.AbstractPatterns: init_cfg
 
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
+end
+
 export @when, @otherwise, gen_when
 @nospecialize
 function split_case_and_block(stmts, first_bindings, first_source)

src/Sugars.jl

@@ -1,6 +1,6 @@
 module Sugars
-if isdefined(Base, :Experimental)
-    @eval Base.Experimental.@compiler_options optimize=0 compile=min infer=no
+if isdefined(Base, :Experimental) && isdefined(Base.Experimental, Symbol("@compiler_options"))
+    @eval Base.Experimental.@compiler_options compile=min infer=no optimize=0
 end
 
 using MLStyle