diff options
Diffstat (limited to 'src/interp/i-coerfn.boot')
-rw-r--r-- | src/interp/i-coerfn.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-coerfn.boot b/src/interp/i-coerfn.boot index 93a7afd1..b2d46aee 100644 --- a/src/interp/i-coerfn.boot +++ b/src/interp/i-coerfn.boot @@ -1284,7 +1284,7 @@ Sm2PolyType(u,source is [sm,n,S], target is [pol,vl,T]) == -- first want to check case S is Polynomial S is ['Polynomial,S'] => -- check to see if variable occurs in any of the terms - if atom vl + if vl isnt [.,:.] then vl' := [vl] else vl' := vl novars := true |