summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorPeter Sewell2017-02-14 21:57:46 +0000
committerPeter Sewell2017-02-14 21:57:46 +0000
commit83f8e574024df56e75bc1d3f6e6b50ce99ba9042 (patch)
tree2afe89d9d7e8842a7d7880f16504519777306e66 /src
parent17dcfa99ffb154f5d02684a6a6622558ad779f31 (diff)
remove the -i option
Diffstat (limited to 'src')
-rw-r--r--src/sail.ml4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/sail.ml b/src/sail.ml
index fe5fcd37..4e76551f 100644
--- a/src/sail.ml
+++ b/src/sail.ml
@@ -42,7 +42,7 @@
open Process_file
-let lib = ref []
+let lib = ref ([] : string list)
let opt_file_out : string option ref = ref None
let opt_print_version = ref false
let opt_print_initial_env = ref false
@@ -72,9 +72,11 @@ let options = Arg.align ([
( "-ocaml_lib",
Arg.String (fun l -> opt_libs_ocaml := l::!opt_libs_ocaml),
"<filename> provide additional library to open in OCaml output");
+(*
( "-i",
Arg.String (fun l -> lib := l::!lib),
"<library_filename> treat this file as input only and generate no output for it");
+*)
( "-print_initial_env",
Arg.Set opt_print_initial_env,
" print the built-in initial type environment and terminate");