Fixes

2008-11-28 01:11:03 -06:00 · 2008-11-28 01:11:03 -06:00 · 92cc760070
parent 94ec0c9d1f
commit 92cc760070
2 changed files with 5 additions and 2 deletions
--- 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
--- 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 ;