remove some trivial definitions from lint

db4
Doug Coleman 2008-12-07 17:22:05 -06:00
parent ad4729712c
commit ce00c95384
1 changed files with 9 additions and 1 deletions

View File

@ -44,11 +44,13 @@ SYMBOL: def-hash-keys
: trivial-defs
{
[ drop ] [ 2array ]
[ bitand ]
[ . ]
[ get ]
[ t ] [ f ]
[ { } ]
[ drop ] ! because of declare
[ drop f ]
[ "cdecl" ]
[ first ] [ second ] [ third ] [ fourth ]
@ -80,6 +82,12 @@ def-hash get-global [ drop empty? not ] assoc-filter
! Remove trivial defs
[ drop trivial-defs member? not ] assoc-filter
! Remove numbers only defs
[ drop [ number? ] all? not ] assoc-filter
! Remove curry only defs
[ drop [ \ curry = ] all? not ] assoc-filter
! Remove tag defs
[
drop {