Smalltalk.st
changeset 20717 e1080ea0677a
parent 20716 22b66345ba2e
child 20718 0159a28c02e5
--- a/Smalltalk.st	Wed Nov 02 18:45:54 2016 +0100
+++ b/Smalltalk.st	Wed Nov 02 18:49:55 2016 +0100
@@ -4453,6 +4453,7 @@
             (isEval | isPrint | isFilter | isRepl | isRunMain) ifTrue:[
                 isRepl ifFalse:[
                     CommandLineArguments size <= idx ifTrue:[
+                        StandAlone := true.
                         self exitWithErrorMessage:'missing argument after -E/-P/-F/--run.'.
                     ].
                     arg := CommandLineArguments at:idx + 1.
@@ -4480,6 +4481,7 @@
                             ('Smalltalk [info]: reading command file from: "', commandFile, '".') infoPrintCR.
                         ].
                         (self secureFileIn:commandFile) ifFalse:[
+                            StandAlone := true.
                             self exitWithErrorMessage:('"', commandFile, '" not found.').
                         ]
                     ]
@@ -4536,6 +4538,7 @@
                                 className := arg.
                                 class := Smalltalk classNamed:className.
                                 class isNil ifTrue:[
+                                    StandAlone := true.
                                     self exitWithErrorMessage:'no such class: "', className, '".'
                                 ].
                                 class := class theMetaclass.
@@ -4548,6 +4551,7 @@
                                         (class implements:#start) ifTrue:[
                                             class start.
                                         ] ifFalse:[    
+                                            StandAlone := true.
                                             self exitWithErrorMessage:'class has no "main:", "main" or "start" method.'
                                         ].    
                                     ].