Commit 6fcd1881 authored by John van Groningen's avatar John van Groningen

rename call of function initPlatformCommandLine as initPlatformCommandLineArguments,

don't ignore the first argument
parent 032ff969
......@@ -119,11 +119,11 @@ info =
//-- Support functions...
open_heap_file_from_command_line ps
# (commandline,ps) = initPlatformCommandLine ps
| length commandline <= 1
# (commandline_arguments,ps) = initPlatformCommandLineArguments ps
| isEmpty commandline_arguments
# (dp,ps) = defaultPrintSetup ps
= (empty_progstate dp,ps)
= open_file_function (commandline!!1) ps
= open_file_function (hd commandline_arguments) ps
openFiles _ _ _ _ _ _ _ [] ps = ps
openFiles recId winId closeId printId pageId nextId prevId [h:t] ps
......
......@@ -130,10 +130,10 @@ info =
//-- Support functions...
open_time_file_from_command_line ps
# (commandline,ps) = initPlatformCommandLine ps
| length commandline <= 1
# (commandline_arguments,ps) = initPlatformCommandLineArguments ps
| isEmpty commandline_arguments
= (([],[],""),ps)
= open_file_function (commandline!!1) ps
= open_file_function (hd commandline_arguments) ps
openFiles _ _ _ _ [] ps = ps
openFiles winId closeId printId recId [h:t] ps
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment