diff options
Diffstat (limited to 'src/interp/clammed.boot')
| -rw-r--r-- | src/interp/clammed.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/clammed.boot b/src/interp/clammed.boot index e19e03ba..9894f53b 100644 --- a/src/interp/clammed.boot +++ b/src/interp/clammed.boot @@ -100,7 +100,7 @@ isValidType form == form is [T1, [T2, :.]] and T1 = T2 and member(T1, badDoubles) => NIL form is [=$QuotientField,D] and not isPartialMode(D) and - ofCategory(D,'(Field)) => NIL + ofCategory(D,$Field) => NIL form is ['UnivariatePolynomial, x, ['UnivariatePolynomial, y, .]] and x=y => NIL form = '(Complex (AlgebraicNumber)) => NIL @@ -170,7 +170,7 @@ isLegitimateMode(t,hasPolyMode,polyVarList) == t is [T1, [T2, :.]] and T1 = T2 and member(T1, badDoubles) => false t is [=$QuotientField,D] and not isPartialMode(D) and - ofCategory(D,'(Field)) => false + ofCategory(D,$Field) => false t = '(Complex (AlgebraicNumber)) => false t := equiType t |