diff options
Diffstat (limited to 'src/interp/clammed.boot')
-rw-r--r-- | src/interp/clammed.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/clammed.boot b/src/interp/clammed.boot index 9cf3d5c4..a1798e3a 100644 --- a/src/interp/clammed.boot +++ b/src/interp/clammed.boot @@ -164,7 +164,7 @@ isLegitimateMode(t,hasPolyMode,polyVarList) == null t => true -- a terminating condition with underDomainOf t = $EmptyMode => true string? t => true - ATOM t => false + atom t => false badDoubles := CONS($QuotientField, '(Gaussian Complex Polynomial Expression)) t is [T1, [T2, :.]] and T1 = T2 and member(T1, badDoubles) => false |