[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/05: pretty-print: width arg is never false
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/05: pretty-print: width arg is never false |
Date: |
Fri, 2 Jun 2023 16:29:49 -0400 (EDT) |
wingo pushed a commit to branch wip-custom-ports
in repository guile.
commit 98f18b2bfed5e614f08e2f9f39bf28c5a1707546
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))