# HG changeset patch # User Claus Gittinger # Date 1576246602 -3600 # Node ID f9651872e2e21d4491058667d0d5dd3913b1a5e3 # Parent 2a7e5788839ec4b1e2387ef1d813bd3609c8d471 #REFACTORING by cg class: Smalltalk class changed: #initializeSystem #start diff -r 2a7e5788839e -r f9651872e2e2 Smalltalk.st --- a/Smalltalk.st Fri Dec 13 15:13:21 2019 +0100 +++ b/Smalltalk.st Fri Dec 13 15:16:42 2019 +0100 @@ -695,11 +695,6 @@ self basicInitializeSystem ]. - idx := CommandLineArguments indexOf:'--version'. - idx ~~ 0 ifTrue:[ - self versionString _errorPrintCR. - self exit:0. - ]. "Modified: / 12-10-2010 / 11:27:47 / cg" ! @@ -4600,6 +4595,11 @@ keepSplashWindow := StartupClass perform:#keepSplashWindowOpen ifNotUnderstood:[false]. + idx := CommandLineArguments indexOf:'--version'. + idx ~~ 0 ifTrue:[ + self versionString _errorPrintCR. + self exit:0. + ]. "/ remove possibly leftover --debug arg (not removed in initVerboseFlags, for whatever reason) idx := CommandLineArguments indexOf:'--debug'. (idx ~~ 0) ifTrue:[