Changeset 6e80ab in git

Timestamp:

May 27, 2011, 1:29:55 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

a41623dd1e56318466dc81751481d37d19489c7b

Parents:

38ac8cadfce1628aa28008b1a3d9bbd297dd2983

Message:

fix tr. #340

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

File:

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

Singular/LIB/normal.lib

@@ -378 +378 @@
       {
         newR = norComp[j][3];
+        def savebasering=basering;
+        setring newR; // must be in a compatible ring to newR
+                      // as ringlist may produce ring-dep. stuff
         newRList = ringlist(newR);
+        setring savebasering;
         U = norComp[j][1];
         c = norComp[j][2];
@@ -400 +404 @@
           U = fetch(R, U);
           c = fetch(R, c);
-          newRListO = imap(R, newRList);
+          newRListO = imap(newR, newRList);
           // We change the ordering in the new ring.
           if(nvars(newR) > nvars(origR))