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 479d8ba5..022c31f9 100644 --- a/src/interp/clammed.boot +++ b/src/interp/clammed.boot @@ -166,7 +166,7 @@ isLegitimateMode(t,hasPolyMode,polyVarList) == null t => true -- a terminating condition with underDomainOf t = $EmptyMode => true string? t => true - atom t => false + t isnt [.,:.] => false badDoubles := [$QuotientField,:'(Gaussian Complex Polynomial Expression)] t is [T1, [T2, :.]] and T1 = T2 and member(T1, badDoubles) => false @@ -212,7 +212,7 @@ isLegitimateMode(t,hasPolyMode,polyVarList) == underDomainOf t == t = $RationalNumber => $Integer - atom t => nil + t isnt [.,:.] => nil d := deconstructT t 1 = #d => nil u := getUnderModeOf(t) => u |