Changeset e6651bb in git for Singular

Timestamp:

Oct 1, 2010, 3:47:12 PM (14 years ago)

Author:

Stefan Steidel <steidel@…>

Branches:

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

Children:

ab453daee98352311cf44b87c2864d4becd7b65c

Parents:

1529965e764d82d495b1b8266e8e1bd5bba5a061

Message:

Small changes in procedure equidimZ to avoid redefinings

git-svn-id: file:///usr/local/Singular/svn/trunk@13366 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

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

Singular/LIB/primdecint.lib

@@ -836 +836 @@
                TQ=intersectZ(TQ,E);
             }
-            kill S;
-            setring Rhelp;
-         }
+         }
+         kill S;
+         setring Rhelp;
       }
       setring R;
@@ -857 +857 @@
    }
    setring R;
-   ideal  E =imap(Rhelp,E);
+   E =imap(Rhelp,E);
    //=== intersection with Z[variables]
    E=coefZ(E)[1];