diff options
Diffstat (limited to 'src/Errors.ml')
-rw-r--r-- | src/Errors.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Errors.ml b/src/Errors.ml index dcdc9102..b9263d5a 100644 --- a/src/Errors.ml +++ b/src/Errors.ml @@ -3,3 +3,7 @@ exception IntegerOverflow of unit exception Unimplemented of string let unimplemented msg = raise (Unimplemented ("unimplemented: " ^ msg)) + +exception Unreachable of string + +let unreachable msg = raise (Unreachable ("unreachable: " ^ msg)) |