diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-12-29 13:12:08 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-12-29 13:12:08 +0000 |
commit | 1bce6b0f9f8cd614038a6e7fc21fb984724204a4 (patch) | |
tree | 48683822666bc49b0101ed78f4d5059e834eb492 /caml/Driver.ml | |
parent | 12421d717405aa7964e437fc1167a23699b61ecc (diff) | |
download | compcert-1bce6b0f9f8cd614038a6e7fc21fb984724204a4.tar.gz compcert-1bce6b0f9f8cd614038a6e7fc21fb984724204a4.zip |
Extract Coq lists to Caml lists.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@929 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml/Driver.ml')
-rw-r--r-- | caml/Driver.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/caml/Driver.ml b/caml/Driver.ml index dacc9dcb..8fffcaa0 100644 --- a/caml/Driver.ml +++ b/caml/Driver.ml @@ -39,7 +39,7 @@ let print_error oc msg = let print_one_error = function | Errors.MSG s -> output_string oc (Camlcoq.camlstring_of_coqstring s) | Errors.CTX i -> output_string oc (Camlcoq.extern_atom i) - in Camlcoq.coqlist_iter print_one_error msg + in List.iter print_one_error msg (* For the CIL -> Csyntax translator: |