Use ellipsis character in truncated pretty-print of sequences

* module/ice-9/pretty-print.scm (print-sequence): use ellipsis when available

diff --git a/module/ice-9/pretty-print.scm b/module/ice-9/pretty-print.scm
index c1d3b36..5ea66c7 100644 (file)
--- a/module/ice-9/pretty-print.scm
+++ b/module/ice-9/pretty-print.scm
@@ -337,7 +337,7 @@ sub-expression, via the @var{breadth-first?} keyword argument."
            ((and (= i (1- len)) (or (zero? i) (> width 1)))
             (print (ref x i) (if (zero? i) width (1- width))))
            ((<= width (+ 1 ellipsis-width))
-            (display "..."))
+            (display ellipsis))
            (else
             (let ((str
                    (with-fluids ((%default-port-encoding (port-encoding port)))