5 lines
117 B
Smalltalk
5 lines
117 B
Smalltalk
"Protocol: visiting"
|
|
PreOrder>>visit: aNode
|
|
block value: aNode.
|
|
aNode left accept: self.
|
|
aNode right accept: self
|