diff options
Diffstat (limited to 'src/algebra/algfunc.spad.pamphlet')
| -rw-r--r-- | src/algebra/algfunc.spad.pamphlet | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/algebra/algfunc.spad.pamphlet b/src/algebra/algfunc.spad.pamphlet index 5cb93af1..ca14074d 100644 --- a/src/algebra/algfunc.spad.pamphlet +++ b/src/algebra/algfunc.spad.pamphlet @@ -89,7 +89,9 @@ AlgebraicallyClosedField(): Category == Join(Field,RadicalCategory) with rootsOf(p:SUP) == rootsOf(p, new()) rootsOf(p:SUP, y:Symbol) == allroots(p, y, rootOf) zerosOf(p:SUP, y:Symbol) == allroots(p, y, zeroOf) - assign(x, f) == (assignSymbol(x, f, $)$Lisp; f) + assign(x, f) == + assignSymbol(x, f, $)$Foreign(Builtin) + f zeroOf(p:Polynomial $) == empty?(l := variables p) => error "zeroOf: constant polynomial" |