Fix typo: call-with-output-string procedure takes a port.

(cherry picked from commit 3f1e2e7f466b58ac60c7b0e10f4114a757642114)

diff --git a/src/edwin/debug.scm b/src/edwin/debug.scm
index 3f892c037648a6eea934af30357efceaf9911ced..896476821ee252734fb95957c5b78eb5afa46359 100644 (file)
--- a/src/edwin/debug.scm
+++ b/src/edwin/debug.scm
@@ -1588,7 +1588,7 @@ once it has been renamed, it will not be deleted automatically.")
                         (string-length separator))))
                 (write-string (string-tail
                                (call-with-output-string
-                                 (lambda ()
+                                 (lambda (port)
                                    (pretty-print value port #t indentation)))
                                indentation)
                               port))))))