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

"{ NameSpace: SmallSense }"

SharedPool subclass:#SmalltalkInferencerParameters
	instanceVariableNames:''
	classVariableNames:'UnionTypeMaxSize UnionTypeReduceThreshold'
	poolDictionaries:''
	category:'SmallSense-Smalltalk-Types-Inference'
!


!SmalltalkInferencerParameters class methodsFor:'initialization'!

initialize
    "Invoked at system start or when the class is dynamically loaded."

    "/ please change as required (and remove this comment)

    UnionTypeMaxSize := 15.
    UnionTypeReduceThreshold := 5.

    "Modified: / 01-03-2014 / 23:23:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!SmalltalkInferencerParameters class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !


SmalltalkInferencerParameters initialize!