diff options
| -rw-r--r-- | src/credit_flow.erl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/credit_flow.erl b/src/credit_flow.erl index ec9b2c36..8f1d4d00 100644 --- a/src/credit_flow.erl +++ b/src/credit_flow.erl @@ -56,6 +56,9 @@ %% closure creation a HOF would introduce -define(UPDATE(Key, Default, Var, Expr), begin + %% We delibarately allow Var to escape from the case here + %% to be used in Expr. Any temporary var we introduced + %% would also escape, and might conflict. case get(Key) of undefined -> Var = Default; Var -> ok |