suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing warning

Browse Source
This commit is contained in:
Jay McCarthy 2010-11-01 10:23:19 -06:00
parent 7c452ad7ea
commit 51f56c84f6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/src/read.c
View File

@ -4738,13 +4738,13 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
l = read_compact_number(port); l = read_compact_number(port);
RANGE_CHECK(l, < port->symtab_size); RANGE_CHECK(l, < port->symtab_size);
v = port->symtab[l]; v = port->symtab[l];
if (v == -1) { if (v == (Scheme_Object *)-1) {
// there is a cycle // there is a cycle
scheme_ill_formed_code(port); scheme_ill_formed_code(port);
}; };
if (!v) { if (!v) {
long save_pos = port->pos; long save_pos = port->pos;
port->symtab[l] = -1; /* avoid cycles if marshaled form is broken: */ port->symtab[l] = (Scheme_Object *)-1; /* avoid cycles if marshaled form is broken: */
port->pos = port->shared_offsets[l - 1]; port->pos = port->shared_offsets[l - 1];
v = read_compact(port, 0); v = read_compact(port, 0);
port->pos = save_pos; port->pos = save_pos;