Force the output to have a decimal point even when it can be written

without one.  This is explicitly required by the text of the report.

diff --git a/v7/src/runtime/dragon4.scm b/v7/src/runtime/dragon4.scm
index 1bf7478aa6f6fb8c128513d4ef0db18667f3a4d0..b694cce8ec5776ff02c4dcc69f547e2910f716b9 100644 (file)
--- a/v7/src/runtime/dragon4.scm
+++ b/v7/src/runtime/dragon4.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dragon4.scm,v 1.1 1989/10/26 06:49:01 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dragon4.scm,v 1.2 1989/10/30 22:36:38 cph Exp $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -53,20 +53,17 @@ MIT in each case. |#
                                   '()
                                   (cons (digit->char u radix)
                                         (generate loop)))))))
-                      (let ((k+1 (1+ k))
-                            (l (string-length digits)))
-                        (let ((k+1-l (- k+1 l))
+                      (let ((k+1 (1+ k)))
+                        (let ((k+1-l (- k+1 (string-length digits)))
                               (n (flo:significand-digits radix))
                               (scientific
                                (lambda ()
-                                 (let ((e (int:->string k radix)))
-                                   (if (= l 1)
-                                       (string-append digits "e" e)
-                                       (string-append (string-head digits 1)
-                                                      "."
-                                                      (string-tail digits 1)
-                                                      "e"
-                                                      e))))))                     (cond ((< k+1-l (- n))
+                                 (string-append (string-head digits 1)
+                                                "."
+                                                (string-tail digits 1)
+                                                "e"
+                                                (int:->string k radix)))))
+                          (cond ((< k+1-l (- n))
                                  (scientific))
                                 ((negative? k)
                                  (string-append "."