diff --git a/basis/stack-checker/transforms/transforms.factor b/basis/stack-checker/transforms/transforms.factor index 6e11eb1189..7eec29f94b 100644 --- a/basis/stack-checker/transforms/transforms.factor +++ b/basis/stack-checker/transforms/transforms.factor @@ -94,7 +94,10 @@ IN: stack-checker.transforms [ "method-class" word-prop ] [ "method-generic" word-prop ] bi [ inlined-dependency depends-on ] bi@ - ] [ next-method-quot ] bi + ] [ + [ next-method-quot ] + [ '[ _ no-next-method ] ] bi or + ] bi ] 1 define-transform ! Constructors diff --git a/core/generic/standard/standard-tests.factor b/core/generic/standard/standard-tests.factor index f6635276b3..7dadc807fd 100644 --- a/core/generic/standard/standard-tests.factor +++ b/core/generic/standard/standard-tests.factor @@ -200,7 +200,7 @@ M: ceo salary [ T{ inconsistent-next-method f ceo salary } = ] must-fail-with [ intern boa salary ] -[ T{ no-next-method f intern salary } = ] must-fail-with +[ no-next-method? ] must-fail-with ! Weird shit TUPLE: a ;