scm: Bugfix display of named characters: add port.
[mes.git] / module / mes / display.mes
index 31a0c5f8af2828b1a979dfbcdee48dd554a01607..139d8e98f610ec760a1e9be7c2d389dfdfe2f31d 100644 (file)
@@ -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)