From 86a5494a7187d226750c7cf49ce2c6505ec87079 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 17 May 2011 05:01:33 +0000 Subject: cleanup --- src/algebra/algfunc.spad.pamphlet | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/algebra/algfunc.spad.pamphlet') 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" -- cgit v1.2.3