diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-30 14:29:39 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-30 14:29:39 +0000 |
| commit | e52a9fa8835eddf70d0c8e454470fb12eebef7cd (patch) | |
| tree | c78de69bd77ada9fe1eb6cbf58544c7c6b3e86e8 /interp | |
| parent | a3b23be4009e8b15dc0fd90d849445f35f759e3d (diff) | |
Parsing du moins unaire au niveau de l'application qui n'a pas besoin d'etre associative a gauche; gestion du signe dans le parseur pas dans l'interpreteur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4745 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 66851e70e..97790d363 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -586,9 +586,6 @@ let internalise sigma env allow_soapp lvar c = | CLetIn (loc,(_,na),c1,c2) -> RLetIn (loc, na, intern (reset_tmp_scope env) c1, intern (push_name_env lvar env na) c2) - | CNotation (loc,"- _",[CNumeral(_,Bignat.POS p)]) -> - let scopes = option_cons tmp_scope scopes in - Symbols.interp_numeral loc (Bignat.NEG p) scopes | CNotation (loc,ntn,args) -> let scopes = option_cons tmp_scope scopes in let (ids,c) = Symbols.interp_notation ntn scopes in |