From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 19 May 2018 22:06:29 +0000 (-0700)
Subject: Fix typo in DISPLAY.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~29
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=beb6df488a6c90ce150f2c82207c22dc4ad2b0e8;p=mit-scheme.git

Fix typo in DISPLAY.
---

diff --git a/src/runtime/output-port.scm b/src/runtime/output-port.scm
index eac2b497a..ab31da3a9 100644
--- a/src/runtime/output-port.scm
+++ b/src/runtime/output-port.scm
@@ -129,7 +129,7 @@ USA.
 	(output-port/discretionary-flush port))))
 
 (define (display object #!optional port)
-  (%write object port #t #f 'display))
+  (%write object port #f #f 'display))
 
 (define (write object #!optional port)
   (%write object port #t 'circularity 'write))