Whitespace

Signed-off-by: Stefan Marr <[email protected]>

Author: smarr

Smalltalk/Object.som

@@ -26,7 +26,7 @@ THE SOFTWARE.
 Object = nil (
     class      = primitive
     objectSize = primitive  "size in bytes"
-    
+
     "Comparing"
 
     " If you override =, you MUST override hashcode as well.  The rule
@@ -38,15 +38,15 @@ Object = nil (
     ~= other    = (^ (self == other) not )
     isNil       = ( ^false )
     notNil      = ( ^true )
-    
+
     "Converting"
     asString  = ( ^'instance of ' + (self class) )
     , element = ( ^(Vector new append: self) append: element )
     hashcode  = primitive
-    
+
     "Evaluating"
     value     = ( ^self )
-    
+
     "Convenience"
     ifNil: aBlock = (^self)
     ifNotNil: aBlock = (^aBlock value)
@@ -60,27 +60,27 @@ Object = nil (
     "Debugging"
     inspect   = primitive
     halt      = primitive
-    
+
     "Error handling"
     error: string = ( '' println. ('ERROR: ' + string) println. system exit: 1 )
-    
+
     "Abstract method support"
     subclassResponsibility = (
         self error: 'This method is abstract and should be overridden'
     )
-    
+
     "Error recovering"
     doesNotUnderstand: selector arguments: arguments = (
         self error:
             ('Method ' + selector + ' not found in class ' + self class name)
     )
-    
+
     escapedBlock: block = (
         self error: 'Block has escaped and cannot be executed'
     )
-    
+
     unknownGlobal: name = ( ^system resolve: name )
-    
+
     "Reflection"
     respondsTo: aSymbol = (
         (self class hasMethod: aSymbol)
@@ -93,13 +93,13 @@ Object = nil (
                         ifFalse: [ cls := cls superclass ] ].
                 ^ false ]
     )
-    
+
     perform: aSymbol = primitive
     perform: aSymbol withArguments: args = primitive
-    
+
     perform: aSymbol inSuperclass: cls = primitive
     perform: aSymbol withArguments: args inSuperclass: cls = primitive
-    
+
     instVarAt: idx          = primitive
     instVarAt: idx put: obj = primitive
     instVarNamed: sym       = primitive

TestSuite/ReflectionTest.som

@@ -31,7 +31,7 @@ ReflectionTest = TestCase (
     self assert: (23 respondsTo: #isNil).
     self assert: (23 respondsTo: #+).
   )
-  
+
   testMethods = (
     "First method in Object should be #class."
     self assert: #class equals: (Object methods at: 1) signature.
@@ -42,50 +42,50 @@ ReflectionTest = TestCase (
     | o |
     self assert: Integer equals: (23 perform: #class).
     self assert: (23 perform: #between:and: withArguments: (Array with: 22 with: 24)).
-    
+
     o := SuperTest new.
     self assert: #super equals: (o perform: #something inSuperclass: SuperTestSuperClass).
-    
+
     "Trying to see whether the stack in bytecode-based SOMs works properly"
     self assert: #a equals: ((23 perform: #class) = Integer ifTrue: [#a] ifFalse: [#b]).
 
     self assert: 28 equals: 5 + (23 perform: #value).
   )
-  
+
   testInstVarAtAndPut = (
     | tmp |
     "Testing #at: and #at:put:"
     tmp := Pair withKey: 3 andValue: 42.
-    
+
     self assert: tmp key equals: (tmp instVarAt: 1).
-    
+
     tmp instVarAt: 1 put: #foo.
     self assert: #foo    equals: tmp key.
   )
-  
+
   testName = (
     self assert: #Object equals: Object name.
     self assert: #'Object class' equals: Object class name.
     self assert: #Integer equals: 1 class name.
   )
-  
+
   testAsString = (
     self assert: 'Object' equals: Object asString.
     self assert: 'Object class' equals: Object class asString.
     self assert: 'Integer' equals: 1 class asString.
   )
-  
+
   testSelectors = (
     | sels |
     sels := Object selectors.
     self assert: 33 equals: sels length.
 
     sels contains: #=.
     self assert: (Object hasMethod: #=).
-    
+
     sels contains: #value.
     self assert: (Object hasMethod: #value).
-    
+
     sels contains: #notNil.
     self assert: (Object hasMethod: #notNil).
   )