Changeset 2d4638 in git for Singular/iparith.cc

Timestamp:

Mar 9, 1999, 3:13:57 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'a719bcf0b8dbc648b128303a49777a094b57592c')

Children:

b19380134f922cde04d5eaaa0618c77039c732cf

Parents:

d78e6e2c82ab8bd96284f77386c71eff6908b71a

Message:

*hannes: fixed error message for maps


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

File:

• Singular/iparith.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.131 1999-03-09 12:26:20 obachman Exp $ */
+/* $Id: iparith.cc,v 1.132 1999-03-09 14:13:41 Singular Exp $ */
 
 /*
@@ -1335 +1335 @@
   //Print("try to map %s with %s\n",$3.Name(),$1.Name());
   leftv sl=NULL;
-  if (v->e==NULL)
+  if ((v->e==NULL)&&(v->name!=NULL))
   {
     map m=(map)u->Data();
     sl=iiMap(m,v->name);
   }
-  //else
-  //{
-  //  WerrorS("map_id(<name>) expected");
-  //}
+  else
+  {
+    Werror("%s(<name>) expected",u->Nmae());
+  }
   if (sl==NULL) return TRUE;
   memcpy(res,sl,sizeof(sleftv));