diff options
| -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;; |