scm: Bugfix display of named characters: add port.

* module/mes/display.mes (display): Typo, add port.

diff --git a/module/mes/display.mes b/module/mes/display.mes
index 31a0c5f8af2828b1a979dfbcdee48dd554a01607..139d8e98f610ec760a1e9be7c2d389dfdfe2f31d 100644 (file)
--- a/module/mes/display.mes
+++ b/module/mes/display.mes
@@ -77,7 +77,7 @@
                                cdr)))
               (write-char #\# port)
               (write-char #\\ port)
-              (if name (display name)
+              (if name (display name port)
                   (write-char x port)))))
        ((closure? x)
         (display "#<procedure " port)