9 lines
220 B
Smalltalk
9 lines
220 B
Smalltalk
"Protocol: visiting"
|
|
EmptyNode>>accept: aVisitor
|
|
|
|
EmptyNode>>accept: aVisitor with: anObject
|
|
^anObject
|
|
|
|
"Protocol: enumerating"
|
|
EmptyNode>>traverse: aVisitorClass do: aBlock
|
|
^self accept: (aVisitorClass block: aBlock)
|