diff options
| author | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2002-02-04 08:40:07 +0000 |
|---|---|---|
| committer | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2002-02-04 08:40:07 +0000 |
| commit | 0f8b5fe510047b66127f76ef8f45af396f82db56 (patch) | |
| tree | cb9100dbc6dba9921bcf3399e94e98d935e2d107 | |
| parent | 70fe0aa3766661bdd461c7c18b37a89156db2750 (diff) | |
-
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4347 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | camlp4/meta/pa_ifdef.ml | 2 | ||||
| -rw-r--r-- | camlp4/ocaml_src/meta/pa_ifdef.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/camlp4/meta/pa_ifdef.ml b/camlp4/meta/pa_ifdef.ml index 5154ef809..4dd06c267 100644 --- a/camlp4/meta/pa_ifdef.ml +++ b/camlp4/meta/pa_ifdef.ml @@ -9,7 +9,7 @@ value list_remove x l = List.fold_right (fun e l -> if e = x then l else [e :: l]) l [] ; -value defined = ref ["OCAML_305"; "NEWSEQ"]; +value defined = ref ["OCAML_305"; "CAMLP4_300"; "NEWSEQ"]; value define x = defined.val := [x :: defined.val]; value undef x = defined.val := list_remove x defined.val; diff --git a/camlp4/ocaml_src/meta/pa_ifdef.ml b/camlp4/ocaml_src/meta/pa_ifdef.ml index c0b4ad6c3..49d37192a 100644 --- a/camlp4/ocaml_src/meta/pa_ifdef.ml +++ b/camlp4/ocaml_src/meta/pa_ifdef.ml @@ -8,7 +8,7 @@ let list_remove x l = List.fold_right (fun e l -> if e = x then l else e :: l) l [] ;; -let defined = ref ["OCAML_305"; "NEWSEQ"];; +let defined = ref ["OCAML_305"; "CAMLP4_300"; "NEWSEQ"];; let define x = defined := x :: !defined;; let undef x = defined := list_remove x !defined;; |