Changeset 73c183 in git

Timestamp:

Jan 30, 2003, 3:55:01 PM (21 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

f93c1c0e645bbb7a98fd80559cdcfe7e08465c20

Parents:

a9a5cf8eadb761104cf87f73df7709af4d147846

Message:

*hannes: use rField for filed detection


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

File:

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

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.80 2002-11-08 13:28:44 Singular Exp $
+// $Id: clapsing.cc,v 1.81 2003-01-30 14:55:01 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -768 +768 @@
       CanonicalForm F( convSingAPClapAP( f,a ) );
       L.insert(F);
-      if ((nGetChar()<(-1)) && F.isUnivariate())
+      if (rField_is_Zp_a() && F.isUnivariate())
       {
         L = factorize( F, a );
@@ -787 +787 @@
 #else
         WarnS("complete factorization only for univariate polynomials");
-        if ((nGetChar()==1)||(!F.isUnivariate()) /* Q(a) */
+        if (rField_is_Q_a()||(!F.isUnivariate()) /* Q(a) */
         {
           L = factorize( G );