Changeset f913a2 in git

Timestamp:

Feb 12, 2004, 10:33:39 AM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

0652723e0f25e71bbda15c6e5a71a8a2f3376581

Parents:

5fde970cffef11bfb4ea1b5ce3b0972706a17b4e

Message:

*hannes: fixed export of ring-dep. lists


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

File:

• Singular/ipshell.cc (modified) (3 diffs)

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.84 2004-02-11 11:33:04 bricken Exp $ */
+/* $Id: ipshell.cc,v 1.85 2004-02-12 09:33:39 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1093 +1093 @@
   package rootpack = IDPACKAGE(roothdl);
 //  Print("iiInternalExport('%s',%d,%s->%s) typ:%d\n", v->name, toLev, IDID(currPackHdl),IDID(roothdl),v->Typ());
-  if (RingDependend(IDTYP(h)))
+  if ((RingDependend(IDTYP(h)))
+  || ((IDTYP(h)==LIST_CMD)
+     && (lRingDependend(IDLIST(h)))
+     )
+  )
   {
     //Print("// ==> Ringdependent set nesting to 0\n");
@@ -1162 +1166 @@
 {
   checkall();
-//      Print("iiExport1: pack=%s\n",IDID(root));
+  //  Print("iiExport1: pack=%s\n",IDID(root));
   BOOLEAN nok=FALSE;
   leftv rv=v;