diff options
| author | Alasdair Armstrong | 2017-08-29 18:00:51 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-08-29 18:00:51 +0100 |
| commit | 04c32956a50d2e0a2f62b02828e9b549854a2b8c (patch) | |
| tree | cbdaadcb1f11fa8c740378d7fa6a3e04b63f7802 /src/gen_lib/state.lem | |
| parent | 9cc9b5afff769b9185c6e6e4afad496d58d1a38d (diff) | |
| parent | 2300d45d6645faae3c00a183e80547c1a6cb9165 (diff) | |
Merge branch 'experiments' of https://bitbucket.org/Peter_Sewell/sail into experiments
Diffstat (limited to 'src/gen_lib/state.lem')
| -rw-r--r-- | src/gen_lib/state.lem | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/gen_lib/state.lem b/src/gen_lib/state.lem index 3cbcd4c8..d5866cde 100644 --- a/src/gen_lib/state.lem +++ b/src/gen_lib/state.lem @@ -1,6 +1,7 @@ open import Pervasives_extra open import Sail_impl_base open import Sail_values +open import Sail_operators_mwords (* 'a is result type *) @@ -53,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 |