diff options
-rw-r--r-- | stdlib/compiler.tl | 3 |
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) |