aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/sf.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/sf.spad.pamphlet')
-rw-r--r--src/algebra/sf.spad.pamphlet3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/algebra/sf.spad.pamphlet b/src/algebra/sf.spad.pamphlet
index 1585af6a..745dc254 100644
--- a/src/algebra/sf.spad.pamphlet
+++ b/src/algebra/sf.spad.pamphlet
@@ -315,6 +315,7 @@ DoubleFloat(): Join(FloatingPointSystem, DifferentialRing, OpenMath,
import %fsech: % -> % from Foreign Builtin
import %fasinh: % -> % from Foreign Builtin
import %facsch: % -> % from Foreign Builtin
+ import %fcstpi: () -> % from Foreign Builtin
manexp: % -> MER
@@ -374,7 +375,7 @@ DoubleFloat(): Join(FloatingPointSystem, DifferentialRing, OpenMath,
1 == %i2f(1@Integer)
-- rational approximation to e accurate to 23 digits
exp1() == %i2f(534625820200) / %i2f(196677847971)
- pi() == PI$Lisp
+ pi() == %fcstpi()
coerce(x:%):OutputForm == outputForm x
convert(x:%):InputForm == convert(x pretend DoubleFloat)$InputForm
x < y == %flt(x,y)