From a75a195654f28c489cd67adef6fbf1949471115c Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 8 Feb 2009 19:11:58 +0000
Subject: [PATCH] Fixed a bug in the flow utils code that was using the old
 name stack when removing an element

---
 flow/FlowUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/flow/FlowUtils.hs b/flow/FlowUtils.hs
index df4431b..5e5f4f8 100644
--- a/flow/FlowUtils.hs
+++ b/flow/FlowUtils.hs
@@ -229,7 +229,7 @@ withDeclName n m = do st <- get
                       put $ st {nameStack = n : nameStack st}
                       x <- m
                       st' <- get
-                      put $ st' {nameStack = tail $ nameStack st}
+                      put $ st' {nameStack = tail $ nameStack st'}
                       return x
 
 withDeclSpec :: (Monad mLabel, Monad mAlter) =>