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

don't natural-sort the stack effects or $values in help-lint -- catches a lot more documentation errors

db4
Doug Coleman 2009-10-21 17:39:53 -05:00
parent c5dd8d0b20
commit 83a442c30f
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/help/lint/checks/checks.factor
View File

@ -33,14 +33,13 @@ SYMBOL: vocab-articles
: extract-values ( element -- seq ) : extract-values ( element -- seq )
\ $values swap elements dup empty? [ \ $values swap elements dup empty? [
first rest [ first ] map prune natural-sort first rest [ first ] map prune
] unless ; ] unless ;
: effect-values ( word -- seq ) : effect-values ( word -- seq )
stack-effect stack-effect
[ in>> ] [ out>> ] bi append [ in>> ] [ out>> ] bi append
[ dup pair? [ first ] when effect>string ] map [ dup pair? [ first ] when effect>string ] map prune ;
prune natural-sort ;
: contains-funky-elements? ( element -- ? ) : contains-funky-elements? ( element -- ? )
{ {