diff options
| author | Thomas Bauereiss | 2017-08-15 14:25:28 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2017-08-24 17:43:30 +0100 |
| commit | 9ed113b1bc6a5209d32eb825759bb5789920ee86 (patch) | |
| tree | f2f6fa48b1657e4feaab2f3f564689518fe43316 /src/gen_lib | |
| parent | ea35b8540a67c80f5b0e777a8cac5367e87f2c1e (diff) | |
Improve and simplify handling of mutable local variables
Diffstat (limited to 'src/gen_lib')
| -rw-r--r-- | src/gen_lib/state.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gen_lib/state.lem b/src/gen_lib/state.lem index 4543bbcf..d5866cde 100644 --- a/src/gen_lib/state.lem +++ b/src/gen_lib/state.lem @@ -54,7 +54,7 @@ let exit _ s = [(Right (), s)] val early_return : forall 'regs 'r. 'r -> MR 'regs unit 'r let early_return r s = [(Right (Just r), s)] -val catch_early_return : forall 'regs 'a 'r. MR 'regs 'a 'a -> M 'regs 'a +val catch_early_return : forall 'regs 'a. MR 'regs 'a 'a -> M 'regs 'a let catch_early_return m s = List.map (function |