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

remove debugging code

Browse Source 
svn: r12545
This commit is contained in:
Matthew Flatt 2008-11-20 20:45:02 +00:00
parent 746184ef5a
commit accd20a8ed
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mzscheme/src/read.c
View File

@ -4371,8 +4371,6 @@ static Scheme_Object *read_compact_k(void)
return read_compact(port, p->ku.k.i1); return read_compact(port, p->ku.k.i1);
} }
int dump_info = 0;
static Scheme_Object *read_compact(CPort *port, int use_stack) static Scheme_Object *read_compact(CPort *port, int use_stack)
{ {
#define BLK_BUF_SIZE 32 #define BLK_BUF_SIZE 32
@ -4398,9 +4396,6 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
ZO_CHECK(port->pos < port->size); ZO_CHECK(port->pos < port->size);
ch = CP_GETC(port); ch = CP_GETC(port);
if (dump_info)
printf("%d %d %d\n", ch, port->pos, need_car);
switch(cpt_branch[ch]) { switch(cpt_branch[ch]) {
case CPT_ESCAPE: case CPT_ESCAPE:
{ {
@ -4456,8 +4451,6 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
case CPT_SYMREF: case CPT_SYMREF:
l = read_compact_number(port); l = read_compact_number(port);
RANGE_CHECK(l, < port->symtab_size); RANGE_CHECK(l, < port->symtab_size);
if (dump_info)
printf("%d\n", l);
v = port->symtab[l]; v = port->symtab[l];
if (!v) { if (!v) {
long save_pos = port->pos; long save_pos = port->pos;
@ -5268,7 +5261,6 @@ static Scheme_Object *read_compiled(Scheme_Object *port,
len = symtabsize; len = symtabsize;
for (j = 1; j < len; j++) { for (j = 1; j < len; j++) {
if (!symtab[j]) { if (!symtab[j]) {
if (dump_info) printf("at %ld %ld\n", j, rp->pos);
v = read_compact(rp, 0); v = read_compact(rp, 0);
symtab[j] = v; symtab[j] = v;
} else { } else {