scm: Bugfix display of named characters: add port.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 27 Mar 2017 19:41:44 +0000 (21:41 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 27 Mar 2017 19:41:44 +0000 (21:41 +0200)
* module/mes/display.mes (display): Typo, add port.

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)