author | sr |
Wed, 18 Oct 2017 15:01:01 +0200 | |
changeset 1885 | 28600545d805 |
parent 1884 | ad279a6d791d |
child 1886 | 6deb0e9fa0d2 |
--- a/RegressionTests__Helper.st Wed Oct 18 15:00:54 2017 +0200 +++ b/RegressionTests__Helper.st Wed Oct 18 15:01:01 2017 +0200 @@ -32,6 +32,14 @@ !Helper class methodsFor:'queries'! isStcCompiledMethod:aMethod + in:instance + + ^ self + isStcCompiledMethod:aMethod + inClass:instance class +! + +isStcCompiledMethod:aMethod inClass:aClass |compiledMethod|