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