     ! These have their own tests later
     {
         hlshift hrshift vshuffle vbroadcast
-        v= vany? vall? vnone?
+        vany? vall? vnone?
     } unique assoc-diff ;
 
 : ops-to-check ( elt-class -- alist )


: approx= ( x y -- ? )
    {
        { [ 2dup [ float? ] both? ] [ -1.e8 ~ ] }
        { [ 2dup [ fp-infinity? ] either? ] [ fp-bitwise= ] }
        { [ 2dup [ sequence? ] both? ] [

    ] unit-test
] each

"== Checking vector tests" print

:: test-vector-tests-bool ( vector declaration -- none? any? all? )
    vector
