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
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
