summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--stdlib/compiler.tl3
1 files changed, 3 insertions, 0 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl
index 423403e7..58685741 100644
--- a/stdlib/compiler.tl
+++ b/stdlib/compiler.tl
@@ -2499,6 +2499,9 @@
(defun dump-to-tlo (out-stream out)
(let* ((*print-circle* t)
+ (*print-base* 10)
+ (*print-flo-format* "~s")
+ (*print-flo-precision* flo-max-dig)
(*package* (sys:make-anon-package))
(out-forms (partition* out.(get) (op where (op eq :fence)))))
(prinl %tlo-ver% out-stream)