From a0d86c06f30818dc740be92b41d8b2aea674089f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 27 Jan 2008 02:22:52 +0000
Subject: [PATCH] prevent runaway inlining when a loop is combined with
 call-with-values

svn: r8427
---
 src/mzscheme/src/eval.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index 87fee130fe..24588f4076 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -2553,6 +2553,7 @@ Scheme_Object *scheme_optimize_apply_values(Scheme_Object *f, Scheme_Object *e,
       if (f_cloned) {
         app2->rator = f_cloned;
         app2->rand = cloned;
+        info->inline_fuel >>= 1; /* because we've already optimized the rand */
         return optimize_application2((Scheme_Object *)app2, info);
       }
     }