diff options
author | 2007-10-15 19:55:12 +0000 | |
---|---|---|
committer | 2007-10-15 19:55:12 +0000 | |
commit | ff1dde8f1585c92dd69a9a41ad709f15ef8936da (patch) | |
tree | e7e87fb5d549e0bf19785e54737a96ee4d9917d6 /parsing/q_coqast.ml4 | |
parent | a788b511487e6b748d5be35140a7ad2ca110936e (diff) | |
parent | 4767d724d489a7ad67f696e9401e70b9f9ae2143 (diff) |
Merge commit 'upstream/8.1.pl2+dfsg'
Diffstat (limited to 'parsing/q_coqast.ml4')
-rw-r--r-- | parsing/q_coqast.ml4 | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/parsing/q_coqast.ml4 b/parsing/q_coqast.ml4 index 23787f4c..9f828c96 100644 --- a/parsing/q_coqast.ml4 +++ b/parsing/q_coqast.ml4 @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: q_coqast.ml4 9551 2007-01-29 15:13:35Z bgregoir $ *) +(* $Id: q_coqast.ml4 10185 2007-10-06 18:05:13Z herbelin $ *) open Util open Names @@ -19,13 +19,18 @@ let purge_str s = if String.length s == 0 || s.[0] <> '$' then s else String.sub s 1 (String.length s - 1) +IFDEF OCAML308 THEN DEFINE NOP END +IFDEF OCAML309 THEN DEFINE NOP END +IFDEF CAMLP5 THEN DEFINE NOP END + let anti loc x = let e = let loc = - ifdef OCAML_308 then + IFDEF NOP THEN loc - else - (1, snd loc - fst loc) + ELSE + (1, snd loc - fst loc) + END in <:expr< $lid:purge_str x$ >> in <:expr< $anti:e$ >> |