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 b4927b8f..0f84aac3 100644 --- a/src/interp/clammed.boot +++ b/src/interp/clammed.boot @@ -210,7 +210,7 @@ isLegitimateMode(t,hasPolyMode,polyVarList) == underDomainOf t == t = $RationalNumber => $Integer - not PAIRP t => NIL + atom t => NIL d := deconstructT t 1 = #d => NIL u := getUnderModeOf(t) => u |