KrancTensor.m: Make accelerated implementation search case-insensitive

ianhinder · Feb 7, 2012 · 08561db · 08561db
1 parent b94a7e2
commit 08561db
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Tools/CodeGen/KrancTensor.m b/Tools/CodeGen/KrancTensor.m
@@ -180,7 +180,7 @@ Scan all the interface files and find the thorn(s) providing this implementation
 DefFn[
 thornOfImplementation[imp_String] :=
   Module[
-    {impThorns = Select[getAllThorns[], FileNameTake[#,-1] === imp &],
+    {impThorns = Select[getAllThorns[], StringMatchQ[FileNameTake[#,-1],imp,IgnoreCase->True] &],
      impThorns2},
     If[impThorns =!= {} && StringMatchQ[implementationOfThorn[impThorns[[1]]], imp, IgnoreCase->True],
        impThorns[[1]],