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

repair overwritten changes

windows-high-dpi
Cat Stevens 2018-02-11 23:22:19 -05:00 committed by John Benediktsson
parent 52410dee2b
commit 5fb53c851c
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/help/lint/coverage/coverage-tests.factor
View File

@ -1,6 +1,6 @@
USING: accessors fuel.help.private help.lint.coverage USING: accessors help.lint.coverage help.lint.coverage.private
help.lint.coverage.private help.markup help.syntax kernel help.markup help.syntax kernel literals math math.matrices
literals math math.matrices sequences sorting tools.test vocabs ; sequences sorting tools.test vocabs ;
IN: help.lint.coverage.tests IN: help.lint.coverage.tests
<PRIVATE <PRIVATE

11
extra/help/lint/coverage/coverage.factor
View File

@ -1,9 +1,9 @@
USING: accessors arrays classes classes.error combinators USING: accessors arrays classes classes.error combinators
combinators.short-circuit continuations english eval formatting combinators.short-circuit continuations english eval formatting
fry fuel.help.private generic help help.lint help.lint.checks help.markup io fry generic help help.lint help.lint.checks help.markup io
io.streams.string io.styles kernel math namespaces parser io.streams.string io.styles kernel math namespaces parser
prettyprint sequences sequences.deep sets sorting splitting strings summary prettyprint sequences sequences.deep sets sorting splitting strings summary
vocabs words words.alias ; vocabs vocabs.parser words words.alias ;
FROM: namespaces => set ; FROM: namespaces => set ;
IN: help.lint.coverage IN: help.lint.coverage
@ -78,6 +78,13 @@ DEFER: ?pluralize
M: word-help-coverage summary M: word-help-coverage summary
[ (present-coverage) ] with-string-writer ; inline [ (present-coverage) ] with-string-writer ; inline
: find-word ( name -- word/f )
dup words-named dup length {
{ 0 [ 2drop f ] }
{ 1 [ first nip ] }
[ drop <ambiguous-use-error> throw-restarts ]
} case ;
: sorted-loaded-child-vocabs ( prefix -- assoc ) : sorted-loaded-child-vocabs ( prefix -- assoc )
loaded-child-vocab-names natural-sort ; inline loaded-child-vocab-names natural-sort ; inline