"{ Package: 'stx:goodies/smallsense' }"

"{ NameSpace: SmallSense }"

Regex::RxsCharSet subclass:#TokenPatternTokenSet
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'SmallSense-Utils-Matcher'
!

!TokenPatternTokenSet methodsFor:'accessing'!

dispatchTo: aMatcher
        "Inform the matcher of the kind of the node, and it
        will do whatever it has to."

        ^aMatcher syntaxTokenSet: self

    "Created: / 09-05-2014 / 16:18:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

tokens
    ^ elements

    "Created: / 09-05-2014 / 16:20:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !