db4
Slava Pestov 2008-11-28 01:11:03 -06:00
parent 94ec0c9d1f
commit 92cc760070
2 changed files with 5 additions and 2 deletions

View File

@ -94,7 +94,10 @@ IN: stack-checker.transforms
[ "method-class" word-prop ] [ "method-class" word-prop ]
[ "method-generic" word-prop ] bi [ "method-generic" word-prop ] bi
[ inlined-dependency depends-on ] bi@ [ inlined-dependency depends-on ] bi@
] [ next-method-quot ] bi ] [
[ next-method-quot ]
[ '[ _ no-next-method ] ] bi or
] bi
] 1 define-transform ] 1 define-transform
! Constructors ! Constructors

View File

@ -200,7 +200,7 @@ M: ceo salary
[ T{ inconsistent-next-method f ceo salary } = ] must-fail-with [ T{ inconsistent-next-method f ceo salary } = ] must-fail-with
[ intern boa salary ] [ intern boa salary ]
[ T{ no-next-method f intern salary } = ] must-fail-with [ no-next-method? ] must-fail-with
! Weird shit ! Weird shit
TUPLE: a ; TUPLE: a ;