Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-13 07:47:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #90 - Check for cdr being a value type

Browse source 
Also cleaned up the display/write pair printing code a bit by using Cyc_is_pair.
This commit is contained in:
Justin Ethier 2016-08-10 17:50:56 -04:00
parent 4595e85f5e
commit bb2a3bb031
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -751,7 +751,7 @@ object Cyc_display(object x, FILE * port)
break; break;
} }
for (tmp = cdr(x); tmp && ((closure) tmp)->tag == pair_tag; tmp = cdr(tmp)) { for (tmp = cdr(x); Cyc_is_pair(tmp) == boolean_t; tmp = cdr(tmp)) {
if (has_cycle == boolean_t) { if (has_cycle == boolean_t) {
if (i++ > 20) if (i++ > 20)
break; /* arbitrary number, for now */ break; /* arbitrary number, for now */
@ -875,7 +875,7 @@ static object _Cyc_write(object x, FILE * port)
break; break;
} }
for (tmp = cdr(x); tmp && !is_value_type(tmp) && ((closure) tmp)->tag == pair_tag; tmp = cdr(tmp)) { for (tmp = cdr(x); Cyc_is_pair(tmp) == boolean_t; tmp = cdr(tmp)) {
if (has_cycle == boolean_t) { if (has_cycle == boolean_t) {
if (i++ > 20) if (i++ > 20)
break; /* arbitrary number, for now */ break; /* arbitrary number, for now */