Changeset 9f12b01 in git

Timestamp:

Jan 7, 2002, 6:22:10 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

18ae159f1392067b5a2b51e34a5895b6044f3d59

Parents:

7f68b21764b2218cfc395c344a47068ca0a331a9

Message:

*hannes: ...


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

Location:

Singular

Files:

• ipassign.cc (modified) (2 diffs)
• iplib.cc (modified) (2 diffs)

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.63 2001-02-22 09:40:17 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.64 2002-01-07 17:22:10 Singular Exp $ */
 
 /*
@@ -866 +866 @@
       L->Clean();
       Werror("`%s` is undefined",h->Fullname());
+      //listall();
       goto err;
     }

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.94 2001-11-14 17:13:25 greuel Exp $ */
+/* $Id: iplib.cc,v 1.95 2002-01-07 17:22:10 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -530 +530 @@
       err=TRUE;
     }
+    currRing=iiLocalRing[myynest];
   }
   if ((currRing!=NULL) &&
-    ((currRingHdl==NULL)||(IDRING(currRingHdl)!=currRing)))
+    ((currRingHdl==NULL)||(IDRING(currRingHdl)!=currRing)
+     ||(IDLEV(currRingHdl)>=myynest)))
   {
     rSetHdl(rFindHdl(currRing,NULL, NULL));