Skip to content

GitLab

Commit 6fcd1881 authored by John van Groningen's avatar John van Groningen
Browse files
Options

rename call of function initPlatformCommandLine as initPlatformCommandLineArguments, 

don't ignore the first argument
parent 032ff969
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 6 deletions
HeapProfile/heapprofiler.icl
View file @ 6fcd1881
......@@ -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
......
TimeProfile/timeprofiler.icl
View file @ 6fcd1881
......@@ -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