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

remove debugging temporary

Browse Source
This commit is contained in:
Matthew Flatt 2018-03-07 06:10:05 -07:00
parent d8dce77984
commit 3861da41ed
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3354,13 +3354,12 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
break;
case CPT_SMALL_APPLICATION_START:
{
int c, i, start;
int c, i;
Scheme_App_Rec *a;
c = (ch - CPT_SMALL_APPLICATION_START) + 1;
a = scheme_malloc_application(c);
start = port->start[port->pos];
for (i = 0; i < c; i++) {
v = read_compact(port, 1);
a->args[i] = v;