From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 18 May 2017 01:05:27 +0000 (-0700)
Subject: world-report: missing PORT in call to write-string
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~44
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=172084bf5a47158805fa0efb4bfb31569d784ec7;p=mit-scheme.git

world-report: missing PORT in call to write-string
---

diff --git a/src/runtime/world-report.scm b/src/runtime/world-report.scm
index 30729f24d..2edea1b64 100644
--- a/src/runtime/world-report.scm
+++ b/src/runtime/world-report.scm
@@ -103,7 +103,7 @@ USA.
 	(write-size "Heap:     " 6 4) ; heap_alloc_limit - heap_start
 	(newline port)
 	(write-size "Free:     " 6 5) ; heap_alloc_limit - Free
-	(write-string "  ")
+	(write-string "  " port)
 	(write-free-bar status 32 port)
 	(newline port)
 	(let loop ((i 0)