Check the result of the super class initializer and assign it to self.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@36407 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,9 @@
+2013-03-23  Wolfgang Lux  <wlux@uni-muenster.de>
+
+	* Tools/STEnvironmentProcess.m (initWithDescriptionName:):
+	Check the result of the super class initializer and assign it to
+	self.
+
 2013-03-23  Wolfgang Lux  <wolfgang.lux@gmail.com>
 
 	* Frameworks/StepTalk/STActor.m (-init, -initWithEnvironment:,

Tools/STEnvironmentProcess.m

@@ -7,25 +7,25 @@
 @implementation STEnvironmentProcess
 - initWithDescriptionName:(NSString *)descName
 {
-    STEnvironmentDescription *desc;
+    if ((self = [super init]) != nil)
-    
-    self = [super init];
-
-    if(descName)
     {
-        NSLog(@"Creating environment from description '%@'", descName);
+        STEnvironmentDescription *desc;
-        desc = [STEnvironmentDescription descriptionWithName:descName];
-        environment = [[STEnvironment alloc] initWithDescription:desc];
-    }
-    else
-    {
-        environment = [[STEnvironment alloc] initWithDefaultDescription];
-    }
-    
-    /* FIXME: use some configurable mechanism */
-    [environment setObject:environment forName:@"Environment"];
-    [environment loadModule:@"SimpleTranscript"];
 
+        if (descName)
+        {
+            NSLog(@"Creating environment from description '%@'", descName);
+            desc = [STEnvironmentDescription descriptionWithName:descName];
+            environment = [[STEnvironment alloc] initWithDescription:desc];
+        }
+        else
+        {
+            environment = [[STEnvironment alloc] initWithDefaultDescription];
+        }
+
+        /* FIXME: use some configurable mechanism */
+        [environment setObject:environment forName:@"Environment"];
+        [environment loadModule:@"SimpleTranscript"];
+    }
     return self;
 }
 - (void)dealloc