fix bug in CPS inliner where params of a cont were not added to env.

ManticoreProject · Jan 15, 2019 · d5dfda2 · d5dfda2
1 parent 4105882
commit d5dfda2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/tools/mc/cps-opt/inline.sml b/src/tools/mc/cps-opt/inline.sml
@@ -398,11 +398,11 @@ structure Inline : sig
                   val env = extend(env, f)
 		  val e = doExp (env, e)
 		  fun doFB (C.FB{f, params, rets, body}) = let
-                      val env' = extend' (env, params)
-                      val env'' = extend' (env, rets)
+                      val env = extend' (env, params)
+                      val env = extend' (env, rets)
                   in
                       C.FB{f=f, params=params, rets=rets,
-			   body=doExp(env'', body)}
+			   body=doExp(env, body)}
                   end
 		  val fb = doFB fb
 		  val _ = setBinding(f, C.VK_Cont fb)