steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lint: fix unit tests.

db4
John Benediktsson 2011-10-17 10:15:48 -07:00
parent db1d499a6f
commit 54e075c76c
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/lint/lint.factor
View File

@ -71,6 +71,9 @@ CONSTANT: trivial-defs
! Remove words with locals ! Remove words with locals
[ [ \ load-locals = ] any? ] [ [ \ load-locals = ] any? ]
! Remove stuff with wrappers
[ [ wrapper? ] any? ]
! Remove numbers/t/f only defs ! Remove numbers/t/f only defs
[ [
[ { [ number? ] [ t? ] [ f eq? ] } 1|| ] all? [ { [ number? ] [ t? ] [ f eq? ] } 1|| ] all?
@ -111,11 +114,6 @@ CONSTANT: trivial-defs
[ third \ slot = ] [ third \ slot = ]
} 1&& } 1&&
] ]
! Remove [ ... \ cdecl ]
[
{ [ length 3 = ] [ last \ cdecl = ] } 1&&
]
} 1|| ; } 1|| ;
: all-callables ( def -- seq ) : all-callables ( def -- seq )
@ -155,7 +153,7 @@ M: callable lint ( quot -- seq )
[ lint-definitions-keys get-global ] dip '[ _ subseq? ] filter ; [ lint-definitions-keys get-global ] dip '[ _ subseq? ] filter ;
M: word lint ( word -- seq/f ) M: word lint ( word -- seq/f )
def>> all-callables [ lint ] map concat ; def>> [ callable? ] deep-filter [ lint ] map concat ;
: word-path. ( word -- ) : word-path. ( word -- )
[ vocabulary>> write ":" write ] [ . ] bi ; [ vocabulary>> write ":" write ] [ . ] bi ;