Skip to content
Browse files

[hoopl] fix a bug

  • Loading branch information...
1 parent 1a70b51 commit 7bf5ef949e7bb893a680819fcf4105fb6dc20bb6 @pmurias pmurias committed Apr 25, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 hoopl/Nam.hs
View
2 hoopl/Nam.hs
@@ -41,7 +41,7 @@ withVars vars action = do
state <- get
put state{letVars=foldl (\m (name,reg) -> Map.insert name reg m) (letVars state) vars}
result <- action
- put state
+ modify(\s -> s{letVars=letVars state})
return result
simple val = return $ (emptyGraph,val)

0 comments on commit 7bf5ef9

Please sign in to comment.
Something went wrong with that request. Please try again.