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

View File

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