#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Fri, 26 Aug 2016 14:18:18 +0200
changeset 5225 8bcca5a042c5
parent 5224 941b9aba81cc
child 5226 24916b8eff22
#QUALITY by cg class: DoWhatIMeanSupport changed: #valueOfVariable: leftover halt
DoWhatIMeanSupport.st
--- a/DoWhatIMeanSupport.st	Mon Aug 22 15:43:49 2016 +0200
+++ b/DoWhatIMeanSupport.st	Fri Aug 26 14:18:18 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -2347,7 +2349,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 "/].
@@ -4979,7 +4981,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 
@@ -6160,14 +6162,13 @@
 
     |valueAndKind|
 
-aVariableName = 'LargeInteger' ifTrue:[self halt.].
     (valueAndKind := self valueAndKindOfVariable:aVariableName) notNil ifTrue:[
         self assert:valueAndKind isArray.
         ^ valueAndKind first.
     ].
     ^ nil
 
-    "Modified: / 01-05-2016 / 12:41:30 / cg"
+    "Modified: / 26-08-2016 / 14:16:16 / cg"
 ! !
 
 !DoWhatIMeanSupport::InputCompletionResult class methodsFor:'instance creation'!