wingo pushed a commit to branch main
in repository guile.
commit 75f96e825c73ca77929077489c29126cf860d530
Author: Andy Wingo <[email protected]>
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))
