Changeset 88b2dd in git

Timestamp:

Jun 20, 2006, 4:37:45 PM (17 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

0266acf035e867ba3e767b7d865bb68b4ab24eca

Parents:

808a9f36d059cef6d1e3c3a667ee4d5a37a5a4eb

Message:

*motsak: bug fixed (lists are sometimes globa and sometimes local!?!)


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

File:

• Singular/LIB/perron.lib (modified) (3 diffs)

Singular/LIB/perron.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: perron.lib,v 1.3 2006-05-05 14:37:36 motsak Exp $";
+version="$Id: perron.lib,v 1.4 2006-06-20 14:37:45 motsak Exp $";
 category="Noncommutative";
 info="
@@ -96 +96 @@
     
   def CurrentField = ringlist( NCRING )[1]; 
+  
+//  CurrentField;
     
   // We are going to construct a commutative ring in N variables F(i), 
@@ -103 +105 @@
     
   list RingList = ringlist( TEMPRING );
-  RingList[1] = CurrentField; 
+  
+  setring NCRING;
+  
+  
+  if( !defined(RingList) )
+  {
+    list RingList = imap( TEMPRING, RingList );   
+  }
+  
+
+  RingList[1] = CurrentField;   
+  
+//  RingList;
     
   // New Commutative Ring with correct field!