andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: core:cdr: Support port type. 

* src/mes.c (cdr_): Support port type.
* mes/module/mes/display.mes (display): Add space between fields.
This commit is contained in:
Jan Nieuwenhuizen 2018-10-15 12:28:02 +02:00
parent 3e5d775b3b
commit 2d882ee7bb
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
mes/module/mes/display.mes
View File

@ -115,6 +115,7 @@
((port? x) ((port? x)
(display "#<port " port) (display "#<port " port)
(display (core:cdr x) port) (display (core:cdr x) port)
(display " ")
(display (core:car x) port) (display (core:car x) port)
(display ">" port)) (display ">" port))
((variable? x) ((variable? x)

1
src/mes.c
View File

@ -447,6 +447,7 @@ cdr_ (SCM x)
{ {
return (TYPE (x) != TCHAR return (TYPE (x) != TCHAR
&& TYPE (x) != TNUMBER && TYPE (x) != TNUMBER
&& TYPE (x) != TPORT
&& (TYPE (CDR (x)) == TPAIR && (TYPE (CDR (x)) == TPAIR
|| TYPE (CDR (x)) == TREF || TYPE (CDR (x)) == TREF
|| TYPE (CDR (x)) == TSPECIAL || TYPE (CDR (x)) == TSPECIAL