diff options
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 3 |
1 files changed, 3 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 |