Changeset a9ca4a in git for Singular/LIB/general.lib

Timestamp:

Jul 10, 2009, 8:52:05 PM (15 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

dd2b206f8cf574f337baefb7d3cec53f05bb04fd

Parents:

d5564f83d8163ea5c4d82d1f1fbef38700d668e3

Message:

*motsak: fix a bug in sort


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

File:

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

Singular/LIB/general.lib

@@ -3 +3 @@
 //eric, added absValue 11.04.2002
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: general.lib,v 1.62 2009-04-15 11:46:39 Singular Exp $";
+version="$Id: general.lib,v 1.63 2009-07-10 18:52:05 motsak Exp $";
 category="General purpose";
 info="
@@ -765 +765 @@
       if ( typeof(#[1])=="string" )
       {
+         if( typeof(id)=="matrix" )
+         {
+           module ID = lead(module(id));
+         } else
+         {
+           def ID = lead(id);
+         }
          execute("ring r1 =("+charstr(P)+"),("+varstr(P)+"),("+#[1]+");");
-         def i = imap(P,id);
+         def i = imap(P,ID);
          v = sortvec(i);
          setring P;