On Wed, Mar 10, 2010 at 1:12 PM, St�phane Ducasse <stephane.ducasse@inria.fr> wrote:

freeNamesAndValues
� � � �| aStream eval |
� � � �eval :=
� � � �[ :string |
� � � �self class evaluatorClass new
� � � � � � � �evaluate2: string readStream
� � � � � � � �in: self
� � � � � � � �to: nil
� � � � � � � �notifying: nil
� � � � � � � �ifFail:
� � � � � � � � � � � �[ "fix this"
� � � � � � � � � � � �self error: 'bug' ]
� � � � � � � �logged: false ].
� � � �aStream := '' writeStream.
� � � �self freeNames doWithIndex:
� � � � � � � �[ :name :index |
� � � � � � � �aStream
� � � � � � � � � � � �nextPutAll: name;
� � � � � � � � � � � �nextPut: $:;
� � � � � � � � � � � �space;
� � � � � � � � � � � �tab.
� � � � � � � �(eval value: name) printOn: aStream.
� � � � � � � �aStream cr ].
� � � �^ aStream contents

apparently

freeNames

� � � �^ self methodNode freeNames

freeNames is not defined on compiledMethod

Elliot do you have that in your image?

Stef

_______________________________________________
Pharo-project mailing list
Pharo-project@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project