diff options
author | Stephane Glondu <steph@glondu.net> | 2012-03-27 07:43:43 +0200 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2012-03-27 07:45:11 +0200 |
commit | 6e34b272d789455a9be589e27ad3a998cf25496b (patch) | |
tree | 57b74c7cbafd705a1ebce7d16cdaec02b704fb44 /interp/topconstr.ml | |
parent | 5fe4ac437bed43547b3695664974f492b55cb553 (diff) | |
parent | 2bdcd093b357adb2185518dabbafd1a0b9279044 (diff) |
Remove non-DFSG contentsupstream/8.3.pl4+dfsg
Diffstat (limited to 'interp/topconstr.ml')
-rw-r--r-- | interp/topconstr.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index 2d4e41ec..bcd07aea 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: topconstr.ml 14641 2011-11-06 11:59:10Z herbelin $ *) +(* $Id: topconstr.ml 15072 2012-03-20 17:36:33Z herbelin $ *) (*i*) open Pp @@ -903,6 +903,12 @@ let names_of_local_binders bl = List.flatten (List.map (function LocalRawAssum(l,_,_)->l|LocalRawDef(l,_)->[l]) bl) (**********************************************************************) +(* Miscellaneous *) + +let error_invalid_pattern_notation loc = + user_err_loc (loc,"",str "Invalid notation for pattern.") + +(**********************************************************************) (* Functions on constr_expr *) let constr_loc = function |