         2drop
     ] if ;
 
-: more-defs
+: more-defs ( -- )
     {
         { [ swap >r swap r> ] -rot }
         { [ swap swapd ] -rot }

! Copyright (C) 2007 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.accessors arrays assocs combinators.lib io kernel
macros math namespaces prettyprint quotations sequences
vectors vocabs words html.elements slots.private tar ;
IN: lint

SYMBOL: def-hash

    {
        [ get ] [ t ] [ { } ] [ . ] [ drop f ]
        [ drop ] [ f ] [ first ] [ second ] [ third ] [ fourth ]
        [ ">" write-html ] [ "/>" write-html ]
    } ;

H{ } clone def-hash set-global
all-words [ dup def>> add-word-def ] each
more-defs

! Remove empty word defs
def-hash get-global [
    drop empty? not
] assoc-filter

! Remove constants [ 1 ]
[
    drop dup length 1 = swap first number? and not
] assoc-filter

! Remove set-alien-cell, etc.
[
    drop [ accessor-words diff ] keep [ length ] bi@ =
] assoc-filter

! Remove trivial defs
[
    drop trivial-defs member? not
] assoc-filter

! Remove n m shift defs
[
