core: core:cdr: Support port type.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 15 Oct 2018 10:28:02 +0000 (12:28 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 15 Oct 2018 10:28:02 +0000 (12:28 +0200)
* src/mes.c (cdr_): Support port type.
* mes/module/mes/display.mes (display): Add space between fields.

mes/module/mes/display.mes
src/mes.c

index 9ddedf020096dda2799f05182e972ff17fbfd183..751db4371b76ef85ca238bc7d91bd560386f024d 100644 (file)
        ((port? x)
         (display "#<port " port)
         (display (core:cdr x) port)
+        (display " ")
         (display (core:car x) port)
         (display ">" port))
        ((variable? x)
index 2a1ca1ecf8652ff67821b9301ef3c53fd267e92a..0f34ba1187f2deffb51628bf598a87bc851128f8 100644 (file)
--- 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