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

help.lint.checks: remove leaks check for now due to bootstrap issues.

db4
John Benediktsson 2014-04-15 10:48:49 -07:00
parent b72fa3ba0a
commit 8fc9b823e3
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,10 +2,10 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs classes classes.tuple combinators USING: accessors arrays assocs classes classes.tuple combinators
combinators.short-circuit debugger definitions effects eval combinators.short-circuit debugger definitions effects eval
formatting fry grouping help help.markup help.topics io io.streams.string formatting fry grouping help help.markup help.topics io
kernel macros math namespaces sequences sequences.deep sets splitting io.streams.string kernel macros namespaces sequences
strings summary threads tools.destructors unicode.categories vocabs vocabs.loader sequences.deep sets splitting strings summary unicode.categories
words words.constant words.symbol ; vocabs vocabs.loader words words.constant words.symbol ;
FROM: sets => members ; FROM: sets => members ;
IN: help.lint.checks IN: help.lint.checks
@ -20,7 +20,7 @@ SYMBOL: all-vocabs
SYMBOL: vocab-articles SYMBOL: vocab-articles
: check-example ( element -- ) : check-example ( element -- )
[ ! [
'[ '[
_ rest [ _ rest [
but-last "\n" join but-last "\n" join
@ -28,10 +28,10 @@ SYMBOL: vocab-articles
"\n" ?tail drop "\n" ?tail drop
] keep ] keep
last assert= last assert=
] vocabs-quot get call( quot -- ) ] vocabs-quot get call( quot -- ) ;
] leaks members length [ ! ] leaks members length [
"%d disposable(s) leaked in example" sprintf simple-lint-error ! "%d disposable(s) leaked in example" sprintf simple-lint-error
] unless-zero ; ! ] unless-zero ;
: check-examples ( element -- ) : check-examples ( element -- )
\ $example swap elements [ check-example ] each ; \ $example swap elements [ check-example ] each ;