diff options
| author | herbelin | 2004-07-16 21:14:11 +0000 |
|---|---|---|
| committer | herbelin | 2004-07-16 21:14:11 +0000 |
| commit | 5a947f0317aa627b129332d2f38167ebd1bb9c31 (patch) | |
| tree | 9b7ead885e2074faaa4b247d867166e6e6f7aa08 | |
| parent | f723ccc84f515615a75a030d304c89f6c5f06af9 (diff) | |
Branchement sur pa_macro, pa_ifdef devenant obsolete en 3.08
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5931 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/mltop.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/mltop.ml4 b/toplevel/mltop.ml4 index 8562038c5e..52f2436100 100644 --- a/toplevel/mltop.ml4 +++ b/toplevel/mltop.ml4 @@ -99,7 +99,7 @@ let dir_ml_load s = str s; str" to Coq code." >]) (* TO DO: .cma loading without toplevel *) | WithoutTop -> - ifdef Byte then + IFDEF Byte THEN let _,gname = where_in_path !coq_mlpath_copy s in try Dynlink.loadfile gname; @@ -109,7 +109,7 @@ let dir_ml_load s = [Filename.dirname gname] with | Dynlink.Error a -> errorlabstrm "Mltop.load_object" [< str (Dynlink.error_message a) >] - else () + ELSE () END | Native -> errorlabstrm "Mltop.no_load_object" [< str"Loading of ML object file forbidden in a native Coq" >] |