diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-05 16:21:46 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-05 16:21:46 +0000 |
| commit | 567aebacc7e89aece982d9fafb53d24945ac67f6 (patch) | |
| tree | fe502c5fd256d85580377a3eeff9844042ab1cf0 /toplevel/toploop.ml | |
| parent | 0a4a618a4a89c2d4c5b735d2936c981c541056b9 (diff) | |
| download | ocaml-567aebacc7e89aece982d9fafb53d24945ac67f6.tar.gz | |
Ne pas faire initial_env avant d'avoir parse la ligne de commande
(pour les options -I).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@625 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'toplevel/toploop.ml')
| -rw-r--r-- | toplevel/toploop.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/toploop.ml b/toplevel/toploop.ml index 2dbb56c17e..4322a5916a 100644 --- a/toplevel/toploop.ml +++ b/toplevel/toploop.ml @@ -179,7 +179,6 @@ let empty_lexbuf lb = let _ = Symtable.init_toplevel(); - toplevel_env := Compile.initial_env (); Sys.interactive := true (* The loop *) @@ -188,6 +187,7 @@ let loop() = print_string "\tCaml Special Light version "; print_string Config.version; print_newline(); print_newline(); + toplevel_env := Compile.initial_env(); let lb = Lexing.from_function refill_lexbuf in Location.input_name := ""; Location.input_lexbuf := Some lb; |