diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 3 | ||||
| -rw-r--r-- | lib/util.mli | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index f3b7c99e90..ce98d32349 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -22,6 +22,9 @@ let errorlabstrm l pps = raise (UserError(l,pps)) exception AnomalyOnError of string * exn +exception AlreadyDeclared of std_ppcmds (* for already declared Schemes *) +let alreadydeclared pps = raise (AlreadyDeclared(pps)) + let todo s = prerr_string ("TODO: "^s^"\n") exception Timeout diff --git a/lib/util.mli b/lib/util.mli index 80f2fda380..810e6f0c77 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -26,6 +26,9 @@ exception UserError of string * std_ppcmds val error : string -> 'a val errorlabstrm : string -> std_ppcmds -> 'a +exception AlreadyDeclared of std_ppcmds +val alreadydeclared : std_ppcmds -> 'a + exception AnomalyOnError of string * exn (* [todo] is for running of an incomplete code its implementation is |