Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sDict := Dictionary new.
- c := 'SystemDictionary'.
- sDict add: Character -> [Transcript show: '$',c asString;cr].
- sDict add: ByteSymbol -> [Transcript show: '#',c asString;cr].
- sDict add: ByteString -> [Transcript show: '''',c,'''';cr].
- switch := [:var| (sDict at: var class ifAbsent: [Transcript show: var asString;cr ]) value].
- switch value:c
Add Comment
Please, Sign In to add comment