class: ByteCodeCompiler
authorClaus Gittinger <cg@exept.de>
Mon, 02 Feb 2015 17:17:17 +0100
changeset 3566 2541eb67673f
parent 3565 a239fa70829d
child 3567 edd7c3c4572e
class: ByteCodeCompiler changed: #createMethod
ByteCodeCompiler.st
--- a/ByteCodeCompiler.st	Mon Feb 02 17:16:46 2015 +0100
+++ b/ByteCodeCompiler.st	Mon Feb 02 17:17:17 2015 +0100
@@ -2056,7 +2056,7 @@
     annotations notEmptyOrNil ifTrue:[
         newMethod annotations: annotations copy.
         (Smalltalk at: #NamespaceAwareLookup) notNil ifTrue:[
-            (annotations contains: [:annotationSpec| (annotationSpec at:1) == #namespace:])
+            (annotations contains: [:annotationSpec| (annotationSpec key) == #namespace:])
                 ifTrue:[newMethod lookupObject:NamespaceAwareLookup instance]
         ]
     ].
@@ -3642,11 +3642,11 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.291 2015-02-02 16:15:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.292 2015-02-02 16:17:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.291 2015-02-02 16:15:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.292 2015-02-02 16:17:17 cg Exp $'
 !
 
 version_SVN