diff options
Diffstat (limited to 'src/algebra/limitps.spad.pamphlet')
| -rw-r--r-- | src/algebra/limitps.spad.pamphlet | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/algebra/limitps.spad.pamphlet b/src/algebra/limitps.spad.pamphlet index 9e8b3b53..faf927cc 100644 --- a/src/algebra/limitps.spad.pamphlet +++ b/src/algebra/limitps.spad.pamphlet @@ -608,7 +608,7 @@ ElementaryFunctionSign(R,F): Exports == Implementation where --abort if there are any variables not empty? variables f => "failed" -- abort in the presence of algebraic numbers - member?(coerce("rootOf")::Symbol,map(name,operators f)$ListFunctions2(BasicOperator,Symbol)) => "failed" + member?('rootOf,map(name,operators f)$ListFunctions2(BasicOperator,Symbol)) => "failed" -- In the last resort try interval evaluation where feasible. if R has ConvertibleTo Float then import Interval(Float) @@ -726,6 +726,8 @@ ElementaryFunctionSign(R,F): Exports == Implementation where <<license>>= --Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. --All rights reserved. +--Copyright (C) 2007-2009, Gabriel Dos Reis. +--All rights reserved. -- --Redistribution and use in source and binary forms, with or without --modification, are permitted provided that the following conditions are |