diff options
Diffstat (limited to 'driver/Commandline.ml')
| -rw-r--r-- | driver/Commandline.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/driver/Commandline.ml b/driver/Commandline.ml index b544c37b..035c33e0 100644 --- a/driver/Commandline.ml +++ b/driver/Commandline.ml @@ -108,10 +108,12 @@ let parse_array spec argv first last = end in parse first +let argv : string array ref = ref [||] + let parse_cmdline spec = try - let argv = expandargv Sys.argv in - parse_array spec argv 1 (Array.length argv - 1) + argv := expandargv Sys.argv; + parse_array spec !argv 1 (Array.length !argv - 1) with Responsefile.Error s -> eprintf "%s" s; exit 2 |