Fixing unit tests for stack effect inference changes

[factor.git] / basis / tools / test / test.factor

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 1ff47e3d7f38d6c78099d1c4525b658f90393a83..c0c2f1892d57adb9b0c909f08b6b759b44fcd0de 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -56,8 +56,7 @@ SYMBOL: file
 :: (must-infer-as) ( effect quot -- error ? )
     [ quot infer short-effect effect assert= f f ] [ t ] recover ;
 
-:: (must-infer) ( word/quot -- error ? )
-    word/quot dup word? [ '[ _ execute ] ] when :> quot
+:: (must-infer) ( quot -- error ? )
     [ quot infer drop f f ] [ t ] recover ;
 
 TUPLE: did-not-fail ;