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

fix stack-overflow handing lin the compiler's letrec-check pass

Browse Source 
Closes #1621
This commit is contained in:
Matthew Flatt 2017-02-27 09:43:59 -07:00
parent f19d655cbc
commit d08a4cddfb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/letrec_check.c
View File

@ -1000,7 +1000,7 @@ static Scheme_Object *letrec_check_k(void)
{
Scheme_Thread *p = scheme_current_thread;
Scheme_Object *expr = (Scheme_Object *)p->ku.k.p1;
Letrec_Check_Frame *frame = (Letrec_Check_Frame *)p->ku.k.p3;
Letrec_Check_Frame *frame = (Letrec_Check_Frame *)p->ku.k.p2;
Scheme_Object *pos = (Scheme_Object *)p->ku.k.p3;
p->ku.k.p1 = NULL;