[Guile-commits] 12/18: pretty-print: width arg is never false

[Andy Wingo]

wingo pushed a commit to branch main
in repository guile.

commit 75f96e825c73ca77929077489c29126cf860d530
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Fri Jun 2 21:46:17 2023 +0200

    pretty-print: width arg is never false
    
    * module/ice-9/pretty-print.scm (generic-write): width is never false.
---
 module/ice-9/pretty-print.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/module/ice-9/pretty-print.scm b/module/ice-9/pretty-print.scm
index 5ad25ca5f..f0385c204 100644
--- a/module/ice-9/pretty-print.scm
+++ b/module/ice-9/pretty-print.scm
@@ -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))