Changeset ab7016 in git for Singular/LIB/rootisolation.lib

Timestamp:

Jul 1, 2017, 4:26:54 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

219ee5d1b31495cc7ea93d1be968e08b6b8d4a4a

Parents:

ebac9b7b80a0caff990018d44c3ca10ce66ffdc1

Message:

fix: avoid redefining newstruct

File:

• Singular/LIB/rootisolation.lib (modified) (2 diffs)

Singular/LIB/rootisolation.lib

@@ -51 +51 @@
 rootIsolation(I,B,e);   slims down input box B and calls rootIsolationNoPreprocessing
 ";
+LIB "atkins.lib"; // for round (tmp?)
 ///////////////////////////////////////////////////////////////////////////////
 
@@ -56 +57 @@
 {
     LIB "interval.so";
-    LIB "atkins.lib"; // for round (tmp?)
-
-    newstruct("ivmat", "list rows");
-    system("install", "ivmat", "print", ivmatPrint,           1);
-    system("install", "ivmat", "[",     ivmatGet,             2);
-    system("install", "ivmat", "nrows", ivmatNrows,           1);
-    system("install", "ivmat", "ncols", ivmatNcols,           1);
-    system("install", "ivmat", "*",     ivmatMultiplyGeneral, 2);
+
+    if (!reservedName("ivmat"))
+    {
+      newstruct("ivmat", "list rows");
+      system("install", "ivmat", "print", ivmatPrint,           1);
+      system("install", "ivmat", "[",     ivmatGet,             2);
+      system("install", "ivmat", "nrows", ivmatNrows,           1);
+      system("install", "ivmat", "ncols", ivmatNcols,           1);
+      system("install", "ivmat", "*",     ivmatMultiplyGeneral, 2);
+    }
 }