mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Use ellipsis character in truncated pretty-print of sequences

Browse source 
* module/ice-9/pretty-print.scm (print-sequence): use ellipsis when available
This commit is contained in:
Michael Gran 2010-11-08 18:57:29 -08:00
parent bf61ca3302
commit 8a6b693817
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/pretty-print.scm
View file

@ -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)))