From beb6df488a6c90ce150f2c82207c22dc4ad2b0e8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 19 May 2018 15:06:29 -0700
Subject: [PATCH] Fix typo in DISPLAY.

---
 src/runtime/output-port.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
-- 
2.25.1