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