core: core:cdr: Support port type.

* src/mes.c (cdr_): Support port type. * mes/module/mes/display.mes (display): Add space between fields.
2018-10-15 12:28:02 +02:00 · 2018-10-15 12:28:02 +02:00 · 2d882ee7bb
parent 3e5d775b3b
commit 2d882ee7bb
2 changed files with 2 additions and 0 deletions
--- a/mes/module/mes/display.mes
+++ b/mes/module/mes/display.mes
@ -115,6 +115,7 @@
       ((port? x)
        (display "#<port " port)
        (display (core:cdr x) port)
+        (display " ")
        (display (core:car x) port)
        (display ">" port))
       ((variable? x)
--- a/src/mes.c
+++ b/src/mes.c
@ -447,6 +447,7 @@ cdr_ (SCM x)
 {
  return (TYPE (x) != TCHAR
          && TYPE (x) != TNUMBER
+          && TYPE (x) != TPORT
          && (TYPE (CDR (x)) == TPAIR
              || TYPE (CDR (x)) == TREF
              || TYPE (CDR (x)) == TSPECIAL