Changeset 80aab02 in git

Timestamp:

Jan 5, 2015, 3:23:28 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

b8245236db9ce8035a9e4bbb28ef632e7ca8e4d8

Parents:

dc65b8cd8fc40a278fe3f1463560c2c62b6b2cdc

Message:

fix: radical/prepareQuotienring

File:

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

Singular/LIB/primdec.lib

@@ -1889 +1889 @@
     rl[1]=list(p,
             list(rl2[nnp+1..nvars(basering)]),
-            list(list("lp",1:(nvars(basering)-nnp))),
-            ideal(0));
+            list(list("lp",1:(nvars(basering)-nnp))),
+            ideal(0));
     rl[2]=list(rl2[1..nnp]);
     rl[3]=list(list(order,1:nnp),list("C",0));
@@ -1900 +1900 @@
         list rl1=rl[1];
         list rl2=rl[2];
-        rl1[1]=list(rl1[1][1],
+        rl1=list(rl1[1][1],
                 rl[1][2]+list(rl2[nnp+1..nvars(basering)]),
-                list(list("lp",1:(size(rl[1][2])+nvars(basering)-nnp))),
-                ideal(0));
+                list(list("lp",1:(size(rl[1][2])+nvars(basering)-nnp))),
+                ideal(0));
         rl[1]=rl1;
         rl[2]=list(rl2[1..nnp]);