Kranc.m: provide legacy ValueQ function

ianhinder · Jan 7, 2022 · 025de5e · 025de5e
1 parent af2c41a
commit 025de5e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Tools/CodeGen/Kranc.m b/Tools/CodeGen/Kranc.m
@@ -72,6 +72,10 @@
 
 (* KrancThorn.m *)
 
+(* provide a ValueQ function the way we expect *)
+SetAttributes[ValueQLegacy, HoldAll]
+ValueQLegacy[x_] := If[$VersionNumber >= 12.2, ValueQ[x, Method -> "Legacy"], ValueQ[x]]
+
 (* Work around bug in Mathematica 10.0.0 where z is a symbol in the global context *)
 If[NameQ["Global`z"] && !ValueQ[Global`z], Remove[Global`z]];