ignore-def? ( def -- ? )


Vocabulary
lint.private

Inputs
defan object


Outputs
?an object


Definition


: ignore-def? ( def -- ? )
{
[ length 1 <= ]
[ trivial-defs member? ]
[ [ \ curry = ] all? ]
[ [ \ load-locals = ] any? ]
[ [ wrapper? ] any? ]
[ [ { [ number? ] [ ~array~ member? ] } 1|| ] all? ]
[
{
[ length 2 = ]
[ first2 [ word? ] either? ]
[ first2 [ ~array~ member? ] either? ]
} 1&&
]
[
{
[ length 2 = ]
[ first { ~quotation~ ~quotation~ } 1|| ]
[
second
{ clone clone-like like assoc-like make }
member?
]
} 1&&
]
[
{
[ length 2 = ]
[ first word? ]
[ second { get get-global , % } member? ]
} 1&&
]
[
{
[ length 2 = ]
[ first { first second third } member? ]
[ second { first second third } member? ]
} 1&&
]
[
{
[ length 2 = ]
[ first { ~quotation~ ~quotation~ } 1&& ]
[
second
{ if if* unless unless* when when* curry }
member?
]
} 1&&
]
[
{
[ length 2 = ]
[ first { ~quotation~ ~quotation~ } 1|| ]
[
second {
+
-
/
*
<
<=
=
>=
>
shift
bitand
bitor
bitxor
eq?
} member?
]
} 1&&
]
[
{
[ length 3 = ]
[ first { dup over } member? ]
[ second number? ]
[ third { + - / * < <= = >= > } member? ]
} 1&&
]
[
{
[ length 4 <= ]
[
first
{ drop 2drop 3drop nip 2nip 3nip 4nip }
member?
]
[ rest-slice [ boolean? ] all? ]
} 1&&
]
[
{
[ length 3 = ]
[ first \ length = ]
[ second number? ]
[ third { + - / * < <= = >= > } member? ]
} 1&&
]
[
{
[ length 4 = ]
[ first { dup over } member? ]
[ second \ length = ]
[ third number? ]
[ fourth { + - / * < <= = >= > } member? ]
} 1&&
]
[ [ { [ number? ] [ boolean? ] } 1|| ] all? ]
[
{
[ length 3 = ]
[ first \ tag = ]
[ second number? ]
[ third \ eq? = ]
} 1&&
]
[
{
[ length 3 = ]
[ first { ~quotation~ ~quotation~ } 1&& ]
[ second \ declare = ]
[ third \ class-of = ]
} 1&&
]
[
{
[ length 3 = ]
[ first2 [ number? ] both? ]
[ third \ shift = ]
} 1&&
]
[
{
[ length 3 = ]
[ first \ layout-of = ]
[ second number? ]
[ third \ slot = ]
} 1&&
]
} 1|| ;