Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix crash when cdr is a value type

Browse source
This commit is contained in:
Justin Ethier 2016-05-03 00:10:59 -04:00
parent d77b94d89c
commit 730fdb3111
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -789,7 +789,7 @@ static object _Cyc_write(object x, FILE * port)
break; break;
} }
for (tmp = cdr(x); tmp && ((closure) tmp)->tag == pair_tag; tmp = cdr(tmp)) { for (tmp = cdr(x); tmp && !is_value_type(tmp) && ((closure) tmp)->tag == pair_tag; 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 */