From d08a4cddfb675567c8d9ebcb87113796f4d85a80 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 27 Feb 2017 09:43:59 -0700
Subject: [PATCH] fix stack-overflow handing lin the compiler's `letrec`-check
 pass

Closes #1621
---
 racket/src/racket/src/letrec_check.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/letrec_check.c b/racket/src/racket/src/letrec_check.c
index 3bbacb677d..58c050c504 100644
--- a/racket/src/racket/src/letrec_check.c
+++ b/racket/src/racket/src/letrec_check.c
@@ -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;