This is an automated email from the git hooks/post-receive script.
wingo pushed a commit to branch main
in repository guile.
The following commit(s) were added to refs/heads/main by this push:
new b5bedf74a Fix missing port in `pretty-print'
b5bedf74a is described below
commit b5bedf74ad796557f9a5c08c6afdb1ec6a5a78ab
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Wed Sep 6 16:28:45 2023 +0200
Fix missing port in `pretty-print'
* module/ice-9/pretty-print.scm (pretty-print): We were defaulting to
the current output port.
---
module/ice-9/pretty-print.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/ice-9/pretty-print.scm b/module/ice-9/pretty-print.scm
index 4b403370c..7a649a4f0 100644
--- a/module/ice-9/pretty-print.scm
+++ b/module/ice-9/pretty-print.scm
@@ -302,7 +302,7 @@ port directly after OBJ, like (pretty-print OBJ PORT)."
(put-string port per-line-prefix)
(pr obj pp-expr)
- (newline)
+ (newline port)
;; Return `unspecified'
(if #f #f))
