From 5646c26ba9aabc80d07e9d898f1f96afc49f9757 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 8 Jan 2007 07:18:02 +0000
Subject: [PATCH] fix meta-continuation depth when cloning

svn: r5260
---
 src/mzscheme/src/fun.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 61d537ee4b..899a20fb50 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -3917,7 +3917,7 @@ static Scheme_Meta_Continuation *clone_meta_cont(Scheme_Meta_Continuation *mc,
   else
     depth = 0;
   for (naya = first; cnt--; naya = naya->next) {
-    first->depth = depth + cnt;
+    naya->depth = depth + cnt;
   }
 
   return first;