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