diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-08 13:27:24 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-08 13:27:24 +0000 |
commit | d982979c98f7a87c5ee8e5a84acc1bde09a53bf5 (patch) | |
tree | 463a5b452e763f79d2ee8732a4120c71ddd05a99 /src/algebra | |
parent | 5ab1bb2721c9fdf77e6fa530523f5044b8445880 (diff) | |
download | open-axiom-d982979c98f7a87c5ee8e5a84acc1bde09a53bf5.tar.gz |
* interp/boot-pkg.lisp (DFLOAT-FORMAT-GENERAL): New.
Diffstat (limited to 'src/algebra')
-rw-r--r-- | src/algebra/outform.spad.pamphlet | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/algebra/outform.spad.pamphlet b/src/algebra/outform.spad.pamphlet index 0ac9ba49..a945b424 100644 --- a/src/algebra/outform.spad.pamphlet +++ b/src/algebra/outform.spad.pamphlet @@ -519,7 +519,8 @@ OutputForm(): SetCategory with outputForm(f:DoubleFloat) == -- ??? this really should be rendered in as a sequence of -- ??? OutputForm bytecodes, not hardcoded here. - FORMAT(NIL$Lisp,format,f)$Lisp + -- ??? FORMAT(NIL$Lisp,format,f)$Lisp + DFLOAT_-FORMAT_-GENERAL(f)$Lisp outputForm s == sform concat(quote()$Character, concat(s, quote()$Character)) |