1
Fork 0
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:
Andy Wingo 2023-06-02 21:46:17 +02:00
parent 29a9f26a36
commit 75f96e825c

View file

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