mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
pretty-print: width arg is never false
* module/ice-9/pretty-print.scm (generic-write): width is never false.
This commit is contained in:
parent
29a9f26a36
commit
75f96e825c
1 changed files with 2 additions and 5 deletions
|
@ -288,11 +288,8 @@
|
|||
(pr obj pp-expr))
|
||||
|
||||
(put-string port per-line-prefix)
|
||||
(if width
|
||||
(begin
|
||||
(pp obj)
|
||||
(newline))
|
||||
(wr obj port))
|
||||
(pp obj)
|
||||
(newline)
|
||||
;; Return `unspecified'
|
||||
(if #f #f))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue