Method.st
changeset 20547 72ae31e8718b
parent 20209 ad8f8594c10d
child 20579 9add81aadb7a
child 20683 728746379f4b
--- a/Method.st	Wed Oct 05 19:02:20 2016 +0200
+++ b/Method.st	Wed Oct 05 21:07:45 2016 +0200
@@ -1058,7 +1058,6 @@
     "Modified (format): / 18-11-2011 / 14:47:06 / cg"
 ! !
 
-
 !Method methodsFor:'accessing-visibility'!
 
 isIgnored
@@ -2042,21 +2041,21 @@
 
     annotationOrArray := annotation := annotations at: index.
     annotationOrArray isArray ifTrue:[
-	args := annotationOrArray size == 2
-		    ifTrue:[annotationOrArray second]
-		    ifFalse:[#()].
-	args isArray ifFalse:[args := Array with: args].
-	annotation := Annotation
-			method:self
-			key: annotationOrArray first
-			arguments: args.
-	annotation isUnknown ifFalse:[
-	    annotations isImmutable ifTrue:[
-		annotations := annotations asArray
-	    ].
-	    annotations at: index put: annotation.
+        args := annotationOrArray size == 2
+                    ifTrue:[annotationOrArray second]
+                    ifFalse:[#()].
+        args isArray ifFalse:[args := Array with: args].
+        annotation := Annotation
+                        method:self
+                        key: annotationOrArray first
+                        arguments: args.
+        annotation isUnknown ifFalse:[
+            annotations isImmutable ifTrue:[
+                annotations := annotations asMutableCollection
+            ].
+            annotations at: index put: annotation.
 "/            annotation annotatesMethod: self
-	].
+        ].
     ].
     ^annotation
 
@@ -3729,7 +3728,6 @@
     "Created: / 23-07-2012 / 11:16:36 / cg"
 ! !
 
-
 !Method methodsFor:'source management'!
 
 revisionInfo