P.S. A more elegant solution is mentioned at the bottom of page http://wiki.squeak.org/squeak/1824
Smalltalk globals reject: [:each | each class isMeta]
Result attached.
For that to work Environment needs the addition of
reject: aBlock ^ declarations reject: aBlock
in the 'emulating' instance method protocol
On 4/3/17, H. Hirzel hannes.hirzel@gmail.com wrote:
Hello
The recipe: How to list all global variables [1]
has the code snippet
Smalltalk keys select: [:k | ((Smalltalk at: k) isKindOf: Class) not] thenCollect: [:k | k -> (Smalltalk at: k) class]
to give a list of global variables.
When executing this code the recommendation is to use
Smalltalk globals
instead of
Smalltalk keys
A rewrite because of Environments not having #select:thenCollect: (I do not think that is necessary) then is
(Smalltalk globals select: [:k | ((Smalltalk at: k) isKindOf: Class)
not]) collect: [:k | k -> (Smalltalk at: k) class]
Then I get 'key not found: ExtendedNumberParser'.
I wonder what is going on here ...
Regards Hannes