Fix typo in DISPLAY.

diff --git a/src/runtime/output-port.scm b/src/runtime/output-port.scm
index eac2b497aaaa595b650c90ee45b8ebcc2394b3bf..ab31da3a92417641a0f3ef43e40d4c0876540a83 100644 (file)
--- 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))