diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-17 15:31:25 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-17 15:31:25 +0000 |
| commit | 9f3fc5d04b69f0c6bf6eec56c32ed11a218dde61 (patch) | |
| tree | ff298e140ab7b23d44ff12de921bcd9ca28bb0b3 | |
| parent | b594d3f6f2c5ae36dd1da727bb1707271b0b784d (diff) | |
Extraction : message about lack of support for toplevel Include
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16625 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | plugins/extraction/extract_env.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/extraction/extract_env.ml b/plugins/extraction/extract_env.ml index add5428b5..fae5c7e67 100644 --- a/plugins/extraction/extract_env.ml +++ b/plugins/extraction/extract_env.ml @@ -43,6 +43,7 @@ let toplevel_env () = | "MODULE TYPE" -> let modtype = Global.lookup_modtype (MPdot (mp, l)) in Some (l, SFBmodtype modtype) + | "INCLUDE" -> error "No extraction of toplevel Include yet." | _ -> None end | _ -> None |