aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/outform.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/outform.spad.pamphlet')
-rw-r--r--src/algebra/outform.spad.pamphlet3
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))