[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. release_1-9-13-34-gbf
From: |
Mike |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-13-34-gbf61ca3 |
Date: |
Mon, 08 Nov 2010 16:49:25 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=bf61ca33025b8d75f72c41059e9f168a62d71a8f
The branch, master has been updated
via bf61ca33025b8d75f72c41059e9f168a62d71a8f (commit)
from 289c3a6112171a2c951f92825e8f2dc8c080d642 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit bf61ca33025b8d75f72c41059e9f168a62d71a8f
Author: Mike <address@hidden>
Date: Mon Nov 8 08:52:04 2010 -0800
pretty-print print-sequence width error
Avoid the "expected a positive width" display error when printing
sequences with no width remaining.
* module/ice-9/pretty-print (print-sequence): test for zero width when
printing sequences
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/pretty-print.scm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/module/ice-9/pretty-print.scm b/module/ice-9/pretty-print.scm
index 8e4cbac..c1d3b36 100644
--- a/module/ice-9/pretty-print.scm
+++ b/module/ice-9/pretty-print.scm
@@ -334,7 +334,7 @@ sub-expression, via the @var{breadth-first?} keyword
argument."
(display #\space))
(cond
((= i len)) ; catches 0-length case
- ((= i (1- len))
+ ((and (= i (1- len)) (or (zero? i) (> width 1)))
(print (ref x i) (if (zero? i) width (1- width))))
((<= width (+ 1 ellipsis-width))
(display "..."))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-13-34-gbf61ca3,
Mike <=