EM-xTensor.m: Improve code which loads the Metrics package

* Add the EinsteinToolkit relative location in EinsteinExact (the submodule must be checked out)
* Give an error and abort if the metrics database cannot be loaded

1 files changed, 9 insertions, 1 deletions

diff --git a/Examples/EM-xTensor.m b/Examples/EM-xTensor.m
index c1b480d..224e789 100644
--- a/Examples/EM-xTensor.m
+++ b/Examples/EM-xTensor.m
@@ -21,7 +21,15 @@
 
 $KrancTensorPackage="xTensorKranc`";
 Get["KrancTensor`"];
-Get["Metrics`LoadMetric`"];
+
+PrependTo[$Path, "../../EinsteinExact/m"];
+
+Check[Get["Metrics`LoadMetric`"],
+      Print["Cannot load Metrics package"]; Quit[1],
+      Get::noopen];
+
+Print["Using Metrics database at ", FindFile["Metrics`LoadMetric`"]];
+
 $DefInfoQ=False;
 $CVVerbose=False;
 $PrePrint=ScreenDollarIndices;