mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

pretty-print: width arg is never false

Browse source 
* 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
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/ice-9/pretty-print.scm
View file

@ -288,11 +288,8 @@
(pr obj pp-expr)) (pr obj pp-expr))
(put-string port per-line-prefix) (put-string port per-line-prefix)
(if width
(begin
(pp obj) (pp obj)
(newline)) (newline)
(wr obj port))
;; Return `unspecified' ;; Return `unspecified'
(if #f #f)) (if #f #f))