Changeset 2956123 in git for Singular/ipassign.cc

Timestamp:

Nov 27, 2007, 12:55:57 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

75cc14327ff6bbef0829e0c49416e46b93cf4916

Parents:

e39be31d4d1a1a5bbf550483946495d37be70be5

Message:

*hannes: 3-0-4-1


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

File:

• Singular/ipassign.cc (modified) (5 diffs)

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.91 2007-09-12 09:53:01 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.92 2007-11-27 11:55:57 Singular Exp $ */
 
 /*
@@ -962 +962 @@
 }
 static BOOLEAN jjA_L_LIST(leftv l, leftv r)
-/* left side: list, has to be a "real" variable
+/* left side: list/def, has to be a "real" variable
 *  right side: expression list
 */
@@ -1008 +1008 @@
       }
   }
-  oldL=(lists)l->Data(); oldL->Clean();
+  oldL=(lists)l->Data(); 
+  if (oldL!=NULL) oldL->Clean();
   if (l->rtyp==IDHDL)
   {
     IDLIST((idhdl)l->data)=L;
+    IDTYP((idhdl)l->data)=LIST_CMD; // was possibly DEF_CMD
     ipMoveId((idhdl)l->data);
   }
@@ -1017 +1019 @@
   {
     l->LData()->data=L;
+    if ((l->e!=NULL) && (l->rtyp==DEF_CMD))
+      l->rtyp=LIST_CMD;
   }
 err:
@@ -1586 +1590 @@
       nok=jjA_L_STRING(l,r);
       break;
+    case DEF_CMD:
     case LIST_CMD:
       nok=jjA_L_LIST(l,r);