Changeset 4ad0d6 in git for Singular/ipassign.cc

Timestamp:

Jul 21, 1998, 7:18:19 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0d09b74c44f80a4e38a69d9155eb393b81538ee7

Parents:

14236163c0be8d199836dd2bdc6edc8b993636d0

Message:

* hannes: fixes for TCL (qring,...)


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

File:

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

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.32 1998-07-07 16:10:17 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.33 1998-07-21 17:18:18 Singular Exp $ */
 
 /*
@@ -467 +467 @@
   if (qr->qideal!=NULL) idDelete(&qr->qideal);
   qr->qideal = (ideal)a->CopyD(IDEAL_CMD);
-  currRing=qr;
-  currRingHdl=(idhdl)res->data;
-  currQuotient=qr->qideal;
+  //currRing=qr;
+  //currRingHdl=(idhdl)res->data;
+  //currQuotient=qr->qideal;
+  rSetHdl((idhdl)res->data,TRUE);
   return FALSE;
 }