--- 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.'
].
].