From b5bedf74ad796557f9a5c08c6afdb1ec6a5a78ab Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 6 Sep 2023 16:28:45 +0200
Subject: [PATCH] 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))