             [ { [ number? ] [ t? ] [ f eq? ] } 1|| ] all?
         ]
 
-        ! Remove tag defs
+        ! Remove [ tag n eq? ]
         [
             {
                 [ length 3 = ]
                 [ first \ tag = ] [ second number? ] [ third \ eq? = ]
+            } 1&&
+        ]
+
+        ! Remove [ { foo } declare class ]
+        [
+            {
+                [ length 3 = ]
+                [ first { [ array? ] [ length 1 = ] } 1&& ]
+                [ second \ declare = ]
+                [ third \ class = ]
             } 1&&
         ]
 

        [ 3drop t ] [ 3drop f ]
        [ ">" write ] [ "/>" write ]
        [ length 1 - ] [ length 1 = ] [ length 1 > ]
        [ drop f f ] [ 2drop f f ]
        [ drop f f f ]
        [ nip f f ]
        [ 0 or + ]
        [ dup 0 > ] [ dup 0 <= ]
        [ dup length iota ]
        [ 0 swap copy ]
        [ dup 1 + ]
    }

: lintable-word? ( word -- ? )

! Copyright (C) 2007, 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.

USING: accessors alien arrays assocs classes
classes.tuple.private combinators.short-circuit fry hashtables
io kernel kernel.private locals.backend make math namespaces
prettyprint quotations sequences sequences.deep shuffle
slots.private vectors vocabs words words.alias ;

IN: lint

<PRIVATE
